zEE1222

Untitled

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