Advertisement
JuicyPenguin

Meme script

Jun 2nd, 2015
858
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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