API tools faq
paste
Advertisement
Guest User

Meme Script [Roblox]

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