Advertisement
Gystac

something

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