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