Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --mediafire
- local Main=function()
- A={};
- A.Old={};
- A.Data={};
- A.User={};
- A.Calls={};
- A.Images={};
- A.Stuffs={};
- A.Sounds={};
- A.Modules={};
- A.Service={};
- A.Settings={};
- A.Commands={};
- A.Warehouse={};
- A.Functions={};
- A.EachCalls={};
- A.GuiModules={};
- A.SettingIDs={};
- A.KeyCommands={};
- A.ObjectsData={};
- A.RecentCommands={};
- A.SettingsFunctions={};
- A.Stuffs.Meter={};
- A.Warehouse.Objects={};
- A.Warehouse.Connections={};
- A.ObjectsData.KnowProperties={};
- A.ObjectsData.KnowPropertiesNumber={};
- A.ObjectsData.GlobalProperties={'Name';'className';'Parent';'archivable';};
- A.ObjectsData.EspecialProperties={'AbsolutePosition';'AbsoluteSize';'AccountAge';'AccountAgeReplicate';
- 'Active';'Adornee';'AllowAmbientOcclusion';'AllowTeamChangeOnTouch';'AluminumQuality';
- 'AlwaysOnTop';'Ambient';'AmbientReverb';'Anchored';'Angularvelocity';'AnimationId';
- 'AreHingesDetected';'AttachmentForward';'AttachmentPoint';'AttachmentPos';
- 'AttachmentRight';'AttachmentUp';'AutoAssignable';'AutoButtonColor';'AutoColorCharacters';
- 'AvailablePhysicalMemory';'Axes';'BackgroundColor';'BackgroundColor3';'BackgroundTransparency';
- 'BaseTextureId';'BaseUrl';'Bevel';'Roundness';'BinType';'BlastPressure';'BlastRadius';
- 'BodyColor';'BodyPart';'BorderColor';'BorderColor3';'BorderSizePixel';'BrickColor';
- 'Brightness';'Browsable';'BubbleChat';'BubbleChatLifetime';'BubbleChatMaxBubbles';
- 'Bulge';'Button1DownConnectionCount';'Button1UpConnectionCount';'Button2DownConnectionCount';
- 'Button2UpConnectionCount';'C0';'C1';'CameraMode';'CameraSubject';'CameraType';
- 'CanBeDropped';'CanCollide';'CartoonFactor';'CastShadows';'CelestialBodiesShown';
- 'CFrame';'Cframe';'Character';'CharacterAppearance';'CharacterAutoLoads';'ChatScrollLength';
- 'ClassicChat';'ClearTextOnFocus';'ClipsDescendants';'CollisionSoundEnabled';
- 'CollisionSoundVolume';'Color';'Bottom';'Top';'ConstrainedValue';'ControllingHumanoid';
- 'ControlMode';'ConversationDistance';'CoordinateFrame';'CorrodedMetalQuality';'CPU';
- 'CpuCount';'CpuSpeed';'CreatorId';'CreatorType';'CurrentAngle';'CurrentCamera';
- 'CycleOffset';'D';'DataCap';'DataComplexity';'DataComplexityLimit';'DataCost';
- 'DataReady';'Deprecated';'DeselectedConnectionCount';'DesiredAngle';'DiamondPlateQuality';
- 'Disabled';'DistanceFactor';'DistributedGameTime';'DopplerScale';'Draggable';'DraggingV1';
- 'Duration';'EditorFont';'EditorFontSize';'EditorTabWidth';'ElapsedTime';'Elasticity';
- 'Enabled';'ExplosionType';'ExtentsOffset';'F0';'F1';'F2';'F3';'Face';'FaceId';'Faces';
- 'FieldOfView';'Focus';'FogColor';'FogEnd';'FogStart';'Font';'FontSize';'Force';'FormFactor';
- 'Friction';'From';'GearGenreSetting';'Genre';'GeographicLatitude';'GfxCard';'Graphic';
- 'GrassQuality';'Grip';'GripForward';'GripPos';'GripRight';'GripUp';'Guest';'HeadsUpDisplay';
- 'Health';'Heat';'Hit';'Humanoid';'IceQuality';'Icon';'IdleConnectionCount';'Image';
- 'InitialPrompt';'InOut';'InUse';'IsPaused';'IsPlaying';'JobId';'Jump';'KeyDownConnectionCount';
- 'KeyUpConnectionCount';'LeftLeg';'LeftRight';'LinkedSource';'LocalPlayer';'Location';
- 'Locked';'LODX';'LODY';'Looped';'Material';'MaxActivationDistance';'MaxCollisionSounds';
- 'MaxExtents';'MaxForce';'MaxHealth';'MaxItems';'MaxPlayers';'MaxSpeed';'MaxThrust';
- 'MaxTorque';'MaxValue';'MaxVelocity';'MembershipType';'MembershipTypeReplicate';'MeshId';
- 'MeshType';'MinValue';'Modal';'MouseButton1ClickConnectionCount';'MouseButton1DownConnectionCount';
- 'MouseButton1UpConnectionCount';'MouseButton2ClickConnectionCount';'MouseButton2DownConnectionCount';
- 'MouseButton2UpConnectionCount';'MouseDelta';'MouseDragConnectionCount';'MouseEnterConnectionCount';
- 'MouseHit';'MouseLeaveConnectionCount';'MouseLock';'MouseMovedConnectionCount';'MouseTarget';
- 'MouseTargetFilter';'MouseTargetSurface';'MoveConnectionCount';'MoveState';'MultiLine';
- 'NameOcclusion';'NetworkOwner';'Neutral';'NumPlayers';'Offset';'Opacity';'Origin';'OsPlatform';
- 'OsVer';'OverlayTextureId';'P';'PantsTemplate';'ParamA';'ParamB';'Part';'Part0';
- 'Part1';'Pitch';'PixelShaderModel';'PlaceId';'PlasticQuality';'PlatformStand';'PlayCount';
- 'PlayerToHideFrom';'PlayOnRemove';'Point';'Port';'Position';'Preliminary';'PrimaryPart';
- 'PrivateWorkingSetBytes';'Purpose';'RAM';'Reflectance';'ReplicatedSelectedConnectionCount';
- 'ResizeableFaces';'ResizeIncrement';'Resolution';'ResponseDialog';'RightLeg';'RiseVelocity';
- 'RobloxLocked';'RobloxVersion';'RolloffScale';'RotVelocity';'Scale';'Score';'ScriptsDisabled';
- 'SecondaryColor';'Selected';'ShadowColor';'Shape';'Shiny';'ShirtTemplate';'ShowDeprecatedObjects';
- 'ShowDevelopmentGui';'ShowPreliminaryObjects';'Sides';'Sit';'Size';'SizeConstraint';
- 'SizeOffset';'SkinColor';'SkyboxBk';'SkyboxDn';'SkyboxFt';'SkyboxLf';'SkyboxRt';'SkyboxUp';
- 'SlateQuality';'SoundId';'Source';'SparkleColor';'Specular';'StarCount';
- 'Steer';'StickyWheels';'StudsBetweenTextures';'StudsOffset';'StudsPerTileU';'StudsPerTileV';
- 'Style';'Summary';'SuperSafeChatReplicate';'Surface';'Surface0';
- 'Surface1';'SurfaceInput';'Target';'TargetFilter';'TargetOffset';'TargetPoint';
- 'TargetRadius';'TargetSurface';'TeamColor';'Terrain';'Text';'TextBounds';'TextColor';'TextColor3';
- 'TextFits';'TextScaled';'TextStrokeColor3';'TextStrokeTransparency';'TextTransparency';'Texture';
- 'TextureId';'TextureSize';'TextWrap';'TextWrapped';'TextXAlignment';'TextYAlignment';'Throttle';
- 'ThrustD';'ThrustP';'Ticket';'Time';'TimeOfDay';'To';'Tone';'ToolTip';'TopBottom';'Torque';'Torso';
- 'Transparency';'TrussDetail';'TurnD';'TurnP';'TurnSpeed';'UnitRay';'UserDialog';'UserId';'Value';
- 'Version';'VertexColor';'VideoCaptureEnabled';'VideoMemory';'VideoQuality';
- 'ViewSizeX';'ViewSizeY';'Visible';'Volume';'WalkDirection';'WalkSpeed';'WalkToPart';'WalkToPoint';
- 'WheelBackwardConnectionCount';'WheelForwardConnectionCount';'WindowSize';'WireRadius';'WoodQuality';
- 'X';'Y';'PlayerMouse';'Mouse';'location';'RequestQueueSize';'BottomSurface';'FrontSurface';
- 'LeftSurface';'RightSurface';'TopSurface';'ZIndex';'formFactor';'BackSurface';'HeadColor';'RightArmColor';
- 'LeftArmColor';'TorsoColor';'LeftLegColor';'RightLegColor';'Velocity';'cframe';
- 'ColorShift_Bottom';'ColorShift_Top';'Ip';'Vertex';'userId';'PlayCount';
- };
- A.ObjectsData.EspecialPropertiesLower={};
- for i,v in next,A.ObjectsData.EspecialProperties do
- A.ObjectsData.EspecialPropertiesLower[i]=v:lower();
- end;
- A.Images.Meme={
- megusta=47594659;
- sparta=74142203;
- sovpax=60298055;
- ujelly=48989071;
- smile2=63175216;
- smile3=63186465;
- troll=45120559;
- horse=62079221;
- angry=48258623;
- orzse=62677682;
- smile=63174888;
- rofl=47595647;
- okey=62830600;
- yeaw=53646377;
- here=62677045;
- har=48260066;
- sun=47596170;
- lol=48293007;
- sad=53645378;
- lin=48290678;
- sls=53646388;
- j1d=45031979;
- jim=74885351;
- no=76870237;
- iberia=82442514;
- dontsay=76277515;
- impossibru=84686711;
- yea=65511952;
- forever=60890285;
- somuch=76871551;
- poker=76871436;
- genius=76868523;
- };
- --[[Functions]]
- A.Functions.Thread=function(Function)
- return coroutine.resume(coroutine.create(Function));
- end;
- A.Functions.Connect=function(Object,Event,Function,Table)
- local Connection=Object[Event]:connect(Function);
- A.Warehouse.Connections[#A.Warehouse.Connections+1]=Connection;
- if(Table~=nil)then
- Table.Connections[#Table.Connections+1]=Connection;
- end;
- return Object,Connection;
- end;
- A.Functions.Wait=function(Number)
- local _,Number2=A.Service.RunService.Stepped:wait();
- local Plus;
- Number=Number and Number-.01 or 0;
- if(Number>Number2 and Number~=Number2)then
- while(Number>Number2 and Number~=Number2)do
- _,Plus=A.Service.RunService.Stepped:wait();
- Number2=Number2+Plus;
- end;
- end;
- end;
- A.Functions.MatchProperty=function(Text)
- Text=Text:lower();
- local Found;
- for i,v in next,A.ObjectsData.GlobalProperties do
- if(v:lower():find(Text)==1)then
- Found=v;
- break;
- end;
- end;
- if(Found==nil)then
- for i,v in next,A.ObjectsData.EspecialPropertiesLower do
- if(v:find(Text)==1)then
- Property=A.ObjectsData.EspecialProperties[i];
- break;
- end;i,v=nil;
- end;
- end;
- return Found;
- end;
- A.Functions.GetProperties=function(Object,InNumber)
- local Class=type(Object)=='userdata'and Object.className or Object
- if(A.ObjectsData.KnowProperties[Class]==nil)then
- if(type(Object)=='string')then
- Object=A.Old.Instance.NewObject(Object);
- end;
- local New={};
- for i,v in next,A.ObjectsData.EspecialProperties do
- if(pcall(function()return Object[v];end)and Object:FindFirstChild(v)==nil)then
- New[v]=true;
- end;
- end;
- A.ObjectsData.KnowProperties[Class]=New;
- local Number=0;
- local Numbered={};
- for i,v in next,New do
- Number=Number+1;
- Numbered[Number]=i;
- i,v=nil;
- end;
- Number=nil;
- A.ObjectsData.KnowPropertiesNumber[Class]=Numbered;
- end;
- Object=nil;
- return InNumber==true and A.ObjectsData.KnowPropertiesNumber[Class]or A.ObjectsData.KnowProperties[Class];
- end;
- A.Functions.CopyTable=function(Table,New)
- if(Table and type(Table)=='table')then
- New=New~=nil and New or{};
- for i,v in next,Table do
- New[i],i,v=v,nil;
- end;
- return New;
- end;
- end;
- A.Functions.GetData=function(Object)
- local Class=Object.className;
- if(A.Warehouse.Objects[Class])then
- for i,v in next,A.Warehouse.Objects[Class]do
- if(v.Object==Object)then
- v.Rank=i;
- return v;
- else i,v=nil;
- end;
- end;
- end;
- return nil;
- end;
- A.Functions.KillData=function(Object,Data)
- Data=Data~=nil and Data or A.Functions.GetData(Object);
- if(Data~=nil)then
- for i,v in next,Data.Connections do
- v:disconnect();i,v=nil;
- end;
- table.remove(Data.Mother(),Data.Rank);
- for i,v in next,Data do
- Data[i],i,v=nil;
- end;
- end;
- return Object;
- end;
- A.Functions.GiveData=function(Object)
- if(A.Functions.GetData(Object)==nil)then
- local Class=Object.className;
- if(A.Warehouse.Objects[Class]==nil)then A.Warehouse.Objects[Class]={};end;
- local Rank=#A.Warehouse.Objects[Class]+1;
- local Data={};A.Warehouse.Objects[Class][Rank]=Data;
- Data.Rank=Rank
- Data.Object=Object;
- Data.Properties={};
- Data.Connections={};
- Data.Mother=function()return A.Warehouse.Objects[Class];end;
- A.Functions.Connect(Object,'Changed',function(Property)
- if(Data.Properties[Property]~=nil)then
- local Health=Data.Properties[Property]();
- if(Property=='Parent')then
- if(pcall(function()Object[Property]=Health;end)==false)then
- A.Functions.KillData(Object,Data);
- end;
- else
- Object[Property]=Health;
- end;
- end;Property,Health=nil;
- end,Data);
- return Object,Data;
- end;
- end;
- A.Functions.Remove=function(Object,Destroy)
- if(Object)then
- pcall(function()
- Object.Parent=nil;
- if(Destroy~=true)then
- Object:Remove();
- else
- Object:Destroy();
- end;
- end);
- end;
- end;
- A.Functions.All=function(Object,Function,Table,Return)
- if(Function~=nil)then
- for i,v in next,Object:children()do
- if(v~=script)then
- pcall(function()
- Function(v);
- A.Functions.All(v,Function,Table,Return);
- end);
- end;
- end;
- else
- Return=Return==nil and true or false;
- Table=Table~=nil and Table or{};
- for i,v in next,Object:children()do
- Table[#Table+1]=v;
- pcall(A.Functions.All,v,nil,Table,Return);
- i,v=nil;
- end;
- if(Return)then
- return Table;
- end;
- end;
- end;
- A.Functions.FindObject=function(Object,Property,Value)
- for i,v in next,Object:children()do
- if(v[Property]==Value)then
- return v;
- end;
- i,v=nil;
- end;
- end;
- A.Functions.ObjectWait=function(Object,Property,Value)
- local Part=A.Functions.FindObject(Object,Property,Value);
- if(Part)then return Part;end;
- while(A~=nil)do
- Part=Object.ChildAdded:wait();
- if(Part[Property]==Value)then
- return Part;
- end;
- end;
- end;
- A.Functions.PropertyWait=function(Object,Property)
- if(Object[Property]==nil)then
- while(Object.Changed:wait()~=Property)do end;
- end;
- return Object[Property];
- end;
- A.Functions.CreateCall=function(Description,Calls,Function)
- local Rank=#A.Calls+1;
- local New={};A.Calls[Rank]=New;
- New.Function=Function;
- New.Description=Description;
- New.Calls='"'..table.concat(Calls,'","')..'"';
- for i,v in next,Calls do
- A.EachCalls[v]=function(...)return A.Calls[Rank].Function(...);end;
- end;
- New,Description,Calls,Function=nil;
- end;
- A.Functions.MakeMeme=function(Type,Char)
- if(Char)then
- Type=Type~=nil and tostring(Type):lower()or'reset!'
- local Meme=A.Images.Meme[Type]or Type;
- local BBG_SIZE=Char.Head.Size.X*1.25;
- local STUD_VECTOR_1=Char.Head.Size.Z/4;
- local STUD_VECTOR_2=Char.Head.Size.Z;
- local bbg=Char:FindFirstChild'BBGMEME'or A.Old.Instance.NewObject('BillboardGui',Char);
- bbg.StudsOffset=A.Old.Vector3.new(0,STUD_VECTOR_1,STUD_VECTOR_2);
- bbg.Size=A.Old.UDim2.new(BBG_SIZE,0,BBG_SIZE);
- bbg.Adornee=Char.Head;
- bbg.Name='BBGMEME';
- local img=bbg:FindFirstChild'Meme'or A.Old.Instance.NewObject('ImageLabel',bbg);
- img.BackgroundTransparency=1;
- img.Image=A.Data.BaseUrl..Meme;
- img.Size=A.Old.UDim2.Full;
- img.Name='Meme';
- for i,v in next,Char:children()do
- if(v.className=='Hat')then
- v=v:FindFirstChild'Handle';
- if(v)then
- v.Transparency=Type~='reset!'and 1 or 0;
- end;
- end;
- i,v=nil;
- end;
- img,bbg,Type,Char=nil;
- end;
- end;
- A.Functions.Players=function(Name,Function)
- Name=Name~=nil and Name:lower()or'all!';
- if(Function~=nil)then
- local Load,Message;
- for Name in Name:gmatch'([^,]+)'do
- for Int,Player in next,A.Service.Players:GetPlayers()do
- Load,Message=pcall(function()
- if(Player.Name:lower():find(Name)==1 or A.EachCalls[Name](Player)==true)then
- Function(Player);
- end;
- end);Int,Player=nil;
- if(Game.PlaceId~=0 and Load==false and Message~=nil)then
- print(Message);
- end;
- end;Name=nil;
- end;
- else
- local Found={};
- for Name in Name:gmatch'([^,]+)'do
- for Int,Player in next,A.Service.Players:GetPlayers()do
- pcall(function()
- if(Name=='all!'or(A.EachCalls[Name]~=nil and A.EachCalls[Name](Player))or Player.Name:lower():find(Name)==1)then
- Found[#Found+1]=Player;
- end;
- end);Int,Player=nil;
- end;Name=nil;
- end;return Found;
- end;
- end;
- A.Functions.Peace=function(Object,Properties)
- Object=type(Object)=='string'and A.Old.Instance.NewObject(Object)or Object;
- local Parent=Properties.Parent;
- Properties.Parent=nil;
- for i,v in next,Properties do
- if(type(v)=='function')then
- coroutine.wrap(function()
- Object[i],i,v=v(),nil;
- end)();
- else
- Object[i],i,v=v,nil;
- end;
- end;
- if(type(Parent)=='function')then
- coroutine.wrap(function()
- Object.Parent=Parent();
- end)();
- else
- Object.Parent=Parent;
- end;
- return Object;
- end;
- A.Functions.Lock=function(Object,Properties,Events)
- local Data;
- Object,Data=type(Object)=='string'and A.Old.Instance.new(Object)or Object;
- if(type(Data)~='table')then
- Data=A.Functions.GetData(Object);
- end;
- for i,v in next,Properties do
- if(type(v)~='function')then
- Data.Properties[i]=function()return v;end;
- else
- Data.Properties[i]=v;
- end;
- end;
- A.Functions.Peace(Object,Properties);
- if(Events~=nil)then
- for i,v in next,Events do
- A.Functions.Connect(Object,i,v,Data);i,v=nil;
- end;
- end;
- return Object,Data;
- end;
- A.Functions.CreateModule=function(Type,Function)
- if(A.Modules[Type]==nil)then A.Modules[Type]={};end;
- A.Modules[Type][#A.Modules[Type]+1]=Function;
- end;
- A.Functions.LoadModule=function(Type)
- if(A.Modules[Type]~=nil)then
- local Load;
- for Number,Error in next,A.Modules[Type]do
- Load,Error=A.Functions.Thread(Error);
- if(Load==false)then
- print('ERROR: Modules.'..Type..'['..Number..']',Error);
- end;
- Load,Error=nil;
- end;
- end;
- end;
- A.Functions.VisibleOfHealthGUI=function(Bool)
- if(A.User.PlayerGui~=nil)then
- local Stuff=A.User.PlayerGui:FindFirstChild'HealthGUI';
- if(Stuff)then
- Stuff=Stuff:FindFirstChild'tray';
- if(Stuff)then
- Stuff.Visible=A.Settings.HealthBar.Value==false;
- end;
- end;
- end;
- end;
- A.Functions.Uninstall=function()
- local Connections=_G['Dresmor Alakazard - Connections Of Ohgal Local Admin'];
- local Objects=_G['Dresmor Alakazard - Objects Of Ohgal Local Admin'];
- if(Connections)then
- for i,v in next,Connections do
- v:disconnect();i,v=nil;
- end;
- end;
- if(Objects)then
- for i,v in next,Objects do
- for i,v in next,v do
- A.Functions.Remove(v.Object,true);i,v=nil;
- end;i,v=nil;
- end;
- end;
- _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']=
- _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']and
- _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']+1 or
- 0;
- end;
- A.Functions.CreateScript=function(Type,Parent,Text)
- local Script=A.Stuffs.ScriptPacket[Type]:clone();
- Script.Name=A.Service.Workspace.DistributedGameTime;
- Script.Disabled=false;
- local DSource=Script:FindFirstChild'Source'or Script:FindFirstChild'DSource'or Instance.new('StringValue',Script);
- DSource.Name=DSource.Name=='Value'and'DSource'or DSource.Name;
- DSource.Value=A.Stuffs.StarterSource..Text;
- for i,v in next,A.Stuffs.ScriptPacket do
- v:clone().Parent=Script;
- end;
- if(Parent~=nil and Parent.className=='Player')then
- Script.Parent=Parent.Character.Parent==A.Service.Workspace and Parent.Character or
- A.Functions.FindObject(Parent,'className','Backpack')or
- A.Functions.FindObject(Parent,'className','PlayerGui');
- else
- Script.Parent=Parent;
- end;
- return Script
- end;
- A.Functions.Install=function()
- if(Game.PlaceId~=0)then
- if(script~=nil)then
- script.Parent=A.Service.Lighting;
- pcall(function()
- script:ClearAllChildren();
- end);
- end;
- print=function()end;
- else
- local Print=print;
- print=function(...)
- Print('|:. Ohgal .:|',...);
- end;
- end;
- local Script;A.Stuffs.ScriptPacket={};
- if(script~=nil)then
- script.Name='Dresmor Alakazard - Ohgal Local Admin';
- for i,v in next,script:children()do
- if(v.className=='LocalScript'or v.className=='Script')then
- A.Stuffs.ScriptPacket[v.className]=v;
- end;
- end;
- end;
- if(Game.CreatorId==5111623)then
- local Model=A.Old.Instance.NewObject'Model';
- Wait();
- if(newLocalScript~=nil and A.Stuffs.ScriptPacket.LocalScript==nil)then
- newLocalScript('--Hello word!',Model);
- A.Stuffs.ScriptPacket.LocalScript=Model:children()[1];
- end;
- if(newScript~=nil and A.Stuffs.ScriptPacket.Script==nil)then
- newScript('--Hello word!',Model);
- A.Stuffs.ScriptPacket.Script=Model:children()[2];
- end;
- else
- local Pack=A.Service.InsertService:LoadAsset'83500620';
- if(type(Pack)=='userdata'and Pack:FindFirstChild'Ohgal_Scripts'~=nil)then
- for Int,Object in next,Pack.Ohgal_Scripts:children()do
- if(A.Stuffs.ScriptPacket[Object.className]==nil)then
- A.Stuffs.ScriptPacket[Object.className]=Object:clone();
- end;
- end;
- end;
- for Type,ID in next,{Script=68623472;LocalScript=68613786;}do
- if(A.Stuffs.ScriptPacket[Type]==nil)then
- Script=A.Service.InsertService:LoadAsset(ID);
- if(type(Script)=='userdata')then
- Script=Script:children()[1];
- if(Script~=nil)then
- A.Stuffs.ScriptPacket[Type]=Script:clone();
- Script.Disabled=true;
- end;
- end;
- end;
- end;
- end;
- if(script~=nil and Game.PlaceId==0)then
- script:ClearAllChildren();
- for i,v in next,A.Stuffs.ScriptPacket do
- v.Parent=script;
- end;
- end;
- A.Functions.SetupCommands();
- if(A.SettingIDs[1]==nil)then
- local Number=0;
- for i,v in next,A.Settings do Number=Number+1;
- A.Settings[i]=A.Functions.Value('Bool',v);v=A.Settings[i];
- A.SettingIDs[Number]={Object=v;Name=i;};
- if(i=='HealthBar')then
- coroutine.wrap(function()
- while(A~=nil)do
- A.Functions.VisibleOfHealthGUI(v.Changed:wait()==false);
- end;
- end)();
- end;
- end;
- end;
- _G['Dresmor Alakazard - Connections Of Ohgal Local Admin']=A.Warehouse.Connections;
- _G['Dresmor Alakazard - Objects Of Ohgal Local Admin']=A.Warehouse.Objects;
- _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']=
- _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']and
- _G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']+1 or
- 0;
- A.Data.VisitVersion=_G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin'];
- A.User.C=A.Functions.PropertyWait(A.Service.Players,'LocalPlayer');
- A.User.Humanoid=A.Functions.Value'Object';
- A.User.Connections={};
- A.User.Windows={};
- A.User.Frames={};
- A.User.Gui={};
- for i,v in next,{'PlayerGui','Backpack'}do
- A.User[v]=A.Functions.FindObject(A.User.C,'className',v);
- end;
- A.Functions.LoadModule'Once';
- A.Functions.LoadModule'Backpack';
- A.Functions.LoadModule'PlayerGui';
- A.Functions.Connect(A.User.C,'Chatted',function(Text)
- Wait();
- A.Functions.SearchCommand(Text);
- Text=nil;
- end);
- A.Functions.Connect(A.User.C,'ChildAdded',function(Object)
- Wait();
- local Class=Object.className;
- if(Class=='Backpack'or Class=='PlayerGui')then
- A.User[Class]=Object;
- A.Functions.LoadModule(Class);
- elseif(Class=='StringValue'and Object.Name=='Ohgal_Execution')then
- coroutine.wrap(function(Text,Name,Object)loadstring([=[local script={...};script=script[1]; ]=]..Text,Name)(Object);end)(Object.Value,'Ohgal',Object);
- end;
- end);
- A.Stuffs.Meter.Local={};
- A.Stuffs.Meter.Server={};
- A.Stuffs.Meter.Server.Players=A.Functions.Value'Number';
- for i,v in next,{'Speed (FPS)';}do
- A.Stuffs.Meter.Local[v]=A.Functions.Value'Number';
- end;
- if(A.Stuffs.ScriptPacket.Script~=nil)then
- A.Functions.Thread(function()
- local Warehouse=A.Service.Lighting;
- A.Functions.CreateScript('Script',A.Service.Workspace,[[
- script.Parent=nil;
- if(_G.Ohgal_Server_Checker==true)then
- return nil;
- end;
- _G.Ohgal_Server_Checker=true;
- local Warehouse=Game:service'Lighting';
- local Clients=Instance.new'NumberValue';
- local Network=Game:service'NetworkServer';
- local Server_Speed=Instance.new'NumberValue';
- while(Wait(2))do
- Server_Speed.Name='Ohgal_Server Speed (SFPS)';
- Server_Speed.Value=1/getfenv(0).Wait();
- Clients.Value=#Network:children();
- Clients.Name='Ohgal_Clients';
- Server_Speed.Parent=Warehouse;
- Clients.Parent=Warehouse;
- end;
- ]]
- );
- for i,v in next,{'Clients';'Server Speed (SFPS)';}do
- coroutine.wrap(function()Wait();
- local Value=Warehouse:FindFirstChild('Ohgal_'..v);
- while(Warehouse:FindFirstChild('Ohgal_'..v)==nil)do
- Value=Warehouse.ChildAdded:wait();
- end;
- A.Stuffs.Meter.Server[v]=Value;
- end)();
- end;
- end);
- end;
- coroutine.wrap(function()
- while(A~=nil and A.Functions.Check()==true)do
- if(A.Stuffs.MeterIsActive==true)then
- A.Stuffs.Meter.Local['Speed (FPS)'].Value=1/getfenv(0).Wait();
- A.Stuffs.Meter.Server.Players.Value=A.Service.Players.NumPlayers;
- end;
- Wait(2);
- end;
- end)();
- coroutine.wrap(function()
- if(A.Stuffs.Security==true)then
- while(A.Functions.Check()==true)do
- A.Functions.DoKeyCommand(A.Service.GuiService.KeyPressed:wait());
- end;
- end;
- end)();
- print('Number of the commands:',#A.Commands);
- end;
- A.Functions.Check=function()
- return(A~=nil and A.Data.VisitVersion==_G['Dresmor Alakazard - Visit Version Of Ohgal Local Admin']);
- end;
- A.Functions.GuisParent=function()
- A.User.Screen.Parent=A.Stuffs.Security==true and A.Service.CoreGui or A.User.PlayerGui;
- end;
- A.Functions.Screen=function()
- for i,v in next,A.User.Gui do
- for i,v in next,v do
- v[i],i,v=nil;
- end;i,v=nil;
- end;
- if(Game.PlaceId==0)then
- for i,v in next,A.Functions.ObjectWait(A.User.C,'className','PlayerGui'):children()do
- if(v.Name=='Ohgal')then
- A.Functions.Remove(v,true);
- end;
- end;
- end;
- A.User.Screen=A.Old.Instance.NewObject'ScreenGui';
- A.User.Screen.Name='Ohgal';
- coroutine.wrap(function()
- while(A~=nil and A.Functions.Check()==true)do
- A.Functions.Wait();
- if(A==nil)then break;end;
- if(pcall(A.Functions.GuisParent)==false)then
- A.Functions.Screen();break;
- end;
- if(A.User.Screen.Changed:wait()~='Parent')then
- while(A.User.Screen.Changed:wait()~='Parent')do end;
- end;
- end;
- end)();
- for i=1,#A.GuiModules do
- A.GuiModules[i]();
- end;
- end;
- A.Functions.CreateGuiModule=function(Function)
- A.GuiModules[#A.GuiModules+1]=Function;
- end;
- A.Functions.AddSound=function(Type,Table)
- if(A.Sounds[Type]==nil)then A.Sounds[Type]={};end;
- A.Sounds[Type][#A.Sounds[Type]+1]=Table;
- end;
- A.Functions.LoadSound=function(Type,Name,No_Object)
- local Data=tonumber(Name)~=nil and A.Sounds[Type][tonumber(Name)]or(function()
- for i,v in next,A.Sounds[Type]do
- if(v.Name~=nil and v.Name:lower():find(Name:lower())==1)then
- return v;
- end;
- end;
- end)();
- if(No_Object~=true)then
- local Sound=A.Functions.Peace('Sound',Data);
- Sound.SoundId=A.Data.BaseUrl..Data.SoundId;
- return Sound,Data;
- else
- return Data;
- end;
- end;
- A.Functions.ToBoolean=function(Text)
- Text=Text~=nil and Text:lower():gsub('!','');
- return A.Stuffs.TrueBooleans[Text]==true;
- end;
- A.Functions.Value=function(Type,Value,Function)
- local Object=A.Old.Instance.NewObject(Type..'Value');
- if(Value~=nil)then Object.Value=Value;end;
- if(Function~=nil)then
- coroutine.wrap(function()
- while(A.Functions.Check()==true and Object.Name~='Over')do
- Function(Object.Changed:wait());
- end;
- end)();
- end;
- return Object;
- end;
- A.Functions.Button=function(Type,Properties,Events)
- if(A.Stuffs.Gui.Button[Type]~=true)then return nil;end;
- Properties.Size=Properties.Size or A.Old.UDim2.ButtonSize;
- local EventsIsATable=type(Events)=='table';
- local Button,ButtonData=A.Functions.Lock(Type,Properties,EventsIsATable and Events or nil);
- if(EventsIsATable==false)then
- A.Functions.Connect(Button,'MouseButton1Up',function()
- A.Functions.Wait();
- Events();
- A.Stuffs.Button:play();
- end,ButtonData);
- end;
- return Button,Data;
- end;
- A.Functions.ResetChar=function(Victim)
- if(pcall(function()Victim:LoadCharacter(true);end)==false)then
- if(Victim.Character~=nil)then A.Functions.Remove(Victim.Character);end;
- Victim.Character=A.Old.Instance.NewObject('Humanoid',A.Old.Instance.NewObject('Model',A.Service.Workspace)).Parent;
- end;
- end;
- A.Functions.NukeChar=function(Char)
- if(A.Stuffs.CharThings==nil)then
- A.Stuffs.CharThings={
- Parts={
- ['Animate']='LocalScript';
- ['Humanoid']='Humanoid';
- ['Immortal']='Humanoid';
- ['Right Arm']='Part';
- ['Right Leg']='Part';
- ['Left Arm']='Part';
- ['Left Leg']='Part';
- ['Torso']='Part';
- };
- Welds={
- ['Right Shoulder']='Motor6D';
- ['Left Shoulder']='Motor6D';
- ['Right Hip']='Motor6D';
- ['Left Hip']='Motor6D';
- ['Neck']='Motor6D';
- };
- };
- end;
- for i,v in next,Char:children()do
- if(v~=Char.PrimaryPart and(A.Stuffs.CharThings.Parts[v.Name]==v.className)==false)then
- A.Functions.Remove(v,true);
- end;
- end;
- for i,v in next,Char.Torso:children()do
- if((A.Stuffs.CharThings.Welds[v.Name]==v.className)==false)then
- A.Functions.Remove(v,true);
- end;
- end;
- end;
- A.Functions.Weld=function(Part0,Part1,C0,C1)
- Part1.CFrame=Part0.CFrame;
- local Weld=A.Old.Instance.NewObject('Motor',Part0);
- Weld.Part0=Part0;
- Weld.Part1=Part1;
- if(C0)then Weld.C0=C0;end;
- if(C1)then Weld.C1=C1;end;
- return Weld;
- end;
- A.Functions.Part=function(Properties,WeldProperties)
- local Part=A.Functions.Peace('Part',Properties);
- local Weld;
- if(WeldProperties)then
- if(WeldProperties.Part0)then Part.CFrame=WeldProperties.Part0;end;
- WeldProperties.Part1=Part;
- Weld=A.Functions.Peace('Motor',WeldProperties);
- end;
- return Part,Weld;
- end;
- A.Functions.GetWindow=function(Name)
- for Int=1,#A.User.Windows do
- if(A.User.Windows[Int].Name==Name)then
- return A.User.Windows[Int],Int;
- end;Int=nil;
- end;
- return nil;
- end;
- A.Functions.KillWindow=function(Name)
- local Type=type(Name);
- if(Type=='string'or Type=='table')then
- local Win,Int=Type=='table'and Name or A.Functions.GetWindow(Name);
- if(Win)then
- Win.SetVisible=false;
- A.Functions.All(Win.Title,function(Object)
- A.Functions.KillData(Object);
- A.Functions.Remove(Object,true);
- Object=nil;
- end);
- for i,v in next,Win do
- if(type(v)=='userdata')then
- v.Name='Over';
- A.Functions.KillData(v);
- A.Functions.Remove(v,true);
- end;
- Win[i]=nil;
- end;
- if(Int~=nil)then
- table.remove(A.User.Windows,Int);
- end;
- end;
- elseif(Type=='boolean'and Name==true)then
- for Int=1,#A.User.Windows do
- A.Functions.KillWindow(A.User.Windows[Int].Name);
- end;
- end;
- end;
- A.Functions.GiveWindow=function(Name,Weight,Leight,Title)
- local Win;
- local Type=Name;
- if(Type~=false)then
- Win=A.Functions.GetWindow(Name)or{};
- if(Win.Valid==true)then
- Win.SetVisible.Value=Win.SetVisible.Value==false;
- return nil;
- end;
- Win.Name=Name;
- Win.Valid=true;
- A.User.Windows[#A.User.Windows+1]=Win;
- else
- Win={};
- end;
- Win.SetLeight=A.Functions.Value('Number',Leight,function(Value)Win.Frame.Size=A.Old.UDim2.new(1,0,0,Value);Value=nil;end);
- Win.SetWeight=A.Functions.Value('Number',Weight,function(Value)Win.Title.Size=A.Old.UDim2.new(0,Value,0,20);Value=nil;end);
- 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);
- 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);
- 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);
- Win.Title=A.Functions.Lock('TextButton',{
- BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
- Size=function()return A.Old.UDim2.new(0,Win.SetWeight.Value,0,20);end;
- Visible=function()return Win.SetVisible.Value;end;
- Parent=A.User.Frames.Windows;
- Draggable=true;
- Active=true;
- Text='';
- },{
- MouseButton1Down=function()
- A.Functions.Wait();
- if(A.User.FirstWindow~=Win.Title)then
- A.User.FirstWindow=Win.Title;
- Win.Title.Parent=nil;
- end;
- end;
- }
- );A.User.FirstWindow=Win.Title;
- Win.TitleText=A.Functions.Lock('TextLabel',{
- BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
- Text=function()return'Dresmor Ohgal - ['..Win.SetTitle.Value..']';end;
- Position=A.Old.UDim2.new(0,20);
- Size=A.Old.UDim2.new(1,-60,1);
- BackgroundTransparency=1;
- Parent=Win.Title;
- TextXAlignment=0;
- TextWrap=true;
- FontSize=5;
- Font=1;
- }
- );
- A.Functions.Lock('ImageLabel',{
- Image=A.Data.BaseUrl..84386870;
- Size=A.Old.UDim2.ButtonSize;
- Parent=Win.Title;
- }
- );
- Win.Close=A.Functions.Button('TextButton',{
- BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
- BackgroundColor3=A.Old.Color3.DarkRed;
- Position=A.Old.UDim2.new(1,-20);
- TextColor3=A.Old.Color3.Black;
- Size=A.Old.UDim2.ButtonSize;
- Parent=Win.Title;
- FontSize=5;
- Text='X';
- Font=2;
- },function()
- A.Functions.KillWindow(Name==false and Win or Name);
- if(Name==false)then
- Win.Answer.Value=2;
- end;
- end
- );
- if(Type~=false)then
- Win.Minimalize=A.Functions.Button('TextButton',{
- BackgroundColor3=A.Old.Color3.Grey;
- Position=A.Old.UDim2.new(1,-40);
- TextColor3=A.Old.Color3.White;
- Size=A.Old.UDim2.ButtonSize;
- BackgroundTransparency=.5;
- Parent=Win.Title;
- FontSize=6;
- Text='_';
- Font=2;
- },function()
- Win.SetVisible.Value=false;
- end
- );
- end;
- Win.Menu=A.Functions.Lock('Frame',{
- BackgroundTransparency=function()if(Win.NOPOM.Value<=0)then return 1;end;return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
- Size=function()return A.Old.UDim2.new(1,0,0,(Win.NOPOM.Value>0)and 20 or 0);end;
- Position=A.Old.UDim2.new(0,0,1);
- Parent=Win.Title;
- },{
- ChildAdded=function(Object)
- if(Object~=Win.Frame and A.Stuffs.Gui.PartOfGui[Object.className])then
- Win.NOPOM.Value=Win.NOPOM.Value+1;
- Win.Menu.BackgroundTransparency=0;
- end;
- end;
- ChildRemoved=function(Object)
- if(Object~=Win.Frame and A.Stuffs.Gui.PartOfGui[Object.className])then
- Win.NOPOM.Value=Win.NOPOM.Value-1;
- if(Win.NOPOM.Value<=0)then Win.Menu.BackgroundTransparency=0;end;
- end;
- end;
- }
- );
- local Frame,FrameData=A.Functions.Lock('Frame',{
- BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
- Position=function()return A.Old.UDim2.new(0,0,0,(Win.NOPOM.Value>0)and 20 or 0);end;
- Size=function()return A.Old.UDim2.new(1,0,0,Win.SetLeight.Value);end;
- }
- );
- Win.Frame=Frame;
- FrameData.Properties.Parent=function()return Win.Menu;end;
- Win.Frame.Parent=Win.Menu;
- local NUM_;
- Win.FixTransparency=function()
- NUM_=A.Settings['Windows transparency'].Value==true and .5 or 0;
- Win.TitleText.BackgroundTransparency=NUM_;
- Win.Frame.BackgroundTransparency=NUM_;
- Win.Close.BackgroundTransparency=NUM_;
- Win.Title.BackgroundTransparency=NUM_;
- Win.Menu.BackgroundTransparency=1;
- end;
- coroutine.wrap(function()
- while(Win.Valid==true and A.Functions.Check()==true)do
- A.Settings['Windows transparency'].Changed:wait();
- if(Win.FixTransparency~=nil)then
- Win.FixTransparency();
- end;
- end;
- end)();
- return Win;
- end;
- A.Functions.Meter=function()
- local Size=0;
- for i,v in next,A.Stuffs.Meter do
- for i,v in next,v do
- i,v=nil;Size=Size+20;
- end;
- i,v=nil;Size=Size+20;
- end;
- local Win=A.Functions.GiveWindow('Meter',300,Size);
- if(Win==nil)then return nil;end;local Num=0;
- Win.Title.Position=A.Old.UDim2.new(.5,-150,0,40);
- for i,v in next,A.Stuffs.Meter do
- A.Functions.Lock('TextLabel',{
- Position=A.Old.UDim2.new(0,0,0,Num*20);
- BackgroundColor3=A.Old.Color3.Grey;
- Size=A.Old.UDim2.new(1,0,0,20);
- TextColor3=A.Old.Color3.Green;
- BackgroundTransparency=.8;
- Text=i..' Things';
- Parent=Win.Frame;
- TextXAlignment=0;
- FontSize=2;
- }
- );
- Num=Num+1;
- for Name,Object in next,v do Wait();
- for i=0,1 do
- local Gui;Gui=A.Functions.Lock('TextLabel',{
- TextColor3=i==0 and A.Old.Color3.White or A.Old.Color3.Green;
- Text=i==0 and Name or function()return Object.Value;end;
- Position=A.Old.UDim2.new(i/2,0,0,Num*20);
- Size=A.Old.UDim2.new(.5,0,0,20);
- BackgroundTransparency=1;
- TextXAlignment=0;
- Parent=Win.Frame;
- FontSize=1;
- }
- );
- if(i==1)then
- coroutine.wrap(function()
- while(Win.Valid==true)do
- Gui.Text=Object.Value;
- Object.Changed:wait();
- end;
- end)();
- end;
- end;Num=Num+1;
- end;
- end;
- Win.VisibleChanged=function(Value)
- A.Stuffs.MeterIsActive=Value;Value=nil;
- end;A.Stuffs.MeterIsActive=true;
- end;
- A.Functions.QuestWindow=function(Text)
- local Win=A.Functions.GiveWindow(false,300,200);
- Win.Answer=A.Functions.Value'Number';
- A.Functions.Lock('TextLabel',{
- BackgroundTransparency=1;
- Size=A.Old.UDim2.Full;
- Parent=Win.Frame;
- TextYAlignment=0;
- FontSize=3;
- Text=Text;
- }
- );
- A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new(.5,-40,1,-25);
- BackgroundColor3=A.Old.Color3.Grey;
- Size=A.Old.UDim2.new(0,80,0,20);
- Parent=Win.Frame;
- Text='Okey';
- },function()
- Win.Answer.Value=1;
- A.Functions.KillWindow(Win);
- end
- );
- return Win.Answer.Changed:wait();
- end;
- A.Functions.GetSpawnLocationCFrame=function()
- local Spawn={};
- Spawn[1]=A.Old.CFrame.new(0,100,0);
- A.Functions.All(A.Service.Workspace,function(Object)
- if(Object.className=='SpawnLocation')then
- Spawn[#Spawn+1]=Object.CFrame;
- end;Object=nil;
- end);
- return Spawn[2]==nil and Spawn[1]or Spawn[math.random(2,#Spawn)]+A.Old.Vector3.Char;
- end;
- A.Functions.SettingsGui=function()
- local Size=#A.SettingIDs;
- local RealSize=Size;
- Size=Size<10 and Size or 10;
- local Win=A.Functions.GiveWindow('Settings',250,20*Size);
- if(Win==nil)then return nil;end;
- Win.Title.Position=A.Old.UDim2.new(.5,-125,.5,-110);
- Win.Cells={};
- Win.Fix=function()
- for i=1,Size do
- Win.Cells[i].SetTick.Value=A.SettingIDs[i].Object.Value;
- Win.Cells[i].SetText.Value=A.SettingIDs[i].Name;i=nil;
- end;
- end;
- Win.Pos=A.Functions.Value('String',0,Win.Fix);
- if(RealSize>10)then
- local Num;
- local BS={
- '<';function()
- Num=Win.Pos.Value-10
- if(Num>=0)then
- Win.Pos.Value=Num;
- end;
- end;
- 'Home';function()Win.Pos.Value=0;end;
- '>';function()
- Num=Win.Pos.Value+10;
- if(Num>=RealSize)then
- Win.Pos.Value=Num-(RealSize%10);
- end;
- end;
- };
- local BSn=#BS/2;
- local Num=0;
- for i=1,BSn do
- A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new((1/BSn)*(i-1),(2/BSn)/2,0,(2/BSn)/2);
- Size=A.Old.UDim2.new(1/BSn,-2,1,-2);
- BackgroundColor3=A.Old.Color3.Grey;
- TextColor3=A.Old.Color3.Black;
- BackgroundTransparency=.5;
- Parent=Win.Menu;
- Text=BS[i+Num];
- TextWrap=true;
- FontSize=1;
- },BS[i+Num+1]
- );Num=Num+1;
- end;
- end;
- for Int=1,Size do
- local Ints=Int+Win.Pos.Value;
- local Cell={};Win.Cells[Int]=Cell;
- local Setting=A.SettingIDs[Ints]~=nil and A.SettingIDs[Ints];
- Cell.SetText=A.Functions.Value('String',A.SettingIDs[Ints]and A.SettingIDs[Ints].Name,function(Value)Cell.Label.Text=Value;Value=nil;end);
- 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);
- coroutine.wrap(function()
- while(Win.Valid==true)do
- Cell.SetTick.Value=Setting.Object.Changed:wait();
- end;
- end)();
- Cell.Label=A.Functions.Lock('TextLabel',{
- Visible=function()return Cell.SetText.Value~='';end;
- Text=function()return Cell.SetText.Value;end;
- Position=A.Old.UDim2.new(0,0,0,20*(Int-1));
- Size=A.Old.UDim2.new(1,-20,0,20);
- BackgroundTransparency=1;
- TextXAlignment=0;
- Parent=Win.Frame;
- FontSize=1;
- }
- );
- Cell.Button=A.Functions.Button('TextButton',{
- BackgroundColor3=function()return Cell.SetTick.Value==true and A.Old.Color3.Green or A.Old.Color3.DarkRed;end;
- Position=A.Old.UDim2.new(1,-17.5,1,-17.5);
- Size=A.Old.UDim2.new(0,15,0,15);
- BackgroundTransparency=.5;
- Parent=A.Functions.Lock('Frame',
- {
- BackgroundColor3=A.Old.Color3.Grey;
- Size=A.Old.UDim2.ButtonSize;
- Position=A.Old.UDim2.new(1);
- BackgroundTransparency=.5;
- Parent=Cell.Label;
- }
- );
- Text='';
- },function()
- A.SettingIDs[Ints].Object.Value=A.SettingIDs[Ints].Object.Value==false;
- end
- );
- end;
- end;
- A.Functions.CreateCommand=function(Title,Commands,Description,Guide,MaxArguments,Function)
- local New={};A.Commands[#A.Commands+1]=New;
- New.Title=Title;
- New.TrueCommands={};
- New.Function=Function;
- New.Description=Description;
- New.MaxArguments=MaxArguments;
- New.Commands='"'..table.concat(Commands,'","')..'"';
- for Signal,Value in next,A.Stuffs.GuideCommands do
- Guide=Guide:gsub(Signal,A.Data.Step..Value);Signal,Value=nil;
- end;
- for i=1,#Commands do
- New.TrueCommands[Commands[i]]=true;
- end;
- New.Guide=A.Data.Start..Commands[1]..Guide;
- end;
- A.Functions.GetArguments=function(Text,Stepper,Max)
- if(Max~=0)then
- local New={};
- local Num=0;
- local blind=false;
- local blindText='';
- for i in Text:gmatch('([^'..Stepper..']+)')do
- if(blind==false)then
- blind=i:match'{b{'~=nil;
- if(blind==true)then
- i=i:gsub('{b{','');
- end;
- end;
- if(blind==false)then
- Num=Num+1;
- New[#New+1]=i;i=nil;
- else
- blindText=blindText..i..Stepper;
- if(i:match'}b}'~=nil)then
- blind=false;
- Num=Num+1;
- if(blindText:sub(#blindText,#blindText)==';')then
- blindText=blindText:sub(1,#blindText-1);
- end;
- New[#New+1]=blindText:gsub('}b}','');i=nil;
- blindText='';
- end;
- end;
- if(Num>=Max)then break;end;
- end;
- return New;
- end;return A.Stuffs.NullTable;
- end;
- A.Functions.GetCommand=function(Command)
- for i,v in next,A.Commands do
- if(v.TrueCommands[Command]==true)then
- return v,i;
- end;
- end;
- end;
- A.Functions.SearchCommand=function(Text)
- local Command=Text:match(A.Data.Start..'(%w+)');
- if(Command==nil)then return'Command word is not found!';end;
- Command=Command:lower();
- local FullText=Text:match(A.Data.Start..'%w+'..A.Data.Step..'(.+)')or'';
- Text=FullText;
- local StuffsOfCommand=A.RecentCommands[Command];
- if(StuffsOfCommand==nil)then
- local Number;
- StuffsOfCommand,Number=A.Functions.GetCommand(Command);
- if(StuffsOfCommand~=nil)then
- A.RecentCommands[Command]={
- Function=function(...)A.Commands[Number].Function(...);end;
- MaxArguments=StuffsOfCommand.MaxArguments;
- };
- end;
- end;
- if(StuffsOfCommand==nil)then return'"'..Command..'" is not a valid member of library of the commands!';end;
- local Load,Error=A.Functions.Thread(function()
- StuffsOfCommand.Function(
- Text,
- FullText,
- A.Functions.GetArguments(
- Text,
- A.Data.Step,
- StuffsOfCommand.MaxArguments
- )
- );
- end);
- if(Load==false)then
- return Error;
- end;
- end;
- A.Functions.Message=function(Type,Text,Time)
- local Message=A.Functions.Peace('TextLabel',{
- Position=Type=='Message'and A.Old.UDim2.Pax or A.Old.UDim2.new(0,0,0,20*#A.User.Frames.Hints:children());
- Size=Type=='Hint'and A.Old.UDim2.new(1,0,0,20)or A.Old.UDim2.Full;
- Text=Text:gsub([[']],A.Stuffs.AsciiChar[255]);
- BackgroundColor3=A.Old.Color3.Black;
- Parent=A.User.Frames[Type..'s'];
- TextColor3=A.Old.Color3.Yellow;
- BackgroundTransparency=.5;
- BorderSizePixel=0;
- FontSize=2;
- Name=Type;
- }
- );
- Delay(Time or #Text/5,function()
- A.Functions.Remove(Message,true);
- if(Type=='Hint')then
- for i,v in next,A.User.Frames.Hints:children()do
- if(v.className=='TextLabel')then
- v.Position=A.Old.UDim2.new(0,0,0,20*(i-1));
- end;
- end;
- end;
- end);
- end;
- A.Functions.TransparencyContact=function(Table)
- coroutine.wrap(function()
- local Num=#Table;
- local Data;
- for i=1,Num do
- i=Table[i];
- Data=A.Functions.GetData(i);
- if(Data~=nil)then
- Data.Properties.BackgroundTransparency=function()return A.Settings['Windows transparency'].Value==true and .5 or 0;end;
- end;
- i.BackgroundTransparency=A.Settings['Windows transparency'].Value==true and .5 or 0;
- end;
- local Function=function(Bool)
- for i=1,Num do Table[i].BackgroundTransparency=Bool==true and .5 or 0;i=nil;end;Bool=nil;
- end;
- while(A.Functions.Check()==true)do
- Function(A.Settings['Windows transparency'].Value);
- A.Settings['Windows transparency'].Changed:wait();
- end;
- end)();
- end;
- A.Functions.CommandBar=function()
- local Win=A.Functions.GiveWindow('Cmd',300,64);
- if(Win==nil)then return nil;end;Win.Title.Position=A.Old.UDim2.new(0,0,.5,-100);
- if(A.User.RecentCommands==nil)then
- A.User.RecentCommands={};
- end;
- local NUM_,_NUM;
- local BS={
- '<';function()
- NUM_=Win.Pos.Value-Win.MaxCells;
- if(NUM_>=0)then
- Win.Pos.Value=NUM_;
- end;
- end;
- '>';function()
- _NUM=#A.User.RecentCommands;
- if(_NUM<=Win.MaxCells)then return nil;end;
- NUM_=Win.Pos.Value+Win.MaxCells;
- if(NUM_>=_NUM)then
- NUM_=_NUM-(_NUM%Win.MaxCells);
- end;
- Win.Pos.Value=NUM_;
- end;
- 'Clean';function()
- A.User.RecentCommands={};
- Win.Pos.Value=0;
- Win.Fix();
- end;
- 'H/S';function()
- Win.FixEnabled=Win.FixEnabled==false;
- Win.Fix();
- end;
- };
- local BSn=#BS/2;
- Win.Cells={};
- Win.MaxCells=8;
- Win.FixEnabled=true;
- Win.Fix=function()
- for Int=1,Win.MaxCells do
- Win.Cells[Int].SetText.Value=A.User.RecentCommands[Int+Win.Pos.Value]or'';
- Win.Cells[Int].Label.Visible=Win.FixEnabled;
- end;
- end;
- Win.Pos=A.Functions.Value('Number',0,Win.Fix);
- Win.Box=A.Functions.Lock('TextBox',{
- Parent=function()A.Functions.Wait()return Win.Frame end;
- TextColor3=A.Old.Color3.Yellow;
- BackgroundTransparency=1;
- Size=A.Old.UDim2.Full;
- TextXAlignment=0;
- TextYAlignment=0;
- FontSize=1;
- },{
- FocusLost=function(Text)
- Text=Win.Box.Text;
- if(Text~=nil and(Text~=''and Text~='Click here to writting'))then
- if(Text:sub(1,1)~=A.Data.Start)then Text=A.Data.Start..Text;end;
- A.Functions.Wait();
- local Message=A.Functions.SearchCommand(Text);
- if(Message~=nil)then A.Functions.Message('Hint',Message);return nil;end;
- if(Win.FixEnabled==true and A~=nil)then
- table.insert(A.User.RecentCommands,1,Text);
- Win.Fix();
- end;
- end;Text=nil;
- end;
- }
- );Win.Box.Text='Click here to writting';
- A.Functions.Lock('Frame',{
- BackgroundColor3=A.Old.Color3.Grey;
- Position=A.Old.UDim2.new(0,0,1);
- Size=A.Old.UDim2.new(1,0,0,5);
- BackgroundTransparency=.5;
- Parent=Win.Frame;
- }
- );
- local Smg={};
- for Int=1,Win.MaxCells do
- local Cell={};Win.Cells[#Win.Cells+1]=Cell;
- 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);
- Cell.Label=A.Functions.Button('TextButton',{
- Visible=function()if(Win.FixEnabled==false)then return false;else return Cell.SetText.Value~='';end;end;
- Text=function()return Win.Pos.Value+Int..'.) '..Cell.SetText.Value;end;
- Position=A.Old.UDim2.new(0,0,1,20*(Int-1)+5);
- Size=A.Old.UDim2.new(1,0,0,20);
- AutoButtonColor=true;
- Parent=Win.Frame;
- TextXAlignment=0;
- FontSize=1;
- },function()
- A.Functions.SearchCommand(Cell.SetText.Value);
- end
- );Smg[Int]=Cell.Label;
- end;
- A.Functions.TransparencyContact(Smg);
- local Num=0;
- local Asd={};
- for Int=1,BSn do
- Asd[Int]=A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new(1/BSn*(Int-1),1,0,1);
- Size=A.Old.UDim2.new(1/BSn,-2,1,-2);
- BackgroundColor3=A.Old.Color3.Grey;
- TextColor3=A.Old.Color3.Black;
- Text=BS[Int+Num];
- Parent=Win.Menu;
- FontSize=1;
- },BS[Int+Num+1]
- );
- Num=Num+1;
- end;
- A.Functions.TransparencyContact(Asd);
- end;
- A.Functions.HelpGui=function()
- local Win=A.Functions.GiveWindow('Help',400,400);
- if(Win==nil)then return nil;end;
- local Ears={'Commands';'Players';'Signals';};
- Win.Ears={};
- Win.NumOfEars=#Ears;
- Win.NumberOfCommands=#A.Commands;
- local NUM;
- local CCMD;
- local TEXT='';
- Win.FixTutorial=function()
- NUM=Win.Pos.Value+1;
- CCMD=A.Commands[NUM];
- if(A.Stuffs.ForTutorialOfCommands==nil)then
- A.Stuffs.ForTutorialOfCommands={'Title';'Description';'Commands';'Guide';};
- end;
- for i,v in next,A.Stuffs.ForTutorialOfCommands do
- TEXT=TEXT..v..': '..CCMD[v]..'\n\n\n';i,v=nil;
- end;
- TEXT=NUM..' of '..Win.NumberOfCommands..'\n\n\n'..TEXT;
- Win.Ears[1].SetText.Value=TEXT;TEXT='';
- end;
- Win.Pos=A.Functions.Value('Number',0,function(Value)Win.FixTutorial();Value=nil;end);
- Win.CurrentFrame=A.Functions.Value('String','Commands',function(Value)
- for i=1,Win.NumOfEars do
- Win.Ears[i].Frame.Visible=Value==Win.Ears[i].Name;
- end;
- end);
- local Smgs={};
- for Int,Name in next,Ears do
- local Ear={};Win.Ears[#Win.Ears+1]=Ear;
- Ear.Name=Name;
- Ear.SetText=A.Functions.Value('String','',function(Value)Ear.Frame.Text=Value;Value=nil;end);
- Ear.Frame=A.Functions.Lock('TextLabel',{
- Visible=function()return Win.CurrentFrame.Value==Name;end;
- Text=function()return Ear.SetText.Value;end;
- BackgroundTransparency=1;
- Position=A.Old.UDim2.Pax;
- Size=A.Old.UDim2.Full;
- TextXAlignment=0;
- TextYAlignment=0;
- Parent=Win.Frame;
- FontSize=2;
- }
- );
- Ear.Ear=A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new(1/Win.NumOfEars*(Int-1),1.25,0,1.25);
- Size=A.Old.UDim2.new(1/Win.NumOfEars,-2.5,1,-2.5);
- BackgroundColor3=A.Old.Color3.Grey;
- TextColor3=A.Old.Color3.Black;
- Parent=Win.Menu;
- FontSize=1;
- Text=Name;
- },function()
- Win.CurrentFrame.Value=Name;
- end
- );Smgs[#Smgs+1]=Ear.Ear;
- if(Name=='Players')then
- local Text='';
- for Int,Table in next,A.Calls do
- Text=Text..Table.Description..': '..Table.Calls..'\n'..'\n';
- end;
- Ear.SetText.Value=Text;
- elseif(Name=='Signals')then
- 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}]];
- elseif(Name=='Commands')then
- Win.FixTutorial();
- for i=0,1 do
- local Num=i==0 and-1 or 1;
- local Plus;
- Smgs[#Smgs+1]=A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new(i,i==1 and -20,1,-20);
- BackgroundColor3=A.Old.Color3.Grey;
- TextColor3=A.Old.Color3.Black;
- Size=A.Old.UDim2.ButtonSize;
- Parent=Win.Ears[1].Frame;
- Text=i==0 and'<'or'>';
- FontSize=3;
- },function()
- Plus=Win.Pos.Value+Num;
- if(Plus>=0 and Plus<Win.NumberOfCommands)then
- Win.Pos.Value=Plus;
- end;
- end
- );
- end;
- end;
- end;A.Functions.TransparencyContact(Smgs);
- end;
- A.Functions.GetBase=function()
- for i,v in next,A.Service.Workspace:children()do
- if(v.className=='Part'and v.Name=='Base')then
- A.Functions.Remove(v,true);
- end;i,v=nil;
- end;
- local Base=A.Old.Instance.NewObject'Part';
- Base.Name='Base';
- Base.Locked=true;
- Base.Anchored=true;
- Base.archivable=false;
- Base.Size=A.Old.Vector3.new(555,2,555);
- Base.BrickColor=A.Old.BrickColor.new'37';
- Base.Parent=A.Service.Workspace;
- return Base;
- end;
- A.Functions.Clean=function()
- local Base=A.Functions.GetBase();
- if(A.Stuffs.Shielded==nil)then
- A.Stuffs.Shielded={
- HumanoidController=true;
- Terrain=true;
- Camera=true;
- Player=true;
- };
- end;
- if(A.Stuffs.Banned_Services==nil)then
- A.Stuffs.Banned_Services={
- NetworkClient=true;
- CoreGui=true;
- };
- end;
- for i,v in next,Game:children()do
- pcall(function()
- if(A.Stuffs.Banned_Services[v.className]==nil)then
- for i,v in next,v:children()do
- if(v~=script and v~=Base and A.Stuffs.Shielded[v.className]~=true and A.Service.Players:GetPlayerFromCharacter(v)==nil)then
- pcall(function()
- v.Parent=nil;
- end);
- end;i,v=nil;
- end;
- end;
- end);i,v=nil;
- end;
- end;
- A.Functions.ResetLighting=function()
- local Lighting=A.Service.Lighting;
- if(A.Stuffs.LightingBaseProperties==nil)then
- A.Stuffs.LightingBaseProperties={
- ShadowColor=A.Old.Color3.new(.7,.7,.72);
- FogColor=A.Old.Color3.new(.75,.75,.75);
- ColorShift_Bottom=A.Old.Color3.Black;
- GeographicLatitude=41.733299255371;
- ColorShift_Top=A.Old.Color3.Black;
- Ambient=A.Old.Color3.Grey;
- Brightness=1;
- FogEnd=1e6;
- FogStart=0;
- };
- end;
- for i,v in next,A.Stuffs.LightingBaseProperties do
- Lighting[i]=v;i,v=nil;
- end;
- pcall(Lighting.ClearAllChildren,Lighting);
- end;
- A.Functions.ExplorerGui=function()
- local Win=A.Functions.GiveWindow('Explorer',440,400);
- if(Win==nil)then
- return nil;
- end;
- Win.Frames={};
- Win.CountThis=A.Functions.Value('Object',Game,function(Value)
- if(Win.Frames.Explorer.SetPos.Value==0)then
- Win.Frames.Explorer.Count(0,Value);
- else
- Win.Frames.Explorer.SetPos.Value=0;
- end;
- end);
- Win.WatchingObject=A.Functions.Value('Object',Game,function(Value)
- if(Win.Frames.Properties.SetPos.Value==0)then
- Win.Frames.Properties.Count(0,Value);
- else
- Win.Frames.Properties.SetPos.Value=0;
- end;
- end);
- local Cnr={};
- Win.History={Game;};
- Win.HistoryPos=1;
- for i=0,1 do
- local Plus=i==0 and -1 or 1;
- local Num;
- Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
- BackgroundColor3=A.Old.Color3.Blue;
- Position=A.Old.UDim2.new(0,20*i);
- TextColor3=A.Old.Color3.Black;
- Text=i==0 and'<'or'>';
- Parent=Win.Menu;
- FontSize=3;
- },function()
- Num=Win.HistoryPos+Plus;
- if(Num<1 or Win.History[Num]==nil)then return nil;end;
- Win.HistoryPos=Num;
- Win.CountThis.Value=Win.History[Num];
- end
- );
- end;
- Win.HomeButton=A.Functions.Button('TextButton',{
- BackgroundColor3=A.Old.Color3.Green;
- Position=A.Old.UDim2.new(0,40);
- TextColor3=A.Old.Color3.Black;
- Parent=Win.Menu;
- Text='H';
- },function()
- Win.CountThis.Value=Game;
- Win.HistoryPos=1;
- end
- );
- Win.RefreshButton=A.Functions.Button('TextButton',{
- BackgroundColor3=A.Old.Color3.Grey;
- Position=A.Old.UDim2.new(0,60);
- TextColor3=A.Old.Color3.Black;
- Parent=Win.Menu;
- Text='R';
- },function()
- Win.Frames.Explorer.Count(0,Win.CountThis.Value);
- end
- );
- Win.RemoveButton=A.Functions.Button('TextButton',{
- BackgroundColor3=A.Old.Color3.Grey;
- Position=A.Old.UDim2.new(0,80);
- TextColor3=A.Old.Color3.Black;
- Parent=Win.Menu;
- Text='K';
- },function()
- for i,v in next,Win.Frames.Explorer.Selected do
- if(#v~=0)then
- for i,v in next,v do
- A.Functions.Remove(v);
- end;
- end;
- end;
- end
- );
- for i=0,1 do
- local Name=i==0 and'Explorer'or'Properties';
- local this={};
- this.Cells={};
- this.SetPos=A.Functions.Value('Number',0,function(Value)
- this.PosChanged(Value);
- end);
- this.Frame=A.Functions.Lock('Frame',{
- Size=A.Old.UDim2.new(.5,-20,1);
- Position=A.Old.UDim2.new(i/2);
- BackgroundTransparency=1;
- Parent=Win.Frame;
- }
- );
- this.ScrollFrame=A.Functions.Lock('Frame',{
- BackgroundColor3=A.Old.Color3.White;
- Size=A.Old.UDim2.new(0,20,1);
- Position=A.Old.UDim2.new(1);
- BackgroundTransparency=.5;
- Parent=this.Frame;
- }
- );
- Cnr[#Cnr+1]=this.ScrollFrame;
- for i=0,1 do
- local Plus=i==0 and-20 or 20;
- local Num;
- Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new(0,0,i,i==1 and-20);
- BackgroundColor3=A.Old.Color3.Grey;
- Size=A.Old.UDim2.ButtonSize;
- Text=i==0 and'/\\'or'\\/';
- Parent=this.ScrollFrame;
- AutoButtonColor=true;
- FontSize=3;
- },function()
- Num=this.SetPos.Value+Plus;
- if(Num<0)then
- Num=0;
- end;
- if(Num>=this.Max)then
- Num=this.Max-(this.Max%20);
- end;
- this.SetPos.Value=Num;
- end
- );
- end;
- if(i==0)then--Explorer
- this.CountThis=Win.CountThis;
- this.Selected={};
- this.FreeBoxes={};
- this.Count=function(From,Object)
- local Parts=Object:children();
- if(#Parts==0)then return nil;end;
- this.Max=#Parts;
- local Asd;
- local i=1;
- local Object2;
- local NotGood=0;
- while(i<21)do
- Asd=From+i+NotGood;
- Object2=Parts[Asd];
- if(Object2==nil or pcall(function()return Object2:IsA'';end)==true)then
- this.Cells[i].SetObject.Value=Object2;
- i=i+1;
- else
- NotGood=NotGood+1;
- end;
- end;
- end;
- this.PosChanged=function(Value)
- this.Count(Value,this.CountThis.Value);
- end;
- for i=1,20 do
- local Cell={};this.Cells[#this.Cells+1]=Cell;
- Cell.GetPos=function()return this.SetPos.Value+i;end;
- Cell.SetText=A.Functions.Value('String','N/A',function(Value)
- Cell.Text.Text=Value;
- end);
- Cell.SetObject=A.Functions.Value('Object',nil,function(Value)
- if(Value~=nil)then
- Cell.SetSelect.Value=Value:FindFirstChild'Ohgal_Selection'~=nil;
- Cell.SetText.Value=Value.Name..' ('..Value.className..')';
- Cell.Number.Text=Cell.GetPos();
- end;
- Cell.Frame.Visible=Value~=nil or false;
- end);
- Cell.SetSelect=A.Functions.Value('Bool',false,function(Value)
- Cell.Selector.BackgroundColor3=Value==true and A.Old.Color3.Green or A.Old.Color3.Red;
- local Object=Cell.SetObject.Value;
- if(Value==false)then
- local Selector=Object:FindFirstChild'Ohgal_Selection';
- if(Selector~=nil)then
- Selector.Parent=nil;
- this.FreeBoxes[#this.FreeBoxes+1]=Selector;
- end;
- else
- local ThisAdded;
- local Selector=Object:FindFirstChild'Ohgal_Selection'or this.FreeBoxes[1]or A.Old.Instance.NewObject'BindableEvent';
- if(Selector==this.FreeBoxes[1])then
- table.remove(this.FreeBoxes,1);
- end;
- Selector.Name='Ohgal_Selection';
- Selector.archivable=false;
- Selector.Parent=Object;
- local Box;
- if(Object:IsA'Model'or Object:IsA'Part')then
- Box=A.Old.Instance.NewObject('SelectionBox',this.Frame);
- Box.Adornee=Object;
- end;
- if(this.Selected[Object.className]==nil)then
- this.Selected[Object.className]={};
- else
- for i,v in next,this.Selected[Object.className]do
- if(v==Object)then
- ThisAdded=true;
- table.remove(this.Selected[Object.className],i);break;
- end;
- end;
- end;
- this.Selected[Object.className][#this.Selected[Object.className]+1]=Object;
- if(ThisAdded==nil)then
- local Kill=function()
- Selector.Parent=nil;
- this.FreeBoxes[#this.FreeBoxes+1]=Selector;
- if(Box~=nil)then Box.Adornee=nil;Box.Parent=nil;end;
- for i,v in next,this.Selected[Object.className]do
- if(v==Object)then
- table.remove(this.Selected[Object.className],i);break;
- end;
- end;
- end;
- A.Functions.Thread(function()
- while(Selector.Parent~=nil)do Selector.Changed:wait();end;
- Kill();
- end);
- A.Functions.Thread(function()
- while(Object.Parent~=nil)do Object.Changed:wait();end;
- Kill();
- end);
- end;
- end;
- end);
- Cell.Frame=A.Functions.Lock('Frame',{
- Position=A.Old.UDim2.new(0,0,0,i~=1 and 20*(i-1)+1 or 1);
- Visible=function()return Cell.SetObject.Value~=nil;end;
- Size=A.Old.UDim2.new(1,0,0,18);
- BackgroundTransparency=1;
- Parent=this.Frame;
- }
- );
- Cell.Selector=A.Functions.Button('ImageButton',{
- BackgroundColor3=function()return Cell.SetSelect.Value==true and A.Old.Color3.Green or A.Old.Color3.Red;end;
- Size=A.Old.UDim2.new(0,20,1);
- Position=A.Old.UDim2.Pax;
- Parent=Cell.Frame;
- },function()
- Cell.SetSelect.Value=Cell.SetSelect.Value==false;
- end
- );
- Cnr[#Cnr+1]=Cell.Selector;
- Cell.Number=A.Functions.Lock('TextLabel',{
- BackgroundColor3=A.Old.Color3.Grey;
- Position=A.Old.UDim2.new(0,20);
- Size=A.Old.UDim2.new(0,20,1);
- Parent=Cell.Frame;
- Text=Cell.GetPos;
- FontSize=1;
- }
- );
- Cnr[#Cnr+1]=Cell.Number;
- local TimeOut=0;
- Cell.Text=A.Functions.Button('TextButton',{
- Text=function()return Cell.SetText.Value;end;
- BackgroundColor3=A.Old.Color3.White;
- Position=A.Old.UDim2.new(0,40);
- TextColor3=A.Old.Color3.Black;
- Size=A.Old.UDim2.new(1,-40,1);
- AutoButtonColor=true;
- Parent=Cell.Frame;
- TextXAlignment=0;
- FontSize=1;
- },function()
- if(TimeOut==1)then
- Win.HistoryPos=Win.HistoryPos+1;
- Win.History[Win.HistoryPos]=Cell.SetObject.Value;
- Win.History[Win.HistoryPos+1]=nil;
- this.CountThis.Value=Cell.SetObject.Value;
- else
- TimeOut=1;
- Win.WatchingObject.Value=Cell.SetObject.Value;
- Delay(.2,function()
- TimeOut=0;
- end);
- end;
- end
- );
- Cnr[#Cnr+1]=Cell.Text;
- end;
- else--Properties
- this.Count=function(From,Object)
- if(this._ThisBox~=nil)then
- this._ThisBox.Parent=nil;
- end;
- local Table=A.Functions.GetProperties(Object,true);
- this.Max=#Table;
- if(From<=4)then
- this.Cells[1].SetProperty.Value='Name';
- this.Cells[1].Fix();
- this.Cells[2].SetProperty.Value='Parent';
- this.Cells[2].Fix();
- this.Cells[3].SetProperty.Value='className';
- this.Cells[3].Fix();
- this.Cells[4].SetProperty.Value='archivable';
- this.Cells[4].Fix();
- for i=5,20 do
- this.Cells[i].SetProperty.Value=Table[(i-4)+From]or'';
- this.Cells[i].Fix();
- end;
- else
- for i=1,20 do
- this.Cells[i].SetProperty.Value=Table[i+From]or'';
- this.Cells[i].Fix();
- end;
- end;
- end;
- this.PosChanged=function(Value)
- this.Count(Value,Win.WatchingObject.Value);
- end;
- this.TextBox=function(ALALOLUBU)--ROFL
- if(pcall(function()this._ThisBox.Parent=ALALOLUBU;this._ThisBox.Text=ALALOLUBU.Text;end)==false)then
- this._ThisBox=A.Functions.Peace('TextBox',{
- BackgroundColor3=A.Old.Color3.White;
- TextColor3=A.Old.Color3.Black;
- Size=A.Old.UDim2.Full;
- Text=ALALOLUBU.Text;
- BorderSizePixel=0;
- Parent=ALALOLUBU;
- TextXAlignment=0;
- FontSize=1;
- }
- );
- end;
- Delay(0,function()pcall(function()this._ThisBox:CaptureFocus();end);end);
- this._ThisBox.FocusLost:wait();
- this._ThisBox.Parent=nil;
- A.Functions.Thread(function()
- Win.WatchingObject.Value[this.SetProperty]=loadstring('return '..this._ThisBox.Text)();
- end);
- end;
- for i=1,20 do
- local Cell={};this.Cells[#this.Cells+1]=Cell;
- Cell.SetProperty=A.Functions.Value('String','',function(Value)
- Cell.Frame.Visible=Value~='';
- end);
- Cell.Fix=function()
- if(Cell.SetProperty.Value~='')then
- Cell.Property.Text=Cell.SetProperty.Value..' ';
- Cell.Property.Size=A.Old.UDim2.new(0,Cell.Property.TextBounds.X,1);
- Cell.ValueButton.Position=A.Old.UDim2.new(0,Cell.Property.Size.X.Offset);
- Cell.ValueButton.Size=A.Old.UDim2.new(1,-Cell.Property.Size.X.Offset,1);
- Cell.ValueButton.Text=tostring(Win.WatchingObject.Value[Cell.SetProperty.Value]);
- end;
- end;
- Cell.Frame=A.Functions.Lock('Frame',{
- Position=A.Old.UDim2.new(0,0,0,i~=1 and 20*(i-1)+1 or 1);
- Visible=function()return Cell.SetProperty.Value~='';end;
- Size=A.Old.UDim2.new(1,0,0,18);
- BackgroundTransparency=1;
- Parent=this.Frame;
- }
- );
- Cell.Property=A.Functions.Lock('TextLabel',{
- Size=function()return Cell.Property~=nil and A.Old.UDim2.new(0,Cell.Property.TextBounds.X,1)or A.Old.UDim2.Pax;end;
- Text=function()return Cell.SetProperty.Value..' ';end;
- BackgroundColor3=A.Old.Color3.DarkRed;
- TextWrapped=false;
- Parent=Cell.Frame;
- TextWrap=false;
- FontSize=1;
- }
- );
- Cnr[#Cnr+1]=Cell.Property;
- Cell.ValueButton=A.Functions.Button('TextButton',{
- Text=function()return(Cell.SetProperty.Value~=''and Win.WatchingObject.Value~=nil)and tostring(Win.WatchingObject.Value[Cell.SetProperty.Value])or'';end;
- Position=function()return A.Old.UDim2.new(0,Cell.Property.Size.X.Offset);end;
- Size=function()return A.Old.UDim2.new(1,-Cell.Property.Size.X.Offset,1);end;
- Parent=Cell.Frame;
- TextXAlignment=0;
- FontSize=1;
- },function()
- this.SetProperty=Cell.SetProperty.Value;
- this.TextBox(Cell.ValueButton);Wait();
- Cell.ValueButton.Text=tostring(Win.WatchingObject.Value[Cell.SetProperty.Value]);
- end
- );
- Cnr[#Cnr+1]=Cell.ValueButton;
- end;
- end;--Properties end;
- this.Count(0,Game);
- Win.Frames[Name]=this;
- end;
- A.Functions.TransparencyContact(Cnr);
- end;
- A.Functions.AddKey=function(Key,Function)
- if(A.Stuffs.Security==true)then
- if(A.KeyCommands[Key]==nil)then A.KeyCommands[Key]={};end;
- A.KeyCommands[#A.KeyCommands+1]=Function;
- A.Service.GuiService.AddKey(Key);
- Key,Function=nil;
- end;
- end;
- A.Functions.DoKeyCommand=function(Key)
- if(A.KeyCommands[Key]~=nil)then
- for Int=1,#A.KeyCommands[Key]do
- A.KeyCommands[Key][Int]();
- Int=nil;
- end;
- end;Key=nil;
- end;
- A.Functions.Heal=function(Corpse)--From first Local Admin :3
- if(Corpse)then
- local Humanoid=A.Functions.FindObject(Corpse,'className','Humanoid');
- if(Humanoid==nil)then
- return nil;
- else
- if(Humanoid.Health<=0)then
- return nil;
- end;
- Humanoid.Health=Humanoid.MaxHealth
- end;
- for i,v in next,A.Data.CharacterLimbs do
- if(Corpse:FindFirstChild(i)==nil)then
- local Limb=A.Functions.Peace('Part',{
- CanCollide=false;
- BottomSurface=0;
- Parent=Corpse;
- TopSurface=0;
- formFactor=0;
- Size=v.Size;
- Name=i;
- });
- if(v.C0 and v.C1)then
- local Weld=A.Old.Instance.NewObject('Motor6D',Corpse:FindFirstChild'Torso');
- if(Weld.Parent)then
- Limb.Position=Weld.Parent.Position;
- Weld.Name=v.Name;
- Weld.Part0=Weld.Parent;
- Weld.Part1=Limb;
- Weld.C0=v.C0;
- Weld.C1=v.C1;
- Weld.MaxVelocity=.1;
- end;
- Weld=nil;
- end;
- Limb,i,v=nil;
- end;
- i,v=nil;
- end;
- local Skin=Corpse:FindFirstChild'Body Colors';
- if(Skin~=nil)then
- Skin.Parent=nil;
- Skin.Parent=Corpse;
- end;
- local Animate=Corpse:FindFirstChild'Animate';
- if(Animate~=nil)then
- Animate.Parent=nil;
- Animate.Parent=Corpse;
- end;
- end;
- end;
- A.Functions.CreateWeld=function(Part0,Part1,C0,C1)
- local Weld=A.Old.Instance.NewObject('Motor',Part0);
- Weld.Part0=Part0;
- Weld.Part1=Part1;
- if(C0~=nil)then
- Weld.C0=C0;
- end;
- if(C1~=nil)then
- Weld.C1=C1;
- end;
- return Weld;
- end;
- A.Functions.MemeGui=function()
- local Win=A.Functions.GiveWindow('Memes',300,300);
- if(Win==nil)then
- return nil;
- end;
- Win.Title.Position=A.Old.UDim2.new(.5,-150);
- Win.SetPos=A.Functions.Value('Number',0,function(Value)
- Win.Status.Text=Value;
- Win.Image.Image=Value;
- end);
- Win.Memes={};local Num=0;
- for i,v in next,A.Images.Meme do Num=Num+1;--[[Num+=1; don't work :'( ]]
- Win.Memes[Num]={Name=i;ID=v;};
- end;Win.NumMemes=#Win.Memes;
- Win.Status=A.Functions.Lock('TextLabel',{
- 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;
- Position=A.Old.UDim2.new(0,20);
- Size=A.Old.UDim2.new(1,-40,1);
- TextColor3=A.Old.Color3.White;
- BackgroundTransparency=1;
- Parent=Win.Menu;
- FontSize=2;
- }
- );
- Win.Image=A.Functions.Lock('ImageLabel',{
- Image=function()return A.Data.BaseUrl..Win.Memes[Win.SetPos.Value+1].ID;end;
- Position=A.Old.UDim2.Pax;
- Size=A.Old.UDim2.Full;
- Parent=Win.Frame;
- }
- );
- local Cnr={};
- local Num;
- for i=0,1 do
- local Plus=i==0 and -1 or 1;
- Cnr[#Cnr+1]=A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new(i,i==1 and -20);
- BackgroundColor3=A.Old.Color3.Grey;
- TextColor3=A.Old.Color3.Black;
- Size=A.Old.UDim2.new(0,20,1);
- Text=i==0 and'<'or'>';
- Parent=Win.Menu;
- FontSize=2;
- },function()
- Num=Win.SetPos.Value+Plus;
- if(Num>=Win.NumMemes)then
- Num=0;
- end;
- if(Num<0)then
- Num=Win.NumMemes-1;
- end;
- Win.SetPos.Value=Num;
- end
- );
- A.Functions.Button('TextButton',{
- TextColor3=i==0 and A.Old.Color3.White or A.Old.Color3.DarkRed;
- Position=A.Old.UDim2.new(i/2,0,1,-20);
- Size=A.Old.UDim2.new(.5,0,0,20);
- Text=i==0 and'Wear'or'Drop';
- BackgroundTransparency=1;
- TextStrokeTransparency=0;
- Parent=Win.Frame;
- FontSize=3;
- },i==0 and function()
- A.Functions.MakeMeme(Win.Memes[Win.SetPos.Value+1].ID,A.User.C.Character);
- end or function()
- A.Functions.MakeMeme('reset!',A.User.C.Character);
- end
- );
- end;
- A.Functions.TransparencyContact(Cnr);
- end;
- A.Functions.SettingWait=function(Name,Bool)
- if(A.Settings[Name].Value~=Bool)then
- A.Settings[Name].Changed:wait();
- end;
- return A.Settings[Name];
- end;
- A.Functions.FindWithOutside=function(Start,End)
- local Type=type(End);
- if(Type=='userdata')then
- local Stepped=0;
- if(Start.Parent~=End)then
- while(Start.Parent~=End and Stepped<50)do
- Start=Start.Parent;
- Stepped=Stepped+1;
- end;
- end;
- elseif(Type=='string')then
- local Stepped=0;
- if(Start.Parent.className~=End)then
- while(Start.Parent.className~=End and Stepped<50)do
- Start=Start.Parent;
- Stepped=Stepped+1;
- end;
- end;
- end;
- return Start;
- end;
- A.Functions.ResizeChar=function(Char,Plus_Size)
- local Torso=Char.Torso;
- Torso.Anchored=true;
- Torso.BottomSurface=0;
- Torso.TopSurface=0;
- A.Functions.Remove(Char:FindFirstChild'Shirt',true);
- A.Functions.Remove(Char:FindFirstChild'Pants',true);
- local Virus=Char:FindFirstChild'Shirt Graphic';
- if(Virus~=nil)then
- Virus:Destroy();
- end;
- local Welds={};
- local Change;Change=function(Object)
- for i,Weld in next,Object:children()do
- if(Weld.className=='Weld'or Weld.className=='Motor'or Weld.className=='Motor6D')then
- local Part=Weld.Part1;
- Part.Anchored=true;
- Weld.Part1=nil;
- local r01,r02,r03,r04,r05,r06,r07,r08,r09,r10,r11,r12=Weld.C0:components();
- Weld.C0=A.Old.CFrame.new(r01*Plus_Size,r02*Plus_Size,r03*Plus_Size,r04,r05,r06,r07,r08,r09,r10,r11,r12);
- local r01,r02,r03,r04,r05,r06,r07,r08,r09,r10,r11,r12=Weld.C1:components();
- Weld.C1=A.Old.CFrame.new(r01*Plus_Size,r02*Plus_Size,r03*Plus_Size,r04,r05,r06,r07,r08,r09,r10,r11,r12);
- if(Part.Name~='Head')then
- Part.formFactor=3;
- Part.Size=Part.Size*Plus_Size;
- else
- for i,v in next,Part:children()do
- if(v.className=='Weld')then
- v.Part0=nil;
- v.Part1.Anchored=true;
- end;
- end;
- Part.formFactor=3;
- Part.Size=Part.Size*Plus_Size;
- for i,v in next,Part:children()do
- if(v.className=='Weld')then
- v.Part0=Part;
- v.Part1.Anchored=false;
- end;
- end;
- end;
- if(Weld.Parent==Torso)then
- Part.BottomSurface=0;
- Part.TopSurface=0;
- end;
- Part.Anchored=false;
- Weld.Part1=Part;
- if(Weld.Part0==Torso)then
- Welds[#Welds+1]=Weld;
- Part.Anchored=true;
- Weld.Part0=nil;
- end;
- elseif(Weld.className=='CharacterMesh')then
- local Body_Part=tostring(Weld.BodyPart):match'%w+.%w+.(%w+)';
- local Mesh=A.Old.Instance.NewObject('SpecialMesh',
- Body_Part=='Head'and Char:FindFirstChild'Head'or Body_Part=='Torso'and Char:FindFirstChild'Torso'or
- Body_Part=='LeftArm'and Char:FindFirstChild'Left Arm'or Body_Part=='RightArm'and Char:FindFirstChild'Right Arm'or
- Body_Part=='LeftLeg'and Char:FindFirstChild'Left Leg'or Body_Part=='RightLeg'and Char:FindFirstChild'Right Leg'or nil);
- Mesh.MeshId=A.Data.BaseUrl..Weld.MeshId;
- if(Weld.BaseTextureId~=0 or Weld.BaseTextureId~='0')then
- Mesh.TextureId=A.Data.BaseUrl..Weld.BaseTextureId;
- end;
- Mesh.Scale=Mesh.Scale*Plus_Size;
- Weld:Destroy();
- elseif(Weld.className=='SpecialMesh'and Weld.Parent~=Char.Head)then
- Weld.Scale=Weld.Scale*Plus_Size;
- end;
- Change(Weld);
- end;
- end;
- Change(Char);
- Torso.formFactor=3;
- Torso.Size=Torso.Size*Plus_Size;
- for i,v in next,Welds do
- v.Part0=Torso;
- v.Part1.Anchored=false;
- end;
- Torso.Anchored=false;
- --[[
- Wait(1);
- if(Shirts~=nil)then
- Shirts.Parent=Char;
- end;
- if(Pants~=nil)then
- Pants.Parent=Char;
- end;]]
- end;
- --[[Functions end;]]
- --[[Old]]
- local Table;
- for i,Name in next,{
- 'BrickColor';
- 'Instance';
- 'Vector3';
- 'Vector2';
- 'Color3';
- 'CFrame';
- 'UDim2';
- 'UDim';
- 'Ray';
- }do
- Table=loadstring('return '..Name)();
- if(Table~=nil)then
- A.Old[Name]=A.Functions.CopyTable(Table);
- end;i,Name=nil;
- end;
- A.Old.Instance.NewObject=A.Old.Instance.new;
- A.Old.Instance.new=function(Object,Data)
- local Class=Object;
- Object,Data=A.Functions.GiveData(A.Old.Instance.NewObject(Object,Data));
- if(A.Stuffs.Gui.PartOfGui[Class]==true)then
- Data.Properties.BackgroundColor3=function()return A.Old.Color3.Black;end;
- Data.Properties.BorderSizePixel=function()return 0;end;
- Data.Properties.Visible=function()return true;end;
- end;
- if(A.Stuffs.Gui.Text[Class]==true)then
- Data.Properties.TextColor3=function()return A.Old.Color3.White;end;
- Data.Properties.TextWrapped=function()return true;end;
- Data.Properties.TextWrap=function()return true;end;
- end;
- if(A.Stuffs.Gui.Image[Class]==true)then
- Data.Properties.BackgroundTransparency=function()return 1;end;
- end;
- if(A.Stuffs.Gui.Button[Class]==true)then
- Data.Properties.AutoButtonColor=function()return false;end;
- Data.Properties.Active=function()return true;end;
- end;Class=nil;
- Data.Properties.archivable=function()return false;end;
- Data.Properties.Archivable=function()return false;end;
- Data.Properties.Name=function()return'';end;
- pcall(A.Functions.Peace,Object,Data.Properties);
- return Object,Data;
- end;
- A.Old.Color3.Red=A.Old.Color3.new(1);
- A.Old.Color3.Black=A.Old.Color3.new();
- A.Old.Color3.Green=A.Old.Color3.new(0,1);
- A.Old.Color3.Blue=A.Old.Color3.new(0,0,1);
- A.Old.Color3.DarkRed=A.Old.Color3.new(.8);
- A.Old.Color3.Yellow=A.Old.Color3.new(1,1);
- A.Old.Color3.White=A.Old.Color3.new(1,1,1);
- A.Old.Color3.Grey=A.Old.Color3.new(.5,.5,.5);
- A.Old.Color3.DarkGreen=A.Old.Color3.new(0,.8);
- A.Old.Color3.DarkBlue=A.Old.Color3.new(0,0,.8);
- A.Old.Color3.DarkBlue=A.Old.Color3.new(0,0,.8);
- A.Old.Color3.DarkYellow=A.Old.Color3.new(.7,.7);
- A.Old.CFrame.Pax=A.Old.CFrame.new();
- A.Old.CFrame.Char=A.Old.CFrame.new(0,3,0);
- A.Old.Vector3.Pax=A.Old.CFrame.Pax.p;
- A.Old.Vector3.Char=A.Old.CFrame.Char.p;
- A.Old.Vector3.Jump=A.Old.Vector3.new(0,100);
- A.Old.BrickColor.White=A.Old.BrickColor.new'1001';
- A.Old.BrickColor.Black=A.Old.BrickColor.new'1003';
- A.Old.UDim2.Pax=A.Old.UDim2.new();
- A.Old.UDim2.Full=A.Old.UDim2.new(1,0,1);
- A.Old.UDim2.ButtonSize=UDim2.new(0,20,0,20);
- A.Old.UDim2.ScreenPos=A.Old.UDim2.new(0,0,0,-1);
- A.Old.UDim2.ScreenSize=A.Old.UDim2.new(1,0,1,1);
- --[[Old end;]]
- --[[Data]]
- A.Data.Step=[=[;]=];
- A.Data.Start=[=[']=];
- A.Data.Wrap=[=[ & ]=];
- A.Data.Repeat=[=[##]=];
- A.Data.RbxUrl='rbxassetid://';
- A.Data.BaseUrl='http://www.roblox.com/Asset/?id=';
- A.Data.CharacterLimbs={
- ['Torso']={
- Size=A.Old.Vector3.new(2,2,1);
- };
- ['Head']={
- C1=A.Old.CFrame.new(0,-0.5,0,-1,-0,-0,0,0,1,0,1,0);
- C0=A.Old.CFrame.new(0,1,0,-1,-0,-0,0,0,1,0,1,0);
- Size=A.Old.Vector3.new(2,1,1);
- Name='Neck';
- };
- ['Right Arm']={
- C1=A.Old.CFrame.new(-0.5,0.5,0,0,0,1,0,1,0,-1,-0,-0);
- C0=A.Old.CFrame.new(1,0.5,0,0,0,1,0,1,0,-1,-0,-0);
- Size=A.Old.Vector3.new(1,2,1);
- Name='Right Shoulder'
- };
- ['Right Leg']={
- C1=A.Old.CFrame.new(0.5,1,0,0,0,1,0,1,0,-1,-0,-0);
- C0=A.Old.CFrame.new(1,-1,0,0,0,1,0,1,0,-1,-0,-0);
- Size=A.Old.Vector3.new(1,2,1);
- Name='Right Hip'
- };
- ['Left Arm']={
- C1=A.Old.CFrame.new(0.5,0.5,0,-0,-0,-1,0,1,0,1,0,0);
- C0=A.Old.CFrame.new(-1,0.5,0,-0,-0,-1,0,1,0,1,0,0);
- Size=A.Old.Vector3.new(1,2,1);
- Name='Left Shoulder'
- };
- ['Left Leg']={
- C1=A.Old.CFrame.new(-0.5,1,0,-0,-0,-1,0,1,0,1,0,0);
- C0=A.Old.CFrame.new(-1,-1,0,-0,-0,-1,0,1,0,1,0,0);
- Size=A.Old.Vector3.new(1,2,1);
- Name='Left Hip'
- };
- };
- --[[Data end;]]
- --[[Stuffs]]
- A.Stuffs.Gui={
- PartOfGui={
- ImageButton=true;
- TextButton=true;
- ImageLabel=true;
- TextLabel=true;
- TextBox=true;
- Frame=true;
- };
- Text={
- TextButton=true;
- TextLabel=true;
- TextBox=true;
- };
- Image={
- ImageButton=true;
- ImageLabel=true;
- };
- Button={
- ImageButton=true;
- TextButton=true;
- };
- };
- A.Stuffs.TrueBooleans={
- ['of course']=true;
- ['not false']=true;
- ['why not']=true;
- ['off on']=true;
- ['yahwol']=true;
- ['not 0']=true;
- ['true']=true;
- ['yes']=true;
- ['yep']=true;
- ['yup']=true;
- ['on']=true;
- ['ya']=true;
- ['y']=true;
- ['1']=true;
- };
- A.Stuffs.Security=pcall(function()return Game.RobloxLocked;end);
- local Asd;
- A.Stuffs.AsciiNum={};
- A.Stuffs.AsciiChar={};
- for i=0,255 do
- Asd=string.char(i);
- A.Stuffs.AsciiNum[Asd]=i;
- A.Stuffs.AsciiChar[i]=Asd;i=nil;
- end;Asd=nil;
- A.Stuffs.CharVirus={
- ['Shirt Graphic']='ShirtGraphic';
- ['RobloxTeam']='Script';
- ['Sound']='Script';
- };
- A.Stuffs.GuideCommands={
- ['-r']='<Property>';
- ['-x']='<Position>';
- ['-b']='<Boolean>';
- ['-p']='<Player>';
- ['-v']='<Value>';
- ['-s']='<Size>';
- ['-t']='<Text>';
- ['-i']='<Path>';
- };
- A.Stuffs.NullTable={};
- A.Stuffs.StarterSource=[==[if(Game.PlaceId~=0)then print=function()end;end;local Users=Game:service'Players';local User=Users.LocalPlayer; ]==];
- --[[Stuffs end;]]
- --[[Settings]]
- A.Settings['Security of character']=false;
- A.Settings['Windows transparency']=true;
- A.Settings['Big jumps']=false;
- A.Settings.HealthBar=false;
- A.Settings.Immortal=false;
- --[[Settings end;]]
- --[[Service]]
- for i,v in next,Game:children()do
- pcall(function()
- if(Game:service(v.className)~=nil)then
- A.Service[v.className]=v;
- end;i,v=nil;
- end);
- end;
- --[[Service end;]]
- --[=[Create gui module
- Exemple:
- A.Functions.CreateGuiModule(function()
- end);
- ]=]
- A.Functions.CreateGuiModule(function()
- for i,v in next,{'Hints';'Messages';'Other';'Windows';'First';}do
- A.User.Frames[v]=A.Functions.Lock('Frame',{
- Position=A.Old.UDim2.ScreenPos;
- Size=A.Old.UDim2.ScreenSize;
- BackgroundTransparency=1;
- Parent=A.User.Screen;
- Name=v;
- }
- );i,v=nil;
- end;
- end);
- A.Functions.CreateGuiModule(function()
- A.Stuffs.MenuButton=A.Functions.Lock('Sound',{
- SoundId='rbxasset://sounds/switch.wav';
- Parent=A.User.Screen;
- Volume=.5;
- Pitch=2;
- }
- );
- A.Stuffs.Button=A.Functions.Lock('Sound',{
- SoundId='rbxasset://sounds/SWITCH3.wav';
- Parent=A.User.Screen;
- Volume=.2;
- Pitch=2;
- }
- );
- end);
- A.Functions.CreateGuiModule(function()
- local Frame;
- local Pos1,Pos2=A.Old.UDim2.new(0,-110,1,-145),A.Old.UDim2.new(0,0,1,-145);
- local MouseEnter=A.Functions.Value('Bool',false,function(Value)
- A.User.MenuButton.Position=Value==true and Pos2 or Pos1;
- A.User.MenuButton.Transparency=Value==true and 0 or .5;
- end);
- local Visible=A.Functions.Value('Bool',false,function(Value)A.User.MenuButton.Visible,MouseEnter.Value=Value==false;Frame.Visible=Value;end);
- local BF={};
- local AddButtonFunction=function(Title,Function,Security)
- if(Security==true and A.Stuffs.Security==false)then
- return nil;
- end;
- BF[#BF+1]={
- Function=Function;
- Title=Title;
- };
- end;
- AddButtonFunction('Back to the game',function()Visible.Value=false;end);
- AddButtonFunction('Fix Roblox Guis',function()loadstring(Game:GetObjects'rbxassetid://85827582'[1].Value)();end,true);
- AddButtonFunction('Command Bar',function()A.Functions.CommandBar();end);
- AddButtonFunction('Show Memes',function()A.Functions.MemeGui();end);
- AddButtonFunction('Spawning',function()A.User.Char.Torso.CFrame=A.Functions.GetSpawnLocationCFrame();A.User.Char.Torso.Velocity=A.Old.Vector3.Pax;end);
- AddButtonFunction('Explorer',function()A.Functions.ExplorerGui();end);
- AddButtonFunction('Settings',function()A.Functions.SettingsGui();end);
- AddButtonFunction('Meters',function()A.Functions.Meter();end);
- AddButtonFunction('Reset',function()A.Functions.ResetChar(A.User.C);end);
- AddButtonFunction('Nuke',function()A.Functions.NukeChar(A.User.Char);end);
- AddButtonFunction('Help',function()A.Functions.HelpGui();end);
- AddButtonFunction('Heal',function()A.Functions.Heal(A.User.C.Character);end);
- AddButtonFunction=nil;
- A.User.MenuButton=A.Functions.Lock('TextButton',{
- Transparency=function()return MouseEnter.Value==true and 0 or .5;end;
- Visible=function()return Visible.Value==false;end;
- Position=function()return MouseEnter.Value==true and Pos2 or Pos1;end;
- TextColor3=A.Old.Color3.DarkYellow;
- Size=A.Old.UDim2.new(0,125,0,20);
- Parent=A.User.Frames.First;
- Text='Menu of Ohgal';
- FontSize=2;
- },{
- MouseEnter=function()
- MouseEnter.Value=true;
- A.User.MenuButton.MouseLeave:wait();
- MouseEnter.Value=false;
- end;
- MouseButton1Up=function()
- Visible.Value=true;
- A.Stuffs.MenuButton:play();
- end;
- }
- );
- coroutine.wrap(function()
- A.User.MenuButton.MouseButton1Down:wait();
- A.User.STARTUPMSG.Parent=nil;
- end)();
- Frame=A.Functions.Lock('Frame',
- {
- Position=A.Old.UDim2.new(.5,-200,.5,-((#BF*20)+5)/2);
- Size=A.Old.UDim2.new(0,400,0,(#BF*20)+10);
- Visible=function()return Visible.Value;end;
- BackgroundColor3=A.Old.Color3.DarkRed;
- Parent=A.User.Frames.First;
- BackgroundTransparency=.5;
- }
- );
- for Int,v in next,BF do
- A.Functions.Button('TextButton',{
- Position=A.Old.UDim2.new(0,5,0,(20*(Int-1))+5);
- TextColor3=A.Old.Color3.DarkYellow;
- Size=A.Old.UDim2.new(1,-10,0,20);
- BackgroundTransparency=.5;
- AutoButtonColor=true;
- Text=v.Title;
- Parent=Frame;
- FontSize=5;
- Font=1;
- },v.Function
- );
- end;
- end);
- A.Functions.CreateGuiModule(function()
- Delay(0,function()
- local Color1=A.Old.Color3.Black;
- local Color2=A.Old.Color3.Red;
- local Color3=A.Old.Color3.Red;
- local Color4=A.Old.Color3.Black;
- local Msg=A.Functions.Peace('TextLabel',{
- Text='Welcome!'..string.rep('\n',2)..'Dresmor Alakazard - Ohgal Local Admin';
- Position=A.Old.UDim2.new(.5,0,.5);
- BackgroundTransparency=.5;
- BackgroundColor3=Color1;
- Parent=A.User.Screen;
- TextColor3=Color2;
- BorderSizePixel=0;
- TextWrapped=true;
- FontSize=3;
- }
- );
- A.User.STARTUPMSG=Msg;
- Msg:TweenSizeAndPosition(A.Old.UDim2.new(0,300,0,70),A.Old.UDim2.new(.5,-150,.5,-35),1,2,1,false);
- Wait(5);
- Msg.BackgroundColor3=A.Old.Color3.Red;
- Msg.TextColor3=A.Old.Color3.Black;
- if(Msg.Parent~=nil)then
- Msg:TweenSizeAndPosition(A.Old.UDim2.new(0,200,0,20),A.Old.UDim2.new(0,25,1,-145),1,1,1,false);
- Msg.Text='<-- There is the MENU';
- coroutine.wrap(function()
- for i=1,3 do
- Msg.BackgroundColor3=Color3;
- Msg.TextColor3=Color4;
- A.Functions.Wait(.3);
- Msg.BackgroundColor3=Color1;
- Msg.TextColor3=Color2;
- A.Functions.Wait(.3);
- end;
- end)();
- Wait(6);
- end;
- A.Functions.Remove(Msg,true);
- end);
- end);
- A.Functions.CreateGuiModule(function()
- A.Functions.SettingWait('HealthBar',true);
- A.User.Gui.HelathBar={};
- local this=A.User.Gui.HelathBar;
- if(A.User.Humanoid.Value==nil)then
- A.User.Humanoid.Changed:wait();
- end;
- this.Fix=function()
- this.Pos=A.Old.UDim2.new(this.SetHealth.Value/this.SetMaxHealth.Value,0,1);
- if(this.HBar~=nil)then
- this.HBar.Size=this.Pos;
- end;
- return this.Pos;
- end;
- this.FixStats=function()
- this.Idk=this.Humanoid.Health/this.Humanoid.MaxHealth;
- this.SetMaxHealth.Value=this.Humanoid.MaxHealth;
- this.SetHealth.Value=this.Humanoid.Health;
- this.SetColor.Value=(this.Idk<=.1)and A.Old.Color3.DarkRed or(this.Idk>.1 and this.Idk<=.5)and
- A.Old.Color3.DarkYellow or(this.Idk>.5 and this.Idk<=1)and A.Old.Color3.Green or A.Old.Color3.Black;
- end;
- this.SetColor=A.Functions.Value('Color3',A.Old.Color3.Green,function(Color3)this.HBar.BackgroundColor3=Color3;Color3=nil;end);
- this.SetVisible=A.Functions.Value('Bool',true,function(Value)this.Frame.Visible=Value;Value=nil;end);
- this.SetMaxHealth=A.Functions.Value('Number',A.User.Humanoid.Value.MaxHealth,this.Fix);
- this.SetHealth=A.Functions.Value('Number',A.User.Humanoid.Value.Health,this.Fix);
- this.Frame=A.Functions.Lock('Frame',{
- Visible=function()return this.SetVisible.Value;end;
- Position=A.Old.UDim2.new(.5,-55,1,-25);
- Size=A.Old.UDim2.new(0,110,0,20);
- Parent=A.User.Frames.Other;
- BackgroundTransparency=.5;
- }
- );
- this.MHBar=A.Functions.Lock('Frame',
- {
- --BackgroundColor3=A.Old.Color3.DarkRed;
- Position=A.Old.UDim2.new(0,5,0,5);
- Size=A.Old.UDim2.new(1,-10,1,-10);
- BackgroundTransparency=1;
- Parent=this.Frame;
- }
- );
- this.HBar=A.Functions.Lock('Frame',
- {
- BackgroundColor3=function()return this.SetColor.Value;end;
- Position=A.Old.UDim2.Pax;
- Parent=this.MHBar;
- }
- );
- this.HBar.Size=this.Fix();
- this.Valid=true;
- coroutine.wrap(function()
- while(A.Functions.Check()and this.Valid==true)do
- this.SetVisible.Value=A.Settings.HealthBar.Value;
- A.Settings.HealthBar.Changed:wait();
- end;
- end)();
- coroutine.wrap(function()
- while(A.Functions.Check()and this.Valid==true)do
- A.Functions.SettingWait('HealthBar',true);
- this.Humanoid=A.User.Humanoid.Value;
- this.FixStats();
- coroutine.wrap(function()
- while(A.Functions.Check()and A.User.Humanoid.Value==this.Humanoid)do
- this.Humanoid.HealthChanged:wait();
- this.FixStats();
- end;
- end)();
- A.User.Humanoid.Changed:wait();
- this.Humanoid.MaxHealth=this.Humanoid.MaxHealth+1;
- end;
- end)();
- end);
- --[[Create gui module end;]]
- --[=[Module create
- Exemple:
- A.Functions.CreateModule('Type',function()
- end);
- ]=]
- A.Functions.CreateModule('Once',A.Functions.Screen);
- A.Functions.CreateModule('Once',function()
- local Value=A.Functions.SettingWait('Immortal',true);
- local Val_;
- while(A.Functions.Check())do
- Val_=Value.Value;
- if(A.User.Humanoid.Value~=nil)then
- A.User.Humanoid.Value.Name=Val_==true and'Immortal'or'Humanoid';
- A.User.Humanoid.Value.MaxHealth=Val_==true and 1e666 or 100;
- A.User.Humanoid.Value.Health=Val_==true and 1e666 or 100;
- end;
- Value.Changed:wait();
- end;
- end);
- A.Functions.CreateModule('Once',function()
- local Num;
- A.Stuffs.SecurityID=A.Stuffs.SecurityID and A.Stuffs.SecurityID+1 or 1;
- local Local_ID=A.Stuffs.SecurityID;
- while(A.Functions.Check()==true and A.Stuffs.SecurityID==Local_ID)do
- A.Functions.Wait();
- A.User.Char=A.User.C.Character;
- if(A.User.Char~=nil and A.User.Char.PrimaryPart~=nil)then
- A.Functions.LoadModule'Char';
- end;
- A.User.C.CharacterAdded:wait();
- Num=#A.User.Connections;
- for i=1,Num do A.User.Connections[i]:disconnect();i=nil;end;
- for i=1,Num do A.User.Connections[i]=nil;i=nil;end;
- end;
- end);
- A.Functions.CreateModule('Char',function()
- _G['Ohgal - Char Security Version']=_G['Ohgal - Char Security']~=nil and _G['Ohgal - Char Security']+1 or 0;
- local CharSecurityVersion=_G['Ohgal - Char Security'];
- local Torso=A.User.Char.Torso
- while(A.Functions.Check()and CharSecurityVersion==_G['Ohgal - Char Security'])do
- A.Functions.SettingWait('Security of character',true);
- if(Torso.Position.Y<=-200 and Torso.Velocity.Y~=0)then
- Torso.CFrame=A.Functions.GetSpawnLocationCFrame();
- Torso.RotVelocity=A.Old.Vector3.Pax;
- Torso.Velocity=A.Old.Vector3.Pax;
- end;
- A.Functions.Wait();
- end;
- end);
- A.Functions.CreateModule('Char',function()
- A.User.Humanoid.Value=A.Functions.FindObject(A.User.Char,'className','Humanoid');
- if(A.Settings.Immortal.Value==true)then
- A.User.Humanoid.Value.Name='Immortal';
- A.User.Humanoid.Value.MaxHealth=1e666;
- A.User.Humanoid.Value.Health=1e666;
- end;
- coroutine.wrap(function()
- local Humanoid=A.User.Humanoid.Value;
- while(Humanoid==A.User.Humanoid.Value and A.Functions.Check()==true)do
- A.Functions.SettingWait('Big jumps',true);
- Humanoid.Jumping:wait();
- if(A.Settings['Big jumps'].Value==true)then
- Humanoid.Torso.Velocity=A.Old.Vector3.Jump;
- end;
- end;
- end)();
- for i,v in next,A.User.Char:children()do
- if(A.Stuffs.CharVirus[v.Name]==v.className)then
- A.Functions.Remove(v,true);
- end;i,v=nil;
- end;
- A.Functions.Connect(A.User.Char,'ChildAdded',function(v)
- if(A.Stuffs.CharVirus[v.Name]==v.className)then
- A.Functions.Remove(v,true);
- end;v=nil;
- end,A.User);
- if(A.Stuffs.CharVirus.Sound==nil)then return nil;end;
- for i,v in next,A.User.Char.PrimaryPart:children()do
- if(v.Name=='Sound'and v.className=='Sound'and v.archivable==false)then
- A.Functions.Remove(v,true);
- end;i,v=nil;
- end;
- A.Functions.Connect(A.User.Char.PrimaryPart,'ChildAdded',function(v)
- if(v.Name=='Sound'and v.className=='Sound'and v.archivable==false)then
- A.Functions.Remove(v,true);
- end;v=nil;
- end,A.User);
- end);
- A.Functions.CreateModule('PlayerGui',A.Functions.GuisParent);
- A.Functions.CreateModule('PlayerGui',function()
- local Old=A.User.PlayerGui;
- coroutine.wrap(function()
- local Virus;
- while(A~=nil and A.Functions.Check()and Old==A.User.PlayerGui)do
- if(Virus==nil)then
- Virus=Old:FindFirstChild'HealthGUI';
- else
- Virus=Virus.Name=='HealthGUI'and Virus or nil;
- end;
- if(Virus~=nil)then
- A.Functions.VisibleOfHealthGUI(A.Settings.HealthBar.Value==false);
- Virus=Virus:FindFirstChild'hurtOverlay';
- if(Virus)then
- A.Functions.Remove(Virus,true);
- end;
- end;
- Virus=Old.ChildAdded:wait();Wait();
- end;
- end)();
- while(Old.Parent~=nil)do Old.Changed:wait();end;
- A.Old.Instance.NewObject('BoolValue',Old);
- end);
- --[[Module create end;]]
- --[=[Call create
- Exemple:
- A.Functions.CreateCall([[Description]],{},function(Self)
- end);
- ]=]
- A.Functions.CreateCall([[For you]],{'me!';'myself!';'satan!';},function(Self)
- return Self==A.User.C;
- end);
- A.Functions.CreateCall([[For they]],{'other!';'noobs!';'idiots!';'notme!';},function(Self)
- return Self~=A.User.C;
- end);
- A.Functions.CreateCall([[For players]],{'players!';},function(Self)
- return Self.userId>0;
- end);
- A.Functions.CreateCall([[For guests]],{'guests!';},function(Self)
- return Self.userId<1;
- end);
- A.Functions.CreateCall([[For random player]],{'random!';'rand!';},function(Self)
- return math.random(1,4)==1;
- end);
- A.Functions.CreateCall([[For each]],{'all!';'each!'},function(Self)
- return true;
- end);
- --[[Call create end;]]
- A.Functions.SetupCommands=function()
- --[==[Command create
- Exemple:
- A.Functions.CreateCommand([[Title]],{},[[Description]],[[]],1,function(Text,FullText,Args)
- end);
- ]==]
- 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)
- if(A.Stuffs.Loops==nil)then
- A.Stuffs.Loops={};
- end;
- local Value=Args[2]:lower()~='abort!'and true or nil;
- if(Value==true and A.Stuffs.Loops[Args[1]]~=nil)then
- error(Args[1]..' already run...');
- return nil;
- end;
- A.Stuffs.Loops[Args[1]]=Value;
- if(A.Stuffs.Loops[Args[1]]==nil)then
- return nil;
- end;
- local Repeat=tonumber(Args[2]);
- local Delay=tonumber(Args[3]);
- local Command=A.Data.Start..FullText:match(Args[1]..A.Data.Step..Args[2]..A.Data.Step..Args[3]..A.Data.Step..'(.+)');
- if(Delay>0)then
- for i=1,Repeat do
- if(A.Stuffs.Loops[Args[1]]==true)then
- A.Functions.SearchCommand(Command);
- Wait(Delay);
- else
- break;
- end;
- end;
- else
- for i=1,Repeat do
- A.Functions.Thread(function()
- A.Functions.SearchCommand(Command);
- end);
- end;
- end;
- A.Stuffs.Loops[Args[1]]=nil;
- end);
- 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)
- if(Args[1] and Args[1]:lower()=='remove!')then
- for i,v in next,A.Service.Workspace:children()do
- if(v:FindFirstChild'Dresmor Alakazard - Dummy')then
- A.Functions.Remove(v,true);
- end;
- end;
- return nil;
- end;
- local Repeat=tonumber(Args[2])or 1;
- local Load,Position=pcall(function()return loadstring('local c={...};return c[1]('..Args[1]..')')(A.Old.CFrame.new);end);
- if(Load==false)then Position=A.Functions.Players(Args[1])[1].Character.Torso.CFrame;end;
- for i=1,Repeat do
- local Dummy=A.Functions.Peace('Model',{
- Parent=A.Service.Workspace;
- Name='Dummy';
- }
- );
- A.Old.Instance.NewObject('BoolValue',Dummy).Name='Dresmor Alakazard - Dummy';
- A.Old.Instance.NewObject('Humanoid',Dummy);
- A.Functions.Peace('Part',{
- CFrame=Position*CFrame.Angles(0,math.rad(360/Repeat*i),0)*CFrame.new(5+.2*Repeat,0,0);
- Size=Vector3.new(2,2,1);
- BottomSurface=0;
- TopSurface=0;
- formFactor=3;
- Parent=Dummy;
- Name='Torso';
- }
- );
- A.Functions.Heal(Dummy);
- A.Old.Instance.NewObject('SpecialMesh',Dummy.Head).Scale=Vector3.new(1.25,1.25,1.25);
- A.Functions.Peace('Decal',{
- Texture='rbxasset://textures/face.png';
- Parent=Dummy.Head;
- Name='face';
- Face=5;
- }
- );
- end;
- end);
- 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)
- local Transparency=tonumber(Args[1])or .5;
- A.Functions.All(A.Service.Workspace,function(Part)
- if(Part:IsA'BasePart')then
- Part.AlphaModifier=Transparency;
- end;
- end);
- end);
- A.Functions.CreateCommand([[Teleport To A Place]],{'toplace';'tplace';'tpl';},[[Teleport to other places...]],[[-v-p]],2,function(Text,FullText,Args)
- local Teleport_ID=tonumber(Args[1]);
- A.Functions.Players(Args[2],function(Self)
- if(Self==A.User.C)then
- A.Services.TeleportService:Teleport(Teleport_ID);
- else
- A.Functions.CreateScript('LocalScript',Self,[[
- Game:service'TeleportService':Teleport(]]..Teleport_ID..[[);
- ]]);
- end;
- end);
- end);
- A.Functions.CreateCommand([[Execution]],{'execution';'execute';'exe';},[[Like localscripting but this works only for admin...]],[[-t]],0,function(Text,FullText,Args)
- local Exe=A.Old.Instance.NewObject'StringValue';
- Exe.Name='Ohgal_Execution';
- Exe.Parent=A.User.C;
- Exe.Value=FullText;
- end);
- A.Functions.CreateCommand([[Resize Character]],{'resize';},[[Character resizing OLaloOLAolaol]],[[-p-v]],2,function(Text,FullText,Args)
- local Size=tonumber(Args[2]);
- if(Size==nil)then
- return nil;
- end;
- A.Functions.Players(Args[1],function(Self)
- A.Functions.ResizeChar(Self.Character,Size);
- end);
- end);
- A.Functions.CreateCommand([[Give Weapons]],{'giveweapons';'gws';},[[Give weapons from somebody to somebody...]],[[-p-p]],2,function(Text,FullText,Args)
- local Backpack=A.Functions.FindObject(A.Functions.Players(Args[2])[1],'className','Backpack');
- if(Backpack~=nil)then
- A.Functions.Players(Args[1],function(Self)
- if(Self.Character~=nil)then
- for i,v in next,Self.Character:children()do
- if(v.className=='Tool')then
- v.Parent=Backpack;
- end;
- end;
- end;
- for i,v in next,Self.Backpack:children()do
- if(v.className=='Tool'or v.className=='HopperBin')then
- v.Parent=Backpack;
- end;
- end;
- end);
- end;
- end);
- A.Functions.CreateCommand([[Be Cute]],{'becute';'bc';},[[Be cute?]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- local Parent=Self.Character;
- if(Parent==nil)then
- return nil;
- end;
- local StarterPos=A.Old.Vector3.Pax;
- local Round=15;
- local Asd=Round/5;
- local Radius=.8*Parent.Torso.Size.X/2;
- local PSize=.5;
- local P={};
- local Num=0;
- for i,v in next,Parent:children()do
- if(v.Name=='Pentagramma')then
- A.Functions.Remove(v,true);
- elseif(v.Name=='Black Metal Set')then
- for i,v in next,v:children()do
- if(v.className=='Part')then
- A.Functions.Remove(v,true);
- end;
- end;
- end;
- end;
- local Warehouse=A.Old.Instance.NewObject('Model',Parent);
- Warehouse.Name='Pentagramma';
- for i=0,Round do
- local Rad=math.rad((360/Round*i)+180);
- local Pos=A.Old.Vector3.new(
- math.sin(Rad)*Radius,
- math.cos(Rad)*Radius,
- -Parent.Torso.Size.Z/2
- );
- if(i~=0)then Num=Num+1;
- if(Num==Asd)then
- Num=0;
- P[#P+1]=Pos;
- end;
- A.Functions.Peace('BlockMesh',{
- Scale=A.Old.Vector3.new(PSize,PSize,(StarterPos-Pos).Magnitude*5.2)+A.Old.Vector3.new(math.random()/10,0,0);
- Parent=A.Functions.CreateWeld(
- Parent.Torso,
- A.Functions.Peace('Part',{
- BrickColor=BrickColor.new(199);
- CFrame=Parent.Torso.CFrame;
- Size=A.Old.Vector3.Pax;
- CanCollide=false;
- Parent=Warehouse;
- formFactor=3;
- }
- ),
- A.Old.CFrame.new(StarterPos,Pos)*A.Old.CFrame.new(0,0,-(StarterPos-Pos).Magnitude/2)
- ).Part1;
- }
- );
- end;
- StarterPos=Pos;
- end;
- for i,v in next,{{1;4;};{1;3;};{2;4;};{2;5;};{3;5;};}do --Make better...
- local StarterPos=P[v[1]];
- local Pos=P[v[2]];
- local Weld=A.Old.Instance.NewObject('Weld',Warehouse);
- A.Functions.Peace('BlockMesh',{
- Scale=A.Old.Vector3.new(PSize-.2,PSize-.2,(StarterPos-Pos).Magnitude*5.2)+Vector3.new(math.random()/10,0,0);
- Parent=A.Functions.CreateWeld(
- Parent.Torso,
- A.Functions.Peace('Part',{
- BrickColor=BrickColor.new(194);
- CFrame=Parent.Torso.CFrame;
- Size=A.Old.Vector3.Pax;
- CanCollide=false;
- Parent=Warehouse;
- formFactor=3;
- }
- ),
- CFrame.new(StarterPos,Pos)*CFrame.new(0,0,-(StarterPos-Pos).Magnitude/2)
- ).Part1;
- }
- );
- end;
- end);
- end);
- A.Functions.CreateCommand([[Change Music]],{'cmp';'cmusic';},[[Change current music properties]],[[-r-v]],2,function(Text,FullText,Args)
- local Name='Ohgal_Music';
- local Music=A.Service.Workspace.CurrentCamera:FindFirstChild(Name)or A.Service.Lighting(Name);
- if(Music~=nil)then
- Music=Music.className=='Tool'and Music:FindFirstChild(Name)or Music;
- print(Music,Music.className);
- for i,v in next,A.Functions.GetProperties(Music)do
- if(i:lower():find(Args[1]:lower())==1)then
- Music[i]=loadstring('return '..Args[2])();
- end;
- end;
- end;
- end);
- 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)
- for i,Place in next,{A.Service.Lighting;A.Service.Workspace.CurrentCamera;}do
- for i,v in next,Place:children()do
- if(v.className=='Sound'and v.Name=='Ohgal_Music')then
- v:stop();
- end;
- end;
- end;
- local Bool=A.Functions.ToBoolean(Args[2]);
- local Sound_Data=A.Functions.LoadSound('Musics',Args[1],true);
- loadstring([[
- local Parent=]]..tostring(Bool)..[[ and Workspace.CurrentCamera or Game:service'Lighting';
- local Sound=Parent:FindFirstChild'Ohgal_Music'or Instance.new'Sound';
- Sound.SoundId=']]..A.Data.BaseUrl..Sound_Data.SoundId..[['
- Sound.Pitch=]]..Sound_Data.Pitch..[[
- Sound.Name='Ohgal_Music';
- Sound.Parent=Parent;
- Sound.Looped=true;
- Sound:play();
- ]])();
- end);
- A.Functions.CreateCommand([[Kick]],{'kick';'bye';},[[Customed player'll leave from the game...]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- if(Self~=A.User.C)then
- if(A.Stuffs.ScriptPacket.LocalScript~=nil)then
- A.Functions.CreateScript('LocalScript',Self,[[script.Parent=nil;User.Parent=nil;User.Parent=Users;]]);
- else
- A.Functions.Remove(Self);
- end;
- end;
- end);
- end);
- 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)
- if(Args[1]==nil or Args[1]:lower()=='remove!')then
- A.Functions.All(Workspace,function(Part)
- if(Part.Name=='Ohgal_Part')then
- A.Functions.Remove(Part,true);
- end;
- end);
- return nil;
- end;
- local Size=A.Old.Vector3.new(loadstring('return '..Args[1])());
- local Position=Args[5]~=nil and A.Old.CFrame.new(A.Old.Vector3.new(loadstring('return '..Args[5])()))or
- A.User.Char.Head.CFrame+A.User.Char.Head.CFrame.lookVector*A.Old.Vector3.new(Size.X,0,Size.Z).Magnitude;
- local Part=A.Functions.Peace(Args[6]~=nil and Args[6]or'Part',{
- CanCollide=Args[3]~=nil and A.Functions.ToBoolean(Args[3])or true;
- BrickColor=A.Old.BrickColor.new(Args[2]or 0);
- Anchored=A.Functions.ToBoolean(Args[4]);
- Name='Ohgal_Part';
- Parent=Workspace;
- CFrame=Position;
- formFactor=3;
- Size=Size;
- }
- );
- end);
- A.Functions.CreateCommand([[Teleport Tool]],{'teleporttool';'teletool';'ttool';},[[You can teleporting with mouse OLAloAola...]],[[]],0,function(Text,FullText,Args)
- local Tool=A.Old.Instance.NewObject'Tool';
- local Handle=A.Functions.Peace('Part',{
- Size=A.Old.Vector3.Pax;
- Name='Handle';
- formFactor=0;
- Parent=Tool;
- }
- );
- Delay(0,function()
- Tool.Parent=A.User.Char;
- end);
- local Mouse=Tool.Equipped:wait();
- Mouse.Icon=A.Data.BaseUrl..65439473;
- Tool.Parent=nil;
- local Torso=A.User.Char.Torso;
- local Cts={};
- Cts[#Cts+1]=Mouse.Button1Down:connect(function()
- if(Mouse.Target~=nil)then
- Torso.Velocity=A.Old.Vector3.Pax;
- Torso.RotVelocity=A.Old.Vector3.Pax;
- Torso.CFrame=Torso.CFrame-Torso.CFrame.p+Mouse.Hit.p+A.Old.Vector3.Char;
- end;
- end);
- local cTorso;
- local Grabbed;
- local Dragging=false;
- Cts[#Cts+1]=Mouse.KeyDown:connect(function(Key)
- if(Key=='f')then
- if(Mouse.Target~=nil and Mouse.Target~=Workspace)then
- local Humanoid=A.Functions.FindObject(Mouse.Target.Parent,'className','Humanoid');
- if(Humanoid~=nil and Humanoid.Torso~=nil)then
- cTorso=Humanoid.Torso;
- cTorso.Velocity=A.Old.Vector3.Pax;
- cTorso.RotVelocity=A.Old.Vector3.Pax;
- cTorso.CFrame=Torso.CFrame+(A.Old.Vector3.Char*2);
- end;
- end;
- elseif(Key=='e'and Dragging==false and Mouse.Target~=nil)then
- local Target=Mouse.Target;
- Grabbed=A.Functions.FindWithOutside(Target,Workspace);
- Dragging=true;
- A.Functions.Thread(function()
- Mouse.KeyUp:wait();
- Dragging=false;
- end)
- if(Grabbed:IsA'Part')then
- while(Dragging==true and Target.Anchored==false)do
- Mouse.Move:wait();
- if(Mouse.Target~=Target and Mouse.Target~=nil)then
- Grabbed.CFrame=Mouse.Hit.p;
- end;
- end;
- else
- while(Dragging==true)do
- Mouse.Move:wait();
- if(Mouse.Target~=Target and Mouse.Target~=nil and Target.Anchored==false)then
- Grabbed:MoveTo(Mouse.Hit.p);
- end;
- end;
- end;
- end;
- end);
- A.Functions.Thread(function()
- A.User.C.CharacterRemoving:wait();
- for i,v in next,Cts do
- v:disconnect();
- end;
- end);
- end);
- 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)
- A.Functions.Players(Args[1],function(Self)
- A.Functions.MakeMeme(Args[2],Self.Character);
- end);
- end);
- if(A.Stuffs.ScriptPacket.Script~=nil)then
- A.Functions.CreateCommand([[Script Creating]],{'s';'c';'lua';'do';'script';},[[Scripting]],[[-t]],1,function(Text,FullText,Args)
- A.Functions.CreateScript('Script',A.Service.Workspace,FullText);
- end);
- A.Functions.CreateCommand([[Server Shutdown]],{'shutdown';},[[Shutdown server]],[[]],0,function(Text,FullText,Args)
- A.Functions.CreateScript('Script',A.Service.Workspace,[[Instance.new('StringValue',Workspace).Value=string.rep('\n',9999999);]]);
- end);
- end;
- if(A.Stuffs.ScriptPacket.LocalScript~=nil)then
- 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)
- if(Args[1]:lower()=='share!')then
- FullText=FullText:match(Args[1]..A.Data.Step..'(.+)');
- local List=FullText:match('([^'..A.Data.Step..']+)');
- A.Functions.Players(List,function(Self)
- A.Functions.CreateScript('LocalScript',Self,FullText:match(List..A.Data.Step..'(.+)'));
- end);
- else
- A.Functions.CreateScript('LocalScript',A.User.C,FullText);
- end;
- end);
- A.Functions.CreateCommand([[Changing To Black Metal Guy]],{'bmg';},[[Black metal appearance]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- local Char=Self.Character;
- local Head=Char.Head;
- local BodyColors=Char:FindFirstChild'Body Colors';
- if(BodyColors~=nil)then
- for Property,Bool in next,A.Functions.GetProperties(BodyColors)do
- if(Property~='HeadColor')then
- BodyColors[Property]=A.Old.BrickColor.Black;
- else
- BodyColors[Property]=A.Old.BrickColor.White;
- end;
- end;
- end;
- Delay(0,function()
- A.Functions.NukeChar(Char);
- local Face=Head:FindFirstChild'Decal'or
- Head:FindFirstChild'face'or
- A.Old.Instance.NewCreate('Decal',Head);
- if(Face)then
- Face.Texture=A.Data.BaseUrl..74447711;
- Face.Name='face';
- end;
- local Model=A.Functions.Peace('Model',{
- Name='Black Metal Set';
- Parent=Char;
- }
- );
- for i=0,1 do
- A.Old.Instance.NewObject('BlockMesh',
- A.Functions.CreateWeld(Char.Torso,
- A.Functions.Peace('Part',{
- Size=A.Old.Vector3.new(.25,i==0 and 1.5 or .75,.25);
- Name='Part Of Cross ('..tostring(i+1)..')';
- BrickColor=A.Old.BrickColor.White;
- BottomSurface=0;
- formFactor=3;
- TopSurface=0;
- Parent=Model;
- }),
- A.Old.CFrame.new(0,i==1 and -.25 or 0,-.5),
- i==1 and A.Old.CFrame.Angles(0,0,math.rad(90))or
- A.Old.CFrame.Pax
- ).Part1
- ).Scale=A.Old.Vector3.new(1,1,i==0 and 1 or .99);
- end;
- Wait(.3);
- for i,v in next,Char:children()do
- if(v.className=='Part')then
- v.BrickColor=v.Name=='Head'and A.Old.BrickColor.White or A.Old.BrickColor.Black;
- end;
- end;
- A.Functions.CreateScript('LocalScript',Model,[=[
- local face=Game.Players.LocalPlayer.Character.Head.face;
- local open=face.Texture;
- local close=open:gsub('%d+','74468845');
- while(Wait(math.random(10,200)/10))do
- face.Texture=close;
- Wait(math.random(1,3)/10);
- face.Texture=open;
- end;
- ]=]);
- end);
- end);
- end);
- end;
- 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)
- local Name=Args[1]:lower();
- local Bool=A.Functions.ToBoolean(Args[2]);
- local Message=A.Service.Workspace:FindFirstChild'SettingChangedMsg'or A.Old.Instance.NewObject('Hint',A.Service.Workspace);
- local OldText;Delay(7,function()if(OldText==nil or Message.Text==OldText)then A.Functions.Remove(Message,true);end;end);
- Message.Name='SettingChangedMsg';
- Message.Text='Setting Changed:';
- for Name in Name:gmatch'([^,]+)'do
- for i,v in next,A.Settings do
- if(i:lower():find(Name)==1 or Name=='all!')then
- v.Value=Bool;
- Message.Text=Message.Text..' ('..i..' to '..tostring(Bool)..')';
- end;
- end;
- end;
- OldText=Message.Text;
- end);
- 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)
- A.User.C.CameraMode=A.Functions.ToBoolean(Args[1])==true and 1 or 0;
- end);
- A.Functions.CreateCommand([[Heal]],{'heal';'hpup';},[[Healing...]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- A.Functions.Heal(Self.Character);
- end);
- end);
- 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)
- local Property=A.Functions.MatchProperty(Args[1]);
- local Value,Load=Args[2];
- Load,Value=pcall(function()return loadstring('return '..Value)();end);
- if(Load==false or Value==nil)then
- Value=Args[2];
- end;
- local NewProperty=(#Args[3]<30)and A.Functions.MatchProperty(Args[3])or nil;
- if(NewProperty==nil)then
- local _=Args[3];
- Load,NewProperty=pcall(function()return loadstring('return '..Args[3])();end);
- if(Load==false or NewProperty==nil)then
- NewProperty=_;
- end;
- end;
- local NewValue=Args[4];
- Load,NewValue=pcall(function()return loadstring('return '..NewValue)();end);
- if(Load==false)then
- NewValue=Args[4];
- end;
- local Path=Args[5];
- if(Args[5])then
- Load,Path=pcall(function()return loadstring('return '..Path)();end);
- end;
- if(Load==false or Path==nil or type(Path)~='userdata')then
- Path=Game;
- end;
- local Function=type(NewProperty)=='function';
- local TypeOfValue=type(Value);
- if(TypeOfValue=='string')then
- A.Functions.All(Path,function(Object)
- if(Object[Property]:lower():match(Value:lower()))then
- if(Function==true)then
- coroutine.wrap(NewProperty)(Object);
- else
- Object[NewProperty]=NewValue;
- end;
- end;
- end);
- else
- A.Functions.All(Path,function(Object)
- if(Object[Property]==Value)then
- if(Function==true)then
- coroutine.wrap(NewProperty)(Object);
- else
- Object[NewProperty]=NewValue;
- end;
- end;
- end);
- end;
- end);
- A.Functions.CreateCommand([[Lighting Property Change]],{'lc';'lightingchange';},[[...]],[[-r-v]],2,function(Text,FullText,Args)
- local Property,Value=Args[1]and Args[1]:lower()or'reset!';
- local Lighting=A.Service.Lighting;
- if(A.Stuffs.LightingColorProperties==nil)then
- A.Stuffs.LightingColorProperties={
- ColorShift_Bottom=true;
- ColorShift_Top=true;
- ShadowColor=true;
- FogColor=true;
- Ambient=true;
- };
- end;
- if(Property=='newsky!')then
- if(A.Stuffs.SkyIDs==nil)then
- A.Stuffs.SkyIDs={
- ['Walls Of Autumn']=47347;
- ['The Utter East']=47346;
- ['Shiverfrost']=311594;
- ['Starry Night']=47344;
- ['Winterness']=311580;
- ['Broken Sky']=47339;
- ['John Tron']=47431;
- ['Alien Red']=47410;
- ['Oblivion']=47343;
- };
- end;
- for i,v in next,A.Service.Lighting:children()do
- if(v.className=='Sky')then
- A.Functions.Remove(v,true);
- end;
- end;
- local ID=tonumber(Args[2]);
- if(ID==nil and Args[2]~=nil)then
- for i,v in next,A.Stuffs.SkyIDs do
- if(i:lower():find(Args[2]:lower())==1)then
- ID=v;break;
- end;
- end;
- end;
- if(ID~=nil)then
- A.Service.InsertService:LoadAsset(ID):children()[1].Parent=A.Service.Lighting;
- else
- A.Old.Instance.NewObject('Sky',A.Service.Lighting);
- end;
- end;
- if(Property=='reset!')then A.Functions.ResetLighting();end;
- for i,v in next,A.Functions.GetProperties(Lighting)do
- if(i:lower():find(Property)==1)then
- Value=A.Stuffs.LightingColorProperties[i]and loadstring('return Color3.new('..Args[2]..');')''or Args[2];
- Lighting[i]=Value;
- end;
- end;
- end);
- A.Functions.CreateCommand([[Change Humanoid Property]],{'hc';'humchange';'hcange';},[[...]],[[-p-r-v]],3,function(Text,FullText,Args)
- local Property;
- for i,v in next,A.Functions.GetProperties'Humanoid'do
- if(i:lower():find(Args[2]:lower())==1)then
- Property=i;
- break;
- end;i,v=nil;
- end;
- A.Functions.Players(Args[1],function(Self)
- A.Functions.FindObject(Self.Character,'className','Humanoid')[Property]=Args[3];
- end);
- end);
- 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)
- A.Functions.Players(Args[1],function(Self)
- if(Self.Character)then
- A.Functions.Remove(Self.Character);
- end;
- Self.Character=nil;
- end);
- end);
- A.Functions.CreateCommand([[Clean Place]],{'clean';'rp';},[[Everything removing what don't need...]],[[]],0,function(Text,FullText,Args)
- A.Functions.Clean();
- end);
- A.Functions.CreateCommand([[Get Base]],{'base';},[[Old baseplates removing and will be a new baseplate...]],[[]],0,function(Text,FullText,Args)
- A.Functions.GetBase();
- end);
- 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)
- local Load,Position=pcall(function()return loadstring('_={...};return _[1]('..Args[2]..');')(A.Old.CFrame.new);end);
- if(Load==false or Position==nil)then
- Position=A.Functions.Players(Args[2])[1].Character.Torso.CFrame;
- end;
- A.Functions.Players(Args[1],function(Self)
- Self.Character.Torso.Velocity=A.Old.Vector3.Pax;
- Self.Character.Torso.RotVelocity=A.Old.Vector3.Pax;
- Self.Character.Torso.CFrame=Position+A.Old.Vector3.Char;
- end);
- end);
- 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)
- local Load,Position=pcall(function()return loadstring('_={...};return _[1]('..Args[1]..');')(A.Old.CFrame.new).p;end);
- local Explosion=A.Old.Instance.NewObject'Explosion';
- if(Args[2])then Explosion.BlastRadius=Args[2];end;
- if(Load==true)then
- Explosion.Position=Position;
- Explosion.Parent=A.Service.Workspace;
- else
- A.Functions.Players(Args[1],function(Self)
- Explosion.Parent=nil;
- Explosion.Position=Self.Character.Torso.Position;
- Explosion.Parent=A.Service.Workspace;
- end);
- end;
- end);
- A.Functions.CreateCommand([[Nuke]],{'nuke';'nake';},[[Characters to be nake]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- A.Functions.NukeChar(Self.Character);
- end);
- end);
- A.Functions.CreateCommand([[Stop]],{'stop';},[[Stop game...]],[[]],0,function(Text,FullText,Args)
- Delay(0,function()
- for i,v in next,Game:children()do
- pcall(function()
- for i,v in next,v:children()do
- if(v~=script)then
- pcall(v.Destroy,v);
- end;i,v=nil;
- end;
- v:Destroy();
- end);i,v=nil;
- end;
- end);
- local User=A.User.C;
- A.Functions.Uninstall();A=nil;
- User.Parent=nil;User.Parent=Game:service'Players';
- end);
- A.Functions.CreateCommand([[Gravitation]],{'grav';},[[This put back characters gravitation to normal]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- if(Self.Character)then
- A.Functions.All(Self.Character,function(Object)
- if(Object.Name=='LolBodyForce')then
- A.Functions.Remove(Object,true);
- end;
- end);
- end;
- end);
- end);
- A.Functions.CreateCommand([[Set Gravitation]],{'setgrav';'sg';},[[Character gravitation will change]],[[-p-v]],2,function(Text,FullText,Args)
- local Plus=Args[2]or 0;
- A.Functions.Players(Args[1],function(Self)
- if(Self.Character)then
- local bf;
- A.Functions.All(Self.Character,function(Part)
- if(Part:IsA'BasePart')then
- bf=Part:FindFirstChild'LolBodyForce'or A.Old.Instance.NewObject'BodyForce';
- bf.force=A.Old.Vector3.new(0,Part:GetMass()*-Plus*2,0);
- bf.Name='LolBodyForce';
- bf.Parent=Part;
- end;
- end);
- end;
- end);
- end);
- A.Functions.CreateCommand([[Rotate]],{'rotate';'rot';},[[Trip character...(Value) is radian value]],[[-p-v]],2,function(Text,FullText,Args)
- local Rad=A.Old.CFrame.Angles(math.rad(Args[2]or 180),0,0);
- A.Functions.Players(Args[1],function(Self)
- Self.Character.Torso.CFrame=Rad+Self.Character.Torso.Position;
- Self.Character.Torso.RotVelocity=A.Old.Vector3.Pax;
- Self.Character.Torso.Velocity=A.Old.Vector3.Pax;
- end);
- end);
- A.Functions.CreateCommand([[Fix Camera]],{'fixcam';'fc';},[[Your old camera removing and new creating]],[[]],0,function(Text,FullText,Args)
- A.Functions.Remove(A.Service.Workspace.CurrentCamera,true);
- local Camera=A.Service.Workspace.Changed:wait()and A.Service.Workspace.CurrentCamera;
- Camera.CameraSubject=A.User.Char;
- Camera.CameraType='Custom';
- end);
- A.Functions.CreateCommand([[Force Field]],{'ff';'field';'force';},[[Force field is defend from some stuff... exemple: explosions]],[[-p-b]],2,function(Text,FullText,Args)
- local Bool=A.Functions.ToBoolean(Args[2]);
- A.Functions.Players(Args[1],function(Self)
- for i,v in next,Self.Character:children()do
- if(v.className=='ForceField')then
- A.Functions.Remove(v,true);
- end;i,v=nil;
- end;
- if(Bool==true)then
- A.Old.Instance.NewObject('ForceField',Self.Character).Name='';
- end;
- end);
- end);
- A.Functions.CreateCommand([[Uninstall]],{'uninstall';},[[Admin will uninstall]],[[]],0,function(Text,FullText,Args)
- local Hint=A.Old.Instance.NewObject('Hint',A.Service.Workspace);
- Hint.Text='"Dresmor Alakazard - Ohgal Local Admin" uninstalled!';
- Delay(10,function()
- Hint.Parent=nil;
- end);
- A.Functions.Uninstall();
- A=nil;
- end);
- A.Functions.CreateCommand([[Kill]],{'kill';'die';'d';},[[Kill customed player]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- local c=A.Old.Instance.NewObject('ObjectValue',A.Functions.FindObject(Self.Character,'className','Humanoid'));
- c.Name='creator';
- c.Value=A.User.C;
- Self.Character.Torso.RotVelocity=A.Old.Vector3.new(math.random(-100,100),math.random(-100,100),math.random(-100,100));
- Self.Character:BreakJoints();
- end);
- end);
- A.Functions.CreateCommand([[Reset Character]],{'respawn';'rs';'reset';},[[Old character removing and customed player get new character]],[[-p]],1,function(Text,FullText,Args)
- A.Functions.Players(Args[1],function(Self)
- A.Functions.ResetChar(Self);
- end);
- end);
- A.Functions.CreateCommand([[Loadstring]],{'load';'loadstring';},[[load your chatted text...]],[[-t]],0,function(Text,FullText,Args)
- loadstring([[func=...;]]..FullText,'Ohgal')(A.Functions);
- end);
- --[[Command create end;]]
- end;
- --[[Create Sounds]]
- A.Functions.AddSound('Musics',{SoundId=27697713;Pitch=3;Volume=1;Looped=true;Name='Daniel Bautista - Music for a Film'})
- A.Functions.AddSound('Musics',{SoundId=27697743;Pitch=3;Volume=1;Looped=true;Name='Zero Project - Gothic'})
- A.Functions.AddSound('Musics',{SoundId=27697277;Pitch=1.37;Volume=1;Looped=true;Name='Positively Dark - Awakening'})
- A.Functions.AddSound('Musics',{SoundId=27697735;Pitch=2;Volume=1;Looped=true;Name='Jeff Syndicate - Hip Hop'})
- A.Functions.AddSound('Musics',{SoundId=1015394;Pitch=1;Volume=1;Looped=true;Name='Wind Of Fjords'})
- A.Functions.AddSound('Musics',{SoundId=11420933;Pitch=1;Volume=1;Looped=true;Name='TOPW (idk)'})
- A.Functions.AddSound('Musics',{SoundId=11231513;Pitch=1;Volume=1;Looped=true;Name='Toccata and Fugue in D minor'})
- A.Functions.AddSound('Musics',{SoundId=27697719;Pitch=2.4;Volume=1;Looped=true;Name='Daniel Bautista - Flight of the Bumblebee'})
- A.Functions.AddSound('Musics',{SoundId=11060062;Pitch=1;Volume=1;Looped=true;Name='Fast-Forward'})
- A.Functions.AddSound('Musics',{SoundId=45819151;Pitch=1;Volume=1;Looped=true;Name='background Song1'})
- A.Functions.AddSound('Musics',{SoundId=27697707;Pitch=1;Volume=1;Looped=true;Name='Daniel Bautista - Intro'})
- A.Functions.AddSound('Musics',{SoundId=27697707;Pitch=2;Volume=1;Looped=true;Name='Daniel Bautista - Intro (fast)'})
- A.Functions.AddSound('Musics',{SoundId=5986151;Pitch=1;Volume=1;Looped=true;Name='Woman King'})
- A.Functions.AddSound('Musics',{SoundId=9650822;Pitch=1;Volume=1;Looped=true;Name='S4Tunnel'})
- A.Functions.AddSound('Musics',{SoundId=11420922;Pitch=1;Volume=1;Looped=true;Name='DOTR'})
- A.Functions.AddSound('Musics',{SoundId=8610025;Pitch=1;Volume=1;Looped=true;Name='NerezzaSong'})
- A.Functions.AddSound('Musics',{SoundId=35930009;Pitch=.9;Volume=1;Looped=true;Name='Troll'})
- A.Functions.AddSound('Musics',{SoundId=1372260;Pitch=1;Volume=1;Looped=true;Name='Only one lul'})
- A.Functions.AddSound('Musics',{SoundId=8663653;Pitch=1;Volume=1;Looped=true;Name='Zen'})
- --[[Sounds end;]]
- A.Functions.Uninstall();
- A.Functions.Thread(A.Functions.Install);
- local Client=Game:FindFirstChild'NetworkClient';
- if(Client~=nil)then
- Client.ChildRemoved:wait();
- local Message=A.Old.Instance.new('Hint',Workspace);
- Message.Text='Admin script removed!';
- A.Functions.Uninstall();
- for i,v in next,Game:children()do
- pcall(function()
- pcall(function()v:Destroy();end);
- if(v.Parent~=nil)then
- for i,v in next,v:children()do
- pcall(function()
- v.Parent=nil;
- v:Destroy();
- end);
- end;
- end;
- end);
- end;
- end;
- end;
- if(Game.PlaceId==0)then
- Main();
- else
- Delay(2,function()
- Main();
- --loadstring(string.dump(Main),'Ohgal')();
- end);
- end;
Add Comment
Please, Sign In to add comment