ZeeDerp

lag

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