Advertisement
leaspect489

Untitled

Jan 23rd, 2016
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 118.37 KB | None | 0 0
  1. Rise_Ohgal=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. A.Functions.Remove(v,true);
  1615. end;i,v=nil;
  1616. end;
  1617. end;
  1618. end);i,v=nil;
  1619. end;
  1620. end;
  1621. A.Functions.ResetLighting=function()
  1622. local Lighting=A.Service.Lighting;
  1623. if(A.Stuffs.LightingBaseProperties==nil)then
  1624. A.Stuffs.LightingBaseProperties={
  1625. ShadowColor=A.Old.Color3.new(.7,.7,.72);
  1626. FogColor=A.Old.Color3.new(.75,.75,.75);
  1627. ColorShift_Bottom=A.Old.Color3.Black;
  1628. GeographicLatitude=41.733299255371;
  1629. ColorShift_Top=A.Old.Color3.Black;
  1630. Ambient=A.Old.Color3.Grey;
  1631. Brightness=1;
  1632. FogEnd=1e6;
  1633. FogStart=0;
  1634. };
  1635. end;
  1636. for i,v in next,A.Stuffs.LightingBaseProperties do
  1637. Lighting[i]=v;i,v=nil;
  1638. end;
  1639. pcall(Lighting.ClearAllChildren,Lighting);
  1640. end;
  1641. A.Functions.ExplorerGui=function()
  1642. local Win=A.Functions.GiveWindow('Explorer',440,400);
  1643. if(Win==nil)then
  1644. return nil;
  1645. end;
  1646.  
  1647. Win.Frames={};
  1648.  
  1649. Win.CountThis=A.Functions.Value('Object',Game,function(Value)
  1650. if(Win.Frames.Explorer.SetPos.Value==0)then
  1651. Win.Frames.Explorer.Count(0,Value);
  1652. else
  1653. Win.Frames.Explorer.SetPos.Value=0;
  1654. end;
  1655. end);
  1656. Win.WatchingObject=A.Functions.Value('Object',Game,function(Value)
  1657. if(Win.Frames.Properties.SetPos.Value==0)then
  1658. Win.Frames.Properties.Count(0,Value);
  1659. else
  1660. Win.Frames.Properties.SetPos.Value=0;
  1661. end;
  1662. end);
  1663.  
  1664. local Cnr={};
  1665.  
  1666. Win.History={Game;};
  1667. Win.HistoryPos=1;
  1668.  
  1669. for i=0,1 do
  1670. local Plus=i==0 and -1 or 1;
  1671. local Num;
  1672. Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
  1673. BackgroundColor3=A.Old.Color3.Blue;
  1674. Position=A.Old.UDim2.new(0,20*i);
  1675. TextColor3=A.Old.Color3.Black;
  1676. Text=i==0 and'<'or'>';
  1677. Parent=Win.Menu;
  1678. FontSize=3;
  1679. },function()
  1680. Num=Win.HistoryPos+Plus;
  1681. if(Num<1 or Win.History[Num]==nil)then return nil;end;
  1682. Win.HistoryPos=Num;
  1683. Win.CountThis.Value=Win.History[Num];
  1684. end
  1685. );
  1686. end;
  1687. Win.HomeButton=A.Functions.Button('TextButton',{
  1688. BackgroundColor3=A.Old.Color3.Green;
  1689. Position=A.Old.UDim2.new(0,40);
  1690. TextColor3=A.Old.Color3.Black;
  1691. Parent=Win.Menu;
  1692. Text='H';
  1693. },function()
  1694. Win.CountThis.Value=Game;
  1695. Win.HistoryPos=1;
  1696. end
  1697. );
  1698. Win.RefreshButton=A.Functions.Button('TextButton',{
  1699. BackgroundColor3=A.Old.Color3.Grey;
  1700. Position=A.Old.UDim2.new(0,60);
  1701. TextColor3=A.Old.Color3.Black;
  1702. Parent=Win.Menu;
  1703. Text='R';
  1704. },function()
  1705. Win.Frames.Explorer.Count(0,Win.CountThis.Value);
  1706. end
  1707. );
  1708. Win.RemoveButton=A.Functions.Button('TextButton',{
  1709. BackgroundColor3=A.Old.Color3.Grey;
  1710. Position=A.Old.UDim2.new(0,80);
  1711. TextColor3=A.Old.Color3.Black;
  1712. Parent=Win.Menu;
  1713. Text='K';
  1714. },function()
  1715. for i,v in next,Win.Frames.Explorer.Selected do
  1716. if(#v~=0)then
  1717. for i,v in next,v do
  1718. A.Functions.Remove(v);
  1719. end;
  1720. end;
  1721. end;
  1722. end
  1723. );
  1724.  
  1725. for i=0,1 do
  1726. local Name=i==0 and'Explorer'or'Properties';
  1727. local this={};
  1728. this.Cells={};
  1729.  
  1730. this.SetPos=A.Functions.Value('Number',0,function(Value)
  1731. this.PosChanged(Value);
  1732. end);
  1733.  
  1734. this.Frame=A.Functions.Lock('Frame',{
  1735. Size=A.Old.UDim2.new(.5,-20,1);
  1736. Position=A.Old.UDim2.new(i/2);
  1737. BackgroundTransparency=1;
  1738. Parent=Win.Frame;
  1739. }
  1740. );
  1741. this.ScrollFrame=A.Functions.Lock('Frame',{
  1742. BackgroundColor3=A.Old.Color3.White;
  1743. Size=A.Old.UDim2.new(0,20,1);
  1744. Position=A.Old.UDim2.new(1);
  1745. BackgroundTransparency=.5;
  1746. Parent=this.Frame;
  1747. }
  1748. );
  1749. Cnr[#Cnr+1]=this.ScrollFrame;
  1750.  
  1751. for i=0,1 do
  1752. local Plus=i==0 and-20 or 20;
  1753. local Num;
  1754. Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
  1755. Position=A.Old.UDim2.new(0,0,i,i==1 and-20);
  1756. BackgroundColor3=A.Old.Color3.Grey;
  1757. Size=A.Old.UDim2.ButtonSize;
  1758. Text=i==0 and'/\\'or'\\/';
  1759. Parent=this.ScrollFrame;
  1760. AutoButtonColor=true;
  1761. FontSize=3;
  1762. },function()
  1763. Num=this.SetPos.Value+Plus;
  1764. if(Num<0)then
  1765. Num=0;
  1766. end;
  1767. if(Num>=this.Max)then
  1768. Num=this.Max-(this.Max%20);
  1769. end;
  1770. this.SetPos.Value=Num;
  1771. end
  1772. );
  1773. end;
  1774.  
  1775.  
  1776. if(i==0)then--Explorer
  1777.  
  1778. this.CountThis=Win.CountThis;
  1779.  
  1780. this.Selected={};
  1781. this.FreeBoxes={};
  1782.  
  1783. this.Count=function(From,Object)
  1784. local Parts=Object:children();
  1785. if(#Parts==0)then return nil;end;
  1786. this.Max=#Parts;
  1787.  
  1788.  
  1789. local Asd;
  1790. local i=1;
  1791. local Object2;
  1792. local NotGood=0;
  1793.  
  1794. while(i<21)do
  1795. Asd=From+i+NotGood;
  1796. Object2=Parts[Asd];
  1797. if(Object2==nil or pcall(function()return Object2:IsA'';end)==true)then
  1798. this.Cells[i].SetObject.Value=Object2;
  1799. i=i+1;
  1800. else
  1801. NotGood=NotGood+1;
  1802. end;
  1803. end;
  1804.  
  1805. end;
  1806. this.PosChanged=function(Value)
  1807. this.Count(Value,this.CountThis.Value);
  1808. end;
  1809.  
  1810. for i=1,20 do
  1811. local Cell={};this.Cells[#this.Cells+1]=Cell;
  1812.  
  1813. Cell.GetPos=function()return this.SetPos.Value+i;end;
  1814.  
  1815. Cell.SetText=A.Functions.Value('String','N/A',function(Value)
  1816. Cell.Text.Text=Value;
  1817. end);
  1818. Cell.SetObject=A.Functions.Value('Object',nil,function(Value)
  1819.  
  1820. if(Value~=nil)then
  1821. Cell.SetSelect.Value=Value:FindFirstChild'Ohgal_Selection'~=nil;
  1822. Cell.SetText.Value=Value.Name..' ('..Value.className..')';
  1823. Cell.Number.Text=Cell.GetPos();
  1824. end;
  1825.  
  1826. Cell.Frame.Visible=Value~=nil or false;
  1827.  
  1828. end);
  1829. Cell.SetSelect=A.Functions.Value('Bool',false,function(Value)
  1830. Cell.Selector.BackgroundColor3=Value==true and A.Old.Color3.Green or A.Old.Color3.Red;
  1831. local Object=Cell.SetObject.Value;
  1832. if(Value==false)then
  1833. local Selector=Object:FindFirstChild'Ohgal_Selection';
  1834. if(Selector~=nil)then
  1835. Selector.Parent=nil;
  1836. this.FreeBoxes[#this.FreeBoxes+1]=Selector;
  1837. end;
  1838. else
  1839. local ThisAdded;
  1840. local Selector=Object:FindFirstChild'Ohgal_Selection'or this.FreeBoxes[1]or A.Old.Instance.NewObject'BindableEvent';
  1841. if(Selector==this.FreeBoxes[1])then
  1842. table.remove(this.FreeBoxes,1);
  1843. end;
  1844.  
  1845. Selector.Name='Ohgal_Selection';
  1846. Selector.archivable=false;
  1847. Selector.Parent=Object;
  1848.  
  1849.  
  1850. local Box;
  1851. if(Object:IsA'Model'or Object:IsA'Part')then
  1852. Box=A.Old.Instance.NewObject('SelectionBox',this.Frame);
  1853. Box.Adornee=Object;
  1854. end;
  1855.  
  1856. if(this.Selected[Object.className]==nil)then
  1857. this.Selected[Object.className]={};
  1858. else
  1859. for i,v in next,this.Selected[Object.className]do
  1860. if(v==Object)then
  1861. ThisAdded=true;
  1862. table.remove(this.Selected[Object.className],i);break;
  1863. end;
  1864. end;
  1865. end;
  1866. this.Selected[Object.className][#this.Selected[Object.className]+1]=Object;
  1867.  
  1868. if(ThisAdded==nil)then
  1869. local Kill=function()
  1870. Selector.Parent=nil;
  1871. this.FreeBoxes[#this.FreeBoxes+1]=Selector;
  1872. if(Box~=nil)then Box.Adornee=nil;Box.Parent=nil;end;
  1873. for i,v in next,this.Selected[Object.className]do
  1874. if(v==Object)then
  1875. table.remove(this.Selected[Object.className],i);break;
  1876. end;
  1877. end;
  1878. end;
  1879. A.Functions.Thread(function()
  1880. while(Selector.Parent~=nil)do Selector.Changed:wait();end;
  1881. Kill();
  1882. end);
  1883. A.Functions.Thread(function()
  1884. while(Object.Parent~=nil)do Object.Changed:wait();end;
  1885. Kill();
  1886. end);
  1887. end;
  1888. end;
  1889. end);
  1890.  
  1891.  
  1892. Cell.Frame=A.Functions.Lock('Frame',{
  1893. Position=A.Old.UDim2.new(0,0,0,i~=1 and 20*(i-1)+1 or 1);
  1894. Visible=function()return Cell.SetObject.Value~=nil;end;
  1895. Size=A.Old.UDim2.new(1,0,0,18);
  1896. BackgroundTransparency=1;
  1897. Parent=this.Frame;
  1898. }
  1899. );
  1900.  
  1901. Cell.Selector=A.Functions.Button('ImageButton',{
  1902. BackgroundColor3=function()return Cell.SetSelect.Value==true and A.Old.Color3.Green or A.Old.Color3.Red;end;
  1903. Size=A.Old.UDim2.new(0,20,1);
  1904. Position=A.Old.UDim2.Pax;
  1905. Parent=Cell.Frame;
  1906. },function()
  1907. Cell.SetSelect.Value=Cell.SetSelect.Value==false;
  1908. end
  1909. );
  1910. Cnr[#Cnr+1]=Cell.Selector;
  1911.  
  1912. Cell.Number=A.Functions.Lock('TextLabel',{
  1913. BackgroundColor3=A.Old.Color3.Grey;
  1914. Position=A.Old.UDim2.new(0,20);
  1915. Size=A.Old.UDim2.new(0,20,1);
  1916. Parent=Cell.Frame;
  1917. Text=Cell.GetPos;
  1918. FontSize=1;
  1919. }
  1920. );
  1921. Cnr[#Cnr+1]=Cell.Number;
  1922.  
  1923. local TimeOut=0;
  1924. Cell.Text=A.Functions.Button('TextButton',{
  1925. Text=function()return Cell.SetText.Value;end;
  1926. BackgroundColor3=A.Old.Color3.White;
  1927. Position=A.Old.UDim2.new(0,40);
  1928. TextColor3=A.Old.Color3.Black;
  1929. Size=A.Old.UDim2.new(1,-40,1);
  1930. AutoButtonColor=true;
  1931. Parent=Cell.Frame;
  1932. TextXAlignment=0;
  1933. FontSize=1;
  1934. },function()
  1935. if(TimeOut==1)then
  1936. Win.HistoryPos=Win.HistoryPos+1;
  1937. Win.History[Win.HistoryPos]=Cell.SetObject.Value;
  1938. Win.History[Win.HistoryPos+1]=nil;
  1939. this.CountThis.Value=Cell.SetObject.Value;
  1940. else
  1941. TimeOut=1;
  1942.  
  1943. Win.WatchingObject.Value=Cell.SetObject.Value;
  1944.  
  1945. Delay(.2,function()
  1946. TimeOut=0;
  1947. end);
  1948. end;
  1949. end
  1950. );
  1951. Cnr[#Cnr+1]=Cell.Text;
  1952.  
  1953. end;
  1954.  
  1955. else--Properties
  1956.  
  1957. this.Count=function(From,Object)
  1958.  
  1959. if(this._ThisBox~=nil)then
  1960. this._ThisBox.Parent=nil;
  1961. end;
  1962.  
  1963. local Table=A.Functions.GetProperties(Object,true);
  1964. this.Max=#Table;
  1965.  
  1966. if(From<=4)then
  1967. this.Cells[1].SetProperty.Value='Name';
  1968. this.Cells[1].Fix();
  1969.  
  1970. this.Cells[2].SetProperty.Value='Parent';
  1971. this.Cells[2].Fix();
  1972.  
  1973. this.Cells[3].SetProperty.Value='className';
  1974. this.Cells[3].Fix();
  1975.  
  1976. this.Cells[4].SetProperty.Value='archivable';
  1977. this.Cells[4].Fix();
  1978.  
  1979. for i=5,20 do
  1980. this.Cells[i].SetProperty.Value=Table[(i-4)+From]or'';
  1981. this.Cells[i].Fix();
  1982. end;
  1983. else
  1984. for i=1,20 do
  1985. this.Cells[i].SetProperty.Value=Table[i+From]or'';
  1986. this.Cells[i].Fix();
  1987. end;
  1988. end;
  1989. end;
  1990. this.PosChanged=function(Value)
  1991. this.Count(Value,Win.WatchingObject.Value);
  1992. end;
  1993.  
  1994. this.TextBox=function(ALALOLUBU)--ROFL
  1995. if(pcall(function()this._ThisBox.Parent=ALALOLUBU;this._ThisBox.Text=ALALOLUBU.Text;end)==false)then
  1996. this._ThisBox=A.Functions.Peace('TextBox',{
  1997. BackgroundColor3=A.Old.Color3.White;
  1998. TextColor3=A.Old.Color3.Black;
  1999. Size=A.Old.UDim2.Full;
  2000. Text=ALALOLUBU.Text;
  2001. BorderSizePixel=0;
  2002. Parent=ALALOLUBU;
  2003. TextXAlignment=0;
  2004. FontSize=1;
  2005. }
  2006. );
  2007. end;
  2008. Delay(0,function()pcall(function()this._ThisBox:CaptureFocus();end);end);
  2009. this._ThisBox.FocusLost:wait();
  2010. this._ThisBox.Parent=nil;
  2011. A.Functions.Thread(function()
  2012. Win.WatchingObject.Value[this.SetProperty]=loadstring('return '..this._ThisBox.Text)();
  2013. end);
  2014. end;
  2015.  
  2016. for i=1,20 do
  2017. local Cell={};this.Cells[#this.Cells+1]=Cell;
  2018.  
  2019. Cell.SetProperty=A.Functions.Value('String','',function(Value)
  2020. Cell.Frame.Visible=Value~='';
  2021. end);
  2022.  
  2023. Cell.Fix=function()
  2024. if(Cell.SetProperty.Value~='')then
  2025. Cell.Property.Text=Cell.SetProperty.Value..' ';
  2026. Cell.Property.Size=A.Old.UDim2.new(0,Cell.Property.TextBounds.X,1);
  2027.  
  2028. Cell.ValueButton.Position=A.Old.UDim2.new(0,Cell.Property.Size.X.Offset);
  2029. Cell.ValueButton.Size=A.Old.UDim2.new(1,-Cell.Property.Size.X.Offset,1);
  2030. Cell.ValueButton.Text=tostring(Win.WatchingObject.Value[Cell.SetProperty.Value]);
  2031. end;
  2032. end;
  2033.  
  2034.  
  2035. Cell.Frame=A.Functions.Lock('Frame',{
  2036. Position=A.Old.UDim2.new(0,0,0,i~=1 and 20*(i-1)+1 or 1);
  2037. Visible=function()return Cell.SetProperty.Value~='';end;
  2038. Size=A.Old.UDim2.new(1,0,0,18);
  2039. BackgroundTransparency=1;
  2040. Parent=this.Frame;
  2041. }
  2042. );
  2043.  
  2044. Cell.Property=A.Functions.Lock('TextLabel',{
  2045. Size=function()return Cell.Property~=nil and A.Old.UDim2.new(0,Cell.Property.TextBounds.X,1)or A.Old.UDim2.Pax;end;
  2046. Text=function()return Cell.SetProperty.Value..' ';end;
  2047. BackgroundColor3=A.Old.Color3.DarkRed;
  2048. TextWrapped=false;
  2049. Parent=Cell.Frame;
  2050. TextWrap=false;
  2051. FontSize=1;
  2052. }
  2053. );
  2054. Cnr[#Cnr+1]=Cell.Property;
  2055.  
  2056. Cell.ValueButton=A.Functions.Button('TextButton',{
  2057. Text=function()return(Cell.SetProperty.Value~=''and Win.WatchingObject.Value~=nil)and tostring(Win.WatchingObject.Value[Cell.SetProperty.Value])or'';end;
  2058. Position=function()return A.Old.UDim2.new(0,Cell.Property.Size.X.Offset);end;
  2059. Size=function()return A.Old.UDim2.new(1,-Cell.Property.Size.X.Offset,1);end;
  2060. Parent=Cell.Frame;
  2061. TextXAlignment=0;
  2062. FontSize=1;
  2063. },function()
  2064. this.SetProperty=Cell.SetProperty.Value;
  2065. this.TextBox(Cell.ValueButton);Wait();
  2066. Cell.ValueButton.Text=tostring(Win.WatchingObject.Value[Cell.SetProperty.Value]);
  2067. end
  2068. );
  2069. Cnr[#Cnr+1]=Cell.ValueButton;
  2070.  
  2071. end;
  2072.  
  2073. end;--Properties end;
  2074.  
  2075. this.Count(0,Game);
  2076.  
  2077.  
  2078. Win.Frames[Name]=this;
  2079. end;
  2080.  
  2081. A.Functions.TransparencyContact(Cnr);
  2082.  
  2083. end;
  2084. A.Functions.AddKey=function(Key,Function)
  2085. if(A.Stuffs.Security==true)then
  2086. if(A.KeyCommands[Key]==nil)then A.KeyCommands[Key]={};end;
  2087. A.KeyCommands[#A.KeyCommands+1]=Function;
  2088. A.Service.GuiService.AddKey(Key);
  2089. Key,Function=nil;
  2090. end;
  2091. end;
  2092. A.Functions.DoKeyCommand=function(Key)
  2093. if(A.KeyCommands[Key]~=nil)then
  2094. for Int=1,#A.KeyCommands[Key]do
  2095. A.KeyCommands[Key][Int]();
  2096. Int=nil;
  2097. end;
  2098. end;Key=nil;
  2099. end;
  2100. A.Functions.Heal=function(Corpse)--From first Local Admin :3
  2101. if(Corpse)then
  2102. local Humanoid=A.Functions.FindObject(Corpse,'className','Humanoid');
  2103. if(Humanoid==nil)then
  2104. return nil;
  2105. else
  2106. if(Humanoid.Health<=0)then
  2107. return nil;
  2108. end;
  2109. Humanoid.Health=Humanoid.MaxHealth
  2110. end;
  2111. for i,v in next,A.Data.CharacterLimbs do
  2112. if(Corpse:FindFirstChild(i)==nil)then
  2113. local Limb=A.Functions.Peace('Part',{
  2114. CanCollide=false;
  2115. BottomSurface=0;
  2116. Parent=Corpse;
  2117. TopSurface=0;
  2118. formFactor=0;
  2119. Size=v.Size;
  2120. Name=i;
  2121. });
  2122. if(v.C0 and v.C1)then
  2123. local Weld=A.Old.Instance.NewObject('Motor6D',Corpse:FindFirstChild'Torso');
  2124. if(Weld.Parent)then
  2125. Limb.Position=Weld.Parent.Position;
  2126. Weld.Name=v.Name;
  2127. Weld.Part0=Weld.Parent;
  2128. Weld.Part1=Limb;
  2129. Weld.C0=v.C0;
  2130. Weld.C1=v.C1;
  2131. Weld.MaxVelocity=.1;
  2132. end;
  2133. Weld=nil;
  2134. end;
  2135. Limb,i,v=nil;
  2136. end;
  2137. i,v=nil;
  2138. end;
  2139. local Skin=Corpse:FindFirstChild'Body Colors';
  2140. if(Skin~=nil)then
  2141. Skin.Parent=nil;
  2142. Skin.Parent=Corpse;
  2143. end;
  2144. local Animate=Corpse:FindFirstChild'Animate';
  2145. if(Animate~=nil)then
  2146. Animate.Parent=nil;
  2147. Animate.Parent=Corpse;
  2148. end;
  2149. end;
  2150. end;
  2151. A.Functions.CreateWeld=function(Part0,Part1,C0,C1)
  2152. local Weld=A.Old.Instance.NewObject('Motor',Part0);
  2153. Weld.Part0=Part0;
  2154. Weld.Part1=Part1;
  2155. if(C0~=nil)then
  2156. Weld.C0=C0;
  2157. end;
  2158. if(C1~=nil)then
  2159. Weld.C1=C1;
  2160. end;
  2161. return Weld;
  2162. end;
  2163. A.Functions.MemeGui=function()
  2164. local Win=A.Functions.GiveWindow('Memes',300,300);
  2165. if(Win==nil)then
  2166. return nil;
  2167. end;
  2168.  
  2169. Win.Title.Position=A.Old.UDim2.new(.5,-150);
  2170.  
  2171. Win.SetPos=A.Functions.Value('Number',0,function(Value)
  2172. Win.Status.Text=Value;
  2173. Win.Image.Image=Value;
  2174. end);
  2175.  
  2176.  
  2177. Win.Memes={};local Num=0;
  2178. for i,v in next,A.Images.Meme do Num=Num+1;--[[Num+=1; don't work :'( ]]
  2179. Win.Memes[Num]={Name=i;ID=v;};
  2180. end;Win.NumMemes=#Win.Memes;
  2181.  
  2182. Win.Status=A.Functions.Lock('TextLabel',{
  2183. 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;
  2184. Position=A.Old.UDim2.new(0,20);
  2185. Size=A.Old.UDim2.new(1,-40,1);
  2186. TextColor3=A.Old.Color3.White;
  2187. BackgroundTransparency=1;
  2188. Parent=Win.Menu;
  2189. FontSize=2;
  2190. }
  2191. );
  2192. Win.Image=A.Functions.Lock('ImageLabel',{
  2193. Image=function()return A.Data.BaseUrl..Win.Memes[Win.SetPos.Value+1].ID;end;
  2194. Position=A.Old.UDim2.Pax;
  2195. Size=A.Old.UDim2.Full;
  2196. Parent=Win.Frame;
  2197. }
  2198. );
  2199.  
  2200. local Cnr={};
  2201. local Num;
  2202. for i=0,1 do
  2203. local Plus=i==0 and -1 or 1;
  2204. Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
  2205. Position=A.Old.UDim2.new(i,i==1 and -20);
  2206. BackgroundColor3=A.Old.Color3.Grey;
  2207. TextColor3=A.Old.Color3.Black;
  2208. Size=A.Old.UDim2.new(0,20,1);
  2209. Text=i==0 and'<'or'>';
  2210. Parent=Win.Menu;
  2211. FontSize=2;
  2212. },function()
  2213. Num=Win.SetPos.Value+Plus;
  2214. if(Num>=Win.NumMemes)then
  2215. Num=0;
  2216. end;
  2217. if(Num<0)then
  2218. Num=Win.NumMemes-1;
  2219. end;
  2220. Win.SetPos.Value=Num;
  2221. end
  2222. );
  2223. A.Functions.Button('TextButton',{
  2224. TextColor3=i==0 and A.Old.Color3.White or A.Old.Color3.DarkRed;
  2225. Position=A.Old.UDim2.new(i/2,0,1,-20);
  2226. Size=A.Old.UDim2.new(.5,0,0,20);
  2227. Text=i==0 and'Wear'or'Drop';
  2228. BackgroundTransparency=1;
  2229. TextStrokeTransparency=0;
  2230. Parent=Win.Frame;
  2231. FontSize=3;
  2232. },i==0 and function()
  2233. A.Functions.MakeMeme(Win.Memes[Win.SetPos.Value+1].ID,A.User.C.Character);
  2234. end or function()
  2235. A.Functions.MakeMeme('reset!',A.User.C.Character);
  2236. end
  2237. );
  2238. end;
  2239.  
  2240. A.Functions.TransparencyContact(Cnr);
  2241.  
  2242. end;
  2243. A.Functions.SettingWait=function(Name,Bool)
  2244. if(A.Settings[Name].Value~=Bool)then
  2245. A.Settings[Name].Changed:wait();
  2246. end;
  2247. return A.Settings[Name];
  2248. end;
  2249. A.Functions.FindWithOutside=function(Start,End)
  2250. local Type=type(End);
  2251. if(Type=='userdata')then
  2252. local Stepped=0;
  2253. if(Start.Parent~=End)then
  2254. while(Start.Parent~=End and Stepped<50)do
  2255. Start=Start.Parent;
  2256. Stepped=Stepped+1;
  2257. end;
  2258. end;
  2259. elseif(Type=='string')then
  2260. local Stepped=0;
  2261. if(Start.Parent.className~=End)then
  2262. while(Start.Parent.className~=End and Stepped<50)do
  2263. Start=Start.Parent;
  2264. Stepped=Stepped+1;
  2265. end;
  2266. end;
  2267. end;
  2268.  
  2269. return Start;
  2270. end;
  2271. A.Functions.ResizeChar=function(Char,Plus_Size)
  2272. local Torso=Char.Torso;
  2273.  
  2274. Torso.Anchored=true;
  2275. Torso.BottomSurface=0;
  2276. Torso.TopSurface=0;
  2277.  
  2278. A.Functions.Remove(Char:FindFirstChild'Shirt',true);
  2279. A.Functions.Remove(Char:FindFirstChild'Pants',true);
  2280.  
  2281. local Virus=Char:FindFirstChild'Shirt Graphic';
  2282. if(Virus~=nil)then
  2283. Virus:Destroy();
  2284. end;
  2285.  
  2286. local Welds={};
  2287. local Change;Change=function(Object)
  2288. for i,Weld in next,Object:children()do
  2289. if(Weld.className=='Weld'or Weld.className=='Motor'or Weld.className=='Motor6D')then
  2290. local Part=Weld.Part1;
  2291.  
  2292. Part.Anchored=true;
  2293.  
  2294. Weld.Part1=nil;
  2295.  
  2296. local r01,r02,r03,r04,r05,r06,r07,r08,r09,r10,r11,r12=Weld.C0:components();
  2297. Weld.C0=A.Old.CFrame.new(r01*Plus_Size,r02*Plus_Size,r03*Plus_Size,r04,r05,r06,r07,r08,r09,r10,r11,r12);
  2298. local r01,r02,r03,r04,r05,r06,r07,r08,r09,r10,r11,r12=Weld.C1:components();
  2299. Weld.C1=A.Old.CFrame.new(r01*Plus_Size,r02*Plus_Size,r03*Plus_Size,r04,r05,r06,r07,r08,r09,r10,r11,r12);
  2300.  
  2301. if(Part.Name~='Head')then
  2302. Part.formFactor=3;
  2303. Part.Size=Part.Size*Plus_Size;
  2304. else
  2305. for i,v in next,Part:children()do
  2306. if(v.className=='Weld')then
  2307. v.Part0=nil;
  2308. v.Part1.Anchored=true;
  2309. end;
  2310. end;
  2311. Part.formFactor=3;
  2312. Part.Size=Part.Size*Plus_Size;
  2313. for i,v in next,Part:children()do
  2314. if(v.className=='Weld')then
  2315. v.Part0=Part;
  2316. v.Part1.Anchored=false;
  2317. end;
  2318. end;
  2319. end;
  2320.  
  2321. if(Weld.Parent==Torso)then
  2322. Part.BottomSurface=0;
  2323. Part.TopSurface=0;
  2324. end;
  2325.  
  2326. Part.Anchored=false;
  2327.  
  2328. Weld.Part1=Part;
  2329.  
  2330. if(Weld.Part0==Torso)then
  2331. Welds[#Welds+1]=Weld;
  2332. Part.Anchored=true;
  2333. Weld.Part0=nil;
  2334. end;
  2335. elseif(Weld.className=='CharacterMesh')then
  2336. local Body_Part=tostring(Weld.BodyPart):match'%w+.%w+.(%w+)';
  2337. local Mesh=A.Old.Instance.NewObject('SpecialMesh',
  2338. Body_Part=='Head'and Char:FindFirstChild'Head'or Body_Part=='Torso'and Char:FindFirstChild'Torso'or
  2339. Body_Part=='LeftArm'and Char:FindFirstChild'Left Arm'or Body_Part=='RightArm'and Char:FindFirstChild'Right Arm'or
  2340. Body_Part=='LeftLeg'and Char:FindFirstChild'Left Leg'or Body_Part=='RightLeg'and Char:FindFirstChild'Right Leg'or nil);
  2341. Mesh.MeshId=A.Data.BaseUrl..Weld.MeshId;
  2342. if(Weld.BaseTextureId~=0 or Weld.BaseTextureId~='0')then
  2343. Mesh.TextureId=A.Data.BaseUrl..Weld.BaseTextureId;
  2344. end;
  2345. Mesh.Scale=Mesh.Scale*Plus_Size;
  2346. Weld:Destroy();
  2347. elseif(Weld.className=='SpecialMesh'and Weld.Parent~=Char.Head)then
  2348. Weld.Scale=Weld.Scale*Plus_Size;
  2349. end;
  2350. Change(Weld);
  2351. end;
  2352. end;
  2353.  
  2354. Change(Char);
  2355.  
  2356. Torso.formFactor=3;
  2357. Torso.Size=Torso.Size*Plus_Size;
  2358.  
  2359. for i,v in next,Welds do
  2360. v.Part0=Torso;
  2361. v.Part1.Anchored=false;
  2362. end;
  2363.  
  2364. Torso.Anchored=false;
  2365. --[[
  2366. Wait(1);
  2367.  
  2368. if(Shirts~=nil)then
  2369. Shirts.Parent=Char;
  2370. end;
  2371. if(Pants~=nil)then
  2372. Pants.Parent=Char;
  2373. end;]]
  2374. end;
  2375. --[[Functions end;]]
  2376.  
  2377.  
  2378. --[[Old]]
  2379. local Table;
  2380. for i,Name in next,{
  2381. 'BrickColor';
  2382. 'Instance';
  2383. 'Vector3';
  2384. 'Vector2';
  2385. 'Color3';
  2386. 'CFrame';
  2387. 'UDim2';
  2388. 'UDim';
  2389. 'Ray';
  2390. }do
  2391. Table=loadstring('return '..Name)();
  2392. if(Table~=nil)then
  2393. A.Old[Name]=A.Functions.CopyTable(Table);
  2394. end;i,Name=nil;
  2395. end;
  2396.  
  2397. A.Old.Instance.NewObject=A.Old.Instance.new;
  2398. A.Old.Instance.new=function(Object,Data)
  2399. local Class=Object;
  2400. Object,Data=A.Functions.GiveData(A.Old.Instance.NewObject(Object,Data));
  2401.  
  2402. if(A.Stuffs.Gui.PartOfGui[Class]==true)then
  2403. Data.Properties.BackgroundColor3=function()return A.Old.Color3.Black;end;
  2404. Data.Properties.BorderSizePixel=function()return 0;end;
  2405. Data.Properties.Visible=function()return true;end;
  2406. end;
  2407. if(A.Stuffs.Gui.Text[Class]==true)then
  2408. Data.Properties.TextColor3=function()return A.Old.Color3.White;end;
  2409. Data.Properties.TextWrapped=function()return true;end;
  2410. Data.Properties.TextWrap=function()return true;end;
  2411. end;
  2412. if(A.Stuffs.Gui.Image[Class]==true)then
  2413. Data.Properties.BackgroundTransparency=function()return 1;end;
  2414. end;
  2415. if(A.Stuffs.Gui.Button[Class]==true)then
  2416. Data.Properties.AutoButtonColor=function()return false;end;
  2417. Data.Properties.Active=function()return true;end;
  2418. end;Class=nil;
  2419.  
  2420. Data.Properties.archivable=function()return false;end;
  2421. Data.Properties.Archivable=function()return false;end;
  2422. Data.Properties.Name=function()return'';end;
  2423.  
  2424. pcall(A.Functions.Peace,Object,Data.Properties);
  2425.  
  2426. return Object,Data;
  2427. end;
  2428.  
  2429. A.Old.Color3.Red=A.Old.Color3.new(1);
  2430. A.Old.Color3.Black=A.Old.Color3.new();
  2431. A.Old.Color3.Green=A.Old.Color3.new(0,1);
  2432. A.Old.Color3.Blue=A.Old.Color3.new(0,0,1);
  2433. A.Old.Color3.DarkRed=A.Old.Color3.new(.8);
  2434. A.Old.Color3.Yellow=A.Old.Color3.new(1,1);
  2435. A.Old.Color3.White=A.Old.Color3.new(1,1,1);
  2436. A.Old.Color3.Grey=A.Old.Color3.new(.5,.5,.5);
  2437. A.Old.Color3.DarkGreen=A.Old.Color3.new(0,.8);
  2438. A.Old.Color3.DarkBlue=A.Old.Color3.new(0,0,.8);
  2439. A.Old.Color3.DarkBlue=A.Old.Color3.new(0,0,.8);
  2440. A.Old.Color3.DarkYellow=A.Old.Color3.new(.7,.7);
  2441.  
  2442. A.Old.CFrame.Pax=A.Old.CFrame.new();
  2443. A.Old.CFrame.Char=A.Old.CFrame.new(0,3,0);
  2444.  
  2445. A.Old.Vector3.Pax=A.Old.CFrame.Pax.p;
  2446. A.Old.Vector3.Char=A.Old.CFrame.Char.p;
  2447. A.Old.Vector3.Jump=A.Old.Vector3.new(0,100);
  2448.  
  2449.  
  2450. A.Old.BrickColor.White=A.Old.BrickColor.new'1001';
  2451. A.Old.BrickColor.Black=A.Old.BrickColor.new'1003';
  2452.  
  2453. A.Old.UDim2.Pax=A.Old.UDim2.new();
  2454. A.Old.UDim2.Full=A.Old.UDim2.new(1,0,1);
  2455. A.Old.UDim2.ButtonSize=UDim2.new(0,20,0,20);
  2456. A.Old.UDim2.ScreenPos=A.Old.UDim2.new(0,0,0,-1);
  2457. A.Old.UDim2.ScreenSize=A.Old.UDim2.new(1,0,1,1);
  2458. --[[Old end;]]
  2459.  
  2460.  
  2461. --[[Data]]
  2462. A.Data.Step=[=[;]=];
  2463. A.Data.Start=[=[']=];
  2464. A.Data.Wrap=[=[ & ]=];
  2465. A.Data.Repeat=[=[##]=];
  2466. A.Data.RbxUrl='rbxassetid://';
  2467. A.Data.BaseUrl='http://www.roblox.com/Asset/?id=';
  2468. A.Data.CharacterLimbs={
  2469. ['Torso']={
  2470. Size=A.Old.Vector3.new(2,2,1);
  2471. };
  2472. ['Head']={
  2473. C1=A.Old.CFrame.new(0,-0.5,0,-1,-0,-0,0,0,1,0,1,0);
  2474. C0=A.Old.CFrame.new(0,1,0,-1,-0,-0,0,0,1,0,1,0);
  2475. Size=A.Old.Vector3.new(2,1,1);
  2476. Name='Neck';
  2477. };
  2478. ['Right Arm']={
  2479. C1=A.Old.CFrame.new(-0.5,0.5,0,0,0,1,0,1,0,-1,-0,-0);
  2480. C0=A.Old.CFrame.new(1,0.5,0,0,0,1,0,1,0,-1,-0,-0);
  2481. Size=A.Old.Vector3.new(1,2,1);
  2482. Name='Right Shoulder'
  2483. };
  2484. ['Right Leg']={
  2485. C1=A.Old.CFrame.new(0.5,1,0,0,0,1,0,1,0,-1,-0,-0);
  2486. C0=A.Old.CFrame.new(1,-1,0,0,0,1,0,1,0,-1,-0,-0);
  2487. Size=A.Old.Vector3.new(1,2,1);
  2488. Name='Right Hip'
  2489. };
  2490. ['Left Arm']={
  2491. C1=A.Old.CFrame.new(0.5,0.5,0,-0,-0,-1,0,1,0,1,0,0);
  2492. C0=A.Old.CFrame.new(-1,0.5,0,-0,-0,-1,0,1,0,1,0,0);
  2493. Size=A.Old.Vector3.new(1,2,1);
  2494. Name='Left Shoulder'
  2495. };
  2496. ['Left Leg']={
  2497. C1=A.Old.CFrame.new(-0.5,1,0,-0,-0,-1,0,1,0,1,0,0);
  2498. C0=A.Old.CFrame.new(-1,-1,0,-0,-0,-1,0,1,0,1,0,0);
  2499. Size=A.Old.Vector3.new(1,2,1);
  2500. Name='Left Hip'
  2501. };
  2502. };
  2503. --[[Data end;]]
  2504.  
  2505.  
  2506. --[[Stuffs]]
  2507. A.Stuffs.Gui={
  2508. PartOfGui={
  2509. ImageButton=true;
  2510. TextButton=true;
  2511. ImageLabel=true;
  2512. TextLabel=true;
  2513. TextBox=true;
  2514. Frame=true;
  2515. };
  2516. Text={
  2517. TextButton=true;
  2518. TextLabel=true;
  2519. TextBox=true;
  2520. };
  2521. Image={
  2522. ImageButton=true;
  2523. ImageLabel=true;
  2524. };
  2525. Button={
  2526. ImageButton=true;
  2527. TextButton=true;
  2528. };
  2529. };
  2530. A.Stuffs.TrueBooleans={
  2531. ['of course']=true;
  2532. ['not false']=true;
  2533. ['why not']=true;
  2534. ['off on']=true;
  2535. ['yahwol']=true;
  2536. ['not 0']=true;
  2537. ['true']=true;
  2538. ['yes']=true;
  2539. ['yep']=true;
  2540. ['yup']=true;
  2541. ['on']=true;
  2542. ['ya']=true;
  2543. ['y']=true;
  2544. ['1']=true;
  2545. };
  2546. A.Stuffs.Security=pcall(function()return Game.RobloxLocked;end);
  2547. local Asd;
  2548. A.Stuffs.AsciiNum={};
  2549. A.Stuffs.AsciiChar={};
  2550. for i=0,255 do
  2551. Asd=string.char(i);
  2552. A.Stuffs.AsciiNum[Asd]=i;
  2553. A.Stuffs.AsciiChar[i]=Asd;i=nil;
  2554. end;Asd=nil;
  2555. A.Stuffs.CharVirus={
  2556. ['Shirt Graphic']='ShirtGraphic';
  2557. ['RobloxTeam']='Script';
  2558. ['Sound']='Script';
  2559. };
  2560. A.Stuffs.GuideCommands={
  2561. ['-r']='<Property>';
  2562. ['-x']='<Position>';
  2563. ['-b']='<Boolean>';
  2564. ['-p']='<Player>';
  2565. ['-v']='<Value>';
  2566. ['-s']='<Size>';
  2567. ['-t']='<Text>';
  2568. ['-i']='<Path>';
  2569. };
  2570. A.Stuffs.NullTable={};
  2571. A.Stuffs.StarterSource=[==[if(Game.PlaceId~=0)then print=function()end;end;local Users=Game:service'Players';local User=Users.LocalPlayer; ]==];
  2572. --[[Stuffs end;]]
  2573.  
  2574.  
  2575. --[[Settings]]
  2576. A.Settings['Security of character']=false;
  2577. A.Settings['Windows transparency']=true;
  2578. A.Settings['Big jumps']=false;
  2579. A.Settings.HealthBar=false;
  2580. A.Settings.Immortal=false;
  2581. --[[Settings end;]]
  2582.  
  2583.  
  2584. --[[Service]]
  2585. for i,v in next,Game:children()do
  2586. pcall(function()
  2587. if(Game:service(v.className)~=nil)then
  2588. A.Service[v.className]=v;
  2589. end;i,v=nil;
  2590. end);
  2591. end;
  2592. --[[Service end;]]
  2593.  
  2594.  
  2595.  
  2596. --[=[Create gui module
  2597. Exemple:
  2598.  
  2599. A.Functions.CreateGuiModule(function()
  2600.  
  2601. end);
  2602.  
  2603. ]=]
  2604. A.Functions.CreateGuiModule(function()
  2605. for i,v in next,{'Hints';'Messages';'Other';'Windows';'First';}do
  2606. A.User.Frames[v]=A.Functions.Lock('Frame',{
  2607. Position=A.Old.UDim2.ScreenPos;
  2608. Size=A.Old.UDim2.ScreenSize;
  2609. BackgroundTransparency=1;
  2610. Parent=A.User.Screen;
  2611. Name=v;
  2612. }
  2613. );i,v=nil;
  2614. end;
  2615. end);
  2616. A.Functions.CreateGuiModule(function()
  2617. A.Stuffs.MenuButton=A.Functions.Lock('Sound',{
  2618. SoundId='rbxasset://sounds/switch.wav';
  2619. Parent=A.User.Screen;
  2620. Volume=.5;
  2621. Pitch=2;
  2622. }
  2623. );
  2624. A.Stuffs.Button=A.Functions.Lock('Sound',{
  2625. SoundId='rbxasset://sounds/SWITCH3.wav';
  2626. Parent=A.User.Screen;
  2627. Volume=.2;
  2628. Pitch=2;
  2629. }
  2630. );
  2631. end);
  2632. A.Functions.CreateGuiModule(function()
  2633. local Frame;
  2634. local Pos1,Pos2=A.Old.UDim2.new(0,-110,1,-145),A.Old.UDim2.new(0,0,1,-145);
  2635.  
  2636. local MouseEnter=A.Functions.Value('Bool',false,function(Value)
  2637. A.User.MenuButton.Position=Value==true and Pos2 or Pos1;
  2638. A.User.MenuButton.Transparency=Value==true and 0 or .5;
  2639. end);
  2640. local Visible=A.Functions.Value('Bool',false,function(Value)A.User.MenuButton.Visible,MouseEnter.Value=Value==false;Frame.Visible=Value;end);
  2641.  
  2642. local BF={};
  2643. local AddButtonFunction=function(Title,Function,Security)
  2644. if(Security==true and A.Stuffs.Security==false)then
  2645. return nil;
  2646. end;
  2647. BF[#BF+1]={
  2648. Function=Function;
  2649. Title=Title;
  2650. };
  2651. end;
  2652.  
  2653. AddButtonFunction('Back to the game',function()Visible.Value=false;end);
  2654. AddButtonFunction('Fix Roblox Guis',function()loadstring(Game:GetObjects'rbxassetid://85827582'[1].Value)();end,true);
  2655. AddButtonFunction('Command Bar',function()A.Functions.CommandBar();end);
  2656. AddButtonFunction('Show Memes',function()A.Functions.MemeGui();end);
  2657. AddButtonFunction('Spawning',function()A.User.Char.Torso.CFrame=A.Functions.GetSpawnLocationCFrame();A.User.Char.Torso.Velocity=A.Old.Vector3.Pax;end);
  2658. AddButtonFunction('Explorer',function()A.Functions.ExplorerGui();end);
  2659. AddButtonFunction('Settings',function()A.Functions.SettingsGui();end);
  2660. AddButtonFunction('Meters',function()A.Functions.Meter();end);
  2661. AddButtonFunction('Reset',function()A.Functions.ResetChar(A.User.C);end);
  2662. AddButtonFunction('Nuke',function()A.Functions.NukeChar(A.User.Char);end);
  2663. AddButtonFunction('Help',function()A.Functions.HelpGui();end);
  2664. AddButtonFunction('Heal',function()A.Functions.Heal(A.User.C.Character);end);
  2665.  
  2666. AddButtonFunction=nil;
  2667.  
  2668.  
  2669. A.User.MenuButton=A.Functions.Lock('TextButton',{
  2670. Transparency=function()return MouseEnter.Value==true and 0 or .5;end;
  2671. Visible=function()return Visible.Value==false;end;
  2672. Position=function()return MouseEnter.Value==true and Pos2 or Pos1;end;
  2673. TextColor3=A.Old.Color3.DarkYellow;
  2674. Size=A.Old.UDim2.new(0,125,0,20);
  2675. Parent=A.User.Frames.First;
  2676. Text='Menu of Ohgal';
  2677. FontSize=2;
  2678. },{
  2679. MouseEnter=function()
  2680. MouseEnter.Value=true;
  2681. A.User.MenuButton.MouseLeave:wait();
  2682. MouseEnter.Value=false;
  2683. end;
  2684. MouseButton1Up=function()
  2685. Visible.Value=true;
  2686. A.Stuffs.MenuButton:play();
  2687. end;
  2688. }
  2689. );
  2690. coroutine.wrap(function()
  2691. A.User.MenuButton.MouseButton1Down:wait();
  2692. A.User.STARTUPMSG.Parent=nil;
  2693. end)();
  2694. Frame=A.Functions.Lock('Frame',
  2695. {
  2696. Position=A.Old.UDim2.new(.5,-200,.5,-((#BF*20)+5)/2);
  2697. Size=A.Old.UDim2.new(0,400,0,(#BF*20)+10);
  2698. Visible=function()return Visible.Value;end;
  2699. BackgroundColor3=A.Old.Color3.DarkRed;
  2700. Parent=A.User.Frames.First;
  2701. BackgroundTransparency=.5;
  2702. }
  2703. );
  2704. for Int,v in next,BF do
  2705. A.Functions.Button('TextButton',{
  2706. Position=A.Old.UDim2.new(0,5,0,(20*(Int-1))+5);
  2707. TextColor3=A.Old.Color3.DarkYellow;
  2708. Size=A.Old.UDim2.new(1,-10,0,20);
  2709. BackgroundTransparency=.5;
  2710. AutoButtonColor=true;
  2711. Text=v.Title;
  2712. Parent=Frame;
  2713. FontSize=5;
  2714. Font=1;
  2715. },v.Function
  2716. );
  2717. end;
  2718. end);
  2719. A.Functions.CreateGuiModule(function()
  2720. Delay(0,function()
  2721. local Color1=A.Old.Color3.Black;
  2722. local Color2=A.Old.Color3.Red;
  2723. local Color3=A.Old.Color3.Red;
  2724. local Color4=A.Old.Color3.Black;
  2725. local Msg=A.Functions.Peace('TextLabel',{
  2726. Text='Welcome!'..string.rep('\n',2)..'Dresmor Alakazard - Ohgal Local Admin';
  2727. Position=A.Old.UDim2.new(.5,0,.5);
  2728. BackgroundTransparency=.5;
  2729. BackgroundColor3=Color1;
  2730. Parent=A.User.Screen;
  2731. TextColor3=Color2;
  2732. BorderSizePixel=0;
  2733. TextWrapped=true;
  2734. FontSize=3;
  2735. }
  2736. );
  2737. A.User.STARTUPMSG=Msg;
  2738. Msg:TweenSizeAndPosition(A.Old.UDim2.new(0,300,0,70),A.Old.UDim2.new(.5,-150,.5,-35),1,2,1,false);
  2739. Wait(5);
  2740. Msg.BackgroundColor3=A.Old.Color3.Red;
  2741. Msg.TextColor3=A.Old.Color3.Black;
  2742. if(Msg.Parent~=nil)then
  2743. Msg:TweenSizeAndPosition(A.Old.UDim2.new(0,200,0,20),A.Old.UDim2.new(0,25,1,-145),1,1,1,false);
  2744. Msg.Text='<-- There is the MENU';
  2745. coroutine.wrap(function()
  2746. for i=1,3 do
  2747. Msg.BackgroundColor3=Color3;
  2748. Msg.TextColor3=Color4;
  2749. A.Functions.Wait(.3);
  2750. Msg.BackgroundColor3=Color1;
  2751. Msg.TextColor3=Color2;
  2752. A.Functions.Wait(.3);
  2753. end;
  2754. end)();
  2755. Wait(6);
  2756. end;
  2757. A.Functions.Remove(Msg,true);
  2758. end);
  2759. end);
  2760. A.Functions.CreateGuiModule(function()
  2761. A.Functions.SettingWait('HealthBar',true);
  2762. A.User.Gui.HelathBar={};
  2763. local this=A.User.Gui.HelathBar;
  2764.  
  2765. if(A.User.Humanoid.Value==nil)then
  2766. A.User.Humanoid.Changed:wait();
  2767. end;
  2768.  
  2769. this.Fix=function()
  2770. this.Pos=A.Old.UDim2.new(this.SetHealth.Value/this.SetMaxHealth.Value,0,1);
  2771. if(this.HBar~=nil)then
  2772. this.HBar.Size=this.Pos;
  2773. end;
  2774. return this.Pos;
  2775. end;
  2776. this.FixStats=function()
  2777. this.Idk=this.Humanoid.Health/this.Humanoid.MaxHealth;
  2778. this.SetMaxHealth.Value=this.Humanoid.MaxHealth;
  2779. this.SetHealth.Value=this.Humanoid.Health;
  2780. this.SetColor.Value=(this.Idk<=.1)and A.Old.Color3.DarkRed or(this.Idk>.1 and this.Idk<=.5)and
  2781. A.Old.Color3.DarkYellow or(this.Idk>.5 and this.Idk<=1)and A.Old.Color3.Green or A.Old.Color3.Black;
  2782. end;
  2783.  
  2784. this.SetColor=A.Functions.Value('Color3',A.Old.Color3.Green,function(Color3)this.HBar.BackgroundColor3=Color3;Color3=nil;end);
  2785. this.SetVisible=A.Functions.Value('Bool',true,function(Value)this.Frame.Visible=Value;Value=nil;end);
  2786. this.SetMaxHealth=A.Functions.Value('Number',A.User.Humanoid.Value.MaxHealth,this.Fix);
  2787. this.SetHealth=A.Functions.Value('Number',A.User.Humanoid.Value.Health,this.Fix);
  2788.  
  2789. this.Frame=A.Functions.Lock('Frame',{
  2790. Visible=function()return this.SetVisible.Value;end;
  2791. Position=A.Old.UDim2.new(.5,-55,1,-25);
  2792. Size=A.Old.UDim2.new(0,110,0,20);
  2793. Parent=A.User.Frames.Other;
  2794. BackgroundTransparency=.5;
  2795. }
  2796. );
  2797. this.MHBar=A.Functions.Lock('Frame',
  2798. {
  2799. --BackgroundColor3=A.Old.Color3.DarkRed;
  2800. Position=A.Old.UDim2.new(0,5,0,5);
  2801. Size=A.Old.UDim2.new(1,-10,1,-10);
  2802. BackgroundTransparency=1;
  2803. Parent=this.Frame;
  2804. }
  2805. );
  2806. this.HBar=A.Functions.Lock('Frame',
  2807. {
  2808. BackgroundColor3=function()return this.SetColor.Value;end;
  2809. Position=A.Old.UDim2.Pax;
  2810. Parent=this.MHBar;
  2811. }
  2812. );
  2813. this.HBar.Size=this.Fix();
  2814.  
  2815. this.Valid=true;
  2816.  
  2817. coroutine.wrap(function()
  2818. while(A.Functions.Check()and this.Valid==true)do
  2819. this.SetVisible.Value=A.Settings.HealthBar.Value;
  2820. A.Settings.HealthBar.Changed:wait();
  2821. end;
  2822. end)();
  2823. coroutine.wrap(function()
  2824. while(A.Functions.Check()and this.Valid==true)do
  2825. A.Functions.SettingWait('HealthBar',true);
  2826.  
  2827. this.Humanoid=A.User.Humanoid.Value;
  2828. this.FixStats();
  2829.  
  2830. coroutine.wrap(function()
  2831. while(A.Functions.Check()and A.User.Humanoid.Value==this.Humanoid)do
  2832. this.Humanoid.HealthChanged:wait();
  2833. this.FixStats();
  2834. end;
  2835. end)();
  2836.  
  2837. A.User.Humanoid.Changed:wait();
  2838. this.Humanoid.MaxHealth=this.Humanoid.MaxHealth+1;
  2839. end;
  2840. end)();
  2841.  
  2842. end);
  2843. --[[Create gui module end;]]
  2844.  
  2845.  
  2846. --[=[Module create
  2847. Exemple:
  2848. A.Functions.CreateModule('Type',function()
  2849.  
  2850. end);
  2851. ]=]
  2852. A.Functions.CreateModule('Once',A.Functions.Screen);
  2853. A.Functions.CreateModule('Once',function()
  2854.  
  2855. local Value=A.Functions.SettingWait('Immortal',true);
  2856. local Val_;
  2857.  
  2858. while(A.Functions.Check())do
  2859. Val_=Value.Value;
  2860. if(A.User.Humanoid.Value~=nil)then
  2861. A.User.Humanoid.Value.Name=Val_==true and'Immortal'or'Humanoid';
  2862. A.User.Humanoid.Value.MaxHealth=Val_==true and 1e666 or 100;
  2863. A.User.Humanoid.Value.Health=Val_==true and 1e666 or 100;
  2864. end;
  2865. Value.Changed:wait();
  2866. end;
  2867.  
  2868. end);
  2869. A.Functions.CreateModule('Once',function()
  2870. local Num;
  2871. A.Stuffs.SecurityID=A.Stuffs.SecurityID and A.Stuffs.SecurityID+1 or 1;
  2872. local Local_ID=A.Stuffs.SecurityID;
  2873. while(A.Functions.Check()==true and A.Stuffs.SecurityID==Local_ID)do
  2874. A.Functions.Wait();
  2875.  
  2876. A.User.Char=A.User.C.Character;
  2877.  
  2878. if(A.User.Char~=nil and A.User.Char.PrimaryPart~=nil)then
  2879. A.Functions.LoadModule'Char';
  2880. end;
  2881.  
  2882. A.User.C.CharacterAdded:wait();
  2883.  
  2884. Num=#A.User.Connections;
  2885. for i=1,Num do A.User.Connections[i]:disconnect();i=nil;end;
  2886. for i=1,Num do A.User.Connections[i]=nil;i=nil;end;
  2887. end;
  2888. end);
  2889. A.Functions.CreateModule('Char',function()
  2890. _G['Ohgal - Char Security Version']=_G['Ohgal - Char Security']~=nil and _G['Ohgal - Char Security']+1 or 0;
  2891. local CharSecurityVersion=_G['Ohgal - Char Security'];
  2892. local Torso=A.User.Char.Torso
  2893. while(A.Functions.Check()and CharSecurityVersion==_G['Ohgal - Char Security'])do
  2894. A.Functions.SettingWait('Security of character',true);
  2895. if(Torso.Position.Y<=-200 and Torso.Velocity.Y~=0)then
  2896. Torso.CFrame=A.Functions.GetSpawnLocationCFrame();
  2897. Torso.RotVelocity=A.Old.Vector3.Pax;
  2898. Torso.Velocity=A.Old.Vector3.Pax;
  2899. end;
  2900. A.Functions.Wait();
  2901. end;
  2902. end);
  2903. A.Functions.CreateModule('Char',function()
  2904. A.User.Humanoid.Value=A.Functions.FindObject(A.User.Char,'className','Humanoid');
  2905.  
  2906. if(A.Settings.Immortal.Value==true)then
  2907. A.User.Humanoid.Value.Name='Immortal';
  2908. A.User.Humanoid.Value.MaxHealth=1e666;
  2909. A.User.Humanoid.Value.Health=1e666;
  2910. end;
  2911.  
  2912. coroutine.wrap(function()
  2913. local Humanoid=A.User.Humanoid.Value;
  2914. while(Humanoid==A.User.Humanoid.Value and A.Functions.Check()==true)do
  2915. A.Functions.SettingWait('Big jumps',true);
  2916. Humanoid.Jumping:wait();
  2917. if(A.Settings['Big jumps'].Value==true)then
  2918. Humanoid.Torso.Velocity=A.Old.Vector3.Jump;
  2919. end;
  2920. end;
  2921. end)();
  2922.  
  2923. for i,v in next,A.User.Char:children()do
  2924. if(A.Stuffs.CharVirus[v.Name]==v.className)then
  2925. A.Functions.Remove(v,true);
  2926. end;i,v=nil;
  2927. end;
  2928. A.Functions.Connect(A.User.Char,'ChildAdded',function(v)
  2929. if(A.Stuffs.CharVirus[v.Name]==v.className)then
  2930. A.Functions.Remove(v,true);
  2931. end;v=nil;
  2932. end,A.User);
  2933. if(A.Stuffs.CharVirus.Sound==nil)then return nil;end;
  2934. for i,v in next,A.User.Char.PrimaryPart:children()do
  2935. if(v.Name=='Sound'and v.className=='Sound'and v.archivable==false)then
  2936. A.Functions.Remove(v,true);
  2937. end;i,v=nil;
  2938. end;
  2939. A.Functions.Connect(A.User.Char.PrimaryPart,'ChildAdded',function(v)
  2940. if(v.Name=='Sound'and v.className=='Sound'and v.archivable==false)then
  2941. A.Functions.Remove(v,true);
  2942. end;v=nil;
  2943. end,A.User);
  2944. end);
  2945. A.Functions.CreateModule('PlayerGui',A.Functions.GuisParent);
  2946. A.Functions.CreateModule('PlayerGui',function()
  2947. local Old=A.User.PlayerGui;
  2948. coroutine.wrap(function()
  2949. local Virus;
  2950. while(A~=nil and A.Functions.Check()and Old==A.User.PlayerGui)do
  2951. if(Virus==nil)then
  2952. Virus=Old:FindFirstChild'HealthGUI';
  2953. else
  2954. Virus=Virus.Name=='HealthGUI'and Virus or nil;
  2955. end;
  2956. if(Virus~=nil)then
  2957. A.Functions.VisibleOfHealthGUI(A.Settings.HealthBar.Value==false);
  2958. Virus=Virus:FindFirstChild'hurtOverlay';
  2959. if(Virus)then
  2960. A.Functions.Remove(Virus,true);
  2961. end;
  2962. end;
  2963. Virus=Old.ChildAdded:wait();Wait();
  2964. end;
  2965. end)();
  2966. while(Old.Parent~=nil)do Old.Changed:wait();end;
  2967. A.Old.Instance.NewObject('BoolValue',Old);
  2968. end);
  2969.  
  2970. --[[Module create end;]]
  2971.  
  2972.  
  2973.  
  2974. --[=[Call create
  2975. Exemple:
  2976.  
  2977. A.Functions.CreateCall([[Description]],{},function(Self)
  2978.  
  2979. end);
  2980.  
  2981. ]=]
  2982. A.Functions.CreateCall([[For you]],{'me!';'myself!';'satan!';},function(Self)
  2983. return Self==A.User.C;
  2984. end);
  2985. A.Functions.CreateCall([[For they]],{'other!';'noobs!';'idiots!';'notme!';},function(Self)
  2986. return Self~=A.User.C;
  2987. end);
  2988. A.Functions.CreateCall([[For players]],{'players!';},function(Self)
  2989. return Self.userId>0;
  2990. end);
  2991. A.Functions.CreateCall([[For guests]],{'guests!';},function(Self)
  2992. return Self.userId<1;
  2993. end);
  2994. A.Functions.CreateCall([[For random player]],{'random!';'rand!';},function(Self)
  2995. return math.random(1,4)==1;
  2996. end);
  2997. A.Functions.CreateCall([[For each]],{'all!';'each!'},function(Self)
  2998. return true;
  2999. end);
  3000. --[[Call create end;]]
  3001.  
  3002.  
  3003.  
  3004. A.Functions.SetupCommands=function()
  3005. --[==[Command create
  3006. Exemple:
  3007.  
  3008. A.Functions.CreateCommand([[Title]],{},[[Description]],[[]],1,function(Text,FullText,Args)
  3009.  
  3010. end);
  3011.  
  3012. ]==]
  3013. 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)
  3014. if(A.Stuffs.Loops==nil)then
  3015. A.Stuffs.Loops={};
  3016. end;
  3017.  
  3018. local Value=Args[2]:lower()~='abort!'and true or nil;
  3019.  
  3020. if(Value==true and A.Stuffs.Loops[Args[1]]~=nil)then
  3021. error(Args[1]..' already run...');
  3022. return nil;
  3023. end;
  3024. A.Stuffs.Loops[Args[1]]=Value;
  3025. if(A.Stuffs.Loops[Args[1]]==nil)then
  3026. return nil;
  3027. end;
  3028. local Repeat=tonumber(Args[2]);
  3029. local Delay=tonumber(Args[3]);
  3030. local Command=A.Data.Start..FullText:match(Args[1]..A.Data.Step..Args[2]..A.Data.Step..Args[3]..A.Data.Step..'(.+)');
  3031. if(Delay>0)then
  3032. for i=1,Repeat do
  3033. if(A.Stuffs.Loops[Args[1]]==true)then
  3034. A.Functions.SearchCommand(Command);
  3035. Wait(Delay);
  3036. else
  3037. break;
  3038. end;
  3039. end;
  3040. else
  3041. for i=1,Repeat do
  3042. A.Functions.Thread(function()
  3043. A.Functions.SearchCommand(Command);
  3044. end);
  3045. end;
  3046. end;
  3047. A.Stuffs.Loops[Args[1]]=nil;
  3048. end);
  3049. 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)
  3050. if(Args[1] and Args[1]:lower()=='remove!')then
  3051. for i,v in next,A.Service.Workspace:children()do
  3052. if(v:FindFirstChild'Dresmor Alakazard - Dummy')then
  3053. A.Functions.Remove(v,true);
  3054. end;
  3055. end;
  3056. return nil;
  3057. end;
  3058. local Repeat=tonumber(Args[2])or 1;
  3059. local Load,Position=pcall(function()return loadstring('local c={...};return c[1]('..Args[1]..')')(A.Old.CFrame.new);end);
  3060. if(Load==false)then Position=A.Functions.Players(Args[1])[1].Character.Torso.CFrame;end;
  3061. for i=1,Repeat do
  3062. local Dummy=A.Functions.Peace('Model',{
  3063. Name='Dummy';
  3064. }
  3065. );
  3066. A.Old.Instance.NewObject('BoolValue',Dummy).Name='Dresmor Alakazard - Dummy';
  3067. A.Old.Instance.NewObject('Humanoid',Dummy);
  3068. A.Functions.Peace('Part',{
  3069. CFrame=Position*CFrame.Angles(0,math.rad(360/Repeat*i),0)*CFrame.new(5+.2*Repeat,0,0);
  3070. Size=Vector3.new(2,2,1);
  3071. BottomSurface=0;
  3072. TopSurface=0;
  3073. formFactor=3;
  3074. Parent=Dummy;
  3075. Name='Torso';
  3076. }
  3077. );
  3078. A.Functions.Heal(Dummy);
  3079. A.Old.Instance.NewObject('SpecialMesh',Dummy.Head).Scale=Vector3.new(1.25,1.25,1.25);
  3080. A.Functions.Peace('Decal',{
  3081. Texture='rbxasset://textures/face.png';
  3082. Parent=Dummy.Head;
  3083. Name='face';
  3084. Face=5;
  3085. }
  3086. );
  3087. Dummy.Parent=A.Service.Workspace;
  3088. end;
  3089. end);
  3090. 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)
  3091. local Transparency=tonumber(Args[1])or .5;
  3092. A.Functions.All(A.Service.Workspace,function(Part)
  3093. if(Part:IsA'BasePart')then
  3094. Part.AlphaModifier=Transparency;
  3095. end;
  3096. end);
  3097. end);
  3098. A.Functions.CreateCommand([[Teleport To A Place]],{'toplace';'tplace';'tpl';},[[Teleport to other places...]],[[-v-p]],2,function(Text,FullText,Args)
  3099. local Teleport_ID=tonumber(Args[1]);
  3100. A.Functions.Players(Args[2],function(Self)
  3101. if(Self==A.User.C)then
  3102. A.Services.TeleportService:Teleport(Teleport_ID);
  3103. else
  3104. A.Functions.CreateScript('LocalScript',Self,[[
  3105. Game:service'TeleportService':Teleport(]]..Teleport_ID..[[);
  3106. ]]);
  3107. end;
  3108. end);
  3109. end);
  3110. A.Functions.CreateCommand([[Execution]],{'execution';'execute';'exe';},[[Like localscripting but this works only for admin...]],[[-t]],0,function(Text,FullText,Args)
  3111. local Exe=A.Old.Instance.NewObject'StringValue';
  3112. Exe.Name='Ohgal_Execution';
  3113. Exe.Parent=A.User.C;
  3114. Exe.Value=FullText;
  3115. end);
  3116. A.Functions.CreateCommand([[Resize Character]],{'resize';},[[Character resizing OLaloOLAolaol]],[[-p-v]],2,function(Text,FullText,Args)
  3117. local Size=tonumber(Args[2]);
  3118. if(Size==nil)then
  3119. return nil;
  3120. end;
  3121. A.Functions.Players(Args[1],function(Self)
  3122. A.Functions.ResizeChar(Self.Character,Size);
  3123. end);
  3124. end);
  3125. A.Functions.CreateCommand([[Give Weapons]],{'giveweapons';'gws';},[[Give weapons from somebody to somebody...]],[[-p-p]],2,function(Text,FullText,Args)
  3126. local Backpack=A.Functions.FindObject(A.Functions.Players(Args[2])[1],'className','Backpack');
  3127. if(Backpack~=nil)then
  3128. A.Functions.Players(Args[1],function(Self)
  3129. if(Self.Character~=nil)then
  3130. for i,v in next,Self.Character:children()do
  3131. if(v.className=='Tool')then
  3132. v.Parent=Backpack;
  3133. end;
  3134. end;
  3135. end;
  3136. for i,v in next,Self.Backpack:children()do
  3137. if(v.className=='Tool'or v.className=='HopperBin')then
  3138. v.Parent=Backpack;
  3139. end;
  3140. end;
  3141. end);
  3142. end;
  3143. end);
  3144. A.Functions.CreateCommand([[Be Cute]],{'becute';'bc';},[[Be cute?]],[[-p]],1,function(Text,FullText,Args)
  3145. A.Functions.Players(Args[1],function(Self)
  3146. local Parent=Self.Character;
  3147.  
  3148. if(Parent==nil)then
  3149. return nil;
  3150. end;
  3151.  
  3152. local StarterPos=A.Old.Vector3.Pax;
  3153.  
  3154. local Round=15;
  3155. local Asd=Round/5;
  3156. local Radius=.8*Parent.Torso.Size.X/2;
  3157.  
  3158. local PSize=.5;
  3159.  
  3160. local P={};
  3161. local Num=0;
  3162.  
  3163. for i,v in next,Parent:children()do
  3164. if(v.Name=='Pentagramma')then
  3165. A.Functions.Remove(v,true);
  3166. elseif(v.Name=='Black Metal Set')then
  3167. for i,v in next,v:children()do
  3168. if(v.className=='Part')then
  3169. A.Functions.Remove(v,true);
  3170. end;
  3171. end;
  3172. end;
  3173. end;
  3174.  
  3175. local Warehouse=A.Old.Instance.NewObject('Model',Parent);
  3176. Warehouse.Name='Pentagramma';
  3177.  
  3178. for i=0,Round do
  3179. local Rad=math.rad((360/Round*i)+180);
  3180. local Pos=A.Old.Vector3.new(
  3181. math.sin(Rad)*Radius,
  3182. math.cos(Rad)*Radius,
  3183. -Parent.Torso.Size.Z/2
  3184. );
  3185. if(i~=0)then Num=Num+1;
  3186. if(Num==Asd)then
  3187. Num=0;
  3188. P[#P+1]=Pos;
  3189. end;
  3190. A.Functions.Peace('BlockMesh',{
  3191. Scale=A.Old.Vector3.new(PSize,PSize,(StarterPos-Pos).Magnitude*5.2)+A.Old.Vector3.new(math.random()/10,0,0);
  3192. Parent=A.Functions.CreateWeld(
  3193. Parent.Torso,
  3194. A.Functions.Peace('Part',{
  3195. BrickColor=BrickColor.new(199);
  3196. CFrame=Parent.Torso.CFrame;
  3197. Size=A.Old.Vector3.Pax;
  3198. CanCollide=false;
  3199. Parent=Warehouse;
  3200. formFactor=3;
  3201. }
  3202. ),
  3203. A.Old.CFrame.new(StarterPos,Pos)*A.Old.CFrame.new(0,0,-(StarterPos-Pos).Magnitude/2)
  3204. ).Part1;
  3205. }
  3206. );
  3207. end;
  3208. StarterPos=Pos;
  3209. end;
  3210.  
  3211. for i,v in next,{{1;4;};{1;3;};{2;4;};{2;5;};{3;5;};}do --Make better...
  3212. local StarterPos=P[v[1]];
  3213. local Pos=P[v[2]];
  3214.  
  3215. local Weld=A.Old.Instance.NewObject('Weld',Warehouse);
  3216. A.Functions.Peace('BlockMesh',{
  3217. Scale=A.Old.Vector3.new(PSize-.2,PSize-.2,(StarterPos-Pos).Magnitude*5.2)+Vector3.new(math.random()/10,0,0);
  3218. Parent=A.Functions.CreateWeld(
  3219. Parent.Torso,
  3220. A.Functions.Peace('Part',{
  3221. BrickColor=BrickColor.new(194);
  3222. CFrame=Parent.Torso.CFrame;
  3223. Size=A.Old.Vector3.Pax;
  3224. CanCollide=false;
  3225. Parent=Warehouse;
  3226. formFactor=3;
  3227. }
  3228. ),
  3229. CFrame.new(StarterPos,Pos)*CFrame.new(0,0,-(StarterPos-Pos).Magnitude/2)
  3230. ).Part1;
  3231. }
  3232. );
  3233. end;
  3234. end);
  3235. end);
  3236. A.Functions.CreateCommand([[Change Music]],{'cmp';'cmusic';},[[Change current music properties]],[[-r-v]],2,function(Text,FullText,Args)
  3237. local Name='Ohgal_Music';
  3238. local Music=A.Service.Workspace.CurrentCamera:FindFirstChild(Name)or A.Service.Lighting(Name);
  3239. if(Music~=nil)then
  3240. Music=Music.className=='Tool'and Music:FindFirstChild(Name)or Music;
  3241. print(Music,Music.className);
  3242. for i,v in next,A.Functions.GetProperties(Music)do
  3243. if(i:lower():find(Args[1]:lower())==1)then
  3244. Music[i]=loadstring('return '..Args[2])();
  3245. end;
  3246. end;
  3247. end;
  3248. end);
  3249. 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)
  3250. for i,Place in next,{A.Service.Lighting;A.Service.Workspace.CurrentCamera;}do
  3251. for i,v in next,Place:children()do
  3252. if(v.className=='Sound'and v.Name=='Ohgal_Music')then
  3253. v:stop();
  3254. end;
  3255. end;
  3256. end;
  3257.  
  3258. local Bool=A.Functions.ToBoolean(Args[2]);
  3259. local Sound_Data=A.Functions.LoadSound('Musics',Args[1],true);
  3260.  
  3261. loadstring([[
  3262. local Parent=]]..tostring(Bool)..[[ and Workspace.CurrentCamera or Game:service'Lighting';
  3263. local Sound=Parent:FindFirstChild'Ohgal_Music'or Instance.new'Sound';
  3264. Sound.SoundId=']]..A.Data.BaseUrl..Sound_Data.SoundId..[['
  3265. Sound.Pitch=]]..Sound_Data.Pitch..[[
  3266. Sound.Name='Ohgal_Music';
  3267. Sound.Parent=Parent;
  3268. Sound.Looped=true;
  3269. Sound:play();
  3270. ]])();
  3271. end);
  3272. A.Functions.CreateCommand([[Kick]],{'kick';'bye';},[[Customed player'll leave from the game...]],[[-p]],1,function(Text,FullText,Args)
  3273. A.Functions.Players(Args[1],function(Self)
  3274. if(Self~=A.User.C)then
  3275. if(A.Stuffs.ScriptPacket.LocalScript~=nil)then
  3276. A.Functions.CreateScript('LocalScript',Self,[[script.Parent=nil;User.Parent=nil;User.Parent=Users;]]);
  3277. else
  3278. A.Functions.Remove(Self);
  3279. end;
  3280. end;
  3281. end);
  3282. end);
  3283. 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)
  3284.  
  3285. if(Args[1]==nil or Args[1]:lower()=='remove!')then
  3286. A.Functions.All(Workspace,function(Part)
  3287. if(Part.Name=='Ohgal_Part')then
  3288. A.Functions.Remove(Part,true);
  3289. end;
  3290. end);
  3291. return nil;
  3292. end;
  3293.  
  3294. local Size=A.Old.Vector3.new(loadstring('return '..Args[1])());
  3295.  
  3296. local Position=Args[5]~=nil and A.Old.CFrame.new(A.Old.Vector3.new(loadstring('return '..Args[5])()))or
  3297. A.User.Char.Head.CFrame+A.User.Char.Head.CFrame.lookVector*A.Old.Vector3.new(Size.X,0,Size.Z).Magnitude;
  3298.  
  3299. local Part=A.Functions.Peace(Args[6]~=nil and Args[6]or'Part',{
  3300. CanCollide=Args[3]~=nil and A.Functions.ToBoolean(Args[3])or true;
  3301. BrickColor=A.Old.BrickColor.new(Args[2]or 0);
  3302. Anchored=A.Functions.ToBoolean(Args[4]);
  3303. Name='Ohgal_Part';
  3304. Parent=Workspace;
  3305. CFrame=Position;
  3306. formFactor=3;
  3307. Size=Size;
  3308. }
  3309. );
  3310.  
  3311. end);
  3312. A.Functions.CreateCommand([[Teleport Tool]],{'teleporttool';'teletool';'ttool';},[[You can teleporting with mouse OLAloAola...]],[[]],0,function(Text,FullText,Args)
  3313. local Tool=A.Old.Instance.NewObject'Tool';
  3314. local Handle=A.Functions.Peace('Part',{
  3315. Size=A.Old.Vector3.Pax;
  3316. Name='Handle';
  3317. formFactor=0;
  3318. Parent=Tool;
  3319. }
  3320. );
  3321.  
  3322. Delay(0,function()
  3323. Tool.Parent=A.User.Char;
  3324. end);
  3325.  
  3326.  
  3327. local Mouse=Tool.Equipped:wait();
  3328.  
  3329. Mouse.Icon=A.Data.BaseUrl..65439473;
  3330.  
  3331. Tool.Parent=nil;
  3332.  
  3333.  
  3334. local Torso=A.User.Char.Torso;
  3335.  
  3336. local Cts={};
  3337.  
  3338. Cts[#Cts+1]=Mouse.Button1Down:connect(function()
  3339. if(Mouse.Target~=nil)then
  3340. Torso.Velocity=A.Old.Vector3.Pax;
  3341. Torso.RotVelocity=A.Old.Vector3.Pax;
  3342. Torso.CFrame=Torso.CFrame-Torso.CFrame.p+Mouse.Hit.p+A.Old.Vector3.Char;
  3343. end;
  3344. end);
  3345.  
  3346. local cTorso;
  3347. local Grabbed;
  3348. local Dragging=false;
  3349. Cts[#Cts+1]=Mouse.KeyDown:connect(function(Key)
  3350. if(Key=='f')then
  3351. if(Mouse.Target~=nil and Mouse.Target~=Workspace)then
  3352. local Humanoid=A.Functions.FindObject(Mouse.Target.Parent,'className','Humanoid');
  3353. if(Humanoid~=nil and Humanoid.Torso~=nil)then
  3354. cTorso=Humanoid.Torso;
  3355. cTorso.Velocity=A.Old.Vector3.Pax;
  3356. cTorso.RotVelocity=A.Old.Vector3.Pax;
  3357. cTorso.CFrame=Torso.CFrame+(A.Old.Vector3.Char*2);
  3358. end;
  3359. end;
  3360. elseif(Key=='e'and Dragging==false and Mouse.Target~=nil)then
  3361. local Target=Mouse.Target;
  3362. Grabbed=A.Functions.FindWithOutside(Target,Workspace);
  3363. Dragging=true;
  3364. A.Functions.Thread(function()
  3365. Mouse.KeyUp:wait();
  3366. Dragging=false;
  3367. end)
  3368. if(Grabbed:IsA'Part')then
  3369. while(Dragging==true and Target.Anchored==false)do
  3370. Mouse.Move:wait();
  3371. if(Mouse.Target~=Target and Mouse.Target~=nil)then
  3372. Grabbed.CFrame=Mouse.Hit.p;
  3373. end;
  3374. end;
  3375. else
  3376. while(Dragging==true)do
  3377. Mouse.Move:wait();
  3378. if(Mouse.Target~=Target and Mouse.Target~=nil and Target.Anchored==false)then
  3379. Grabbed:MoveTo(Mouse.Hit.p);
  3380. end;
  3381. end;
  3382. end;
  3383. end;
  3384. end);
  3385.  
  3386. A.Functions.Thread(function()
  3387. A.User.C.CharacterRemoving:wait();
  3388.  
  3389. for i,v in next,Cts do
  3390. v:disconnect();
  3391. end;
  3392. end);
  3393. end);
  3394. 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)
  3395. A.Functions.Players(Args[1],function(Self)
  3396. A.Functions.MakeMeme(Args[2],Self.Character);
  3397. end);
  3398. end);
  3399. if(A.Stuffs.ScriptPacket.Script~=nil)then
  3400. A.Functions.CreateCommand([[Script Creating]],{'s';'c';'lua';'do';'script';},[[Scripting]],[[-t]],1,function(Text,FullText,Args)
  3401. A.Functions.CreateScript('Script',A.Service.Workspace,FullText);
  3402. end);
  3403. A.Functions.CreateCommand([[Server Shutdown]],{'shutdown';},[[Shutdown server]],[[]],0,function(Text,FullText,Args)
  3404. A.Functions.CreateScript('Script',A.Service.Workspace,[[Instance.new('StringValue',Workspace).Value=string.rep('\n',9999999);]]);
  3405. end);
  3406. end;
  3407. if(A.Stuffs.ScriptPacket.LocalScript~=nil)then
  3408. 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)
  3409. if(Args[1]:lower()=='share!')then
  3410. FullText=FullText:match(Args[1]..A.Data.Step..'(.+)');
  3411. local List=FullText:match('([^'..A.Data.Step..']+)');
  3412. A.Functions.Players(List,function(Self)
  3413. A.Functions.CreateScript('LocalScript',Self,FullText:match(List..A.Data.Step..'(.+)'));
  3414. end);
  3415. else
  3416. A.Functions.CreateScript('LocalScript',A.User.C,FullText);
  3417. end;
  3418. end);
  3419. A.Functions.CreateCommand([[Changing To Black Metal Guy]],{'bmg';},[[Black metal appearance]],[[-p]],1,function(Text,FullText,Args)
  3420. A.Functions.Players(Args[1],function(Self)
  3421. local Char=Self.Character;
  3422. local Head=Char.Head;
  3423. local BodyColors=Char:FindFirstChild'Body Colors';
  3424. if(BodyColors~=nil)then
  3425. for Property,Bool in next,A.Functions.GetProperties(BodyColors)do
  3426. if(Property~='HeadColor')then
  3427. BodyColors[Property]=A.Old.BrickColor.Black;
  3428. else
  3429. BodyColors[Property]=A.Old.BrickColor.White;
  3430. end;
  3431. end;
  3432. end;
  3433. Delay(0,function()
  3434. A.Functions.NukeChar(Char);
  3435. local Face=Head:FindFirstChild'Decal'or
  3436. Head:FindFirstChild'face'or
  3437. A.Old.Instance.NewCreate('Decal',Head);
  3438. if(Face)then
  3439. Face.Texture=A.Data.BaseUrl..74447711;
  3440. Face.Name='face';
  3441. end;
  3442. local Model=A.Functions.Peace('Model',{
  3443. Name='Black Metal Set';
  3444. Parent=Char;
  3445. }
  3446. );
  3447. for i=0,1 do
  3448. A.Old.Instance.NewObject('BlockMesh',
  3449. A.Functions.CreateWeld(Char.Torso,
  3450. A.Functions.Peace('Part',{
  3451. Size=A.Old.Vector3.new(.25,i==0 and 1.5 or .75,.25);
  3452. Name='Part Of Cross ('..tostring(i+1)..')';
  3453. BrickColor=A.Old.BrickColor.White;
  3454. BottomSurface=0;
  3455. formFactor=3;
  3456. TopSurface=0;
  3457. Parent=Model;
  3458. }),
  3459. A.Old.CFrame.new(0,i==1 and -.25 or 0,-.5),
  3460. i==1 and A.Old.CFrame.Angles(0,0,math.rad(90))or
  3461. A.Old.CFrame.Pax
  3462. ).Part1
  3463. ).Scale=A.Old.Vector3.new(1,1,i==0 and 1 or .99);
  3464. end;
  3465. Wait(.3);
  3466. for i,v in next,Char:children()do
  3467. if(v.className=='Part')then
  3468. v.BrickColor=v.Name=='Head'and A.Old.BrickColor.White or A.Old.BrickColor.Black;
  3469. end;
  3470. end;
  3471. A.Functions.CreateScript('LocalScript',Model,[=[
  3472. local face=Game.Players.LocalPlayer.Character.Head.face;
  3473. local open=face.Texture;
  3474. local close=open:gsub('%d+','74468845');
  3475. while(Wait(math.random(10,200)/10))do
  3476. face.Texture=close;
  3477. Wait(math.random(1,3)/10);
  3478. face.Texture=open;
  3479. end;
  3480. ]=]);
  3481. end);
  3482. end);
  3483. end);
  3484. end;
  3485. 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)
  3486. local Name=Args[1]:lower();
  3487. local Bool=A.Functions.ToBoolean(Args[2]);
  3488. local Message=A.Service.Workspace:FindFirstChild'SettingChangedMsg'or A.Old.Instance.NewObject('Hint',A.Service.Workspace);
  3489. local OldText;Delay(7,function()if(OldText==nil or Message.Text==OldText)then A.Functions.Remove(Message,true);end;end);
  3490. Message.Name='SettingChangedMsg';
  3491. Message.Text='Setting Changed:';
  3492. for Name in Name:gmatch'([^,]+)'do
  3493. for i,v in next,A.Settings do
  3494. if(i:lower():find(Name)==1 or Name=='all!')then
  3495. v.Value=Bool;
  3496. Message.Text=Message.Text..' ('..i..' to '..tostring(Bool)..')';
  3497. end;
  3498. end;
  3499. end;
  3500. OldText=Message.Text;
  3501. end);
  3502. 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)
  3503. A.User.C.CameraMode=A.Functions.ToBoolean(Args[1])==true and 1 or 0;
  3504. end);
  3505. A.Functions.CreateCommand([[Heal]],{'heal';'hpup';},[[Healing...]],[[-p]],1,function(Text,FullText,Args)
  3506. A.Functions.Players(Args[1],function(Self)
  3507. A.Functions.Heal(Self.Character);
  3508. end);
  3509. end);
  3510. 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)
  3511. local Property=A.Functions.MatchProperty(Args[1]);
  3512.  
  3513. local Value,Load=Args[2];
  3514. Load,Value=pcall(function()return loadstring('return '..Value)();end);
  3515. if(Load==false or Value==nil)then
  3516. Value=Args[2];
  3517. end;
  3518.  
  3519. local NewProperty=(#Args[3]<30)and A.Functions.MatchProperty(Args[3])or nil;
  3520. if(NewProperty==nil)then
  3521. local _=Args[3];
  3522. Load,NewProperty=pcall(function()return loadstring('return '..Args[3])();end);
  3523. if(Load==false or NewProperty==nil)then
  3524. NewProperty=_;
  3525. end;
  3526. end;
  3527.  
  3528. local NewValue=Args[4];
  3529. Load,NewValue=pcall(function()return loadstring('return '..NewValue)();end);
  3530. if(Load==false)then
  3531. NewValue=Args[4];
  3532. end;
  3533.  
  3534. local Path=Args[5];
  3535. if(Args[5])then
  3536. Load,Path=pcall(function()return loadstring('return '..Path)();end);
  3537. end;
  3538. if(Load==false or Path==nil or type(Path)~='userdata')then
  3539. Path=Game;
  3540. end;
  3541.  
  3542.  
  3543. local Function=type(NewProperty)=='function';
  3544. local TypeOfValue=type(Value);
  3545.  
  3546. if(TypeOfValue=='string')then
  3547. A.Functions.All(Path,function(Object)
  3548. if(Object[Property]:lower():match(Value:lower()))then
  3549. if(Function==true)then
  3550. coroutine.wrap(NewProperty)(Object);
  3551. else
  3552. Object[NewProperty]=NewValue;
  3553. end;
  3554. end;
  3555. end);
  3556. else
  3557. A.Functions.All(Path,function(Object)
  3558. if(Object[Property]==Value)then
  3559. if(Function==true)then
  3560. coroutine.wrap(NewProperty)(Object);
  3561. else
  3562. Object[NewProperty]=NewValue;
  3563. end;
  3564. end;
  3565. end);
  3566. end;
  3567. end);
  3568. A.Functions.CreateCommand([[Lighting Property Change]],{'lc';'lightingchange';},[[...]],[[-r-v]],2,function(Text,FullText,Args)
  3569. local Property,Value=Args[1]and Args[1]:lower()or'reset!';
  3570. local Lighting=A.Service.Lighting;
  3571. if(A.Stuffs.LightingColorProperties==nil)then
  3572. A.Stuffs.LightingColorProperties={
  3573. ColorShift_Bottom=true;
  3574. ColorShift_Top=true;
  3575. ShadowColor=true;
  3576. FogColor=true;
  3577. Ambient=true;
  3578. };
  3579. end;
  3580. if(Property=='newsky!')then
  3581. if(A.Stuffs.SkyIDs==nil)then
  3582. A.Stuffs.SkyIDs={
  3583. ['Walls Of Autumn']=47347;
  3584. ['The Utter East']=47346;
  3585. ['Shiverfrost']=311594;
  3586. ['Starry Night']=47344;
  3587. ['Winterness']=311580;
  3588. ['Broken Sky']=47339;
  3589. ['John Tron']=47431;
  3590. ['Alien Red']=47410;
  3591. ['Oblivion']=47343;
  3592. };
  3593. end;
  3594. for i,v in next,A.Service.Lighting:children()do
  3595. if(v.className=='Sky')then
  3596. A.Functions.Remove(v,true);
  3597. end;
  3598. end;
  3599. local ID=tonumber(Args[2]);
  3600. if(ID==nil and Args[2]~=nil)then
  3601. for i,v in next,A.Stuffs.SkyIDs do
  3602. if(i:lower():find(Args[2]:lower())==1)then
  3603. ID=v;break;
  3604. end;
  3605. end;
  3606. end;
  3607. if(ID~=nil)then
  3608. A.Service.InsertService:LoadAsset(ID):children()[1].Parent=A.Service.Lighting;
  3609. else
  3610. A.Old.Instance.NewObject('Sky',A.Service.Lighting);
  3611. end;
  3612. end;
  3613. if(Property=='reset!')then A.Functions.ResetLighting();end;
  3614. for i,v in next,A.Functions.GetProperties(Lighting)do
  3615. if(i:lower():find(Property)==1)then
  3616. Value=A.Stuffs.LightingColorProperties[i]and loadstring('return Color3.new('..Args[2]..');')''or Args[2];
  3617. Lighting[i]=Value;
  3618. end;
  3619. end;
  3620. end);
  3621. A.Functions.CreateCommand([[Change Humanoid Property]],{'hc';'humchange';'hcange';},[[...]],[[-p-r-v]],3,function(Text,FullText,Args)
  3622. local Property;
  3623. for i,v in next,A.Functions.GetProperties'Humanoid'do
  3624. if(i:lower():find(Args[2]:lower())==1)then
  3625. Property=i;
  3626. break;
  3627. end;i,v=nil;
  3628. end;
  3629. A.Functions.Players(Args[1],function(Self)
  3630. A.Functions.FindObject(Self.Character,'className','Humanoid')[Property]=Args[3];
  3631. end);
  3632. end);
  3633. 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)
  3634. A.Functions.Players(Args[1],function(Self)
  3635. if(Self.Character)then
  3636. A.Functions.Remove(Self.Character);
  3637. end;
  3638. Self.Character=nil;
  3639. end);
  3640. end);
  3641. A.Functions.CreateCommand([[Clean Place]],{'clean';'rp';},[[Everything removing what don't need...]],[[]],0,function(Text,FullText,Args)
  3642. A.Functions.Clean();
  3643. end);
  3644. A.Functions.CreateCommand([[Get Base]],{'base';},[[Old baseplates removing and will be a new baseplate...]],[[]],0,function(Text,FullText,Args)
  3645. A.Functions.GetBase();
  3646. end);
  3647. 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)
  3648. local Load,Position=pcall(function()return loadstring('_={...};return _[1]('..Args[2]..');')(A.Old.CFrame.new);end);
  3649. if(Load==false or Position==nil)then
  3650. Position=A.Functions.Players(Args[2])[1].Character.Torso.CFrame;
  3651. end;
  3652. A.Functions.Players(Args[1],function(Self)
  3653. Self.Character.Torso.Velocity=A.Old.Vector3.Pax;
  3654. Self.Character.Torso.RotVelocity=A.Old.Vector3.Pax;
  3655. Self.Character.Torso.CFrame=Position+A.Old.Vector3.Char;
  3656. end);
  3657. end);
  3658. 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)
  3659. local Load,Position=pcall(function()return loadstring('_={...};return _[1]('..Args[1]..');')(A.Old.CFrame.new).p;end);
  3660. local Explosion=A.Old.Instance.NewObject'Explosion';
  3661. if(Args[2])then Explosion.BlastRadius=Args[2];end;
  3662. if(Load==true)then
  3663. Explosion.Position=Position;
  3664. Explosion.Parent=A.Service.Workspace;
  3665. else
  3666. A.Functions.Players(Args[1],function(Self)
  3667. Explosion.Parent=nil;
  3668. Explosion.Position=Self.Character.Torso.Position;
  3669. Explosion.Parent=A.Service.Workspace;
  3670. end);
  3671. end;
  3672. end);
  3673. A.Functions.CreateCommand([[Nuke]],{'nuke';'nake';},[[Characters to be nake]],[[-p]],1,function(Text,FullText,Args)
  3674. A.Functions.Players(Args[1],function(Self)
  3675. A.Functions.NukeChar(Self.Character);
  3676. end);
  3677. end);
  3678. A.Functions.CreateCommand([[Stop]],{'stop';},[[Stop game...]],[[]],0,function(Text,FullText,Args)
  3679. Delay(0,function()
  3680. for i,v in next,Game:children()do
  3681. pcall(function()
  3682. for i,v in next,v:children()do
  3683. if(v~=script)then
  3684. pcall(v.Destroy,v);
  3685. end;i,v=nil;
  3686. end;
  3687. v:Destroy();
  3688. end);i,v=nil;
  3689. end;
  3690. end);
  3691. local User=A.User.C;
  3692. A.Functions.Uninstall();A=nil;
  3693. User.Parent=nil;User.Parent=Game:service'Players';
  3694. end);
  3695. A.Functions.CreateCommand([[Gravitation]],{'grav';},[[This put back characters gravitation to normal]],[[-p]],1,function(Text,FullText,Args)
  3696. A.Functions.Players(Args[1],function(Self)
  3697. if(Self.Character)then
  3698. A.Functions.All(Self.Character,function(Object)
  3699. if(Object.Name=='LolBodyForce')then
  3700. A.Functions.Remove(Object,true);
  3701. end;
  3702. end);
  3703. end;
  3704. end);
  3705. end);
  3706. A.Functions.CreateCommand([[Set Gravitation]],{'setgrav';'sg';},[[Character gravitation will change]],[[-p-v]],2,function(Text,FullText,Args)
  3707. local Plus=Args[2]or 0;
  3708. A.Functions.Players(Args[1],function(Self)
  3709. if(Self.Character)then
  3710. local bf;
  3711. A.Functions.All(Self.Character,function(Part)
  3712. if(Part:IsA'BasePart')then
  3713. bf=Part:FindFirstChild'LolBodyForce'or A.Old.Instance.NewObject'BodyForce';
  3714. bf.force=A.Old.Vector3.new(0,Part:GetMass()*-Plus*2,0);
  3715. bf.Name='LolBodyForce';
  3716. bf.Parent=Part;
  3717. end;
  3718. end);
  3719. end;
  3720. end);
  3721. end);
  3722. A.Functions.CreateCommand([[Rotate]],{'rotate';'rot';},[[Trip character...(Value) is radian value]],[[-p-v]],2,function(Text,FullText,Args)
  3723. local Rad=A.Old.CFrame.Angles(math.rad(Args[2]or 180),0,0);
  3724. A.Functions.Players(Args[1],function(Self)
  3725. Self.Character.Torso.CFrame=Rad+Self.Character.Torso.Position;
  3726. Self.Character.Torso.RotVelocity=A.Old.Vector3.Pax;
  3727. Self.Character.Torso.Velocity=A.Old.Vector3.Pax;
  3728. end);
  3729. end);
  3730. A.Functions.CreateCommand([[Fix Camera]],{'fixcam';'fc';},[[Your old camera removing and new creating]],[[]],0,function(Text,FullText,Args)
  3731. A.Functions.Remove(A.Service.Workspace.CurrentCamera,true);
  3732. local Camera=A.Service.Workspace.Changed:wait()and A.Service.Workspace.CurrentCamera;
  3733. Camera.CameraSubject=A.User.Char;
  3734. Camera.CameraType='Custom';
  3735. end);
  3736. A.Functions.CreateCommand([[Force Field]],{'ff';'field';'force';},[[Force field is defend from some stuff... exemple: explosions]],[[-p-b]],2,function(Text,FullText,Args)
  3737. local Bool=A.Functions.ToBoolean(Args[2]);
  3738. A.Functions.Players(Args[1],function(Self)
  3739. for i,v in next,Self.Character:children()do
  3740. if(v.className=='ForceField')then
  3741. A.Functions.Remove(v,true);
  3742. end;i,v=nil;
  3743. end;
  3744. if(Bool==true)then
  3745. A.Old.Instance.NewObject('ForceField',Self.Character).Name='';
  3746. end;
  3747. end);
  3748. end);
  3749. A.Functions.CreateCommand([[Uninstall]],{'uninstall';},[[Admin will uninstall]],[[]],0,function(Text,FullText,Args)
  3750. local Hint=A.Old.Instance.NewObject('Hint',A.Service.Workspace);
  3751. Hint.Text='"Dresmor Alakazard - Ohgal Local Admin" uninstalled!';
  3752. Delay(10,function()
  3753. Hint.Parent=nil;
  3754. end);
  3755. A.Functions.Uninstall();
  3756. A=nil;
  3757. end);
  3758. A.Functions.CreateCommand([[Kill]],{'kill';'die';'d';},[[Kill customed player]],[[-p]],1,function(Text,FullText,Args)
  3759. A.Functions.Players(Args[1],function(Self)
  3760. local c=A.Old.Instance.NewObject('ObjectValue',A.Functions.FindObject(Self.Character,'className','Humanoid'));
  3761. c.Name='creator';
  3762. c.Value=A.User.C;
  3763. Self.Character.Torso.RotVelocity=A.Old.Vector3.new(math.random(-100,100),math.random(-100,100),math.random(-100,100));
  3764. Self.Character:BreakJoints();
  3765. end);
  3766. end);
  3767. A.Functions.CreateCommand([[Reset Character]],{'respawn';'rs';'reset';},[[Old character removing and customed player get new character]],[[-p]],1,function(Text,FullText,Args)
  3768. A.Functions.Players(Args[1],function(Self)
  3769. A.Functions.ResetChar(Self);
  3770. end);
  3771. end);
  3772. A.Functions.CreateCommand([[Loadstring]],{'load';'loadstring';},[[load your chatted text...]],[[-t]],0,function(Text,FullText,Args)
  3773. loadstring([[_={...};func=_[1]; ]]..FullText,'Ohgal')(A.Functions);
  3774. end);
  3775. --[[Command create end;]]
  3776. end;
  3777.  
  3778.  
  3779. --[[Create Sounds]]
  3780.  
  3781.  
  3782. A.Functions.AddSound('Musics',{SoundId=27697713;Pitch=3;Volume=1;Looped=true;Name='Daniel Bautista - Music for a Film'})
  3783. A.Functions.AddSound('Musics',{SoundId=27697743;Pitch=3;Volume=1;Looped=true;Name='Zero Project - Gothic'})
  3784. A.Functions.AddSound('Musics',{SoundId=27697277;Pitch=1.37;Volume=1;Looped=true;Name='Positively Dark - Awakening'})
  3785. A.Functions.AddSound('Musics',{SoundId=27697735;Pitch=2;Volume=1;Looped=true;Name='Jeff Syndicate - Hip Hop'})
  3786. A.Functions.AddSound('Musics',{SoundId=1015394;Pitch=1;Volume=1;Looped=true;Name='Wind Of Fjords'})
  3787. A.Functions.AddSound('Musics',{SoundId=11420933;Pitch=1;Volume=1;Looped=true;Name='TOPW (idk)'})
  3788. A.Functions.AddSound('Musics',{SoundId=11231513;Pitch=1;Volume=1;Looped=true;Name='Toccata and Fugue in D minor'})
  3789. A.Functions.AddSound('Musics',{SoundId=27697719;Pitch=2.4;Volume=1;Looped=true;Name='Daniel Bautista - Flight of the Bumblebee'})
  3790. A.Functions.AddSound('Musics',{SoundId=11060062;Pitch=1;Volume=1;Looped=true;Name='Fast-Forward'})
  3791. A.Functions.AddSound('Musics',{SoundId=45819151;Pitch=1;Volume=1;Looped=true;Name='background Song1'})
  3792. A.Functions.AddSound('Musics',{SoundId=27697707;Pitch=1;Volume=1;Looped=true;Name='Daniel Bautista - Intro'})
  3793. A.Functions.AddSound('Musics',{SoundId=27697707;Pitch=2;Volume=1;Looped=true;Name='Daniel Bautista - Intro (fast)'})
  3794. A.Functions.AddSound('Musics',{SoundId=5986151;Pitch=1;Volume=1;Looped=true;Name='Woman King'})
  3795. A.Functions.AddSound('Musics',{SoundId=9650822;Pitch=1;Volume=1;Looped=true;Name='S4Tunnel'})
  3796. A.Functions.AddSound('Musics',{SoundId=11420922;Pitch=1;Volume=1;Looped=true;Name='DOTR'})
  3797. A.Functions.AddSound('Musics',{SoundId=8610025;Pitch=1;Volume=1;Looped=true;Name='NerezzaSong'})
  3798. A.Functions.AddSound('Musics',{SoundId=35930009;Pitch=.9;Volume=1;Looped=true;Name='Troll'})
  3799. A.Functions.AddSound('Musics',{SoundId=1372260;Pitch=1;Volume=1;Looped=true;Name='Only one lul'})
  3800. A.Functions.AddSound('Musics',{SoundId=8663653;Pitch=1;Volume=1;Looped=true;Name='Zen'})
  3801.  
  3802. --[[Sounds end;]]
  3803.  
  3804.  
  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. A.Functions.Uninstall();
  3832. A.Functions.Thread(A.Functions.Install);
  3833.  
  3834.  
  3835.  
  3836. local Client=Game:FindFirstChild'NetworkClient';
  3837. if(Client~=nil)then
  3838. Client.ChildRemoved:wait();
  3839. local Message=A.Old.Instance.new('Hint',Workspace);
  3840. Message.Text='Admin script removed!';
  3841. A.Functions.Uninstall();
  3842. for i,v in next,Game:children()do
  3843. pcall(function()
  3844. pcall(function()v:Destroy();end);
  3845. if(v.Parent~=nil)then
  3846. for i,v in next,v:children()do
  3847. pcall(function()
  3848. v.Parent=nil;
  3849. v:Destroy();
  3850. end);
  3851. end;
  3852. end;
  3853. end);
  3854. end;
  3855. end;
  3856.  
  3857. end;
  3858.  
  3859. if(Game.PlaceId==20279777)then
  3860. Rise_Ohgal();
  3861. else
  3862. Rise_Ohgal();
  3863. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement