BINO2002

Untitled

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