Advertisement
LuanHackingPro

Rare Gui Admin

Nov 29th, 2015
702
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 118.43 KB | None | 0 0
  1. local Main=function()
  2.  
  3. A={};
  4. A.Old={};
  5. A.Data={};
  6. A.User={};
  7. A.Calls={};
  8. A.Images={};
  9. A.Stuffs={};
  10. A.Sounds={};
  11. A.Modules={};
  12. A.Service={};
  13. A.Settings={};
  14. A.Commands={};
  15. A.Warehouse={};
  16. A.Functions={};
  17. A.EachCalls={};
  18. A.GuiModules={};
  19. A.SettingIDs={};
  20. A.KeyCommands={};
  21. A.ObjectsData={};
  22. A.RecentCommands={};
  23. A.SettingsFunctions={};
  24.  
  25. A.Stuffs.Meter={};
  26. A.Warehouse.Objects={};
  27. A.Warehouse.Connections={};
  28.  
  29. A.ObjectsData.KnowProperties={};
  30. A.ObjectsData.KnowPropertiesNumber={};
  31. A.ObjectsData.GlobalProperties={'Name';'className';'Parent';'archivable';};
  32. A.ObjectsData.EspecialProperties={'AbsolutePosition';'AbsoluteSize';'AccountAge';'AccountAgeReplicate';
  33. 'Active';'Adornee';'AllowAmbientOcclusion';'AllowTeamChangeOnTouch';'AluminumQuality';
  34. 'AlwaysOnTop';'Ambient';'AmbientReverb';'Anchored';'Angularvelocity';'AnimationId';
  35. 'AreHingesDetected';'AttachmentForward';'AttachmentPoint';'AttachmentPos';
  36. 'AttachmentRight';'AttachmentUp';'AutoAssignable';'AutoButtonColor';'AutoColorCharacters';
  37. 'AvailablePhysicalMemory';'Axes';'BackgroundColor';'BackgroundColor3';'BackgroundTransparency';
  38. 'BaseTextureId';'BaseUrl';'Bevel';'Roundness';'BinType';'BlastPressure';'BlastRadius';
  39. 'BodyColor';'BodyPart';'BorderColor';'BorderColor3';'BorderSizePixel';'BrickColor';
  40. 'Brightness';'Browsable';'BubbleChat';'BubbleChatLifetime';'BubbleChatMaxBubbles';
  41. 'Bulge';'Button1DownConnectionCount';'Button1UpConnectionCount';'Button2DownConnectionCount';
  42. 'Button2UpConnectionCount';'C0';'C1';'CameraMode';'CameraSubject';'CameraType';
  43. 'CanBeDropped';'CanCollide';'CartoonFactor';'CastShadows';'CelestialBodiesShown';
  44. 'CFrame';'Cframe';'Character';'CharacterAppearance';'CharacterAutoLoads';'ChatScrollLength';
  45. 'ClassicChat';'ClearTextOnFocus';'ClipsDescendants';'CollisionSoundEnabled';
  46. 'CollisionSoundVolume';'Color';'Bottom';'Top';'ConstrainedValue';'ControllingHumanoid';
  47. 'ControlMode';'ConversationDistance';'CoordinateFrame';'CorrodedMetalQuality';'CPU';
  48. 'CpuCount';'CpuSpeed';'CreatorId';'CreatorType';'CurrentAngle';'CurrentCamera';
  49. 'CycleOffset';'D';'DataCap';'DataComplexity';'DataComplexityLimit';'DataCost';
  50. 'DataReady';'Deprecated';'DeselectedConnectionCount';'DesiredAngle';'DiamondPlateQuality';
  51. 'Disabled';'DistanceFactor';'DistributedGameTime';'DopplerScale';'Draggable';'DraggingV1';
  52. 'Duration';'EditorFont';'EditorFontSize';'EditorTabWidth';'ElapsedTime';'Elasticity';
  53. 'Enabled';'ExplosionType';'ExtentsOffset';'F0';'F1';'F2';'F3';'Face';'FaceId';'Faces';
  54. 'FieldOfView';'Focus';'FogColor';'FogEnd';'FogStart';'Font';'FontSize';'Force';'FormFactor';
  55. 'Friction';'From';'GearGenreSetting';'Genre';'GeographicLatitude';'GfxCard';'Graphic';
  56. 'GrassQuality';'Grip';'GripForward';'GripPos';'GripRight';'GripUp';'Guest';'HeadsUpDisplay';
  57. 'Health';'Heat';'Hit';'Humanoid';'IceQuality';'Icon';'IdleConnectionCount';'Image';
  58. 'InitialPrompt';'InOut';'InUse';'IsPaused';'IsPlaying';'JobId';'Jump';'KeyDownConnectionCount';
  59. 'KeyUpConnectionCount';'LeftLeg';'LeftRight';'LinkedSource';'LocalPlayer';'Location';
  60. 'Locked';'LODX';'LODY';'Looped';'Material';'MaxActivationDistance';'MaxCollisionSounds';
  61. 'MaxExtents';'MaxForce';'MaxHealth';'MaxItems';'MaxPlayers';'MaxSpeed';'MaxThrust';
  62. 'MaxTorque';'MaxValue';'MaxVelocity';'MembershipType';'MembershipTypeReplicate';'MeshId';
  63. 'MeshType';'MinValue';'Modal';'MouseButton1ClickConnectionCount';'MouseButton1DownConnectionCount';
  64. 'MouseButton1UpConnectionCount';'MouseButton2ClickConnectionCount';'MouseButton2DownConnectionCount';
  65. 'MouseButton2UpConnectionCount';'MouseDelta';'MouseDragConnectionCount';'MouseEnterConnectionCount';
  66. 'MouseHit';'MouseLeaveConnectionCount';'MouseLock';'MouseMovedConnectionCount';'MouseTarget';
  67. 'MouseTargetFilter';'MouseTargetSurface';'MoveConnectionCount';'MoveState';'MultiLine';
  68. 'NameOcclusion';'NetworkOwner';'Neutral';'NumPlayers';'Offset';'Opacity';'Origin';'OsPlatform';
  69. 'OsVer';'OverlayTextureId';'P';'PantsTemplate';'ParamA';'ParamB';'Part';'Part0';
  70. 'Part1';'Pitch';'PixelShaderModel';'PlaceId';'PlasticQuality';'PlatformStand';'PlayCount';
  71. 'PlayerToHideFrom';'PlayOnRemove';'Point';'Port';'Position';'Preliminary';'PrimaryPart';
  72. 'PrivateWorkingSetBytes';'Purpose';'RAM';'Reflectance';'ReplicatedSelectedConnectionCount';
  73. 'ResizeableFaces';'ResizeIncrement';'Resolution';'ResponseDialog';'RightLeg';'RiseVelocity';
  74. 'RobloxLocked';'RobloxVersion';'RolloffScale';'RotVelocity';'Scale';'Score';'ScriptsDisabled';
  75. 'SecondaryColor';'Selected';'ShadowColor';'Shape';'Shiny';'ShirtTemplate';'ShowDeprecatedObjects';
  76. 'ShowDevelopmentGui';'ShowPreliminaryObjects';'Sides';'Sit';'Size';'SizeConstraint';
  77. 'SizeOffset';'SkinColor';'SkyboxBk';'SkyboxDn';'SkyboxFt';'SkyboxLf';'SkyboxRt';'SkyboxUp';
  78. 'SlateQuality';'SoundId';'Source';'SparkleColor';'Specular';'StarCount';
  79. 'Steer';'StickyWheels';'StudsBetweenTextures';'StudsOffset';'StudsPerTileU';'StudsPerTileV';
  80. 'Style';'Summary';'SuperSafeChatReplicate';'Surface';'Surface0';
  81. 'Surface1';'SurfaceInput';'Target';'TargetFilter';'TargetOffset';'TargetPoint';
  82. 'TargetRadius';'TargetSurface';'TeamColor';'Terrain';'Text';'TextBounds';'TextColor';'TextColor3';
  83. 'TextFits';'TextScaled';'TextStrokeColor3';'TextStrokeTransparency';'TextTransparency';'Texture';
  84. 'TextureId';'TextureSize';'TextWrap';'TextWrapped';'TextXAlignment';'TextYAlignment';'Throttle';
  85. 'ThrustD';'ThrustP';'Ticket';'Time';'TimeOfDay';'To';'Tone';'ToolTip';'TopBottom';'Torque';'Torso';
  86. 'Transparency';'TrussDetail';'TurnD';'TurnP';'TurnSpeed';'UnitRay';'UserDialog';'UserId';'Value';
  87. 'Version';'VertexColor';'VideoCaptureEnabled';'VideoMemory';'VideoQuality';
  88. 'ViewSizeX';'ViewSizeY';'Visible';'Volume';'WalkDirection';'WalkSpeed';'WalkToPart';'WalkToPoint';
  89. 'WheelBackwardConnectionCount';'WheelForwardConnectionCount';'WindowSize';'WireRadius';'WoodQuality';
  90. 'X';'Y';'PlayerMouse';'Mouse';'location';'RequestQueueSize';'BottomSurface';'FrontSurface';
  91. 'LeftSurface';'RightSurface';'TopSurface';'ZIndex';'formFactor';'BackSurface';'HeadColor';'RightArmColor';
  92. 'LeftArmColor';'TorsoColor';'LeftLegColor';'RightLegColor';'Velocity';'cframe';
  93. 'ColorShift_Bottom';'ColorShift_Top';'Ip';'Vertex';'userId';'PlayCount';
  94. };
  95. A.ObjectsData.EspecialPropertiesLower={};
  96. for i,v in next,A.ObjectsData.EspecialProperties do
  97. A.ObjectsData.EspecialPropertiesLower[i]=v:lower();
  98. end;
  99.  
  100. A.Images.Meme={
  101. megusta=47594659;
  102. sparta=74142203;
  103. sovpax=60298055;
  104. ujelly=48989071;
  105. smile2=63175216;
  106. smile3=63186465;
  107. troll=45120559;
  108. horse=62079221;
  109. angry=48258623;
  110. orzse=62677682;
  111. smile=63174888;
  112. rofl=47595647;
  113. okey=62830600;
  114. yeaw=53646377;
  115. here=62677045;
  116. har=48260066;
  117. sun=47596170;
  118. lol=48293007;
  119. sad=53645378;
  120. lin=48290678;
  121. sls=53646388;
  122. j1d=45031979;
  123. jim=74885351;
  124. };
  125.  
  126.  
  127. --[[Functions]]
  128. A.Functions.Thread=function(Function)
  129. return coroutine.resume(coroutine.create(Function));
  130. end;
  131. A.Functions.Connect=function(Object,Event,Function,Table)
  132. local Connection=Object[Event]:connect(Function);
  133. A.Warehouse.Connections[#A.Warehouse.Connections+1]=Connection;
  134. if(Table~=nil)then
  135. Table.Connections[#Table.Connections+1]=Connection;
  136. end;
  137. return Object,Connection;
  138. end;
  139. A.Functions.Wait=function(Number)
  140. local _,Number2=A.Service.RunService.Stepped:wait();
  141. local Plus;
  142. Number=Number and Number-.01 or 0;
  143. if(Number>Number2 and Number~=Number2)then
  144. while(Number>Number2 and Number~=Number2)do
  145. _,Plus=A.Service.RunService.Stepped:wait();
  146. Number2=Number2+Plus;
  147. end;
  148. end;
  149. end;
  150. A.Functions.MatchProperty=function(Text)
  151.  
  152. Text=Text:lower();
  153.  
  154. local Found;
  155.  
  156. for i,v in next,A.ObjectsData.GlobalProperties do
  157. if(v:lower():find(Text)==1)then
  158. Found=v;
  159. break;
  160. end;
  161. end;
  162.  
  163. if(Found==nil)then
  164. for i,v in next,A.ObjectsData.EspecialPropertiesLower do
  165. if(v:find(Text)==1)then
  166. Property=A.ObjectsData.EspecialProperties[i];
  167. break;
  168. end;i,v=nil;
  169. end;
  170. end;
  171.  
  172. return Found;
  173.  
  174. end;
  175. A.Functions.GetProperties=function(Object,InNumber)
  176. local Class=type(Object)=='userdata'and Object.className or Object
  177. if(A.ObjectsData.KnowProperties[Class]==nil)then
  178. if(type(Object)=='string')then
  179. Object=A.Old.Instance.NewObject(Object);
  180. end;
  181. local New={};
  182. for i,v in next,A.ObjectsData.EspecialProperties do
  183. if(pcall(function()return Object[v];end)and Object:FindFirstChild(v)==nil)then
  184. New[v]=true;
  185. end;
  186. end;
  187. A.ObjectsData.KnowProperties[Class]=New;
  188. local Number=0;
  189. local Numbered={};
  190. for i,v in next,New do
  191. Number=Number+1;
  192. Numbered[Number]=i;
  193. i,v=nil;
  194. end;
  195. Number=nil;
  196. A.ObjectsData.KnowPropertiesNumber[Class]=Numbered;
  197. end;
  198. Object=nil;
  199. return InNumber==true and A.ObjectsData.KnowPropertiesNumber[Class]or A.ObjectsData.KnowProperties[Class];
  200. end;
  201. A.Functions.CopyTable=function(Table,New)
  202. if(Table and type(Table)=='table')then
  203. New=New~=nil and New or{};
  204. for i,v in next,Table do
  205. New[i],i,v=v,nil;
  206. end;
  207. return New;
  208. end;
  209. end;
  210. A.Functions.GetData=function(Object)
  211. local Class=Object.className;
  212. if(A.Warehouse.Objects[Class])then
  213. for i,v in next,A.Warehouse.Objects[Class]do
  214. if(v.Object==Object)then
  215. v.Rank=i;
  216. return v;
  217. else i,v=nil;
  218. end;
  219. end;
  220. end;
  221. return nil;
  222. end;
  223. A.Functions.KillData=function(Object,Data)
  224. Data=Data~=nil and Data or A.Functions.GetData(Object);
  225. if(Data~=nil)then
  226. for i,v in next,Data.Connections do
  227. v:disconnect();i,v=nil;
  228. end;
  229. table.remove(Data.Mother(),Data.Rank);
  230. for i,v in next,Data do
  231. Data[i],i,v=nil;
  232. end;
  233. end;
  234. return Object;
  235. end;
  236. A.Functions.GiveData=function(Object)
  237. if(A.Functions.GetData(Object)==nil)then
  238. local Class=Object.className;
  239. if(A.Warehouse.Objects[Class]==nil)then A.Warehouse.Objects[Class]={};end;
  240. local Rank=#A.Warehouse.Objects[Class]+1;
  241. local Data={};A.Warehouse.Objects[Class][Rank]=Data;
  242. Data.Rank=Rank
  243. Data.Object=Object;
  244. Data.Properties={};
  245. Data.Connections={};
  246. Data.Mother=function()return A.Warehouse.Objects[Class];end;
  247.  
  248. A.Functions.Connect(Object,'Changed',function(Property)
  249. if(Data.Properties[Property]~=nil)then
  250. local Health=Data.Properties[Property]();
  251. if(Property=='Parent')then
  252. if(pcall(function()Object[Property]=Health;end)==false)then
  253. A.Functions.KillData(Object,Data);
  254. end;
  255. else
  256. Object[Property]=Health;
  257. end;
  258. end;Property,Health=nil;
  259. end,Data);
  260.  
  261. return Object,Data;
  262. end;
  263. end;
  264. A.Functions.Remove=function(Object,Destroy)
  265. if(Object)then
  266. pcall(function()
  267. Object.Parent=nil;
  268. if(Destroy~=true)then
  269. Object:Remove();
  270. else
  271. Object:Destroy();
  272. end;
  273. end);
  274. end;
  275. end;
  276. A.Functions.All=function(Object,Function,Table,Return)
  277. if(Function~=nil)then
  278. for i,v in next,Object:children()do
  279. if(v~=script)then
  280. pcall(function()
  281. Function(v);
  282. A.Functions.All(v,Function,Table,Return);
  283. end);
  284. end;
  285. end;
  286. else
  287. Return=Return==nil and true or false;
  288. Table=Table~=nil and Table or{};
  289. for i,v in next,Object:children()do
  290. Table[#Table+1]=v;
  291. pcall(A.Functions.All,v,nil,Table,Return);
  292. i,v=nil;
  293. end;
  294. if(Return)then
  295. return Table;
  296. end;
  297. end;
  298. end;
  299. A.Functions.FindObject=function(Object,Property,Value)
  300. for i,v in next,Object:children()do
  301. if(v[Property]==Value)then
  302. return v;
  303. end;
  304. i,v=nil;
  305. end;
  306. end;
  307. A.Functions.ObjectWait=function(Object,Property,Value)
  308. local Part=A.Functions.FindObject(Object,Property,Value);
  309. if(Part)then return Part;end;
  310. while(A~=nil)do
  311. Part=Object.ChildAdded:wait();
  312. if(Part[Property]==Value)then
  313. return Part;
  314. end;
  315. end;
  316. end;
  317. A.Functions.PropertyWait=function(Object,Property)
  318. if(Object[Property]==nil)then
  319. while(Object.Changed:wait()~=Property)do end;
  320. end;
  321. return Object[Property];
  322. end;
  323. A.Functions.CreateCall=function(Description,Calls,Function)
  324. local Rank=#A.Calls+1;
  325. local New={};A.Calls[Rank]=New;
  326. New.Function=Function;
  327. New.Description=Description;
  328. New.Calls='"'..table.concat(Calls,'","')..'"';
  329. for i,v in next,Calls do
  330. A.EachCalls[v]=function(...)return A.Calls[Rank].Function(...);end;
  331. end;
  332. New,Description,Calls,Function=nil;
  333. end;
  334. A.Functions.MakeMeme=function(Type,Char)
  335. if(Char)then
  336. Type=Type~=nil and tostring(Type):lower()or'reset!'
  337. local Meme=A.Images.Meme[Type]or Type;
  338. local BBG_SIZE=Char.Head.Size.X*1.25;
  339. local STUD_VECTOR_1=Char.Head.Size.Z/4;
  340. local STUD_VECTOR_2=Char.Head.Size.Z;
  341. local bbg=Char:FindFirstChild'BBGMEME'or A.Old.Instance.NewObject('BillboardGui',Char);
  342. bbg.StudsOffset=A.Old.Vector3.new(0,STUD_VECTOR_1,STUD_VECTOR_2);
  343. bbg.Size=A.Old.UDim2.new(BBG_SIZE,0,BBG_SIZE);
  344. bbg.Adornee=Char.Head;
  345. bbg.Name='BBGMEME';
  346. local img=bbg:FindFirstChild'Meme'or A.Old.Instance.NewObject('ImageLabel',bbg);
  347. img.BackgroundTransparency=1;
  348. img.Image=A.Data.BaseUrl..Meme;
  349. img.Size=A.Old.UDim2.Full;
  350. img.Name='Meme';
  351. for i,v in next,Char:children()do
  352. if(v.className=='Hat')then
  353. v=v:FindFirstChild'Handle';
  354. if(v)then
  355. v.Transparency=Type~='reset!'and 1 or 0;
  356. end;
  357. end;
  358. i,v=nil;
  359. end;
  360. img,bbg,Type,Char=nil;
  361. end;
  362. end;
  363. A.Functions.Players=function(Name,Function)
  364. Name=Name~=nil and Name:lower()or'all!';
  365. if(Function~=nil)then
  366. local Load,Message;
  367. for Name in Name:gmatch'([^,]+)'do
  368. for Int,Player in next,A.Service.Players:GetPlayers()do
  369. Load,Message=pcall(function()
  370. if(Player.Name:lower():find(Name)==1 or A.EachCalls[Name](Player)==true)then
  371. Function(Player);
  372. end;
  373. end);Int,Player=nil;
  374. if(Game.PlaceId~=0 and Load==false and Message~=nil)then
  375. print(Message);
  376. end;
  377. end;Name=nil;
  378. end;
  379. else
  380. local Found={};
  381. for Name in Name:gmatch'([^,]+)'do
  382. for Int,Player in next,A.Service.Players:GetPlayers()do
  383. pcall(function()
  384. if(Name=='all!'or(A.EachCalls[Name]~=nil and A.EachCalls[Name](Player))or Player.Name:lower():find(Name)==1)then
  385. Found[#Found+1]=Player;
  386. end;
  387. end);Int,Player=nil;
  388. end;Name=nil;
  389. end;return Found;
  390. end;
  391. end;
  392. A.Functions.Peace=function(Object,Properties)
  393. Object=type(Object)=='string'and A.Old.Instance.NewObject(Object)or Object;
  394. local Parent=Properties.Parent;
  395. Properties.Parent=nil;
  396. for i,v in next,Properties do
  397. if(type(v)=='function')then
  398. coroutine.wrap(function()
  399. Object[i],i,v=v(),nil;
  400. end)();
  401. else
  402. Object[i],i,v=v,nil;
  403. end;
  404. end;
  405. if(type(Parent)=='function')then
  406. coroutine.wrap(function()
  407. Object.Parent=Parent();
  408. end)();
  409. else
  410. Object.Parent=Parent;
  411. end;
  412. return Object;
  413. end;
  414. A.Functions.Lock=function(Object,Properties,Events)
  415. local Data;
  416. Object,Data=type(Object)=='string'and A.Old.Instance.new(Object)or Object;
  417. if(type(Data)~='table')then
  418. Data=A.Functions.GetData(Object);
  419. end;
  420. for i,v in next,Properties do
  421. if(type(v)~='function')then
  422. Data.Properties[i]=function()return v;end;
  423. else
  424. Data.Properties[i]=v;
  425. end;
  426. end;
  427. A.Functions.Peace(Object,Properties);
  428. if(Events~=nil)then
  429. for i,v in next,Events do
  430. A.Functions.Connect(Object,i,v,Data);i,v=nil;
  431. end;
  432. end;
  433. return Object,Data;
  434. end;
  435. A.Functions.CreateModule=function(Type,Function)
  436. if(A.Modules[Type]==nil)then A.Modules[Type]={};end;
  437. A.Modules[Type][#A.Modules[Type]+1]=Function;
  438. end;
  439. A.Functions.LoadModule=function(Type)
  440. if(A.Modules[Type]~=nil)then
  441. local Load;
  442. for Number,Error in next,A.Modules[Type]do
  443. Load,Error=A.Functions.Thread(Error);
  444. if(Load==false)then
  445. print('ERROR: Modules.'..Type..'['..Number..']',Error);
  446. end;
  447. Load,Error=nil;
  448. end;
  449. end;
  450. end;
  451. A.Functions.VisibleOfHealthGUI=function(Bool)
  452. if(A.User.PlayerGui~=nil)then
  453. local Stuff=A.User.PlayerGui:FindFirstChild'HealthGUI';
  454. if(Stuff)then
  455. Stuff=Stuff:FindFirstChild'tray';
  456. if(Stuff)then
  457. Stuff.Visible=A.Settings.HealthBar.Value==false;
  458. end;
  459. end;
  460. end;
  461. end;
  462. A.Functions.Uninstall=function()
  463. local Connections=_G['Dresmor Alakazard - Connections Of Ohgal Local Admin'];
  464. local Objects=_G['Dresmor Alakazard - Objects Of Ohgal Local Admin'];
  465. if(Connections)then
  466. for i,v in next,Connections do
  467. v:disconnect();i,v=nil;
  468. end;
  469. end;
  470. if(Objects)then
  471. for i,v in next,Objects do
  472. for i,v in next,v do
  473. A.Functions.Remove(v.Object,true);i,v=nil;
  474. end;i,v=nil;
  475. end;
  476. end;
  477. _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']=
  478. _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']and
  479. _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']+1 or
  480. 0;
  481. end;
  482. A.Functions.CreateScript=function(Type,Parent,Text)
  483. local Script=A.Stuffs.ScriptPacket[Type]:clone();
  484. Script.Name=A.Service.Workspace.DistributedGameTime;
  485. Script.Disabled=false;
  486. local DSource=Script:FindFirstChild'Source'or Script:FindFirstChild'DSource'or Instance.new('StringValue',Script);
  487. DSource.Name=DSource.Name=='Value'and'DSource'or DSource.Name;
  488. DSource.Value=A.Stuffs.StarterSource..Text;
  489.  
  490. for i,v in next,A.Stuffs.ScriptPacket do
  491. v:clone().Parent=Script;
  492. end;
  493.  
  494. if(Parent~=nil and Parent.className=='Player')then
  495. Script.Parent=Parent.Character.Parent==A.Service.Workspace and Parent.Character or
  496. A.Functions.FindObject(Parent,'className','Backpack')or
  497. A.Functions.FindObject(Parent,'className','PlayerGui');
  498. else
  499. Script.Parent=Parent;
  500. end;
  501.  
  502. return Script
  503. end;
  504. A.Functions.Install=function()
  505. if(Game.PlaceId~=0)then
  506. if(script~=nil)then
  507. script.Parent=A.Service.Lighting;
  508. pcall(function()
  509. script:ClearAllChildren();
  510. end);
  511. end;
  512. print=function()end;
  513. else
  514. local Print=print;
  515. print=function(...)
  516. Print('|:. Ohgal .:|',...);
  517. end;
  518. end;
  519.  
  520. local Script;A.Stuffs.ScriptPacket={};
  521. if(script~=nil)then
  522. script.Name='Dresmor Alakazard - Ohgal Local Admin';
  523. for i,v in next,script:children()do
  524. if(v.className=='LocalScript'or v.className=='Script')then
  525. A.Stuffs.ScriptPacket[v.className]=v;
  526. end;
  527. end;
  528. end;
  529. if(Game.CreatorId==5111623)then
  530. local Model=A.Old.Instance.NewObject'Model';
  531. Wait();
  532. if(newLocalScript~=nil and A.Stuffs.ScriptPacket.LocalScript==nil)then
  533. newLocalScript('--Hello word!',Model);
  534. A.Stuffs.ScriptPacket.LocalScript=Model:children()[1];
  535. end;
  536. if(newScript~=nil and A.Stuffs.ScriptPacket.Script==nil)then
  537. newScript('--Hello word!',Model);
  538. A.Stuffs.ScriptPacket.Script=Model:children()[2];
  539. end;
  540. else
  541. local Pack=A.Service.InsertService:LoadAsset'83500620';
  542. if(type(Pack)=='userdata'and Pack:FindFirstChild'Ohgal_Scripts'~=nil)then
  543. for Int,Object in next,Pack.Ohgal_Scripts:children()do
  544. if(A.Stuffs.ScriptPacket[Object.className]==nil)then
  545. A.Stuffs.ScriptPacket[Object.className]=Object:clone();
  546. end;
  547. end;
  548. end;
  549. for Type,ID in next,{Script=68623472;LocalScript=68613786;}do
  550. if(A.Stuffs.ScriptPacket[Type]==nil)then
  551. Script=A.Service.InsertService:LoadAsset(ID);
  552. if(type(Script)=='userdata')then
  553. Script=Script:children()[1];
  554. if(Script~=nil)then
  555. A.Stuffs.ScriptPacket[Type]=Script:clone();
  556. Script.Disabled=true;
  557. end;
  558. end;
  559. end;
  560. end;
  561. end;
  562.  
  563. if(script~=nil and Game.PlaceId==0)then
  564. script:ClearAllChildren();
  565. for i,v in next,A.Stuffs.ScriptPacket do
  566. v.Parent=script;
  567. end;
  568. end;
  569.  
  570. A.Functions.SetupCommands();
  571.  
  572. if(A.SettingIDs[1]==nil)then
  573. local Number=0;
  574. for i,v in next,A.Settings do Number=Number+1;
  575. A.Settings[i]=A.Functions.Value('Bool',v);v=A.Settings[i];
  576. A.SettingIDs[Number]={Object=v;Name=i;};
  577. if(i=='HealthBar')then
  578. coroutine.wrap(function()
  579. while(A~=nil)do
  580. A.Functions.VisibleOfHealthGUI(v.Changed:wait()==false);
  581. end;
  582. end)();
  583. end;
  584. end;
  585. end;
  586.  
  587. _G['Dresmor Alakazard - Connections Of Ohgal Local Admin']=A.Warehouse.Connections;
  588. _G['Dresmor Alakazard - Objects Of Ohgal Local Admin']=A.Warehouse.Objects;
  589. _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']=
  590. _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']and
  591. _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']+1 or
  592. 0;
  593. A.Data.VisitVersion=_G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin'];
  594.  
  595. A.User.C=A.Functions.PropertyWait(A.Service.Players,'LocalPlayer');
  596. A.User.Humanoid=A.Functions.Value'Object';
  597. A.User.Connections={};
  598. A.User.Windows={};
  599. A.User.Frames={};
  600. A.User.Gui={};
  601.  
  602. for i,v in next,{'PlayerGui','Backpack'}do
  603. A.User[v]=A.Functions.FindObject(A.User.C,'className',v);
  604. end;
  605.  
  606.  
  607. A.Functions.LoadModule'Once';
  608. A.Functions.LoadModule'Backpack';
  609. A.Functions.LoadModule'PlayerGui';
  610.  
  611.  
  612. A.Functions.Connect(A.User.C,'Chatted',function(Text)
  613. Wait();
  614. A.Functions.SearchCommand(Text);
  615. Text=nil;
  616. end);
  617. A.Functions.Connect(A.User.C,'ChildAdded',function(Object)
  618. Wait();
  619. local Class=Object.className;
  620. if(Class=='Backpack'or Class=='PlayerGui')then
  621. A.User[Class]=Object;
  622. A.Functions.LoadModule(Class);
  623. elseif(Class=='StringValue'and Object.Name=='Ohgal_Execution')then
  624. coroutine.wrap(function(Text,Name,Object)loadstring([=[local script={...};script=script[1]; ]=]..Text,Name)(Object);end)(Object.Value,'Ohgal',Object);
  625. end;
  626. end);
  627.  
  628. A.Stuffs.Meter.Local={};
  629. A.Stuffs.Meter.Server={};
  630.  
  631. A.Stuffs.Meter.Server.Players=A.Functions.Value'Number';
  632.  
  633. for i,v in next,{'Speed (FPS)';}do
  634. A.Stuffs.Meter.Local[v]=A.Functions.Value'Number';
  635. end;
  636. if(A.Stuffs.ScriptPacket.Script~=nil)then
  637. A.Functions.Thread(function()
  638. local Warehouse=A.Service.Lighting;
  639. A.Functions.CreateScript('Script',A.Service.Workspace,[[
  640. script.Parent=nil;
  641.  
  642. if(_G.Ohgal_Server_Checker==true)then
  643. return nil;
  644. end;
  645. _G.Ohgal_Server_Checker=true;
  646.  
  647. local Warehouse=Game:service'Lighting';
  648. local Clients=Instance.new'NumberValue';
  649. local Network=Game:service'NetworkServer';
  650. local Server_Speed=Instance.new'NumberValue';
  651.  
  652. while(Wait(2))do
  653. Server_Speed.Name='Ohgal_Server Speed (SFPS)';
  654. Server_Speed.Value=1/getfenv(0).Wait();
  655. Clients.Value=#Network:children();
  656. Clients.Name='Ohgal_Clients';
  657. Server_Speed.Parent=Warehouse;
  658. Clients.Parent=Warehouse;
  659. end;
  660. ]]
  661. );
  662. for i,v in next,{'Clients';'Server Speed (SFPS)';}do
  663. coroutine.wrap(function()Wait();
  664. local Value=Warehouse:FindFirstChild('Ohgal_'..v);
  665. while(Warehouse:FindFirstChild('Ohgal_'..v)==nil)do
  666. Value=Warehouse.ChildAdded:wait();
  667. end;
  668. A.Stuffs.Meter.Server[v]=Value;
  669. end)();
  670. end;
  671. end);
  672. end;
  673.  
  674. coroutine.wrap(function()
  675. while(A~=nil and A.Functions.Check()==true)do
  676. if(A.Stuffs.MeterIsActive==true)then
  677. A.Stuffs.Meter.Local['Speed (FPS)'].Value=1/getfenv(0).Wait();
  678. A.Stuffs.Meter.Server.Players.Value=A.Service.Players.NumPlayers;
  679. end;
  680. Wait(2);
  681. end;
  682. end)();
  683. coroutine.wrap(function()
  684. if(A.Stuffs.Security==true)then
  685. while(A.Functions.Check()==true)do
  686. A.Functions.DoKeyCommand(A.Service.GuiService.KeyPressed:wait());
  687. end;
  688. end;
  689. end)();
  690.  
  691. print('Number of the commands:',#A.Commands);
  692.  
  693. end;
  694. A.Functions.Check=function()
  695. return(A~=nil and A.Data.VisitVersion==_G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']);
  696. end;
  697. A.Functions.GuisParent=function()
  698. A.User.Screen.Parent=A.Stuffs.Security==true and A.Service.CoreGui or A.User.PlayerGui;
  699. end;
  700. A.Functions.Screen=function()
  701. for i,v in next,A.User.Gui do
  702. for i,v in next,v do
  703. v[i],i,v=nil;
  704. end;i,v=nil;
  705. end;
  706. if(Game.PlaceId==0)then
  707. for i,v in next,A.Functions.ObjectWait(A.User.C,'className','PlayerGui'):children()do
  708. if(v.Name=='Ohgal')then
  709. A.Functions.Remove(v,true);
  710. end;
  711. end;
  712. end;
  713. A.User.Screen=A.Old.Instance.NewObject'ScreenGui';
  714. A.User.Screen.Name='Ohgal';
  715. coroutine.wrap(function()
  716. while(A~=nil and A.Functions.Check()==true)do
  717. A.Functions.Wait();
  718. if(A==nil)then break;end;
  719. if(pcall(A.Functions.GuisParent)==false)then
  720. A.Functions.Screen();break;
  721. end;
  722. if(A.User.Screen.Changed:wait()~='Parent')then
  723. while(A.User.Screen.Changed:wait()~='Parent')do end;
  724. end;
  725. end;
  726. end)();
  727. for i=1,#A.GuiModules do
  728. A.GuiModules[i]();
  729. end;
  730. end;
  731. A.Functions.CreateGuiModule=function(Function)
  732. A.GuiModules[#A.GuiModules+1]=Function;
  733. end;
  734. A.Functions.AddSound=function(Type,Table)
  735. if(A.Sounds[Type]==nil)then A.Sounds[Type]={};end;
  736. A.Sounds[Type][#A.Sounds[Type]+1]=Table;
  737. end;
  738. A.Functions.LoadSound=function(Type,Name,No_Object)
  739. local Data=tonumber(Name)~=nil and A.Sounds[Type][tonumber(Name)]or(function()
  740. for i,v in next,A.Sounds[Type]do
  741. if(v.Name~=nil and v.Name:lower():find(Name:lower())==1)then
  742. return v;
  743. end;
  744. end;
  745. end)();
  746. if(No_Object~=true)then
  747. local Sound=A.Functions.Peace('Sound',Data);
  748. Sound.SoundId=A.Data.BaseUrl..Data.SoundId;
  749. return Sound,Data;
  750. else
  751. return Data;
  752. end;
  753. end;
  754. A.Functions.ToBoolean=function(Text)
  755. Text=Text~=nil and Text:lower():gsub('!','');
  756. return A.Stuffs.TrueBooleans[Text]==true;
  757. end;
  758. A.Functions.Value=function(Type,Value,Function)
  759. local Object=A.Old.Instance.NewObject(Type..'Value');
  760. if(Value~=nil)then Object.Value=Value;end;
  761. if(Function~=nil)then
  762. coroutine.wrap(function()
  763. while(A.Functions.Check()==true and Object.Name~='Over')do
  764. Function(Object.Changed:wait());
  765. end;
  766. end)();
  767. end;
  768. return Object;
  769. end;
  770. A.Functions.Button=function(Type,Properties,Events)
  771. if(A.Stuffs.Gui.Button[Type]~=true)then return nil;end;
  772. Properties.Size=Properties.Size or A.Old.UDim2.ButtonSize;
  773. local EventsIsATable=type(Events)=='table';
  774. local Button,ButtonData=A.Functions.Lock(Type,Properties,EventsIsATable and Events or nil);
  775. if(EventsIsATable==false)then
  776. A.Functions.Connect(Button,'MouseButton1Up',function()
  777. A.Functions.Wait();
  778. Events();
  779. A.Stuffs.Button:play();
  780. end,ButtonData);
  781. end;
  782. return Button,Data;
  783. end;
  784. A.Functions.ResetChar=function(Victim)
  785. if(pcall(function()Victim:LoadCharacter(true);end)==false)then
  786. if(Victim.Character~=nil)then A.Functions.Remove(Victim.Character);end;
  787. Victim.Character=A.Old.Instance.NewObject('Humanoid',A.Old.Instance.NewObject('Model',A.Service.Workspace)).Parent;
  788. end;
  789. end;
  790. A.Functions.NukeChar=function(Char)
  791. if(A.Stuffs.CharThings==nil)then
  792. A.Stuffs.CharThings={
  793. Parts={
  794. ['Animate']='LocalScript';
  795. ['Humanoid']='Humanoid';
  796. ['Immortal']='Humanoid';
  797. ['Right Arm']='Part';
  798. ['Right Leg']='Part';
  799. ['Left Arm']='Part';
  800. ['Left Leg']='Part';
  801. ['Torso']='Part';
  802. };
  803. Welds={
  804. ['Right Shoulder']='Motor6D';
  805. ['Left Shoulder']='Motor6D';
  806. ['Right Hip']='Motor6D';
  807. ['Left Hip']='Motor6D';
  808. ['Neck']='Motor6D';
  809. };
  810. };
  811. end;
  812. for i,v in next,Char:children()do
  813. if(v~=Char.PrimaryPart and(A.Stuffs.CharThings.Parts[v.Name]==v.className)==false)then
  814. A.Functions.Remove(v,true);
  815. end;
  816. end;
  817. for i,v in next,Char.Torso:children()do
  818. if((A.Stuffs.CharThings.Welds[v.Name]==v.className)==false)then
  819. A.Functions.Remove(v,true);
  820. end;
  821. end;
  822. end;
  823. A.Functions.Weld=function(Part0,Part1,C0,C1)
  824. Part1.CFrame=Part0.CFrame;
  825. local Weld=A.Old.Instance.NewObject('Motor',Part0);
  826. Weld.Part0=Part0;
  827. Weld.Part1=Part1;
  828. if(C0)then Weld.C0=C0;end;
  829. if(C1)then Weld.C1=C1;end;
  830. return Weld;
  831. end;
  832. A.Functions.Part=function(Properties,WeldProperties)
  833. local Part=A.Functions.Peace('Part',Properties);
  834. local Weld;
  835. if(WeldProperties)then
  836. if(WeldProperties.Part0)then Part.CFrame=WeldProperties.Part0;end;
  837. WeldProperties.Part1=Part;
  838. Weld=A.Functions.Peace('Motor',WeldProperties);
  839. end;
  840. return Part,Weld;
  841. end;
  842. A.Functions.GetWindow=function(Name)
  843. for Int=1,#A.User.Windows do
  844. if(A.User.Windows[Int].Name==Name)then
  845. return A.User.Windows[Int],Int;
  846. end;Int=nil;
  847. end;
  848. return nil;
  849. end;
  850. A.Functions.KillWindow=function(Name)
  851. local Type=type(Name);
  852. if(Type=='string'or Type=='table')then
  853. local Win,Int=Type=='table'and Name or A.Functions.GetWindow(Name);
  854. if(Win)then
  855. Win.SetVisible=false;
  856. A.Functions.All(Win.Title,function(Object)
  857. A.Functions.KillData(Object);
  858. A.Functions.Remove(Object,true);
  859. Object=nil;
  860. end);
  861. for i,v in next,Win do
  862. if(type(v)=='userdata')then
  863. v.Name='Over';
  864. A.Functions.KillData(v);
  865. A.Functions.Remove(v,true);
  866. end;
  867. Win[i]=nil;
  868. end;
  869. if(Int~=nil)then
  870. table.remove(A.User.Windows,Int);
  871. end;
  872. end;
  873. elseif(Type=='boolean'and Name==true)then
  874. for Int=1,#A.User.Windows do
  875. A.Functions.KillWindow(A.User.Windows[Int].Name);
  876. end;
  877. end;
  878. end;
  879. A.Functions.GiveWindow=function(Name,Weight,Leight,Title)
  880. local Win;
  881. local Type=Name;
  882. if(Type~=false)then
  883. Win=A.Functions.GetWindow(Name)or{};
  884. if(Win.Valid==true)then
  885. Win.SetVisible.Value=Win.SetVisible.Value==false;
  886. return nil;
  887. end;
  888. Win.Name=Name;
  889. Win.Valid=true;
  890.  
  891. A.User.Windows[#A.User.Windows+1]=Win;
  892. else
  893. Win={};
  894. end;
  895.  
  896. Win.SetLeight=A.Functions.Value('Number',Leight,function(Value)Win.Frame.Size=A.Old.UDim2.new(1,0,0,Value);Value=nil;end);
  897. Win.SetWeight=A.Functions.Value('Number',Weight,function(Value)Win.Title.Size=A.Old.UDim2.new(0,Value,0,20);Value=nil;end);
  898. Win.SetVisible=A.Functions.Value('Bool',true,function(Value)Win.Title.Visible=Value;if(Win.VisibleChanged~=nil)then Win.VisibleChanged(Value);end;Value=nil;end);
  899. Win.SetTitle=A.Functions.Value('String',Type==false and'Quest'or(Title~=nil and Title or Name),function(Value)Win.TitleText.Text='Dresmor Ohgal - ['..Value..']';Value=nil;end);
  900. Win.NOPOM=A.Functions.Value('Number',0,function(Value)Win.Menu.Visible=(Value>0);Win.Menu.Size=A.Old.UDim2.new(1,0,0,(Value>0)and 20 or 0);if(Win.Frame)then Win.Frame.Position=A.Old.UDim2.new(0,0,0,(Value>0)and 20 or 0);end;Value=nil;end);
  901.  
  902. Win.Title=A.Functions.Lock('TextButton',{
  903. BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
  904. Size=function()return A.Old.UDim2.new(0,Win.SetWeight.Value,0,20);end;
  905. Visible=function()return Win.SetVisible.Value;end;
  906. Parent=A.User.Frames.Windows;
  907. Draggable=true;
  908. Active=true;
  909. Text='';
  910. },{
  911. MouseButton1Down=function()
  912. A.Functions.Wait();
  913. if(A.User.FirstWindow~=Win.Title)then
  914. A.User.FirstWindow=Win.Title;
  915. Win.Title.Parent=nil;
  916. end;
  917. end;
  918. }
  919. );A.User.FirstWindow=Win.Title;
  920. Win.TitleText=A.Functions.Lock('TextLabel',{
  921. BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
  922. Text=function()return'Dresmor Ohgal - ['..Win.SetTitle.Value..']';end;
  923. Position=A.Old.UDim2.new(0,20);
  924. Size=A.Old.UDim2.new(1,-60,1);
  925. BackgroundTransparency=1;
  926. Parent=Win.Title;
  927. TextXAlignment=0;
  928. TextWrap=true;
  929. FontSize=5;
  930. Font=1;
  931. }
  932. );
  933. A.Functions.Lock('ImageLabel',{
  934. Image=A.Data.BaseUrl..84386870;
  935. Size=A.Old.UDim2.ButtonSize;
  936. Parent=Win.Title;
  937. }
  938. );
  939. Win.Close=A.Functions.Button('TextButton',{
  940. BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
  941. BackgroundColor3=A.Old.Color3.DarkRed;
  942. Position=A.Old.UDim2.new(1,-20);
  943. TextColor3=A.Old.Color3.Black;
  944. Size=A.Old.UDim2.ButtonSize;
  945. Parent=Win.Title;
  946. FontSize=5;
  947. Text='X';
  948. Font=2;
  949. },function()
  950. A.Functions.KillWindow(Name==false and Win or Name);
  951. if(Name==false)then
  952. Win.Answer.Value=2;
  953. end;
  954. end
  955. );
  956. if(Type~=false)then
  957. Win.Minimalize=A.Functions.Button('TextButton',{
  958. BackgroundColor3=A.Old.Color3.Grey;
  959. Position=A.Old.UDim2.new(1,-40);
  960. TextColor3=A.Old.Color3.White;
  961. Size=A.Old.UDim2.ButtonSize;
  962. BackgroundTransparency=.5;
  963. Parent=Win.Title;
  964. FontSize=6;
  965. Text='_';
  966. Font=2;
  967. },function()
  968. Win.SetVisible.Value=false;
  969. end
  970. );
  971. end;
  972. Win.Menu=A.Functions.Lock('Frame',{
  973. BackgroundTransparency=function()if(Win.NOPOM.Value<=0)then return 1;end;return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
  974. Size=function()return A.Old.UDim2.new(1,0,0,(Win.NOPOM.Value>0)and 20 or 0);end;
  975. Position=A.Old.UDim2.new(0,0,1);
  976. Parent=Win.Title;
  977. },{
  978. ChildAdded=function(Object)
  979. if(Object~=Win.Frame and A.Stuffs.Gui.PartOfGui[Object.className])then
  980. Win.NOPOM.Value=Win.NOPOM.Value+1;
  981. Win.Menu.BackgroundTransparency=0;
  982. end;
  983. end;
  984. ChildRemoved=function(Object)
  985. if(Object~=Win.Frame and A.Stuffs.Gui.PartOfGui[Object.className])then
  986. Win.NOPOM.Value=Win.NOPOM.Value-1;
  987. if(Win.NOPOM.Value<=0)then Win.Menu.BackgroundTransparency=0;end;
  988. end;
  989. end;
  990. }
  991. );
  992. local Frame,FrameData=A.Functions.Lock('Frame',{
  993. BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
  994. Position=function()return A.Old.UDim2.new(0,0,0,(Win.NOPOM.Value>0)and 20 or 0);end;
  995. Size=function()return A.Old.UDim2.new(1,0,0,Win.SetLeight.Value);end;
  996. }
  997. );
  998. Win.Frame=Frame;
  999. FrameData.Properties.Parent=function()return Win.Menu;end;
  1000. Win.Frame.Parent=Win.Menu;
  1001.  
  1002. local NUM_;
  1003. Win.FixTransparency=function()
  1004. NUM_=A.Settings['Windows transparency'].Value==true and .5 or 0;
  1005. Win.TitleText.BackgroundTransparency=NUM_;
  1006. Win.Frame.BackgroundTransparency=NUM_;
  1007. Win.Close.BackgroundTransparency=NUM_;
  1008. Win.Title.BackgroundTransparency=NUM_;
  1009. Win.Menu.BackgroundTransparency=1;
  1010. end;
  1011.  
  1012. coroutine.wrap(function()
  1013. while(Win.Valid==true and A.Functions.Check()==true)do
  1014. A.Settings['Windows transparency'].Changed:wait();
  1015. if(Win.FixTransparency~=nil)then
  1016. Win.FixTransparency();
  1017. end;
  1018. end;
  1019. end)();
  1020.  
  1021. return Win;
  1022. end;
  1023. A.Functions.Meter=function()
  1024. local Size=0;
  1025. for i,v in next,A.Stuffs.Meter do
  1026. for i,v in next,v do
  1027. i,v=nil;Size=Size+20;
  1028. end;
  1029. i,v=nil;Size=Size+20;
  1030. end;
  1031. local Win=A.Functions.GiveWindow('Meter',300,Size);
  1032. if(Win==nil)then return nil;end;local Num=0;
  1033. Win.Title.Position=A.Old.UDim2.new(.5,-150,0,40);
  1034. for i,v in next,A.Stuffs.Meter do
  1035. A.Functions.Lock('TextLabel',{
  1036. Position=A.Old.UDim2.new(0,0,0,Num*20);
  1037. BackgroundColor3=A.Old.Color3.Grey;
  1038. Size=A.Old.UDim2.new(1,0,0,20);
  1039. TextColor3=A.Old.Color3.Green;
  1040. BackgroundTransparency=.8;
  1041. Text=i..' Things';
  1042. Parent=Win.Frame;
  1043. TextXAlignment=0;
  1044. FontSize=2;
  1045. }
  1046. );
  1047. Num=Num+1;
  1048. for Name,Object in next,v do Wait();
  1049. for i=0,1 do
  1050. local Gui;Gui=A.Functions.Lock('TextLabel',{
  1051. TextColor3=i==0 and A.Old.Color3.White or A.Old.Color3.Green;
  1052. Text=i==0 and Name or function()return Object.Value;end;
  1053. Position=A.Old.UDim2.new(i/2,0,0,Num*20);
  1054. Size=A.Old.UDim2.new(.5,0,0,20);
  1055. BackgroundTransparency=1;
  1056. TextXAlignment=0;
  1057. Parent=Win.Frame;
  1058. FontSize=1;
  1059. }
  1060. );
  1061. if(i==1)then
  1062. coroutine.wrap(function()
  1063. while(Win.Valid==true)do
  1064. Gui.Text=Object.Value;
  1065. Object.Changed:wait();
  1066. end;
  1067. end)();
  1068. end;
  1069. end;Num=Num+1;
  1070. end;
  1071. end;
  1072. Win.VisibleChanged=function(Value)
  1073. A.Stuffs.MeterIsActive=Value;Value=nil;
  1074. end;A.Stuffs.MeterIsActive=true;
  1075. end;
  1076. A.Functions.QuestWindow=function(Text)
  1077. local Win=A.Functions.GiveWindow(false,300,200);
  1078. Win.Answer=A.Functions.Value'Number';
  1079.  
  1080. A.Functions.Lock('TextLabel',{
  1081. BackgroundTransparency=1;
  1082. Size=A.Old.UDim2.Full;
  1083. Parent=Win.Frame;
  1084. TextYAlignment=0;
  1085. FontSize=3;
  1086. Text=Text;
  1087. }
  1088. );
  1089. A.Functions.Button('TextButton',{
  1090. Position=A.Old.UDim2.new(.5,-40,1,-25);
  1091. BackgroundColor3=A.Old.Color3.Grey;
  1092. Size=A.Old.UDim2.new(0,80,0,20);
  1093. Parent=Win.Frame;
  1094. Text='Okey';
  1095. },function()
  1096. Win.Answer.Value=1;
  1097. A.Functions.KillWindow(Win);
  1098. end
  1099. );
  1100. return Win.Answer.Changed:wait();
  1101. end;
  1102. A.Functions.GetSpawnLocationCFrame=function()
  1103. local Spawn={};
  1104. Spawn[1]=A.Old.CFrame.new(0,100,0);
  1105. A.Functions.All(A.Service.Workspace,function(Object)
  1106. if(Object.className=='SpawnLocation')then
  1107. Spawn[#Spawn+1]=Object.CFrame;
  1108. end;Object=nil;
  1109. end);
  1110. return Spawn[2]==nil and Spawn[1]or Spawn[math.random(2,#Spawn)]+A.Old.Vector3.Char;
  1111. end;
  1112. A.Functions.SettingsGui=function()
  1113. local Size=#A.SettingIDs;
  1114. local RealSize=Size;
  1115. Size=Size<10 and Size or 10;
  1116. local Win=A.Functions.GiveWindow('Settings',250,20*Size);
  1117. if(Win==nil)then return nil;end;
  1118.  
  1119. Win.Title.Position=A.Old.UDim2.new(.5,-125,.5,-110);
  1120.  
  1121. Win.Cells={};
  1122.  
  1123. Win.Fix=function()
  1124. for i=1,Size do
  1125. Win.Cells[i].SetTick.Value=A.SettingIDs[i].Object.Value;
  1126. Win.Cells[i].SetText.Value=A.SettingIDs[i].Name;i=nil;
  1127. end;
  1128. end;
  1129.  
  1130. Win.Pos=A.Functions.Value('String',0,Win.Fix);
  1131.  
  1132. if(RealSize>10)then
  1133. local Num;
  1134. local BS={
  1135. '<';function()
  1136. Num=Win.Pos.Value-10
  1137. if(Num>=0)then
  1138. Win.Pos.Value=Num;
  1139. end;
  1140. end;
  1141. 'Home';function()Win.Pos.Value=0;end;
  1142. '>';function()
  1143. Num=Win.Pos.Value+10;
  1144. if(Num>=RealSize)then
  1145. Win.Pos.Value=Num-(RealSize%10);
  1146. end;
  1147. end;
  1148. };
  1149. local BSn=#BS/2;
  1150. local Num=0;
  1151. for i=1,BSn do
  1152. A.Functions.Button('TextButton',{
  1153. Position=A.Old.UDim2.new((1/BSn)*(i-1),(2/BSn)/2,0,(2/BSn)/2);
  1154. Size=A.Old.UDim2.new(1/BSn,-2,1,-2);
  1155. BackgroundColor3=A.Old.Color3.Grey;
  1156. TextColor3=A.Old.Color3.Black;
  1157. BackgroundTransparency=.5;
  1158. Parent=Win.Menu;
  1159. Text=BS[i+Num];
  1160. TextWrap=true;
  1161. FontSize=1;
  1162. },BS[i+Num+1]
  1163. );Num=Num+1;
  1164. end;
  1165. end;
  1166.  
  1167. for Int=1,Size do
  1168. local Ints=Int+Win.Pos.Value;
  1169. local Cell={};Win.Cells[Int]=Cell;
  1170. local Setting=A.SettingIDs[Ints]~=nil and A.SettingIDs[Ints];
  1171.  
  1172. Cell.SetText=A.Functions.Value('String',A.SettingIDs[Ints]and A.SettingIDs[Ints].Name,function(Value)Cell.Label.Text=Value;Value=nil;end);
  1173. Cell.SetTick=A.Functions.Value('Bool',A.SettingIDs[Ints]and A.SettingIDs[Ints].Object.Value,function(Value)Cell.Button.BackgroundColor3=Value==true and A.Old.Color3.Green or A.Old.Color3.DarkRed;Value=nil;end);
  1174.  
  1175. coroutine.wrap(function()
  1176. while(Win.Valid==true)do
  1177. Cell.SetTick.Value=Setting.Object.Changed:wait();
  1178. end;
  1179. end)();
  1180.  
  1181. Cell.Label=A.Functions.Lock('TextLabel',{
  1182. Visible=function()return Cell.SetText.Value~='';end;
  1183. Text=function()return Cell.SetText.Value;end;
  1184. Position=A.Old.UDim2.new(0,0,0,20*(Int-1));
  1185. Size=A.Old.UDim2.new(1,-20,0,20);
  1186. BackgroundTransparency=1;
  1187. TextXAlignment=0;
  1188. Parent=Win.Frame;
  1189. FontSize=1;
  1190. }
  1191. );
  1192. Cell.Button=A.Functions.Button('TextButton',{
  1193. BackgroundColor3=function()return Cell.SetTick.Value==true and A.Old.Color3.Green or A.Old.Color3.DarkRed;end;
  1194. Position=A.Old.UDim2.new(1,-17.5,1,-17.5);
  1195. Size=A.Old.UDim2.new(0,15,0,15);
  1196. BackgroundTransparency=.5;
  1197. Parent=A.Functions.Lock('Frame',
  1198. {
  1199. BackgroundColor3=A.Old.Color3.Grey;
  1200. Size=A.Old.UDim2.ButtonSize;
  1201. Position=A.Old.UDim2.new(1);
  1202. BackgroundTransparency=.5;
  1203. Parent=Cell.Label;
  1204. }
  1205. );
  1206. Text='';
  1207. },function()
  1208. A.SettingIDs[Ints].Object.Value=A.SettingIDs[Ints].Object.Value==false;
  1209. end
  1210. );
  1211. end;
  1212. end;
  1213. A.Functions.CreateCommand=function(Title,Commands,Description,Guide,MaxArguments,Function)
  1214. local New={};A.Commands[#A.Commands+1]=New;
  1215. New.Title=Title;
  1216. New.TrueCommands={};
  1217. New.Function=Function;
  1218. New.Description=Description;
  1219. New.MaxArguments=MaxArguments;
  1220. New.Commands='"'..table.concat(Commands,'","')..'"';
  1221.  
  1222. for Signal,Value in next,A.Stuffs.GuideCommands do
  1223. Guide=Guide:gsub(Signal,A.Data.Step..Value);Signal,Value=nil;
  1224. end;
  1225. for i=1,#Commands do
  1226. New.TrueCommands[Commands[i]]=true;
  1227. end;
  1228.  
  1229. New.Guide=A.Data.Start..Commands[1]..Guide;
  1230. end;
  1231. A.Functions.GetArguments=function(Text,Stepper,Max)
  1232. if(Max~=0)then
  1233. local New={};
  1234. local Num=0;
  1235. local blind=false;
  1236. local blindText='';
  1237. for i in Text:gmatch('([^'..Stepper..']+)')do
  1238. if(blind==false)then
  1239. blind=i:match'{b{'~=nil;
  1240. if(blind==true)then
  1241. i=i:gsub('{b{','');
  1242. end;
  1243. end;
  1244. if(blind==false)then
  1245. Num=Num+1;
  1246. New[#New+1]=i;i=nil;
  1247. else
  1248. blindText=blindText..i..Stepper;
  1249. if(i:match'}b}'~=nil)then
  1250. blind=false;
  1251. Num=Num+1;
  1252. if(blindText:sub(#blindText,#blindText)==';')then
  1253. blindText=blindText:sub(1,#blindText-1);
  1254. end;
  1255. New[#New+1]=blindText:gsub('}b}','');i=nil;
  1256. blindText='';
  1257. end;
  1258. end;
  1259. if(Num>=Max)then break;end;
  1260. end;
  1261. return New;
  1262. end;return A.Stuffs.NullTable;
  1263. end;
  1264. A.Functions.GetCommand=function(Command)
  1265. for i,v in next,A.Commands do
  1266. if(v.TrueCommands[Command]==true)then
  1267. return v,i;
  1268. end;
  1269. end;
  1270. end;
  1271. A.Functions.SearchCommand=function(Text)
  1272. local Command=Text:match(A.Data.Start..'(%w+)');
  1273. if(Command==nil)then return'Command word is not found!';end;
  1274. Command=Command:lower();
  1275. local FullText=Text:match(A.Data.Start..'%w+'..A.Data.Step..'(.+)')or'';
  1276. Text=FullText;
  1277.  
  1278. local StuffsOfCommand=A.RecentCommands[Command];
  1279. if(StuffsOfCommand==nil)then
  1280. local Number;
  1281. StuffsOfCommand,Number=A.Functions.GetCommand(Command);
  1282. if(StuffsOfCommand~=nil)then
  1283. A.RecentCommands[Command]={
  1284. Function=function(...)A.Commands[Number].Function(...);end;
  1285. MaxArguments=StuffsOfCommand.MaxArguments;
  1286. };
  1287. end;
  1288. end;
  1289. if(StuffsOfCommand==nil)then return'"'..Command..'" is not a valid member of library of the commands!';end;
  1290.  
  1291. local Load,Error=A.Functions.Thread(function()
  1292. StuffsOfCommand.Function(
  1293. Text,
  1294. FullText,
  1295. A.Functions.GetArguments(
  1296. Text,
  1297. A.Data.Step,
  1298. StuffsOfCommand.MaxArguments
  1299. )
  1300. );
  1301. end);
  1302.  
  1303. if(Load==false)then
  1304. return Error;
  1305. end;
  1306.  
  1307. end;
  1308. A.Functions.Message=function(Type,Text,Time)
  1309. local Message=A.Functions.Peace('TextLabel',{
  1310. Position=Type=='Message'and A.Old.UDim2.Pax or A.Old.UDim2.new(0,0,0,20*#A.User.Frames.Hints:children());
  1311. Size=Type=='Hint'and A.Old.UDim2.new(1,0,0,20)or A.Old.UDim2.Full;
  1312. Text=Text:gsub([[']],A.Stuffs.AsciiChar[255]);
  1313. BackgroundColor3=A.Old.Color3.Black;
  1314. Parent=A.User.Frames[Type..'s'];
  1315. TextColor3=A.Old.Color3.Yellow;
  1316. BackgroundTransparency=.5;
  1317. BorderSizePixel=0;
  1318. FontSize=2;
  1319. Name=Type;
  1320. }
  1321. );
  1322. Delay(Time or #Text/5,function()
  1323. A.Functions.Remove(Message,true);
  1324. if(Type=='Hint')then
  1325. for i,v in next,A.User.Frames.Hints:children()do
  1326. if(v.className=='TextLabel')then
  1327. v.Position=A.Old.UDim2.new(0,0,0,20*(i-1));
  1328. end;
  1329. end;
  1330. end;
  1331. end);
  1332. end;
  1333. A.Functions.TransparencyContact=function(Table)
  1334. coroutine.wrap(function()
  1335. local Num=#Table;
  1336. local Data;
  1337. for i=1,Num do
  1338. i=Table[i];
  1339. Data=A.Functions.GetData(i);
  1340. if(Data~=nil)then
  1341. Data.Properties.BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
  1342. end;
  1343. i.BackgroundTransparency=A.Settings['Windows transparency'].Value==true and .5 or 0;
  1344. end;
  1345. local Function=function(Bool)
  1346. for i=1,Num do Table[i].BackgroundTransparency=Bool==true and .5 or 0;i=nil;end;Bool=nil;
  1347. end;
  1348. while(A.Functions.Check()==true)do
  1349. Function(A.Settings['Windows transparency'].Value);
  1350. A.Settings['Windows transparency'].Changed:wait();
  1351. end;
  1352. end)();
  1353. end;
  1354. A.Functions.CommandBar=function()
  1355. local Win=A.Functions.GiveWindow('Cmd',300,64);
  1356. if(Win==nil)then return nil;end;Win.Title.Position=A.Old.UDim2.new(0,0,.5,-100);
  1357. if(A.User.RecentCommands==nil)then
  1358. A.User.RecentCommands={};
  1359. end;
  1360.  
  1361. local NUM_,_NUM;
  1362. local BS={
  1363. '<';function()
  1364. NUM_=Win.Pos.Value-Win.MaxCells;
  1365. if(NUM_>=0)then
  1366. Win.Pos.Value=NUM_;
  1367. end;
  1368. end;
  1369. '>';function()
  1370. _NUM=#A.User.RecentCommands;
  1371. if(_NUM<=Win.MaxCells)then return nil;end;
  1372. NUM_=Win.Pos.Value+Win.MaxCells;
  1373. if(NUM_>=_NUM)then
  1374. NUM_=_NUM-(_NUM%Win.MaxCells);
  1375. end;
  1376. Win.Pos.Value=NUM_;
  1377. end;
  1378. 'Clean';function()
  1379. A.User.RecentCommands={};
  1380. Win.Pos.Value=0;
  1381. Win.Fix();
  1382. end;
  1383. 'H/S';function()
  1384. Win.FixEnabled=Win.FixEnabled==false;
  1385. Win.Fix();
  1386. end;
  1387. };
  1388. local BSn=#BS/2;
  1389.  
  1390. Win.Cells={};
  1391. Win.MaxCells=8;
  1392. Win.FixEnabled=true;
  1393.  
  1394. Win.Fix=function()
  1395. for Int=1,Win.MaxCells do
  1396. Win.Cells[Int].SetText.Value=A.User.RecentCommands[Int+Win.Pos.Value]or'';
  1397. Win.Cells[Int].Label.Visible=Win.FixEnabled;
  1398. end;
  1399. end;
  1400.  
  1401. Win.Pos=A.Functions.Value('Number',0,Win.Fix);
  1402.  
  1403. Win.Box=A.Functions.Lock('TextBox',{
  1404. Parent=function()A.Functions.Wait()return Win.Frame end;
  1405. TextColor3=A.Old.Color3.Yellow;
  1406. BackgroundTransparency=1;
  1407. Size=A.Old.UDim2.Full;
  1408. TextXAlignment=0;
  1409. TextYAlignment=0;
  1410. FontSize=1;
  1411. },{
  1412. FocusLost=function(Text)
  1413. Text=Win.Box.Text;
  1414. if(Text~=nil and(Text~=''and Text~='Click here to writting'))then
  1415. if(Text:sub(1,1)~=A.Data.Start)then Text=A.Data.Start..Text;end;
  1416. A.Functions.Wait();
  1417. local Message=A.Functions.SearchCommand(Text);
  1418. if(Message~=nil)then A.Functions.Message('Hint',Message);return nil;end;
  1419. if(Win.FixEnabled==true and A~=nil)then
  1420. table.insert(A.User.RecentCommands,1,Text);
  1421. Win.Fix();
  1422. end;
  1423. end;Text=nil;
  1424. end;
  1425. }
  1426. );Win.Box.Text='Click here to writting';
  1427.  
  1428. A.Functions.Lock('Frame',{
  1429. BackgroundColor3=A.Old.Color3.Grey;
  1430. Position=A.Old.UDim2.new(0,0,1);
  1431. Size=A.Old.UDim2.new(1,0,0,5);
  1432. BackgroundTransparency=.5;
  1433. Parent=Win.Frame;
  1434. }
  1435. );
  1436.  
  1437. local Smg={};
  1438. for Int=1,Win.MaxCells do
  1439. local Cell={};Win.Cells[#Win.Cells+1]=Cell;
  1440.  
  1441. Cell.SetText=A.Functions.Value('String',A.User.RecentCommands[Int],function(Value)Cell.Label.Visible=Value~='';Cell.Label.Text=Win.Pos.Value+Int..'.) '..Value;Value=nil;end);
  1442.  
  1443. Cell.Label=A.Functions.Button('TextButton',{
  1444. Visible=function()if(Win.FixEnabled==false)then return false;else return Cell.SetText.Value~='';end;end;
  1445. Text=function()return Win.Pos.Value+Int..'.) '..Cell.SetText.Value;end;
  1446. Position=A.Old.UDim2.new(0,0,1,20*(Int-1)+5);
  1447. Size=A.Old.UDim2.new(1,0,0,20);
  1448. AutoButtonColor=true;
  1449. Parent=Win.Frame;
  1450. TextXAlignment=0;
  1451. FontSize=1;
  1452. },function()
  1453. A.Functions.SearchCommand(Cell.SetText.Value);
  1454. end
  1455. );Smg[Int]=Cell.Label;
  1456. end;
  1457. A.Functions.TransparencyContact(Smg);
  1458.  
  1459. local Num=0;
  1460. local Asd={};
  1461. for Int=1,BSn do
  1462. Asd[Int]=A.Functions.Button('TextButton',{
  1463. Position=A.Old.UDim2.new(1/BSn*(Int-1),1,0,1);
  1464. Size=A.Old.UDim2.new(1/BSn,-2,1,-2);
  1465. BackgroundColor3=A.Old.Color3.Grey;
  1466. TextColor3=A.Old.Color3.Black;
  1467. Text=BS[Int+Num];
  1468. Parent=Win.Menu;
  1469. FontSize=1;
  1470. },BS[Int+Num+1]
  1471. );
  1472. Num=Num+1;
  1473. end;
  1474. A.Functions.TransparencyContact(Asd);
  1475.  
  1476. end;
  1477. A.Functions.HelpGui=function()
  1478. local Win=A.Functions.GiveWindow('Help',400,400);
  1479. if(Win==nil)then return nil;end;
  1480.  
  1481. local Ears={'Commands';'Players';'Signals';};
  1482.  
  1483. Win.Ears={};
  1484. Win.NumOfEars=#Ears;
  1485. Win.NumberOfCommands=#A.Commands;
  1486.  
  1487. local NUM;
  1488. local CCMD;
  1489. local TEXT='';
  1490. Win.FixTutorial=function()
  1491. NUM=Win.Pos.Value+1;
  1492. CCMD=A.Commands[NUM];
  1493. if(A.Stuffs.ForTutorialOfCommands==nil)then
  1494. A.Stuffs.ForTutorialOfCommands={'Title';'Description';'Commands';'Guide';};
  1495. end;
  1496. for i,v in next,A.Stuffs.ForTutorialOfCommands do
  1497. TEXT=TEXT..v..': '..CCMD[v]..'\n\n\n';i,v=nil;
  1498. end;
  1499. TEXT=NUM..' of '..Win.NumberOfCommands..'\n\n\n'..TEXT;
  1500. Win.Ears[1].SetText.Value=TEXT;TEXT='';
  1501. end;
  1502.  
  1503. Win.Pos=A.Functions.Value('Number',0,function(Value)Win.FixTutorial();Value=nil;end);
  1504. Win.CurrentFrame=A.Functions.Value('String','Commands',function(Value)
  1505. for i=1,Win.NumOfEars do
  1506. Win.Ears[i].Frame.Visible=Value==Win.Ears[i].Name;
  1507. end;
  1508. end);
  1509.  
  1510. local Smgs={};
  1511. for Int,Name in next,Ears do
  1512. local Ear={};Win.Ears[#Win.Ears+1]=Ear;
  1513.  
  1514. Ear.Name=Name;
  1515.  
  1516. Ear.SetText=A.Functions.Value('String','',function(Value)Ear.Frame.Text=Value;Value=nil;end);
  1517.  
  1518. Ear.Frame=A.Functions.Lock('TextLabel',{
  1519. Visible=function()return Win.CurrentFrame.Value==Name;end;
  1520. Text=function()return Ear.SetText.Value;end;
  1521. BackgroundTransparency=1;
  1522. Position=A.Old.UDim2.Pax;
  1523. Size=A.Old.UDim2.Full;
  1524. TextXAlignment=0;
  1525. TextYAlignment=0;
  1526. Parent=Win.Frame;
  1527. FontSize=2;
  1528. }
  1529. );
  1530. Ear.Ear=A.Functions.Button('TextButton',{
  1531. Position=A.Old.UDim2.new(1/Win.NumOfEars*(Int-1),1.25,0,1.25);
  1532. Size=A.Old.UDim2.new(1/Win.NumOfEars,-2.5,1,-2.5);
  1533. BackgroundColor3=A.Old.Color3.Grey;
  1534. TextColor3=A.Old.Color3.Black;
  1535. Parent=Win.Menu;
  1536. FontSize=1;
  1537. Text=Name;
  1538. },function()
  1539. Win.CurrentFrame.Value=Name;
  1540. end
  1541. );Smgs[#Smgs+1]=Ear.Ear;
  1542.  
  1543. if(Name=='Players')then
  1544. local Text='';
  1545. for Int,Table in next,A.Calls do
  1546. Text=Text..Table.Description..': '..Table.Calls..'\n'..'\n';
  1547. end;
  1548. Ear.SetText.Value=Text;
  1549. elseif(Name=='Signals')then
  1550. Ear.SetText.Value=[[The first signal what you need for run a command signal is "]]..A.Data.Start..'" :3'..'\n\n'..[[For arguments type this "]]..A.Data.Step..'"'..'\n\n'..[[To use blink argument (hard to tell my english not enough to this) "{b{" until "}b}" so {b{blah;blah;LAALla;;;;aolaL}b}]];
  1551. elseif(Name=='Commands')then
  1552. Win.FixTutorial();
  1553. for i=0,1 do
  1554. local Num=i==0 and-1 or 1;
  1555. local Plus;
  1556. Smgs[#Smgs+1]=A.Functions.Button('TextButton',{
  1557. Position=A.Old.UDim2.new(i,i==1 and -20,1,-20);
  1558. BackgroundColor3=A.Old.Color3.Grey;
  1559. TextColor3=A.Old.Color3.Black;
  1560. Size=A.Old.UDim2.ButtonSize;
  1561. Parent=Win.Ears[1].Frame;
  1562. Text=i==0 and'<'or'>';
  1563. FontSize=3;
  1564. },function()
  1565. Plus=Win.Pos.Value+Num;
  1566. if(Plus>=0 and Plus<Win.NumberOfCommands)then
  1567. Win.Pos.Value=Plus;
  1568. end;
  1569. end
  1570. );
  1571. end;
  1572. end;
  1573.  
  1574. end;A.Functions.TransparencyContact(Smgs);
  1575.  
  1576. end;
  1577. A.Functions.GetBase=function()
  1578. for i,v in next,A.Service.Workspace:children()do
  1579. if(v.className=='Part'and v.Name=='Base')then
  1580. A.Functions.Remove(v,true);
  1581. end;i,v=nil;
  1582. end;
  1583. local Base=A.Old.Instance.NewObject'Part';
  1584. Base.Name='Base';
  1585. Base.Locked=true;
  1586. Base.Anchored=true;
  1587. Base.archivable=false;
  1588. Base.Size=A.Old.Vector3.new(555,2,555);
  1589. Base.BrickColor=A.Old.BrickColor.new'37';
  1590. Base.Parent=A.Service.Workspace;
  1591. return Base;
  1592. end;
  1593. A.Functions.Clean=function()
  1594. local Base=A.Functions.GetBase();
  1595. if(A.Stuffs.Shielded==nil)then
  1596. A.Stuffs.Shielded={
  1597. HumanoidController=true;
  1598. Terrain=true;
  1599. Camera=true;
  1600. Player=true;
  1601. };
  1602. end;
  1603. if(A.Stuffs.Banned_Services==nil)then
  1604. A.Stuffs.Banned_Services={
  1605. NetworkClient=true;
  1606. CoreGui=true;
  1607. };
  1608. end;
  1609. for i,v in next,Game:children()do
  1610. pcall(function()
  1611. if(A.Stuffs.Banned_Services[v.className]==nil)then
  1612. for i,v in next,v:children()do
  1613. if(v~=script and v~=Base and A.Stuffs.Shielded[v.className]~=true and A.Service.Players:GetPlayerFromCharacter(v)==nil)then
  1614. pcall(function()
  1615. v.Parent=nil;
  1616. end);
  1617. end;i,v=nil;
  1618. end;
  1619. end;
  1620. end);i,v=nil;
  1621. end;
  1622. end;
  1623. A.Functions.ResetLighting=function()
  1624. local Lighting=A.Service.Lighting;
  1625. if(A.Stuffs.LightingBaseProperties==nil)then
  1626. A.Stuffs.LightingBaseProperties={
  1627. ShadowColor=A.Old.Color3.new(.7,.7,.72);
  1628. FogColor=A.Old.Color3.new(.75,.75,.75);
  1629. ColorShift_Bottom=A.Old.Color3.Black;
  1630. GeographicLatitude=41.733299255371;
  1631. ColorShift_Top=A.Old.Color3.Black;
  1632. Ambient=A.Old.Color3.Grey;
  1633. Brightness=1;
  1634. FogEnd=1e6;
  1635. FogStart=0;
  1636. };
  1637. end;
  1638. for i,v in next,A.Stuffs.LightingBaseProperties do
  1639. Lighting[i]=v;i,v=nil;
  1640. end;
  1641. pcall(Lighting.ClearAllChildren,Lighting);
  1642. end;
  1643. A.Functions.ExplorerGui=function()
  1644. local Win=A.Functions.GiveWindow('Explorer',440,400);
  1645. if(Win==nil)then
  1646. return nil;
  1647. end;
  1648.  
  1649. Win.Frames={};
  1650.  
  1651. Win.CountThis=A.Functions.Value('Object',Game,function(Value)
  1652. if(Win.Frames.Explorer.SetPos.Value==0)then
  1653. Win.Frames.Explorer.Count(0,Value);
  1654. else
  1655. Win.Frames.Explorer.SetPos.Value=0;
  1656. end;
  1657. end);
  1658. Win.WatchingObject=A.Functions.Value('Object',Game,function(Value)
  1659. if(Win.Frames.Properties.SetPos.Value==0)then
  1660. Win.Frames.Properties.Count(0,Value);
  1661. else
  1662. Win.Frames.Properties.SetPos.Value=0;
  1663. end;
  1664. end);
  1665.  
  1666. local Cnr={};
  1667.  
  1668. Win.History={Game;};
  1669. Win.HistoryPos=1;
  1670.  
  1671. for i=0,1 do
  1672. local Plus=i==0 and -1 or 1;
  1673. local Num;
  1674. Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
  1675. BackgroundColor3=A.Old.Color3.Blue;
  1676. Position=A.Old.UDim2.new(0,20*i);
  1677. TextColor3=A.Old.Color3.Black;
  1678. Text=i==0 and'<'or'>';
  1679. Parent=Win.Menu;
  1680. FontSize=3;
  1681. },function()
  1682. Num=Win.HistoryPos+Plus;
  1683. if(Num<1 or Win.History[Num]==nil)then return nil;end;
  1684. Win.HistoryPos=Num;
  1685. Win.CountThis.Value=Win.History[Num];
  1686. end
  1687. );
  1688. end;
  1689. Win.HomeButton=A.Functions.Button('TextButton',{
  1690. BackgroundColor3=A.Old.Color3.Green;
  1691. Position=A.Old.UDim2.new(0,40);
  1692. TextColor3=A.Old.Color3.Black;
  1693. Parent=Win.Menu;
  1694. Text='H';
  1695. },function()
  1696. Win.CountThis.Value=Game;
  1697. Win.HistoryPos=1;
  1698. end
  1699. );
  1700. Win.RefreshButton=A.Functions.Button('TextButton',{
  1701. BackgroundColor3=A.Old.Color3.Grey;
  1702. Position=A.Old.UDim2.new(0,60);
  1703. TextColor3=A.Old.Color3.Black;
  1704. Parent=Win.Menu;
  1705. Text='R';
  1706. },function()
  1707. Win.Frames.Explorer.Count(0,Win.CountThis.Value);
  1708. end
  1709. );
  1710. Win.RemoveButton=A.Functions.Button('TextButton',{
  1711. BackgroundColor3=A.Old.Color3.Grey;
  1712. Position=A.Old.UDim2.new(0,80);
  1713. TextColor3=A.Old.Color3.Black;
  1714. Parent=Win.Menu;
  1715. Text='K';
  1716. },function()
  1717. for i,v in next,Win.Frames.Explorer.Selected do
  1718. if(#v~=0)then
  1719. for i,v in next,v do
  1720. A.Functions.Remove(v);
  1721. end;
  1722. end;
  1723. end;
  1724. end
  1725. );
  1726.  
  1727. for i=0,1 do
  1728. local Name=i==0 and'Explorer'or'Properties';
  1729. local this={};
  1730. this.Cells={};
  1731.  
  1732. this.SetPos=A.Functions.Value('Number',0,function(Value)
  1733. this.PosChanged(Value);
  1734. end);
  1735.  
  1736. this.Frame=A.Functions.Lock('Frame',{
  1737. Size=A.Old.UDim2.new(.5,-20,1);
  1738. Position=A.Old.UDim2.new(i/2);
  1739. BackgroundTransparency=1;
  1740. Parent=Win.Frame;
  1741. }
  1742. );
  1743. this.ScrollFrame=A.Functions.Lock('Frame',{
  1744. BackgroundColor3=A.Old.Color3.White;
  1745. Size=A.Old.UDim2.new(0,20,1);
  1746. Position=A.Old.UDim2.new(1);
  1747. BackgroundTransparency=.5;
  1748. Parent=this.Frame;
  1749. }
  1750. );
  1751. Cnr[#Cnr+1]=this.ScrollFrame;
  1752.  
  1753. for i=0,1 do
  1754. local Plus=i==0 and-20 or 20;
  1755. local Num;
  1756. Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
  1757. Position=A.Old.UDim2.new(0,0,i,i==1 and-20);
  1758. BackgroundColor3=A.Old.Color3.Grey;
  1759. Size=A.Old.UDim2.ButtonSize;
  1760. Text=i==0 and'/\\'or'\\/';
  1761. Parent=this.ScrollFrame;
  1762. AutoButtonColor=true;
  1763. FontSize=3;
  1764. },function()
  1765. Num=this.SetPos.Value+Plus;
  1766. if(Num<0)then
  1767. Num=0;
  1768. end;
  1769. if(Num>=this.Max)then
  1770. Num=this.Max-(this.Max%20);
  1771. end;
  1772. this.SetPos.Value=Num;
  1773. end
  1774. );
  1775. end;
  1776.  
  1777.  
  1778. if(i==0)then--Explorer
  1779.  
  1780. this.CountThis=Win.CountThis;
  1781.  
  1782. this.Selected={};
  1783. this.FreeBoxes={};
  1784.  
  1785. this.Count=function(From,Object)
  1786. local Parts=Object:children();
  1787. if(#Parts==0)then return nil;end;
  1788. this.Max=#Parts;
  1789.  
  1790.  
  1791. local Asd;
  1792. local i=1;
  1793. local Object2;
  1794. local NotGood=0;
  1795.  
  1796. while(i<21)do
  1797. Asd=From+i+NotGood;
  1798. Object2=Parts[Asd];
  1799. if(Object2==nil or pcall(function()return Object2:IsA'';end)==true)then
  1800. this.Cells[i].SetObject.Value=Object2;
  1801. i=i+1;
  1802. else
  1803. NotGood=NotGood+1;
  1804. end;
  1805. end;
  1806.  
  1807. end;
  1808. this.PosChanged=function(Value)
  1809. this.Count(Value,this.CountThis.Value);
  1810. end;
  1811.  
  1812. for i=1,20 do
  1813. local Cell={};this.Cells[#this.Cells+1]=Cell;
  1814.  
  1815. Cell.GetPos=function()return this.SetPos.Value+i;end;
  1816.  
  1817. Cell.SetText=A.Functions.Value('String','N/A',function(Value)
  1818. Cell.Text.Text=Value;
  1819. end);
  1820. Cell.SetObject=A.Functions.Value('Object',nil,function(Value)
  1821.  
  1822. if(Value~=nil)then
  1823. Cell.SetSelect.Value=Value:FindFirstChild'Ohgal_Selection'~=nil;
  1824. Cell.SetText.Value=Value.Name..' ('..Value.className..')';
  1825. Cell.Number.Text=Cell.GetPos();
  1826. end;
  1827.  
  1828. Cell.Frame.Visible=Value~=nil or false;
  1829.  
  1830. end);
  1831. Cell.SetSelect=A.Functions.Value('Bool',false,function(Value)
  1832. Cell.Selector.BackgroundColor3=Value==true and A.Old.Color3.Green or A.Old.Color3.Red;
  1833. local Object=Cell.SetObject.Value;
  1834. if(Value==false)then
  1835. local Selector=Object:FindFirstChild'Ohgal_Selection';
  1836. if(Selector~=nil)then
  1837. Selector.Parent=nil;
  1838. this.FreeBoxes[#this.FreeBoxes+1]=Selector;
  1839. end;
  1840. else
  1841. local ThisAdded;
  1842. local Selector=Object:FindFirstChild'Ohgal_Selection'or this.FreeBoxes[1]or A.Old.Instance.NewObject'BindableEvent';
  1843. if(Selector==this.FreeBoxes[1])then
  1844. table.remove(this.FreeBoxes,1);
  1845. end;
  1846.  
  1847. Selector.Name='Ohgal_Selection';
  1848. Selector.archivable=false;
  1849. Selector.Parent=Object;
  1850.  
  1851.  
  1852. local Box;
  1853. if(Object:IsA'Model'or Object:IsA'Part')then
  1854. Box=A.Old.Instance.NewObject('SelectionBox',this.Frame);
  1855. Box.Adornee=Object;
  1856. end;
  1857.  
  1858. if(this.Selected[Object.className]==nil)then
  1859. this.Selected[Object.className]={};
  1860. else
  1861. for i,v in next,this.Selected[Object.className]do
  1862. if(v==Object)then
  1863. ThisAdded=true;
  1864. table.remove(this.Selected[Object.className],i);break;
  1865. end;
  1866. end;
  1867. end;
  1868. this.Selected[Object.className][#this.Selected[Object.className]+1]=Object;
  1869.  
  1870. if(ThisAdded==nil)then
  1871. local Kill=function()
  1872. Selector.Parent=nil;
  1873. this.FreeBoxes[#this.FreeBoxes+1]=Selector;
  1874. if(Box~=nil)then Box.Adornee=nil;Box.Parent=nil;end;
  1875. for i,v in next,this.Selected[Object.className]do
  1876. if(v==Object)then
  1877. table.remove(this.Selected[Object.className],i);break;
  1878. end;
  1879. end;
  1880. end;
  1881. A.Functions.Thread(function()
  1882. while(Selector.Parent~=nil)do Selector.Changed:wait();end;
  1883. Kill();
  1884. end);
  1885. A.Functions.Thread(function()
  1886. while(Object.Parent~=nil)do Object.Changed:wait();end;
  1887. Kill();
  1888. end);
  1889. end;
  1890. end;
  1891. end);
  1892.  
  1893.  
  1894. Cell.Frame=A.Functions.Lock('Frame',{
  1895. Position=A.Old.UDim2.new(0,0,0,i~=1 and 20*(i-1)+1 or 1);
  1896. Visible=function()return Cell.SetObject.Value~=nil;end;
  1897. Size=A.Old.UDim2.new(1,0,0,18);
  1898. BackgroundTransparency=1;
  1899. Parent=this.Frame;
  1900. }
  1901. );
  1902.  
  1903. Cell.Selector=A.Functions.Button('ImageButton',{
  1904. BackgroundColor3=function()return Cell.SetSelect.Value==true and A.Old.Color3.Green or A.Old.Color3.Red;end;
  1905. Size=A.Old.UDim2.new(0,20,1);
  1906. Position=A.Old.UDim2.Pax;
  1907. Parent=Cell.Frame;
  1908. },function()
  1909. Cell.SetSelect.Value=Cell.SetSelect.Value==false;
  1910. end
  1911. );
  1912. Cnr[#Cnr+1]=Cell.Selector;
  1913.  
  1914. Cell.Number=A.Functions.Lock('TextLabel',{
  1915. BackgroundColor3=A.Old.Color3.Grey;
  1916. Position=A.Old.UDim2.new(0,20);
  1917. Size=A.Old.UDim2.new(0,20,1);
  1918. Parent=Cell.Frame;
  1919. Text=Cell.GetPos;
  1920. FontSize=1;
  1921. }
  1922. );
  1923. Cnr[#Cnr+1]=Cell.Number;
  1924.  
  1925. local TimeOut=0;
  1926. Cell.Text=A.Functions.Button('TextButton',{
  1927. Text=function()return Cell.SetText.Value;end;
  1928. BackgroundColor3=A.Old.Color3.White;
  1929. Position=A.Old.UDim2.new(0,40);
  1930. TextColor3=A.Old.Color3.Black;
  1931. Size=A.Old.UDim2.new(1,-40,1);
  1932. AutoButtonColor=true;
  1933. Parent=Cell.Frame;
  1934. TextXAlignment=0;
  1935. FontSize=1;
  1936. },function()
  1937. if(TimeOut==1)then
  1938. Win.HistoryPos=Win.HistoryPos+1;
  1939. Win.History[Win.HistoryPos]=Cell.SetObject.Value;
  1940. Win.History[Win.HistoryPos+1]=nil;
  1941. this.CountThis.Value=Cell.SetObject.Value;
  1942. else
  1943. TimeOut=1;
  1944.  
  1945. Win.WatchingObject.Value=Cell.SetObject.Value;
  1946.  
  1947. Delay(.2,function()
  1948. TimeOut=0;
  1949. end);
  1950. end;
  1951. end
  1952. );
  1953. Cnr[#Cnr+1]=Cell.Text;
  1954.  
  1955. end;
  1956.  
  1957. else--Properties
  1958.  
  1959. this.Count=function(From,Object)
  1960.  
  1961. if(this._ThisBox~=nil)then
  1962. this._ThisBox.Parent=nil;
  1963. end;
  1964.  
  1965. local Table=A.Functions.GetProperties(Object,true);
  1966. this.Max=#Table;
  1967.  
  1968. if(From<=4)then
  1969. this.Cells[1].SetProperty.Value='Name';
  1970. this.Cells[1].Fix();
  1971.  
  1972. this.Cells[2].SetProperty.Value='Parent';
  1973. this.Cells[2].Fix();
  1974.  
  1975. this.Cells[3].SetProperty.Value='className';
  1976. this.Cells[3].Fix();
  1977.  
  1978. this.Cells[4].SetProperty.Value='archivable';
  1979. this.Cells[4].Fix();
  1980.  
  1981. for i=5,20 do
  1982. this.Cells[i].SetProperty.Value=Table[(i-4)+From]or'';
  1983. this.Cells[i].Fix();
  1984. end;
  1985. else
  1986. for i=1,20 do
  1987. this.Cells[i].SetProperty.Value=Table[i+From]or'';
  1988. this.Cells[i].Fix();
  1989. end;
  1990. end;
  1991. end;
  1992. this.PosChanged=function(Value)
  1993. this.Count(Value,Win.WatchingObject.Value);
  1994. end;
  1995.  
  1996. this.TextBox=function(ALALOLUBU)--ROFL
  1997. if(pcall(function()this._ThisBox.Parent=ALALOLUBU;this._ThisBox.Text=ALALOLUBU.Text;end)==false)then
  1998. this._ThisBox=A.Functions.Peace('TextBox',{
  1999. BackgroundColor3=A.Old.Color3.White;
  2000. TextColor3=A.Old.Color3.Black;
  2001. Size=A.Old.UDim2.Full;
  2002. Text=ALALOLUBU.Text;
  2003. BorderSizePixel=0;
  2004. Parent=ALALOLUBU;
  2005. TextXAlignment=0;
  2006. FontSize=1;
  2007. }
  2008. );
  2009. end;
  2010. Delay(0,function()pcall(function()this._ThisBox:CaptureFocus();end);end);
  2011. this._ThisBox.FocusLost:wait();
  2012. this._ThisBox.Parent=nil;
  2013. A.Functions.Thread(function()
  2014. Win.WatchingObject.Value[this.SetProperty]=loadstring('return '..this._ThisBox.Text)();
  2015. end);
  2016. end;
  2017.  
  2018. for i=1,20 do
  2019. local Cell={};this.Cells[#this.Cells+1]=Cell;
  2020.  
  2021. Cell.SetProperty=A.Functions.Value('String','',function(Value)
  2022. Cell.Frame.Visible=Value~='';
  2023. end);
  2024.  
  2025. Cell.Fix=function()
  2026. if(Cell.SetProperty.Value~='')then
  2027. Cell.Property.Text=Cell.SetProperty.Value..' ';
  2028. Cell.Property.Size=A.Old.UDim2.new(0,Cell.Property.TextBounds.X,1);
  2029.  
  2030. Cell.ValueButton.Position=A.Old.UDim2.new(0,Cell.Property.Size.X.Offset);
  2031. Cell.ValueButton.Size=A.Old.UDim2.new(1,-Cell.Property.Size.X.Offset,1);
  2032. Cell.ValueButton.Text=tostring(Win.WatchingObject.Value[Cell.SetProperty.Value]);
  2033. end;
  2034. end;
  2035.  
  2036.  
  2037. Cell.Frame=A.Functions.Lock('Frame',{
  2038. Position=A.Old.UDim2.new(0,0,0,i~=1 and 20*(i-1)+1 or 1);
  2039. Visible=function()return Cell.SetProperty.Value~='';end;
  2040. Size=A.Old.UDim2.new(1,0,0,18);
  2041. BackgroundTransparency=1;
  2042. Parent=this.Frame;
  2043. }
  2044. );
  2045.  
  2046. Cell.Property=A.Functions.Lock('TextLabel',{
  2047. Size=function()return Cell.Property~=nil and A.Old.UDim2.new(0,Cell.Property.TextBounds.X,1)or A.Old.UDim2.Pax;end;
  2048. Text=function()return Cell.SetProperty.Value..' ';end;
  2049. BackgroundColor3=A.Old.Color3.DarkRed;
  2050. TextWrapped=false;
  2051. Parent=Cell.Frame;
  2052. TextWrap=false;
  2053. FontSize=1;
  2054. }
  2055. );
  2056. Cnr[#Cnr+1]=Cell.Property;
  2057.  
  2058. Cell.ValueButton=A.Functions.Button('TextButton',{
  2059. Text=function()return(Cell.SetProperty.Value~=''and Win.WatchingObject.Value~=nil)and tostring(Win.WatchingObject.Value[Cell.SetProperty.Value])or'';end;
  2060. Position=function()return A.Old.UDim2.new(0,Cell.Property.Size.X.Offset);end;
  2061. Size=function()return A.Old.UDim2.new(1,-Cell.Property.Size.X.Offset,1);end;
  2062. Parent=Cell.Frame;
  2063. TextXAlignment=0;
  2064. FontSize=1;
  2065. },function()
  2066. this.SetProperty=Cell.SetProperty.Value;
  2067. this.TextBox(Cell.ValueButton);Wait();
  2068. Cell.ValueButton.Text=tostring(Win.WatchingObject.Value[Cell.SetProperty.Value]);
  2069. end
  2070. );
  2071. Cnr[#Cnr+1]=Cell.ValueButton;
  2072.  
  2073. end;
  2074.  
  2075. end;--Properties end;
  2076.  
  2077. this.Count(0,Game);
  2078.  
  2079.  
  2080. Win.Frames[Name]=this;
  2081. end;
  2082.  
  2083. A.Functions.TransparencyContact(Cnr);
  2084.  
  2085. end;
  2086. A.Functions.AddKey=function(Key,Function)
  2087. if(A.Stuffs.Security==true)then
  2088. if(A.KeyCommands[Key]==nil)then A.KeyCommands[Key]={};end;
  2089. A.KeyCommands[#A.KeyCommands+1]=Function;
  2090. A.Service.GuiService.AddKey(Key);
  2091. Key,Function=nil;
  2092. end;
  2093. end;
  2094. A.Functions.DoKeyCommand=function(Key)
  2095. if(A.KeyCommands[Key]~=nil)then
  2096. for Int=1,#A.KeyCommands[Key]do
  2097. A.KeyCommands[Key][Int]();
  2098. Int=nil;
  2099. end;
  2100. end;Key=nil;
  2101. end;
  2102. A.Functions.Heal=function(Corpse)--From first Local Admin :3
  2103. if(Corpse)then
  2104. local Humanoid=A.Functions.FindObject(Corpse,'className','Humanoid');
  2105. if(Humanoid==nil)then
  2106. return nil;
  2107. else
  2108. if(Humanoid.Health<=0)then
  2109. return nil;
  2110. end;
  2111. Humanoid.Health=Humanoid.MaxHealth
  2112. end;
  2113. for i,v in next,A.Data.CharacterLimbs do
  2114. if(Corpse:FindFirstChild(i)==nil)then
  2115. local Limb=A.Functions.Peace('Part',{
  2116. CanCollide=false;
  2117. BottomSurface=0;
  2118. Parent=Corpse;
  2119. TopSurface=0;
  2120. formFactor=0;
  2121. Size=v.Size;
  2122. Name=i;
  2123. });
  2124. if(v.C0 and v.C1)then
  2125. local Weld=A.Old.Instance.NewObject('Motor6D',Corpse:FindFirstChild'Torso');
  2126. if(Weld.Parent)then
  2127. Limb.Position=Weld.Parent.Position;
  2128. Weld.Name=v.Name;
  2129. Weld.Part0=Weld.Parent;
  2130. Weld.Part1=Limb;
  2131. Weld.C0=v.C0;
  2132. Weld.C1=v.C1;
  2133. Weld.MaxVelocity=.1;
  2134. end;
  2135. Weld=nil;
  2136. end;
  2137. Limb,i,v=nil;
  2138. end;
  2139. i,v=nil;
  2140. end;
  2141. local Skin=Corpse:FindFirstChild'Body Colors';
  2142. if(Skin~=nil)then
  2143. Skin.Parent=nil;
  2144. Skin.Parent=Corpse;
  2145. end;
  2146. local Animate=Corpse:FindFirstChild'Animate';
  2147. if(Animate~=nil)then
  2148. Animate.Parent=nil;
  2149. Animate.Parent=Corpse;
  2150. end;
  2151. end;
  2152. end;
  2153. A.Functions.CreateWeld=function(Part0,Part1,C0,C1)
  2154. local Weld=A.Old.Instance.NewObject('Motor',Part0);
  2155. Weld.Part0=Part0;
  2156. Weld.Part1=Part1;
  2157. if(C0~=nil)then
  2158. Weld.C0=C0;
  2159. end;
  2160. if(C1~=nil)then
  2161. Weld.C1=C1;
  2162. end;
  2163. return Weld;
  2164. end;
  2165. A.Functions.MemeGui=function()
  2166. local Win=A.Functions.GiveWindow('Memes',300,300);
  2167. if(Win==nil)then
  2168. return nil;
  2169. end;
  2170.  
  2171. Win.Title.Position=A.Old.UDim2.new(.5,-150);
  2172.  
  2173. Win.SetPos=A.Functions.Value('Number',0,function(Value)
  2174. Win.Status.Text=Value;
  2175. Win.Image.Image=Value;
  2176. end);
  2177.  
  2178.  
  2179. Win.Memes={};local Num=0;
  2180. for i,v in next,A.Images.Meme do Num=Num+1;--[[Num+=1; don't work :'( ]]
  2181. Win.Memes[Num]={Name=i;ID=v;};
  2182. end;Win.NumMemes=#Win.Memes;
  2183.  
  2184. Win.Status=A.Functions.Lock('TextLabel',{
  2185. Text=function()return 1+Win.SetPos.Value..' of '..Win.NumMemes..': '..Win.Memes[Win.SetPos.Value+1].Name..' ('..Win.Memes[Win.SetPos.Value+1].ID..')';end;
  2186. Position=A.Old.UDim2.new(0,20);
  2187. Size=A.Old.UDim2.new(1,-40,1);
  2188. TextColor3=A.Old.Color3.White;
  2189. BackgroundTransparency=1;
  2190. Parent=Win.Menu;
  2191. FontSize=2;
  2192. }
  2193. );
  2194. Win.Image=A.Functions.Lock('ImageLabel',{
  2195. Image=function()return A.Data.BaseUrl..Win.Memes[Win.SetPos.Value+1].ID;end;
  2196. Position=A.Old.UDim2.Pax;
  2197. Size=A.Old.UDim2.Full;
  2198. Parent=Win.Frame;
  2199. }
  2200. );
  2201.  
  2202. local Cnr={};
  2203. local Num;
  2204. for i=0,1 do
  2205. local Plus=i==0 and -1 or 1;
  2206. Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
  2207. Position=A.Old.UDim2.new(i,i==1 and -20);
  2208. BackgroundColor3=A.Old.Color3.Grey;
  2209. TextColor3=A.Old.Color3.Black;
  2210. Size=A.Old.UDim2.new(0,20,1);
  2211. Text=i==0 and'<'or'>';
  2212. Parent=Win.Menu;
  2213. FontSize=2;
  2214. },function()
  2215. Num=Win.SetPos.Value+Plus;
  2216. if(Num>=Win.NumMemes)then
  2217. Num=0;
  2218. end;
  2219. if(Num<0)then
  2220. Num=Win.NumMemes-1;
  2221. end;
  2222. Win.SetPos.Value=Num;
  2223. end
  2224. );
  2225. A.Functions.Button('TextButton',{
  2226. TextColor3=i==0 and A.Old.Color3.White or A.Old.Color3.DarkRed;
  2227. Position=A.Old.UDim2.new(i/2,0,1,-20);
  2228. Size=A.Old.UDim2.new(.5,0,0,20);
  2229. Text=i==0 and'Wear'or'Drop';
  2230. BackgroundTransparency=1;
  2231. TextStrokeTransparency=0;
  2232. Parent=Win.Frame;
  2233. FontSize=3;
  2234. },i==0 and function()
  2235. A.Functions.MakeMeme(Win.Memes[Win.SetPos.Value+1].ID,A.User.C.Character);
  2236. end or function()
  2237. A.Functions.MakeMeme('reset!',A.User.C.Character);
  2238. end
  2239. );
  2240. end;
  2241.  
  2242. A.Functions.TransparencyContact(Cnr);
  2243.  
  2244. end;
  2245. A.Functions.SettingWait=function(Name,Bool)
  2246. if(A.Settings[Name].Value~=Bool)then
  2247. A.Settings[Name].Changed:wait();
  2248. end;
  2249. return A.Settings[Name];
  2250. end;
  2251. A.Functions.FindWithOutside=function(Start,End)
  2252. local Type=type(End);
  2253. if(Type=='userdata')then
  2254. local Stepped=0;
  2255. if(Start.Parent~=End)then
  2256. while(Start.Parent~=End and Stepped<50)do
  2257. Start=Start.Parent;
  2258. Stepped=Stepped+1;
  2259. end;
  2260. end;
  2261. elseif(Type=='string')then
  2262. local Stepped=0;
  2263. if(Start.Parent.className~=End)then
  2264. while(Start.Parent.className~=End and Stepped<50)do
  2265. Start=Start.Parent;
  2266. Stepped=Stepped+1;
  2267. end;
  2268. end;
  2269. end;
  2270.  
  2271. return Start;
  2272. end;
  2273. A.Functions.ResizeChar=function(Char,Plus_Size)
  2274. local Torso=Char.Torso;
  2275.  
  2276. Torso.Anchored=true;
  2277. Torso.BottomSurface=0;
  2278. Torso.TopSurface=0;
  2279.  
  2280. A.Functions.Remove(Char:FindFirstChild'Shirt',true);
  2281. A.Functions.Remove(Char:FindFirstChild'Pants',true);
  2282.  
  2283. local Virus=Char:FindFirstChild'Shirt Graphic';
  2284. if(Virus~=nil)then
  2285. Virus:Destroy();
  2286. end;
  2287.  
  2288. local Welds={};
  2289. local Change;Change=function(Object)
  2290. for i,Weld in next,Object:children()do
  2291. if(Weld.className=='Weld'or Weld.className=='Motor'or Weld.className=='Motor6D')then
  2292. local Part=Weld.Part1;
  2293.  
  2294. Part.Anchored=true;
  2295.  
  2296. Weld.Part1=nil;
  2297.  
  2298. local r01,r02,r03,r04,r05,r06,r07,r08,r09,r10,r11,r12=Weld.C0:components();
  2299. Weld.C0=A.Old.CFrame.new(r01*Plus_Size,r02*Plus_Size,r03*Plus_Size,r04,r05,r06,r07,r08,r09,r10,r11,r12);
  2300. local r01,r02,r03,r04,r05,r06,r07,r08,r09,r10,r11,r12=Weld.C1:components();
  2301. Weld.C1=A.Old.CFrame.new(r01*Plus_Size,r02*Plus_Size,r03*Plus_Size,r04,r05,r06,r07,r08,r09,r10,r11,r12);
  2302.  
  2303. if(Part.Name~='Head')then
  2304. Part.formFactor=3;
  2305. Part.Size=Part.Size*Plus_Size;
  2306. else
  2307. for i,v in next,Part:children()do
  2308. if(v.className=='Weld')then
  2309. v.Part0=nil;
  2310. v.Part1.Anchored=true;
  2311. end;
  2312. end;
  2313. Part.formFactor=3;
  2314. Part.Size=Part.Size*Plus_Size;
  2315. for i,v in next,Part:children()do
  2316. if(v.className=='Weld')then
  2317. v.Part0=Part;
  2318. v.Part1.Anchored=false;
  2319. end;
  2320. end;
  2321. end;
  2322.  
  2323. if(Weld.Parent==Torso)then
  2324. Part.BottomSurface=0;
  2325. Part.TopSurface=0;
  2326. end;
  2327.  
  2328. Part.Anchored=false;
  2329.  
  2330. Weld.Part1=Part;
  2331.  
  2332. if(Weld.Part0==Torso)then
  2333. Welds[#Welds+1]=Weld;
  2334. Part.Anchored=true;
  2335. Weld.Part0=nil;
  2336. end;
  2337. elseif(Weld.className=='CharacterMesh')then
  2338. local Body_Part=tostring(Weld.BodyPart):match'%w+.%w+.(%w+)';
  2339. local Mesh=A.Old.Instance.NewObject('SpecialMesh',
  2340. Body_Part=='Head'and Char:FindFirstChild'Head'or Body_Part=='Torso'and Char:FindFirstChild'Torso'or
  2341. Body_Part=='LeftArm'and Char:FindFirstChild'Left Arm'or Body_Part=='RightArm'and Char:FindFirstChild'Right Arm'or
  2342. Body_Part=='LeftLeg'and Char:FindFirstChild'Left Leg'or Body_Part=='RightLeg'and Char:FindFirstChild'Right Leg'or nil);
  2343. Mesh.MeshId=A.Data.BaseUrl..Weld.MeshId;
  2344. if(Weld.BaseTextureId~=0 or Weld.BaseTextureId~='0')then
  2345. Mesh.TextureId=A.Data.BaseUrl..Weld.BaseTextureId;
  2346. end;
  2347. Mesh.Scale=Mesh.Scale*Plus_Size;
  2348. Weld:Destroy();
  2349. elseif(Weld.className=='SpecialMesh'and Weld.Parent~=Char.Head)then
  2350. Weld.Scale=Weld.Scale*Plus_Size;
  2351. end;
  2352. Change(Weld);
  2353. end;
  2354. end;
  2355.  
  2356. Change(Char);
  2357.  
  2358. Torso.formFactor=3;
  2359. Torso.Size=Torso.Size*Plus_Size;
  2360.  
  2361. for i,v in next,Welds do
  2362. v.Part0=Torso;
  2363. v.Part1.Anchored=false;
  2364. end;
  2365.  
  2366. Torso.Anchored=false;
  2367. --[[
  2368. Wait(1);
  2369.  
  2370. if(Shirts~=nil)then
  2371. Shirts.Parent=Char;
  2372. end;
  2373. if(Pants~=nil)then
  2374. Pants.Parent=Char;
  2375. end;]]
  2376. end;
  2377. --[[Functions end;]]
  2378.  
  2379.  
  2380. --[[Old]]
  2381. local Table;
  2382. for i,Name in next,{
  2383. 'BrickColor';
  2384. 'Instance';
  2385. 'Vector3';
  2386. 'Vector2';
  2387. 'Color3';
  2388. 'CFrame';
  2389. 'UDim2';
  2390. 'UDim';
  2391. 'Ray';
  2392. }do
  2393. Table=loadstring('return '..Name)();
  2394. if(Table~=nil)then
  2395. A.Old[Name]=A.Functions.CopyTable(Table);
  2396. end;i,Name=nil;
  2397. end;
  2398.  
  2399. A.Old.Instance.NewObject=A.Old.Instance.new;
  2400. A.Old.Instance.new=function(Object,Data)
  2401. local Class=Object;
  2402. Object,Data=A.Functions.GiveData(A.Old.Instance.NewObject(Object,Data));
  2403.  
  2404. if(A.Stuffs.Gui.PartOfGui[Class]==true)then
  2405. Data.Properties.BackgroundColor3=function()return A.Old.Color3.Black;end;
  2406. Data.Properties.BorderSizePixel=function()return 0;end;
  2407. Data.Properties.Visible=function()return true;end;
  2408. end;
  2409. if(A.Stuffs.Gui.Text[Class]==true)then
  2410. Data.Properties.TextColor3=function()return A.Old.Color3.White;end;
  2411. Data.Properties.TextWrapped=function()return true;end;
  2412. Data.Properties.TextWrap=function()return true;end;
  2413. end;
  2414. if(A.Stuffs.Gui.Image[Class]==true)then
  2415. Data.Properties.BackgroundTransparency=function()return 1;end;
  2416. end;
  2417. if(A.Stuffs.Gui.Button[Class]==true)then
  2418. Data.Properties.AutoButtonColor=function()return false;end;
  2419. Data.Properties.Active=function()return true;end;
  2420. end;Class=nil;
  2421.  
  2422. Data.Properties.archivable=function()return false;end;
  2423. Data.Properties.Archivable=function()return false;end;
  2424. Data.Properties.Name=function()return'';end;
  2425.  
  2426. pcall(A.Functions.Peace,Object,Data.Properties);
  2427.  
  2428. return Object,Data;
  2429. end;
  2430.  
  2431. A.Old.Color3.Red=A.Old.Color3.new(1);
  2432. A.Old.Color3.Black=A.Old.Color3.new();
  2433. A.Old.Color3.Green=A.Old.Color3.new(0,1);
  2434. A.Old.Color3.Blue=A.Old.Color3.new(0,0,1);
  2435. A.Old.Color3.DarkRed=A.Old.Color3.new(.8);
  2436. A.Old.Color3.Yellow=A.Old.Color3.new(1,1);
  2437. A.Old.Color3.White=A.Old.Color3.new(1,1,1);
  2438. A.Old.Color3.Grey=A.Old.Color3.new(.5,.5,.5);
  2439. A.Old.Color3.DarkGreen=A.Old.Color3.new(0,.8);
  2440. A.Old.Color3.DarkBlue=A.Old.Color3.new(0,0,.8);
  2441. A.Old.Color3.DarkBlue=A.Old.Color3.new(0,0,.8);
  2442. A.Old.Color3.DarkYellow=A.Old.Color3.new(.7,.7);
  2443.  
  2444. A.Old.CFrame.Pax=A.Old.CFrame.new();
  2445. A.Old.CFrame.Char=A.Old.CFrame.new(0,3,0);
  2446.  
  2447. A.Old.Vector3.Pax=A.Old.CFrame.Pax.p;
  2448. A.Old.Vector3.Char=A.Old.CFrame.Char.p;
  2449. A.Old.Vector3.Jump=A.Old.Vector3.new(0,100);
  2450.  
  2451.  
  2452. A.Old.BrickColor.White=A.Old.BrickColor.new'1001';
  2453. A.Old.BrickColor.Black=A.Old.BrickColor.new'1003';
  2454.  
  2455. A.Old.UDim2.Pax=A.Old.UDim2.new();
  2456. A.Old.UDim2.Full=A.Old.UDim2.new(1,0,1);
  2457. A.Old.UDim2.ButtonSize=UDim2.new(0,20,0,20);
  2458. A.Old.UDim2.ScreenPos=A.Old.UDim2.new(0,0,0,-1);
  2459. A.Old.UDim2.ScreenSize=A.Old.UDim2.new(1,0,1,1);
  2460. --[[Old end;]]
  2461.  
  2462.  
  2463. --[[Data]]
  2464. A.Data.Step=[=[;]=];
  2465. A.Data.Start=[=[']=];
  2466. A.Data.Wrap=[=[ & ]=];
  2467. A.Data.Repeat=[=[##]=];
  2468. A.Data.RbxUrl='rbxassetid://';
  2469. A.Data.BaseUrl='http://www.roblox.com/Asset/?id=';
  2470. A.Data.CharacterLimbs={
  2471. ['Torso']={
  2472. Size=A.Old.Vector3.new(2,2,1);
  2473. };
  2474. ['Head']={
  2475. C1=A.Old.CFrame.new(0,-0.5,0,-1,-0,-0,0,0,1,0,1,0);
  2476. C0=A.Old.CFrame.new(0,1,0,-1,-0,-0,0,0,1,0,1,0);
  2477. Size=A.Old.Vector3.new(2,1,1);
  2478. Name='Neck';
  2479. };
  2480. ['Right Arm']={
  2481. C1=A.Old.CFrame.new(-0.5,0.5,0,0,0,1,0,1,0,-1,-0,-0);
  2482. C0=A.Old.CFrame.new(1,0.5,0,0,0,1,0,1,0,-1,-0,-0);
  2483. Size=A.Old.Vector3.new(1,2,1);
  2484. Name='Right Shoulder'
  2485. };
  2486. ['Right Leg']={
  2487. C1=A.Old.CFrame.new(0.5,1,0,0,0,1,0,1,0,-1,-0,-0);
  2488. C0=A.Old.CFrame.new(1,-1,0,0,0,1,0,1,0,-1,-0,-0);
  2489. Size=A.Old.Vector3.new(1,2,1);
  2490. Name='Right Hip'
  2491. };
  2492. ['Left Arm']={
  2493. C1=A.Old.CFrame.new(0.5,0.5,0,-0,-0,-1,0,1,0,1,0,0);
  2494. C0=A.Old.CFrame.new(-1,0.5,0,-0,-0,-1,0,1,0,1,0,0);
  2495. Size=A.Old.Vector3.new(1,2,1);
  2496. Name='Left Shoulder'
  2497. };
  2498. ['Left Leg']={
  2499. C1=A.Old.CFrame.new(-0.5,1,0,-0,-0,-1,0,1,0,1,0,0);
  2500. C0=A.Old.CFrame.new(-1,-1,0,-0,-0,-1,0,1,0,1,0,0);
  2501. Size=A.Old.Vector3.new(1,2,1);
  2502. Name='Left Hip'
  2503. };
  2504. };
  2505. --[[Data end;]]
  2506.  
  2507.  
  2508. --[[Stuffs]]
  2509. A.Stuffs.Gui={
  2510. PartOfGui={
  2511. ImageButton=true;
  2512. TextButton=true;
  2513. ImageLabel=true;
  2514. TextLabel=true;
  2515. TextBox=true;
  2516. Frame=true;
  2517. };
  2518. Text={
  2519. TextButton=true;
  2520. TextLabel=true;
  2521. TextBox=true;
  2522. };
  2523. Image={
  2524. ImageButton=true;
  2525. ImageLabel=true;
  2526. };
  2527. Button={
  2528. ImageButton=true;
  2529. TextButton=true;
  2530. };
  2531. };
  2532. A.Stuffs.TrueBooleans={
  2533. ['of course']=true;
  2534. ['not false']=true;
  2535. ['why not']=true;
  2536. ['off on']=true;
  2537. ['yahwol']=true;
  2538. ['not 0']=true;
  2539. ['true']=true;
  2540. ['yes']=true;
  2541. ['yep']=true;
  2542. ['yup']=true;
  2543. ['on']=true;
  2544. ['ya']=true;
  2545. ['y']=true;
  2546. ['1']=true;
  2547. };
  2548. A.Stuffs.Security=pcall(function()return Game.RobloxLocked;end);
  2549. local Asd;
  2550. A.Stuffs.AsciiNum={};
  2551. A.Stuffs.AsciiChar={};
  2552. for i=0,255 do
  2553. Asd=string.char(i);
  2554. A.Stuffs.AsciiNum[Asd]=i;
  2555. A.Stuffs.AsciiChar[i]=Asd;i=nil;
  2556. end;Asd=nil;
  2557. A.Stuffs.CharVirus={
  2558. ['Shirt Graphic']='ShirtGraphic';
  2559. ['RobloxTeam']='Script';
  2560. ['Sound']='Script';
  2561. };
  2562. A.Stuffs.GuideCommands={
  2563. ['-r']='<Property>';
  2564. ['-x']='<Position>';
  2565. ['-b']='<Boolean>';
  2566. ['-p']='<Player>';
  2567. ['-v']='<Value>';
  2568. ['-s']='<Size>';
  2569. ['-t']='<Text>';
  2570. ['-i']='<Path>';
  2571. };
  2572. A.Stuffs.NullTable={};
  2573. A.Stuffs.StarterSource=[==[if(Game.PlaceId~=0)then print=function()end;end;local Users=Game:service'Players';local User=Users.LocalPlayer; ]==];
  2574. --[[Stuffs end;]]
  2575.  
  2576.  
  2577. --[[Settings]]
  2578. A.Settings['Security of character']=false;
  2579. A.Settings['Windows transparency']=true;
  2580. A.Settings['Big jumps']=false;
  2581. A.Settings.HealthBar=false;
  2582. A.Settings.Immortal=false;
  2583. --[[Settings end;]]
  2584.  
  2585.  
  2586. --[[Service]]
  2587. for i,v in next,Game:children()do
  2588. pcall(function()
  2589. if(Game:service(v.className)~=nil)then
  2590. A.Service[v.className]=v;
  2591. end;i,v=nil;
  2592. end);
  2593. end;
  2594. --[[Service end;]]
  2595.  
  2596.  
  2597.  
  2598. --[=[Create gui module
  2599. Exemple:
  2600.  
  2601. A.Functions.CreateGuiModule(function()
  2602.  
  2603. end);
  2604.  
  2605. ]=]
  2606. A.Functions.CreateGuiModule(function()
  2607. for i,v in next,{'Hints';'Messages';'Other';'Windows';'First';}do
  2608. A.User.Frames[v]=A.Functions.Lock('Frame',{
  2609. Position=A.Old.UDim2.ScreenPos;
  2610. Size=A.Old.UDim2.ScreenSize;
  2611. BackgroundTransparency=1;
  2612. Parent=A.User.Screen;
  2613. Name=v;
  2614. }
  2615. );i,v=nil;
  2616. end;
  2617. end);
  2618. A.Functions.CreateGuiModule(function()
  2619. A.Stuffs.MenuButton=A.Functions.Lock('Sound',{
  2620. SoundId='rbxasset://sounds/switch.wav';
  2621. Parent=A.User.Screen;
  2622. Volume=.5;
  2623. Pitch=2;
  2624. }
  2625. );
  2626. A.Stuffs.Button=A.Functions.Lock('Sound',{
  2627. SoundId='rbxasset://sounds/SWITCH3.wav';
  2628. Parent=A.User.Screen;
  2629. Volume=.2;
  2630. Pitch=2;
  2631. }
  2632. );
  2633. end);
  2634. A.Functions.CreateGuiModule(function()
  2635. local Frame;
  2636. local Pos1,Pos2=A.Old.UDim2.new(0,-110,1,-145),A.Old.UDim2.new(0,0,1,-145);
  2637.  
  2638. local MouseEnter=A.Functions.Value('Bool',false,function(Value)
  2639. A.User.MenuButton.Position=Value==true and Pos2 or Pos1;
  2640. A.User.MenuButton.Transparency=Value==true and 0 or .5;
  2641. end);
  2642. local Visible=A.Functions.Value('Bool',false,function(Value)A.User.MenuButton.Visible,MouseEnter.Value=Value==false;Frame.Visible=Value;end);
  2643.  
  2644. local BF={};
  2645. local AddButtonFunction=function(Title,Function,Security)
  2646. if(Security==true and A.Stuffs.Security==false)then
  2647. return nil;
  2648. end;
  2649. BF[#BF+1]={
  2650. Function=Function;
  2651. Title=Title;
  2652. };
  2653. end;
  2654.  
  2655. AddButtonFunction('Back to the game',function()Visible.Value=false;end);
  2656. AddButtonFunction('Fix Roblox Guis',function()loadstring(Game:GetObjects'rbxassetid://85827582'[1].Value)();end,true);
  2657. AddButtonFunction('Command Bar',function()A.Functions.CommandBar();end);
  2658. AddButtonFunction('Show Memes',function()A.Functions.MemeGui();end);
  2659. AddButtonFunction('Spawning',function()A.User.Char.Torso.CFrame=A.Functions.GetSpawnLocationCFrame();A.User.Char.Torso.Velocity=A.Old.Vector3.Pax;end);
  2660. AddButtonFunction('Explorer',function()A.Functions.ExplorerGui();end);
  2661. AddButtonFunction('Settings',function()A.Functions.SettingsGui();end);
  2662. AddButtonFunction('Meters',function()A.Functions.Meter();end);
  2663. AddButtonFunction('Reset',function()A.Functions.ResetChar(A.User.C);end);
  2664. AddButtonFunction('Nuke',function()A.Functions.NukeChar(A.User.Char);end);
  2665. AddButtonFunction('Help',function()A.Functions.HelpGui();end);
  2666. AddButtonFunction('Heal',function()A.Functions.Heal(A.User.C.Character);end);
  2667.  
  2668. AddButtonFunction=nil;
  2669.  
  2670.  
  2671. A.User.MenuButton=A.Functions.Lock('TextButton',{
  2672. Transparency=function()return MouseEnter.Value==true and 0 or .5;end;
  2673. Visible=function()return Visible.Value==false;end;
  2674. Position=function()return MouseEnter.Value==true and Pos2 or Pos1;end;
  2675. TextColor3=A.Old.Color3.DarkYellow;
  2676. Size=A.Old.UDim2.new(0,125,0,20);
  2677. Parent=A.User.Frames.First;
  2678. Text='Menu of Ohgal';
  2679. FontSize=2;
  2680. },{
  2681. MouseEnter=function()
  2682. MouseEnter.Value=true;
  2683. A.User.MenuButton.MouseLeave:wait();
  2684. MouseEnter.Value=false;
  2685. end;
  2686. MouseButton1Up=function()
  2687. Visible.Value=true;
  2688. A.Stuffs.MenuButton:play();
  2689. end;
  2690. }
  2691. );
  2692. coroutine.wrap(function()
  2693. A.User.MenuButton.MouseButton1Down:wait();
  2694. A.User.STARTUPMSG.Parent=nil;
  2695. end)();
  2696. Frame=A.Functions.Lock('Frame',
  2697. {
  2698. Position=A.Old.UDim2.new(.5,-200,.5,-((#BF*20)+5)/2);
  2699. Size=A.Old.UDim2.new(0,400,0,(#BF*20)+10);
  2700. Visible=function()return Visible.Value;end;
  2701. BackgroundColor3=A.Old.Color3.DarkRed;
  2702. Parent=A.User.Frames.First;
  2703. BackgroundTransparency=.5;
  2704. }
  2705. );
  2706. for Int,v in next,BF do
  2707. A.Functions.Button('TextButton',{
  2708. Position=A.Old.UDim2.new(0,5,0,(20*(Int-1))+5);
  2709. TextColor3=A.Old.Color3.DarkYellow;
  2710. Size=A.Old.UDim2.new(1,-10,0,20);
  2711. BackgroundTransparency=.5;
  2712. AutoButtonColor=true;
  2713. Text=v.Title;
  2714. Parent=Frame;
  2715. FontSize=5;
  2716. Font=1;
  2717. },v.Function
  2718. );
  2719. end;
  2720. end);
  2721. A.Functions.CreateGuiModule(function()
  2722. Delay(0,function()
  2723. local Color1=A.Old.Color3.Black;
  2724. local Color2=A.Old.Color3.Red;
  2725. local Color3=A.Old.Color3.Red;
  2726. local Color4=A.Old.Color3.Black;
  2727. local Msg=A.Functions.Peace('TextLabel',{
  2728. Text='Welcome!'..string.rep('\n',2)..'Dresmor Alakazard - Ohgal Local Admin';
  2729. Position=A.Old.UDim2.new(.5,0,.5);
  2730. BackgroundTransparency=.5;
  2731. BackgroundColor3=Color1;
  2732. Parent=A.User.Screen;
  2733. TextColor3=Color2;
  2734. BorderSizePixel=0;
  2735. TextWrapped=true;
  2736. FontSize=3;
  2737. }
  2738. );
  2739. A.User.STARTUPMSG=Msg;
  2740. Msg:TweenSizeAndPosition(A.Old.UDim2.new(0,300,0,70),A.Old.UDim2.new(.5,-150,.5,-35),1,2,1,false);
  2741. Wait(5);
  2742. Msg.BackgroundColor3=A.Old.Color3.Red;
  2743. Msg.TextColor3=A.Old.Color3.Black;
  2744. if(Msg.Parent~=nil)then
  2745. Msg:TweenSizeAndPosition(A.Old.UDim2.new(0,200,0,20),A.Old.UDim2.new(0,25,1,-145),1,1,1,false);
  2746. Msg.Text='<-- There is the MENU';
  2747. coroutine.wrap(function()
  2748. for i=1,3 do
  2749. Msg.BackgroundColor3=Color3;
  2750. Msg.TextColor3=Color4;
  2751. A.Functions.Wait(.3);
  2752. Msg.BackgroundColor3=Color1;
  2753. Msg.TextColor3=Color2;
  2754. A.Functions.Wait(.3);
  2755. end;
  2756. end)();
  2757. Wait(6);
  2758. end;
  2759. A.Functions.Remove(Msg,true);
  2760. end);
  2761. end);
  2762. A.Functions.CreateGuiModule(function()
  2763. A.Functions.SettingWait('HealthBar',true);
  2764. A.User.Gui.HelathBar={};
  2765. local this=A.User.Gui.HelathBar;
  2766.  
  2767. if(A.User.Humanoid.Value==nil)then
  2768. A.User.Humanoid.Changed:wait();
  2769. end;
  2770.  
  2771. this.Fix=function()
  2772. this.Pos=A.Old.UDim2.new(this.SetHealth.Value/this.SetMaxHealth.Value,0,1);
  2773. if(this.HBar~=nil)then
  2774. this.HBar.Size=this.Pos;
  2775. end;
  2776. return this.Pos;
  2777. end;
  2778. this.FixStats=function()
  2779. this.Idk=this.Humanoid.Health/this.Humanoid.MaxHealth;
  2780. this.SetMaxHealth.Value=this.Humanoid.MaxHealth;
  2781. this.SetHealth.Value=this.Humanoid.Health;
  2782. this.SetColor.Value=(this.Idk<=.1)and A.Old.Color3.DarkRed or(this.Idk>.1 and this.Idk<=.5)and
  2783. A.Old.Color3.DarkYellow or(this.Idk>.5 and this.Idk<=1)and A.Old.Color3.Green or A.Old.Color3.Black;
  2784. end;
  2785.  
  2786. this.SetColor=A.Functions.Value('Color3',A.Old.Color3.Green,function(Color3)this.HBar.BackgroundColor3=Color3;Color3=nil;end);
  2787. this.SetVisible=A.Functions.Value('Bool',true,function(Value)this.Frame.Visible=Value;Value=nil;end);
  2788. this.SetMaxHealth=A.Functions.Value('Number',A.User.Humanoid.Value.MaxHealth,this.Fix);
  2789. this.SetHealth=A.Functions.Value('Number',A.User.Humanoid.Value.Health,this.Fix);
  2790.  
  2791. this.Frame=A.Functions.Lock('Frame',{
  2792. Visible=function()return this.SetVisible.Value;end;
  2793. Position=A.Old.UDim2.new(.5,-55,1,-25);
  2794. Size=A.Old.UDim2.new(0,110,0,20);
  2795. Parent=A.User.Frames.Other;
  2796. BackgroundTransparency=.5;
  2797. }
  2798. );
  2799. this.MHBar=A.Functions.Lock('Frame',
  2800. {
  2801. --BackgroundColor3=A.Old.Color3.DarkRed;
  2802. Position=A.Old.UDim2.new(0,5,0,5);
  2803. Size=A.Old.UDim2.new(1,-10,1,-10);
  2804. BackgroundTransparency=1;
  2805. Parent=this.Frame;
  2806. }
  2807. );
  2808. this.HBar=A.Functions.Lock('Frame',
  2809. {
  2810. BackgroundColor3=function()return this.SetColor.Value;end;
  2811. Position=A.Old.UDim2.Pax;
  2812. Parent=this.MHBar;
  2813. }
  2814. );
  2815. this.HBar.Size=this.Fix();
  2816.  
  2817. this.Valid=true;
  2818.  
  2819. coroutine.wrap(function()
  2820. while(A.Functions.Check()and this.Valid==true)do
  2821. this.SetVisible.Value=A.Settings.HealthBar.Value;
  2822. A.Settings.HealthBar.Changed:wait();
  2823. end;
  2824. end)();
  2825. coroutine.wrap(function()
  2826. while(A.Functions.Check()and this.Valid==true)do
  2827. A.Functions.SettingWait('HealthBar',true);
  2828.  
  2829. this.Humanoid=A.User.Humanoid.Value;
  2830. this.FixStats();
  2831.  
  2832. coroutine.wrap(function()
  2833. while(A.Functions.Check()and A.User.Humanoid.Value==this.Humanoid)do
  2834. this.Humanoid.HealthChanged:wait();
  2835. this.FixStats();
  2836. end;
  2837. end)();
  2838.  
  2839. A.User.Humanoid.Changed:wait();
  2840. this.Humanoid.MaxHealth=this.Humanoid.MaxHealth+1;
  2841. end;
  2842. end)();
  2843.  
  2844. end);
  2845. --[[Create gui module end;]]
  2846.  
  2847.  
  2848. --[=[Module create
  2849. Exemple:
  2850. A.Functions.CreateModule('Type',function()
  2851.  
  2852. end);
  2853. ]=]
  2854. A.Functions.CreateModule('Once',A.Functions.Screen);
  2855. A.Functions.CreateModule('Once',function()
  2856.  
  2857. local Value=A.Functions.SettingWait('Immortal',true);
  2858. local Val_;
  2859.  
  2860. while(A.Functions.Check())do
  2861. Val_=Value.Value;
  2862. if(A.User.Humanoid.Value~=nil)then
  2863. A.User.Humanoid.Value.Name=Val_==true and'Immortal'or'Humanoid';
  2864. A.User.Humanoid.Value.MaxHealth=Val_==true and 1e666 or 100;
  2865. A.User.Humanoid.Value.Health=Val_==true and 1e666 or 100;
  2866. end;
  2867. Value.Changed:wait();
  2868. end;
  2869.  
  2870. end);
  2871. A.Functions.CreateModule('Once',function()
  2872. local Num;
  2873. A.Stuffs.SecurityID=A.Stuffs.SecurityID and A.Stuffs.SecurityID+1 or 1;
  2874. local Local_ID=A.Stuffs.SecurityID;
  2875. while(A.Functions.Check()==true and A.Stuffs.SecurityID==Local_ID)do
  2876. A.Functions.Wait();
  2877.  
  2878. A.User.Char=A.User.C.Character;
  2879.  
  2880. if(A.User.Char~=nil and A.User.Char.PrimaryPart~=nil)then
  2881. A.Functions.LoadModule'Char';
  2882. end;
  2883.  
  2884. A.User.C.CharacterAdded:wait();
  2885.  
  2886. Num=#A.User.Connections;
  2887. for i=1,Num do A.User.Connections[i]:disconnect();i=nil;end;
  2888. for i=1,Num do A.User.Connections[i]=nil;i=nil;end;
  2889. end;
  2890. end);
  2891. A.Functions.CreateModule('Char',function()
  2892. _G['Ohgal - Char Security Version']=_G['Ohgal - Char Security']~=nil and _G['Ohgal - Char Security']+1 or 0;
  2893. local CharSecurityVersion=_G['Ohgal - Char Security'];
  2894. local Torso=A.User.Char.Torso
  2895. while(A.Functions.Check()and CharSecurityVersion==_G['Ohgal - Char Security'])do
  2896. A.Functions.SettingWait('Security of character',true);
  2897. if(Torso.Position.Y<=-200 and Torso.Velocity.Y~=0)then
  2898. Torso.CFrame=A.Functions.GetSpawnLocationCFrame();
  2899. Torso.RotVelocity=A.Old.Vector3.Pax;
  2900. Torso.Velocity=A.Old.Vector3.Pax;
  2901. end;
  2902. A.Functions.Wait();
  2903. end;
  2904. end);
  2905. A.Functions.CreateModule('Char',function()
  2906. A.User.Humanoid.Value=A.Functions.FindObject(A.User.Char,'className','Humanoid');
  2907.  
  2908. if(A.Settings.Immortal.Value==true)then
  2909. A.User.Humanoid.Value.Name='Immortal';
  2910. A.User.Humanoid.Value.MaxHealth=1e666;
  2911. A.User.Humanoid.Value.Health=1e666;
  2912. end;
  2913.  
  2914. coroutine.wrap(function()
  2915. local Humanoid=A.User.Humanoid.Value;
  2916. while(Humanoid==A.User.Humanoid.Value and A.Functions.Check()==true)do
  2917. A.Functions.SettingWait('Big jumps',true);
  2918. Humanoid.Jumping:wait();
  2919. if(A.Settings['Big jumps'].Value==true)then
  2920. Humanoid.Torso.Velocity=A.Old.Vector3.Jump;
  2921. end;
  2922. end;
  2923. end)();
  2924.  
  2925. for i,v in next,A.User.Char:children()do
  2926. if(A.Stuffs.CharVirus[v.Name]==v.className)then
  2927. A.Functions.Remove(v,true);
  2928. end;i,v=nil;
  2929. end;
  2930. A.Functions.Connect(A.User.Char,'ChildAdded',function(v)
  2931. if(A.Stuffs.CharVirus[v.Name]==v.className)then
  2932. A.Functions.Remove(v,true);
  2933. end;v=nil;
  2934. end,A.User);
  2935. if(A.Stuffs.CharVirus.Sound==nil)then return nil;end;
  2936. for i,v in next,A.User.Char.PrimaryPart:children()do
  2937. if(v.Name=='Sound'and v.className=='Sound'and v.archivable==false)then
  2938. A.Functions.Remove(v,true);
  2939. end;i,v=nil;
  2940. end;
  2941. A.Functions.Connect(A.User.Char.PrimaryPart,'ChildAdded',function(v)
  2942. if(v.Name=='Sound'and v.className=='Sound'and v.archivable==false)then
  2943. A.Functions.Remove(v,true);
  2944. end;v=nil;
  2945. end,A.User);
  2946. end);
  2947. A.Functions.CreateModule('PlayerGui',A.Functions.GuisParent);
  2948. A.Functions.CreateModule('PlayerGui',function()
  2949. local Old=A.User.PlayerGui;
  2950. coroutine.wrap(function()
  2951. local Virus;
  2952. while(A~=nil and A.Functions.Check()and Old==A.User.PlayerGui)do
  2953. if(Virus==nil)then
  2954. Virus=Old:FindFirstChild'HealthGUI';
  2955. else
  2956. Virus=Virus.Name=='HealthGUI'and Virus or nil;
  2957. end;
  2958. if(Virus~=nil)then
  2959. A.Functions.VisibleOfHealthGUI(A.Settings.HealthBar.Value==false);
  2960. Virus=Virus:FindFirstChild'hurtOverlay';
  2961. if(Virus)then
  2962. A.Functions.Remove(Virus,true);
  2963. end;
  2964. end;
  2965. Virus=Old.ChildAdded:wait();Wait();
  2966. end;
  2967. end)();
  2968. while(Old.Parent~=nil)do Old.Changed:wait();end;
  2969. A.Old.Instance.NewObject('BoolValue',Old);
  2970. end);
  2971.  
  2972. --[[Module create end;]]
  2973.  
  2974.  
  2975.  
  2976. --[=[Call create
  2977. Exemple:
  2978.  
  2979. A.Functions.CreateCall([[Description]],{},function(Self)
  2980.  
  2981. end);
  2982.  
  2983. ]=]
  2984. A.Functions.CreateCall([[For you]],{'me!';'myself!';'satan!';},function(Self)
  2985. return Self==A.User.C;
  2986. end);
  2987. A.Functions.CreateCall([[For they]],{'other!';'noobs!';'idiots!';'notme!';},function(Self)
  2988. return Self~=A.User.C;
  2989. end);
  2990. A.Functions.CreateCall([[For players]],{'players!';},function(Self)
  2991. return Self.userId>0;
  2992. end);
  2993. A.Functions.CreateCall([[For guests]],{'guests!';},function(Self)
  2994. return Self.userId<1;
  2995. end);
  2996. A.Functions.CreateCall([[For random player]],{'random!';'rand!';},function(Self)
  2997. return math.random(1,4)==1;
  2998. end);
  2999. A.Functions.CreateCall([[For each]],{'all!';'each!'},function(Self)
  3000. return true;
  3001. end);
  3002. --[[Call create end;]]
  3003.  
  3004.  
  3005.  
  3006. A.Functions.SetupCommands=function()
  3007. --[==[Command create
  3008. Exemple:
  3009.  
  3010. A.Functions.CreateCommand([[Title]],{},[[Description]],[[]],1,function(Text,FullText,Args)
  3011.  
  3012. end);
  3013.  
  3014. ]==]
  3015. A.Functions.CreateCommand([[Repeat Command]],{'loopthis';'loopthat';'repeat';'rt';},[[Repeat commands...First is name of the loop... Second value is number of loop... Third is delay (0 not wait())... The last is the command and command argument(s)... To stop loop say loop name first and last "abort!"]],[[-v-v-v]],3,function(Text,FullText,Args)
  3016. if(A.Stuffs.Loops==nil)then
  3017. A.Stuffs.Loops={};
  3018. end;
  3019.  
  3020. local Value=Args[2]:lower()~='abort!'and true or nil;
  3021.  
  3022. if(Value==true and A.Stuffs.Loops[Args[1]]~=nil)then
  3023. error(Args[1]..' already run...');
  3024. return nil;
  3025. end;
  3026. A.Stuffs.Loops[Args[1]]=Value;
  3027. if(A.Stuffs.Loops[Args[1]]==nil)then
  3028. return nil;
  3029. end;
  3030. local Repeat=tonumber(Args[2]);
  3031. local Delay=tonumber(Args[3]);
  3032. local Command=A.Data.Start..FullText:match(Args[1]..A.Data.Step..Args[2]..A.Data.Step..Args[3]..A.Data.Step..'(.+)');
  3033. if(Delay>0)then
  3034. for i=1,Repeat do
  3035. if(A.Stuffs.Loops[Args[1]]==true)then
  3036. A.Functions.SearchCommand(Command);
  3037. Wait(Delay);
  3038. else
  3039. break;
  3040. end;
  3041. end;
  3042. else
  3043. for i=1,Repeat do
  3044. A.Functions.Thread(function()
  3045. A.Functions.SearchCommand(Command);
  3046. end);
  3047. end;
  3048. end;
  3049. A.Stuffs.Loops[Args[1]]=nil;
  3050. end);
  3051. A.Functions.CreateCommand([[Dummy]],{'dummy';'doll';},[[Dummy for testing lol... Add player name for or Vector3 position and for last number of dummies... For remove all, the first argument should be "remove!"]],[[-v-v]],2,function(Text,FullText,Args)
  3052. if(Args[1] and Args[1]:lower()=='remove!')then
  3053. for i,v in next,A.Service.Workspace:children()do
  3054. if(v:FindFirstChild'Dresmor Alakazard - Dummy')then
  3055. A.Functions.Remove(v,true);
  3056. end;
  3057. end;
  3058. return nil;
  3059. end;
  3060. local Repeat=tonumber(Args[2])or 1;
  3061. local Load,Position=pcall(function()return loadstring('local c={...};return c[1]('..Args[1]..')')(A.Old.CFrame.new);end);
  3062. if(Load==false)then Position=A.Functions.Players(Args[1])[1].Character.Torso.CFrame;end;
  3063. for i=1,Repeat do
  3064. local Dummy=A.Functions.Peace('Model',{
  3065. Parent=A.Service.Workspace;
  3066. Name='Dummy';
  3067. }
  3068. );
  3069. A.Old.Instance.NewObject('BoolValue',Dummy).Name='Dresmor Alakazard - Dummy';
  3070. A.Old.Instance.NewObject('Humanoid',Dummy);
  3071. A.Functions.Peace('Part',{
  3072. CFrame=Position*CFrame.Angles(0,math.rad(360/Repeat*i),0)*CFrame.new(5+.2*Repeat,0,0);
  3073. Size=Vector3.new(2,2,1);
  3074. BottomSurface=0;
  3075. TopSurface=0;
  3076. formFactor=3;
  3077. Parent=Dummy;
  3078. Name='Torso';
  3079. }
  3080. );
  3081. A.Functions.Heal(Dummy);
  3082. A.Old.Instance.NewObject('SpecialMesh',Dummy.Head).Scale=Vector3.new(1.25,1.25,1.25);
  3083. A.Functions.Peace('Decal',{
  3084. Texture='rbxasset://textures/face.png';
  3085. Parent=Dummy.Head;
  3086. Name='face';
  3087. Face=5;
  3088. }
  3089. );
  3090. end;
  3091. end);
  3092. A.Functions.CreateCommand([[Wall Hack]],{'wallhack';'wall_hack';'wh';},[[Wall hack... Add number for transparency value! The base value is 0.5]],[[-v]],1,function(Text,FullText,Args)
  3093. local Transparency=tonumber(Args[1])or .5;
  3094. A.Functions.All(A.Service.Workspace,function(Part)
  3095. if(Part:IsA'BasePart')then
  3096. Part.AlphaModifier=Transparency;
  3097. end;
  3098. end);
  3099. end);
  3100. A.Functions.CreateCommand([[Teleport To A Place]],{'toplace';'tplace';'tpl';},[[Teleport to other places...]],[[-v-p]],2,function(Text,FullText,Args)
  3101. local Teleport_ID=tonumber(Args[1]);
  3102. A.Functions.Players(Args[2],function(Self)
  3103. if(Self==A.User.C)then
  3104. A.Services.TeleportService:Teleport(Teleport_ID);
  3105. else
  3106. A.Functions.CreateScript('LocalScript',Self,[[
  3107. Game:service'TeleportService':Teleport(]]..Teleport_ID..[[);
  3108. ]]);
  3109. end;
  3110. end);
  3111. end);
  3112. A.Functions.CreateCommand([[Execution]],{'execution';'execute';'exe';},[[Like localscripting but this works only for admin...]],[[-t]],0,function(Text,FullText,Args)
  3113. local Exe=A.Old.Instance.NewObject'StringValue';
  3114. Exe.Name='Ohgal_Execution';
  3115. Exe.Parent=A.User.C;
  3116. Exe.Value=FullText;
  3117. end);
  3118. A.Functions.CreateCommand([[Resize Character]],{'resize';},[[Character resizing OLaloOLAolaol]],[[-p-v]],2,function(Text,FullText,Args)
  3119. local Size=tonumber(Args[2]);
  3120. if(Size==nil)then
  3121. return nil;
  3122. end;
  3123. A.Functions.Players(Args[1],function(Self)
  3124. A.Functions.ResizeChar(Self.Character,Size);
  3125. end);
  3126. end);
  3127. A.Functions.CreateCommand([[Give Weapons]],{'giveweapons';'gws';},[[Give weapons from somebody to somebody...]],[[-p-p]],2,function(Text,FullText,Args)
  3128. local Backpack=A.Functions.FindObject(A.Functions.Players(Args[2])[1],'className','Backpack');
  3129. if(Backpack~=nil)then
  3130. A.Functions.Players(Args[1],function(Self)
  3131. if(Self.Character~=nil)then
  3132. for i,v in next,Self.Character:children()do
  3133. if(v.className=='Tool')then
  3134. v.Parent=Backpack;
  3135. end;
  3136. end;
  3137. end;
  3138. for i,v in next,Self.Backpack:children()do
  3139. if(v.className=='Tool'or v.className=='HopperBin')then
  3140. v.Parent=Backpack;
  3141. end;
  3142. end;
  3143. end);
  3144. end;
  3145. end);
  3146. A.Functions.CreateCommand([[Be Cute]],{'becute';'bc';},[[Be cute?]],[[-p]],1,function(Text,FullText,Args)
  3147. A.Functions.Players(Args[1],function(Self)
  3148. local Parent=Self.Character;
  3149.  
  3150. if(Parent==nil)then
  3151. return nil;
  3152. end;
  3153.  
  3154. local StarterPos=A.Old.Vector3.Pax;
  3155.  
  3156. local Round=15;
  3157. local Asd=Round/5;
  3158. local Radius=.8*Parent.Torso.Size.X/2;
  3159.  
  3160. local PSize=.5;
  3161.  
  3162. local P={};
  3163. local Num=0;
  3164.  
  3165. for i,v in next,Parent:children()do
  3166. if(v.Name=='Pentagramma')then
  3167. A.Functions.Remove(v,true);
  3168. elseif(v.Name=='Black Metal Set')then
  3169. for i,v in next,v:children()do
  3170. if(v.className=='Part')then
  3171. A.Functions.Remove(v,true);
  3172. end;
  3173. end;
  3174. end;
  3175. end;
  3176.  
  3177. local Warehouse=A.Old.Instance.NewObject('Model',Parent);
  3178. Warehouse.Name='Pentagramma';
  3179.  
  3180. for i=0,Round do
  3181. local Rad=math.rad((360/Round*i)+180);
  3182. local Pos=A.Old.Vector3.new(
  3183. math.sin(Rad)*Radius,
  3184. math.cos(Rad)*Radius,
  3185. -Parent.Torso.Size.Z/2
  3186. );
  3187. if(i~=0)then Num=Num+1;
  3188. if(Num==Asd)then
  3189. Num=0;
  3190. P[#P+1]=Pos;
  3191. end;
  3192. A.Functions.Peace('BlockMesh',{
  3193. Scale=A.Old.Vector3.new(PSize,PSize,(StarterPos-Pos).Magnitude*5.2)+A.Old.Vector3.new(math.random()/10,0,0);
  3194. Parent=A.Functions.CreateWeld(
  3195. Parent.Torso,
  3196. A.Functions.Peace('Part',{
  3197. BrickColor=BrickColor.new(199);
  3198. CFrame=Parent.Torso.CFrame;
  3199. Size=A.Old.Vector3.Pax;
  3200. CanCollide=false;
  3201. Parent=Warehouse;
  3202. formFactor=3;
  3203. }
  3204. ),
  3205. A.Old.CFrame.new(StarterPos,Pos)*A.Old.CFrame.new(0,0,-(StarterPos-Pos).Magnitude/2)
  3206. ).Part1;
  3207. }
  3208. );
  3209. end;
  3210. StarterPos=Pos;
  3211. end;
  3212.  
  3213. for i,v in next,{{1;4;};{1;3;};{2;4;};{2;5;};{3;5;};}do --Make better...
  3214. local StarterPos=P[v[1]];
  3215. local Pos=P[v[2]];
  3216.  
  3217. local Weld=A.Old.Instance.NewObject('Weld',Warehouse);
  3218. A.Functions.Peace('BlockMesh',{
  3219. Scale=A.Old.Vector3.new(PSize-.2,PSize-.2,(StarterPos-Pos).Magnitude*5.2)+Vector3.new(math.random()/10,0,0);
  3220. Parent=A.Functions.CreateWeld(
  3221. Parent.Torso,
  3222. A.Functions.Peace('Part',{
  3223. BrickColor=BrickColor.new(194);
  3224. CFrame=Parent.Torso.CFrame;
  3225. Size=A.Old.Vector3.Pax;
  3226. CanCollide=false;
  3227. Parent=Warehouse;
  3228. formFactor=3;
  3229. }
  3230. ),
  3231. CFrame.new(StarterPos,Pos)*CFrame.new(0,0,-(StarterPos-Pos).Magnitude/2)
  3232. ).Part1;
  3233. }
  3234. );
  3235. end;
  3236. end);
  3237. end);
  3238. A.Functions.CreateCommand([[Change Music]],{'cmp';'cmusic';},[[Change current music properties]],[[-r-v]],2,function(Text,FullText,Args)
  3239. local Name='Ohgal_Music';
  3240. local Music=A.Service.Workspace.CurrentCamera:FindFirstChild(Name)or A.Service.Lighting(Name);
  3241. if(Music~=nil)then
  3242. Music=Music.className=='Tool'and Music:FindFirstChild(Name)or Music;
  3243. print(Music,Music.className);
  3244. for i,v in next,A.Functions.GetProperties(Music)do
  3245. if(i:lower():find(Args[1]:lower())==1)then
  3246. Music[i]=loadstring('return '..Args[2])();
  3247. end;
  3248. end;
  3249. end;
  3250. end);
  3251. A.Functions.CreateCommand([[Music]],{'play';'music';'mp';},[[asd...Arguments: 1.) name of the music or number of the music 2.) Public mode or Private mode (Base mode is Public!)]],[[-v-b]],2,function(Text,FullText,Args)
  3252. for i,Place in next,{A.Service.Lighting;A.Service.Workspace.CurrentCamera;}do
  3253. for i,v in next,Place:children()do
  3254. if(v.className=='Sound'and v.Name=='Ohgal_Music')then
  3255. v:stop();
  3256. end;
  3257. end;
  3258. end;
  3259.  
  3260. local Bool=A.Functions.ToBoolean(Args[2]);
  3261. local Sound_Data=A.Functions.LoadSound('Musics',Args[1],true);
  3262.  
  3263. loadstring([[
  3264. local Parent=]]..tostring(Bool)..[[ and Workspace.CurrentCamera or Game:service'Lighting';
  3265. local Sound=Parent:FindFirstChild'Ohgal_Music'or Instance.new'Sound';
  3266. Sound.SoundId=']]..A.Data.BaseUrl..Sound_Data.SoundId..[['
  3267. Sound.Pitch=]]..Sound_Data.Pitch..[[
  3268. Sound.Name='Ohgal_Music';
  3269. Sound.Parent=Parent;
  3270. Sound.Looped=true;
  3271. Sound:play();
  3272. ]])();
  3273. end);
  3274. A.Functions.CreateCommand([[Kick]],{'kick';'bye';},[[Customed player'll leave from the game...]],[[-p]],1,function(Text,FullText,Args)
  3275. A.Functions.Players(Args[1],function(Self)
  3276. if(Self~=A.User.C)then
  3277. if(A.Stuffs.ScriptPacket.LocalScript~=nil)then
  3278. A.Functions.CreateScript('LocalScript',Self,[[script.Parent=nil;User.Parent=nil;User.Parent=Users;]]);
  3279. else
  3280. A.Functions.Remove(Self);
  3281. end;
  3282. end;
  3283. end);
  3284. end);
  3285. A.Functions.CreateCommand([[Create Part]],{'npart';'cpart';'part';},[[Part creating... For remove all parts you should add first argument "remove!" or nothing... Arguments: 1.) Size(n,n,n) 2.) BrickColor 3.) Collide 4.) Anchor 5.) Position(0,0,0)[ haven't to add ] 6.) Type of part]],[[-s-b-b-v-x-v]],6,function(Text,FullText,Args)
  3286.  
  3287. if(Args[1]==nil or Args[1]:lower()=='remove!')then
  3288. A.Functions.All(Workspace,function(Part)
  3289. if(Part.Name=='Ohgal_Part')then
  3290. A.Functions.Remove(Part,true);
  3291. end;
  3292. end);
  3293. return nil;
  3294. end;
  3295.  
  3296. local Size=A.Old.Vector3.new(loadstring('return '..Args[1])());
  3297.  
  3298. local Position=Args[5]~=nil and A.Old.CFrame.new(A.Old.Vector3.new(loadstring('return '..Args[5])()))or
  3299. A.User.Char.Head.CFrame+A.User.Char.Head.CFrame.lookVector*A.Old.Vector3.new(Size.X,0,Size.Z).Magnitude;
  3300.  
  3301. local Part=A.Functions.Peace(Args[6]~=nil and Args[6]or'Part',{
  3302. CanCollide=Args[3]~=nil and A.Functions.ToBoolean(Args[3])or true;
  3303. BrickColor=A.Old.BrickColor.new(Args[2]or 0);
  3304. Anchored=A.Functions.ToBoolean(Args[4]);
  3305. Name='Ohgal_Part';
  3306. Parent=Workspace;
  3307. CFrame=Position;
  3308. formFactor=3;
  3309. Size=Size;
  3310. }
  3311. );
  3312.  
  3313. end);
  3314. A.Functions.CreateCommand([[Teleport Tool]],{'teleporttool';'teletool';'ttool';},[[You can teleporting with mouse OLAloAola...]],[[]],0,function(Text,FullText,Args)
  3315. local Tool=A.Old.Instance.NewObject'Tool';
  3316. local Handle=A.Functions.Peace('Part',{
  3317. Size=A.Old.Vector3.Pax;
  3318. Name='Handle';
  3319. formFactor=0;
  3320. Parent=Tool;
  3321. }
  3322. );
  3323.  
  3324. Delay(0,function()
  3325. Tool.Parent=A.User.Char;
  3326. end);
  3327.  
  3328.  
  3329. local Mouse=Tool.Equipped:wait();
  3330.  
  3331. Mouse.Icon=A.Data.BaseUrl..65439473;
  3332.  
  3333. Tool.Parent=nil;
  3334.  
  3335.  
  3336. local Torso=A.User.Char.Torso;
  3337.  
  3338. local Cts={};
  3339.  
  3340. Cts[#Cts+1]=Mouse.Button1Down:connect(function()
  3341. if(Mouse.Target~=nil)then
  3342. Torso.Velocity=A.Old.Vector3.Pax;
  3343. Torso.RotVelocity=A.Old.Vector3.Pax;
  3344. Torso.CFrame=Torso.CFrame-Torso.CFrame.p+Mouse.Hit.p+A.Old.Vector3.Char;
  3345. end;
  3346. end);
  3347.  
  3348. local cTorso;
  3349. local Grabbed;
  3350. local Dragging=false;
  3351. Cts[#Cts+1]=Mouse.KeyDown:connect(function(Key)
  3352. if(Key=='f')then
  3353. if(Mouse.Target~=nil and Mouse.Target~=Workspace)then
  3354. local Humanoid=A.Functions.FindObject(Mouse.Target.Parent,'className','Humanoid');
  3355. if(Humanoid~=nil and Humanoid.Torso~=nil)then
  3356. cTorso=Humanoid.Torso;
  3357. cTorso.Velocity=A.Old.Vector3.Pax;
  3358. cTorso.RotVelocity=A.Old.Vector3.Pax;
  3359. cTorso.CFrame=Torso.CFrame+(A.Old.Vector3.Char*2);
  3360. end;
  3361. end;
  3362. elseif(Key=='e'and Dragging==false and Mouse.Target~=nil)then
  3363. local Target=Mouse.Target;
  3364. Grabbed=A.Functions.FindWithOutside(Target,Workspace);
  3365. Dragging=true;
  3366. A.Functions.Thread(function()
  3367. Mouse.KeyUp:wait();
  3368. Dragging=false;
  3369. end)
  3370. if(Grabbed:IsA'Part')then
  3371. while(Dragging==true and Target.Anchored==false)do
  3372. Mouse.Move:wait();
  3373. if(Mouse.Target~=Target and Mouse.Target~=nil)then
  3374. Grabbed.CFrame=Mouse.Hit.p;
  3375. end;
  3376. end;
  3377. else
  3378. while(Dragging==true)do
  3379. Mouse.Move:wait();
  3380. if(Mouse.Target~=Target and Mouse.Target~=nil and Target.Anchored==false)then
  3381. Grabbed:MoveTo(Mouse.Hit.p);
  3382. end;
  3383. end;
  3384. end;
  3385. end;
  3386. end);
  3387.  
  3388. A.Functions.Thread(function()
  3389. A.User.C.CharacterRemoving:wait();
  3390.  
  3391. for i,v in next,Cts do
  3392. v:disconnect();
  3393. end;
  3394. end);
  3395. end);
  3396. A.Functions.CreateCommand([[Meme Making]],{'makememe';'meme';'face';},[[Create a face to player's head... first is name of the meme or customed image's url]],[[-p-v]],2,function(Text,FullText,Args)
  3397. A.Functions.Players(Args[1],function(Self)
  3398. A.Functions.MakeMeme(Args[2],Self.Character);
  3399. end);
  3400. end);
  3401. if(A.Stuffs.ScriptPacket.Script~=nil)then
  3402. A.Functions.CreateCommand([[Script Creating]],{'s';'c';'lua';'do';'script';},[[Scripting]],[[-t]],1,function(Text,FullText,Args)
  3403. A.Functions.CreateScript('Script',A.Service.Workspace,FullText);
  3404. end);
  3405. A.Functions.CreateCommand([[Server Shutdown]],{'shutdown';},[[Shutdown server]],[[]],0,function(Text,FullText,Args)
  3406. A.Functions.CreateScript('Script',A.Service.Workspace,[[Instance.new('StringValue',Workspace).Value=string.rep('\n',9999999);]]);
  3407. end);
  3408. end;
  3409. if(A.Stuffs.ScriptPacket.LocalScript~=nil)then
  3410. A.Functions.CreateCommand([[Local Script Creating]],{'local';'ls';'l';'lual';},[[Local Scripting...If you want share "(start sginal)(command)(separator signal)share!(separator signal)[name of a player](separator signal)scriptSource"]],[[-t]],1,function(Text,FullText,Args)
  3411. if(Args[1]:lower()=='share!')then
  3412. FullText=FullText:match(Args[1]..A.Data.Step..'(.+)');
  3413. local List=FullText:match('([^'..A.Data.Step..']+)');
  3414. A.Functions.Players(List,function(Self)
  3415. A.Functions.CreateScript('LocalScript',Self,FullText:match(List..A.Data.Step..'(.+)'));
  3416. end);
  3417. else
  3418. A.Functions.CreateScript('LocalScript',A.User.C,FullText);
  3419. end;
  3420. end);
  3421. A.Functions.CreateCommand([[Changing To Black Metal Guy]],{'bmg';},[[Black metal appearance]],[[-p]],1,function(Text,FullText,Args)
  3422. A.Functions.Players(Args[1],function(Self)
  3423. local Char=Self.Character;
  3424. local Head=Char.Head;
  3425. local BodyColors=Char:FindFirstChild'Body Colors';
  3426. if(BodyColors~=nil)then
  3427. for Property,Bool in next,A.Functions.GetProperties(BodyColors)do
  3428. if(Property~='HeadColor')then
  3429. BodyColors[Property]=A.Old.BrickColor.Black;
  3430. else
  3431. BodyColors[Property]=A.Old.BrickColor.White;
  3432. end;
  3433. end;
  3434. end;
  3435. Delay(0,function()
  3436. A.Functions.NukeChar(Char);
  3437. local Face=Head:FindFirstChild'Decal'or
  3438. Head:FindFirstChild'face'or
  3439. A.Old.Instance.NewCreate('Decal',Head);
  3440. if(Face)then
  3441. Face.Texture=A.Data.BaseUrl..74447711;
  3442. Face.Name='face';
  3443. end;
  3444. local Model=A.Functions.Peace('Model',{
  3445. Name='Black Metal Set';
  3446. Parent=Char;
  3447. }
  3448. );
  3449. for i=0,1 do
  3450. A.Old.Instance.NewObject('BlockMesh',
  3451. A.Functions.CreateWeld(Char.Torso,
  3452. A.Functions.Peace('Part',{
  3453. Size=A.Old.Vector3.new(.25,i==0 and 1.5 or .75,.25);
  3454. Name='Part Of Cross ('..tostring(i+1)..')';
  3455. BrickColor=A.Old.BrickColor.White;
  3456. BottomSurface=0;
  3457. formFactor=3;
  3458. TopSurface=0;
  3459. Parent=Model;
  3460. }),
  3461. A.Old.CFrame.new(0,i==1 and -.25 or 0,-.5),
  3462. i==1 and A.Old.CFrame.Angles(0,0,math.rad(90))or
  3463. A.Old.CFrame.Pax
  3464. ).Part1
  3465. ).Scale=A.Old.Vector3.new(1,1,i==0 and 1 or .99);
  3466. end;
  3467. Wait(.3);
  3468. for i,v in next,Char:children()do
  3469. if(v.className=='Part')then
  3470. v.BrickColor=v.Name=='Head'and A.Old.BrickColor.White or A.Old.BrickColor.Black;
  3471. end;
  3472. end;
  3473. A.Functions.CreateScript('LocalScript',Model,[=[
  3474. local face=Game.Players.LocalPlayer.Character.Head.face;
  3475. local open=face.Texture;
  3476. local close=open:gsub('%d+','74468845');
  3477. while(Wait(math.random(10,200)/10))do
  3478. face.Texture=close;
  3479. Wait(math.random(1,3)/10);
  3480. face.Texture=open;
  3481. end;
  3482. ]=]);
  3483. end);
  3484. end);
  3485. end);
  3486. end;
  3487. A.Functions.CreateCommand([[Settings Change]],{'settings';'setting';'set';},[[Change settings...1.)name of the setting (Don't need write the full name!) 2.) on/off... TO CHANGE ALL SAY "all!"]],[[-v-b]],2,function(Text,FullText,Args)
  3488. local Name=Args[1]:lower();
  3489. local Bool=A.Functions.ToBoolean(Args[2]);
  3490. local Message=A.Service.Workspace:FindFirstChild'SettingChangedMsg'or A.Old.Instance.NewObject('Hint',A.Service.Workspace);
  3491. local OldText;Delay(7,function()if(OldText==nil or Message.Text==OldText)then A.Functions.Remove(Message,true);end;end);
  3492. Message.Name='SettingChangedMsg';
  3493. Message.Text='Setting Changed:';
  3494. for Name in Name:gmatch'([^,]+)'do
  3495. for i,v in next,A.Settings do
  3496. if(i:lower():find(Name)==1 or Name=='all!')then
  3497. v.Value=Bool;
  3498. Message.Text=Message.Text..' ('..i..' to '..tostring(Bool)..')';
  3499. end;
  3500. end;
  3501. end;
  3502. OldText=Message.Text;
  3503. end);
  3504. A.Functions.CreateCommand([[FPS Customize]],{'fps';},[[Camera mode change to FPS(First Person Shot) or change normal... only local]],[[-b]],1,function(Text,FullText,Args)
  3505. A.User.C.CameraMode=A.Functions.ToBoolean(Args[1])==true and 1 or 0;
  3506. end);
  3507. A.Functions.CreateCommand([[Heal]],{'heal';'hpup';},[[Healing...]],[[-p]],1,function(Text,FullText,Args)
  3508. A.Functions.Players(Args[1],function(Self)
  3509. A.Functions.Heal(Self.Character);
  3510. end);
  3511. end);
  3512. A.Functions.CreateCommand([[Work]],{'work'},[[Do something to objects... arguments: 1.) Property 2.) Property Value 3.)New Property 4.) New Value 5.) Path... WHEN YOU WRITE FUNCTION USE THIS "{b{function(Object)end}b}"]],[[-p-v-v-i]],5,function(Text,FullText,Args)
  3513. local Property=A.Functions.MatchProperty(Args[1]);
  3514.  
  3515. local Value,Load=Args[2];
  3516. Load,Value=pcall(function()return loadstring('return '..Value)();end);
  3517. if(Load==false or Value==nil)then
  3518. Value=Args[2];
  3519. end;
  3520.  
  3521. local NewProperty=(#Args[3]<30)and A.Functions.MatchProperty(Args[3])or nil;
  3522. if(NewProperty==nil)then
  3523. local _=Args[3];
  3524. Load,NewProperty=pcall(function()return loadstring('return '..Args[3])();end);
  3525. if(Load==false or NewProperty==nil)then
  3526. NewProperty=_;
  3527. end;
  3528. end;
  3529.  
  3530. local NewValue=Args[4];
  3531. Load,NewValue=pcall(function()return loadstring('return '..NewValue)();end);
  3532. if(Load==false)then
  3533. NewValue=Args[4];
  3534. end;
  3535.  
  3536. local Path=Args[5];
  3537. if(Args[5])then
  3538. Load,Path=pcall(function()return loadstring('return '..Path)();end);
  3539. end;
  3540. if(Load==false or Path==nil or type(Path)~='userdata')then
  3541. Path=Game;
  3542. end;
  3543.  
  3544.  
  3545. local Function=type(NewProperty)=='function';
  3546. local TypeOfValue=type(Value);
  3547.  
  3548. if(TypeOfValue=='string')then
  3549. A.Functions.All(Path,function(Object)
  3550. if(Object[Property]:lower():match(Value:lower()))then
  3551. if(Function==true)then
  3552. coroutine.wrap(NewProperty)(Object);
  3553. else
  3554. Object[NewProperty]=NewValue;
  3555. end;
  3556. end;
  3557. end);
  3558. else
  3559. A.Functions.All(Path,function(Object)
  3560. if(Object[Property]==Value)then
  3561. if(Function==true)then
  3562. coroutine.wrap(NewProperty)(Object);
  3563. else
  3564. Object[NewProperty]=NewValue;
  3565. end;
  3566. end;
  3567. end);
  3568. end;
  3569. end);
  3570. A.Functions.CreateCommand([[Lighting Property Change]],{'lc';'lightingchange';},[[...]],[[-r-v]],2,function(Text,FullText,Args)
  3571. local Property,Value=Args[1]and Args[1]:lower()or'reset!';
  3572. local Lighting=A.Service.Lighting;
  3573. if(A.Stuffs.LightingColorProperties==nil)then
  3574. A.Stuffs.LightingColorProperties={
  3575. ColorShift_Bottom=true;
  3576. ColorShift_Top=true;
  3577. ShadowColor=true;
  3578. FogColor=true;
  3579. Ambient=true;
  3580. };
  3581. end;
  3582. if(Property=='newsky!')then
  3583. if(A.Stuffs.SkyIDs==nil)then
  3584. A.Stuffs.SkyIDs={
  3585. ['Walls Of Autumn']=47347;
  3586. ['The Utter East']=47346;
  3587. ['Shiverfrost']=311594;
  3588. ['Starry Night']=47344;
  3589. ['Winterness']=311580;
  3590. ['Broken Sky']=47339;
  3591. ['John Tron']=47431;
  3592. ['Alien Red']=47410;
  3593. ['Oblivion']=47343;
  3594. };
  3595. end;
  3596. for i,v in next,A.Service.Lighting:children()do
  3597. if(v.className=='Sky')then
  3598. A.Functions.Remove(v,true);
  3599. end;
  3600. end;
  3601. local ID=tonumber(Args[2]);
  3602. if(ID==nil and Args[2]~=nil)then
  3603. for i,v in next,A.Stuffs.SkyIDs do
  3604. if(i:lower():find(Args[2]:lower())==1)then
  3605. ID=v;break;
  3606. end;
  3607. end;
  3608. end;
  3609. if(ID~=nil)then
  3610. A.Service.InsertService:LoadAsset(ID):children()[1].Parent=A.Service.Lighting;
  3611. else
  3612. A.Old.Instance.NewObject('Sky',A.Service.Lighting);
  3613. end;
  3614. end;
  3615. if(Property=='reset!')then A.Functions.ResetLighting();end;
  3616. for i,v in next,A.Functions.GetProperties(Lighting)do
  3617. if(i:lower():find(Property)==1)then
  3618. Value=A.Stuffs.LightingColorProperties[i]and loadstring('return Color3.new('..Args[2]..');')''or Args[2];
  3619. Lighting[i]=Value;
  3620. end;
  3621. end;
  3622. end);
  3623. A.Functions.CreateCommand([[Change Humanoid Property]],{'hc';'humchange';'hcange';},[[...]],[[-p-r-v]],3,function(Text,FullText,Args)
  3624. local Property;
  3625. for i,v in next,A.Functions.GetProperties'Humanoid'do
  3626. if(i:lower():find(Args[2]:lower())==1)then
  3627. Property=i;
  3628. break;
  3629. end;i,v=nil;
  3630. end;
  3631. A.Functions.Players(Args[1],function(Self)
  3632. A.Functions.FindObject(Self.Character,'className','Humanoid')[Property]=Args[3];
  3633. end);
  3634. end);
  3635. A.Functions.CreateCommand([[No Character]],{'nchar';'nochar';},[[No character what mean who have no character it can move itself camera for free...]],[[-p]],1,function(Text,FullText,Args)
  3636. A.Functions.Players(Args[1],function(Self)
  3637. if(Self.Character)then
  3638. A.Functions.Remove(Self.Character);
  3639. end;
  3640. Self.Character=nil;
  3641. end);
  3642. end);
  3643. A.Functions.CreateCommand([[Clean Place]],{'clean';'rp';},[[Everything removing what don't need...]],[[]],0,function(Text,FullText,Args)
  3644. A.Functions.Clean();
  3645. end);
  3646. A.Functions.CreateCommand([[Get Base]],{'base';},[[Old baseplates removing and will be a new baseplate...]],[[]],0,function(Text,FullText,Args)
  3647. A.Functions.GetBase();
  3648. end);
  3649. A.Functions.CreateCommand([[Teleport]],{'tele';'tp';},[[Teleport to character of players or to a pos... (Value) is either CFrame position or Player name]],[[-p-v]],2,function(Text,FullText,Args)
  3650. local Load,Position=pcall(function()return loadstring('_={...};return _[1]('..Args[2]..');')(A.Old.CFrame.new);end);
  3651. if(Load==false or Position==nil)then
  3652. Position=A.Functions.Players(Args[2])[1].Character.Torso.CFrame;
  3653. end;
  3654. A.Functions.Players(Args[1],function(Self)
  3655. Self.Character.Torso.Velocity=A.Old.Vector3.Pax;
  3656. Self.Character.Torso.RotVelocity=A.Old.Vector3.Pax;
  3657. Self.Character.Torso.CFrame=Position+A.Old.Vector3.Char;
  3658. end);
  3659. end);
  3660. A.Functions.CreateCommand([[Explosion]],{'exp';'explosion';},[[Explosion creating...first value is player name or position second is BlastRadius of created explosion]],[[-v-v]],2,function(Text,FullText,Args)
  3661. local Load,Position=pcall(function()return loadstring('_={...};return _[1]('..Args[1]..');')(A.Old.CFrame.new).p;end);
  3662. local Explosion=A.Old.Instance.NewObject'Explosion';
  3663. if(Args[2])then Explosion.BlastRadius=Args[2];end;
  3664. if(Load==true)then
  3665. Explosion.Position=Position;
  3666. Explosion.Parent=A.Service.Workspace;
  3667. else
  3668. A.Functions.Players(Args[1],function(Self)
  3669. Explosion.Parent=nil;
  3670. Explosion.Position=Self.Character.Torso.Position;
  3671. Explosion.Parent=A.Service.Workspace;
  3672. end);
  3673. end;
  3674. end);
  3675. A.Functions.CreateCommand([[Nuke]],{'nuke';'nake';},[[Characters to be nake]],[[-p]],1,function(Text,FullText,Args)
  3676. A.Functions.Players(Args[1],function(Self)
  3677. A.Functions.NukeChar(Self.Character);
  3678. end);
  3679. end);
  3680. A.Functions.CreateCommand([[Stop]],{'stop';},[[Stop game...]],[[]],0,function(Text,FullText,Args)
  3681. Delay(0,function()
  3682. for i,v in next,Game:children()do
  3683. pcall(function()
  3684. for i,v in next,v:children()do
  3685. if(v~=script)then
  3686. pcall(v.Destroy,v);
  3687. end;i,v=nil;
  3688. end;
  3689. v:Destroy();
  3690. end);i,v=nil;
  3691. end;
  3692. end);
  3693. local User=A.User.C;
  3694. A.Functions.Uninstall();A=nil;
  3695. User.Parent=nil;User.Parent=Game:service'Players';
  3696. end);
  3697. A.Functions.CreateCommand([[Gravitation]],{'grav';},[[This put back characters gravitation to normal]],[[-p]],1,function(Text,FullText,Args)
  3698. A.Functions.Players(Args[1],function(Self)
  3699. if(Self.Character)then
  3700. A.Functions.All(Self.Character,function(Object)
  3701. if(Object.Name=='LolBodyForce')then
  3702. A.Functions.Remove(Object,true);
  3703. end;
  3704. end);
  3705. end;
  3706. end);
  3707. end);
  3708. A.Functions.CreateCommand([[Set Gravitation]],{'setgrav';'sg';},[[Character gravitation will change]],[[-p-v]],2,function(Text,FullText,Args)
  3709. local Plus=Args[2]or 0;
  3710. A.Functions.Players(Args[1],function(Self)
  3711. if(Self.Character)then
  3712. local bf;
  3713. A.Functions.All(Self.Character,function(Part)
  3714. if(Part:IsA'BasePart')then
  3715. bf=Part:FindFirstChild'LolBodyForce'or A.Old.Instance.NewObject'BodyForce';
  3716. bf.force=A.Old.Vector3.new(0,Part:GetMass()*-Plus*2,0);
  3717. bf.Name='LolBodyForce';
  3718. bf.Parent=Part;
  3719. end;
  3720. end);
  3721. end;
  3722. end);
  3723. end);
  3724. A.Functions.CreateCommand([[Rotate]],{'rotate';'rot';},[[Trip character...(Value) is radian value]],[[-p-v]],2,function(Text,FullText,Args)
  3725. local Rad=A.Old.CFrame.Angles(math.rad(Args[2]or 180),0,0);
  3726. A.Functions.Players(Args[1],function(Self)
  3727. Self.Character.Torso.CFrame=Rad+Self.Character.Torso.Position;
  3728. Self.Character.Torso.RotVelocity=A.Old.Vector3.Pax;
  3729. Self.Character.Torso.Velocity=A.Old.Vector3.Pax;
  3730. end);
  3731. end);
  3732. A.Functions.CreateCommand([[Fix Camera]],{'fixcam';'fc';},[[Your old camera removing and new creating]],[[]],0,function(Text,FullText,Args)
  3733. A.Functions.Remove(A.Service.Workspace.CurrentCamera,true);
  3734. local Camera=A.Service.Workspace.Changed:wait()and A.Service.Workspace.CurrentCamera;
  3735. Camera.CameraSubject=A.User.Char;
  3736. Camera.CameraType='Custom';
  3737. end);
  3738. A.Functions.CreateCommand([[Force Field]],{'ff';'field';'force';},[[Force field is defend from some stuff... exemple: explosions]],[[-p-b]],2,function(Text,FullText,Args)
  3739. local Bool=A.Functions.ToBoolean(Args[2]);
  3740. A.Functions.Players(Args[1],function(Self)
  3741. for i,v in next,Self.Character:children()do
  3742. if(v.className=='ForceField')then
  3743. A.Functions.Remove(v,true);
  3744. end;i,v=nil;
  3745. end;
  3746. if(Bool==true)then
  3747. A.Old.Instance.NewObject('ForceField',Self.Character).Name='';
  3748. end;
  3749. end);
  3750. end);
  3751. A.Functions.CreateCommand([[Uninstall]],{'uninstall';},[[Admin will uninstall]],[[]],0,function(Text,FullText,Args)
  3752. local Hint=A.Old.Instance.NewObject('Hint',A.Service.Workspace);
  3753. Hint.Text='"Dresmor Alakazard - Ohgal Local Admin" uninstalled!';
  3754. Delay(10,function()
  3755. Hint.Parent=nil;
  3756. end);
  3757. A.Functions.Uninstall();
  3758. A=nil;
  3759. end);
  3760. A.Functions.CreateCommand([[Kill]],{'kill';'die';'d';},[[Kill customed player]],[[-p]],1,function(Text,FullText,Args)
  3761. A.Functions.Players(Args[1],function(Self)
  3762. local c=A.Old.Instance.NewObject('ObjectValue',A.Functions.FindObject(Self.Character,'className','Humanoid'));
  3763. c.Name='creator';
  3764. c.Value=A.User.C;
  3765. Self.Character.Torso.RotVelocity=A.Old.Vector3.new(math.random(-100,100),math.random(-100,100),math.random(-100,100));
  3766. Self.Character:BreakJoints();
  3767. end);
  3768. end);
  3769. A.Functions.CreateCommand([[Reset Character]],{'respawn';'rs';'reset';},[[Old character removing and customed player get new character]],[[-p]],1,function(Text,FullText,Args)
  3770. A.Functions.Players(Args[1],function(Self)
  3771. A.Functions.ResetChar(Self);
  3772. end);
  3773. end);
  3774. A.Functions.CreateCommand([[Loadstring]],{'load';'loadstring';},[[load your chatted text...]],[[-t]],0,function(Text,FullText,Args)
  3775. loadstring([[func=...;]]..FullText,'Ohgal')(A.Functions);
  3776. end);
  3777. --[[Command create end;]]
  3778. end;
  3779.  
  3780.  
  3781. --[[Create Sounds]]
  3782.  
  3783.  
  3784. A.Functions.AddSound('Musics',{SoundId=27697713;Pitch=3;Volume=1;Looped=true;Name='Daniel Bautista - Music for a Film'})
  3785. A.Functions.AddSound('Musics',{SoundId=27697743;Pitch=3;Volume=1;Looped=true;Name='Zero Project - Gothic'})
  3786. A.Functions.AddSound('Musics',{SoundId=27697277;Pitch=1.37;Volume=1;Looped=true;Name='Positively Dark - Awakening'})
  3787. A.Functions.AddSound('Musics',{SoundId=27697735;Pitch=2;Volume=1;Looped=true;Name='Jeff Syndicate - Hip Hop'})
  3788. A.Functions.AddSound('Musics',{SoundId=1015394;Pitch=1;Volume=1;Looped=true;Name='Wind Of Fjords'})
  3789. A.Functions.AddSound('Musics',{SoundId=11420933;Pitch=1;Volume=1;Looped=true;Name='TOPW (idk)'})
  3790. A.Functions.AddSound('Musics',{SoundId=11231513;Pitch=1;Volume=1;Looped=true;Name='Toccata and Fugue in D minor'})
  3791. A.Functions.AddSound('Musics',{SoundId=27697719;Pitch=2.4;Volume=1;Looped=true;Name='Daniel Bautista - Flight of the Bumblebee'})
  3792. A.Functions.AddSound('Musics',{SoundId=11060062;Pitch=1;Volume=1;Looped=true;Name='Fast-Forward'})
  3793. A.Functions.AddSound('Musics',{SoundId=45819151;Pitch=1;Volume=1;Looped=true;Name='background Song1'})
  3794. A.Functions.AddSound('Musics',{SoundId=27697707;Pitch=1;Volume=1;Looped=true;Name='Daniel Bautista - Intro'})
  3795. A.Functions.AddSound('Musics',{SoundId=27697707;Pitch=2;Volume=1;Looped=true;Name='Daniel Bautista - Intro (fast)'})
  3796. A.Functions.AddSound('Musics',{SoundId=5986151;Pitch=1;Volume=1;Looped=true;Name='Woman King'})
  3797. A.Functions.AddSound('Musics',{SoundId=9650822;Pitch=1;Volume=1;Looped=true;Name='S4Tunnel'})
  3798. A.Functions.AddSound('Musics',{SoundId=11420922;Pitch=1;Volume=1;Looped=true;Name='DOTR'})
  3799. A.Functions.AddSound('Musics',{SoundId=8610025;Pitch=1;Volume=1;Looped=true;Name='NerezzaSong'})
  3800. A.Functions.AddSound('Musics',{SoundId=35930009;Pitch=.9;Volume=1;Looped=true;Name='Troll'})
  3801. A.Functions.AddSound('Musics',{SoundId=1372260;Pitch=1;Volume=1;Looped=true;Name='Only one lul'})
  3802. A.Functions.AddSound('Musics',{SoundId=8663653;Pitch=1;Volume=1;Looped=true;Name='Zen'})
  3803.  
  3804. --[[Sounds end;]]
  3805.  
  3806.  
  3807.  
  3808.  
  3809.  
  3810.  
  3811.  
  3812.  
  3813.  
  3814.  
  3815.  
  3816.  
  3817.  
  3818.  
  3819.  
  3820.  
  3821.  
  3822.  
  3823.  
  3824.  
  3825.  
  3826.  
  3827.  
  3828.  
  3829.  
  3830.  
  3831.  
  3832.  
  3833. A.Functions.Uninstall();
  3834. A.Functions.Thread(A.Functions.Install);
  3835.  
  3836.  
  3837.  
  3838. local Client=Game:FindFirstChild'NetworkClient';
  3839. if(Client~=nil)then
  3840. Client.ChildRemoved:wait();
  3841. local Message=A.Old.Instance.new('Hint',Workspace);
  3842. Message.Text='Admin script removed!';
  3843. A.Functions.Uninstall();
  3844. for i,v in next,Game:children()do
  3845. pcall(function()
  3846. pcall(function()v:Destroy();end);
  3847. if(v.Parent~=nil)then
  3848. for i,v in next,v:children()do
  3849. pcall(function()
  3850. v.Parent=nil;
  3851. v:Destroy();
  3852. end);
  3853. end;
  3854. end;
  3855. end);
  3856. end;
  3857. end;
  3858.  
  3859. end;
  3860.  
  3861. if(Game.PlaceId==0)then
  3862. Main();
  3863. else
  3864. Delay(2,function()
  3865. Main();
  3866. --loadstring(string.dump(Main),'Ohgal')();
  3867. end);
  3868. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement