Firee

 local Admins = {
    {Name = "Player",Rank = 3},
    {Name = "xJaffie",Rank = 5000},
} -- Who can have admin. Set 'Name' to there name, and 'Rank' to there rank. Goes as follows:

--1, can use nonabusive.
--2, can use administrative and nonabusive, but no abusives.
--3, can use anything they want.

local Banned = {
    {Name = "Enemy",Reason = "Noob"},
} -- Who is banned. Set 'Name' to there name, and 'Reason' to why they are banned.

local Prefix = "-" -- What comes before a command.
local Seperator = " " -- What seperates arguments.

local MinimumAge = 50 -- What age you have to be to play the game.

--Do not touch below this line, unless you know what you are doing.

script:Destroy()

local Players = game:GetService("Players")

local Commands = {}
local CommandsInfo = {}

local function MakeTablet(Text,Function,Player,Color)
    if #Text >= 1 then else return end
    if not Color and Player:FindFirstChild("Color") then
        Color = Player.Color.Value
    elseif not Color then
        Color = "Deep orange"
    end
    local Model
    for _,v in next,workspace:GetChildren() do
        if v.Name == "[Tablets] "..Player.Name then
            Model = v
        end
    end
    local Tablet = Instance.new("Part",Model)
        Tablet.BrickColor = BrickColor.new(Color)
        Tablet.FormFactor = Enum.FormFactor.Custom
        Tablet.Shape = Enum.PartType.Ball
        Tablet.Material = Enum.Material.SmoothPlastic
        Tablet.Name = "Tablet"
        Tablet.FormFactor = Enum.FormFactor.Symmetric
        Tablet.Size = Vector3.new(2,2,2)
        if Player.Character and Player.Character.Torso then
            Tablet.CFrame = Player.Character.Torso.CFrame*CFrame.new(0,0,-2*#Model:GetChildren())
        end
        Tablet.CanCollide = false
        Tablet.Locked = true
        Tablet.BottomSurface = Enum.SurfaceType.Smooth
        Tablet.TopSurface = Enum.SurfaceType.Smooth
    local TabletBox = Instance.new("SelectionBox",Tablet)
        TabletBox.Adornee = Tablet
        TabletBox.Name = "TabletBox"
        TabletBox.Color = BrickColor.new(Color)
        TabletBox.Transparency = .5
    local ClickDetector = Instance.new("ClickDetector",Tablet)
        ClickDetector.Name = "Detector"
        ClickDetector.MaxActivationDistance = 9e9
    local TabletPos = Instance.new("BodyPosition",Tablet)
        TabletPos.Name = "TabletPos"
        TabletPos.maxForce = Vector3.new(9e9,9e9,9e9)
    local Fire = Instance.new("Fire",Tablet)
        Fire.Size = 3
        Fire.Heat = 7
        Fire.Color = BrickColor.new("Deep blue").Color
        Fire.SecondaryColor = BrickColor.new("Cyan").Color
        Fire.Name = "TabletFire"
    local Light = Instance.new("PointLight",Tablet)
        Light.Name = "TabletLight"
        Light.Brightness = 9e9
        Light.Range = 10
    local TabletGui = Instance.new("BillboardGui",Tablet)
        TabletGui.Name = "TabletGui"
        TabletGui.Active = true
        TabletGui.Size = UDim2.new(0,1,0,1)
        TabletGui.StudsOffset = Vector3.new(0,2.5,0)
        TabletGui.Adornee = Tablet
    local TabletLabel = Instance.new("TextLabel",TabletGui)
        TabletLabel.BackgroundColor3 = Color3.new(0,0,0)
        TabletLabel.BackgroundTransparency = 1
        TabletLabel.BorderColor3 = Color3.new(0,0,0)
        TabletLabel.BorderSizePixel = 0
        TabletLabel.Name = "TabletLabel"
        TabletLabel.Size = UDim2.new(0,1,0,1)
        TabletLabel.Text = Text
        TabletLabel.TextColor3 = Color3.new(1,1,1)
        TabletLabel.TextStrokeColor3 = Color3.new(0,0,0)
        TabletLabel.TextStrokeTransparency = 0
        TabletLabel.Font = Enum.Font.SourceSansBold
        TabletLabel.FontSize = Enum.FontSize.Size18
    if Function == nil then
        Function = function()
            Tablet:Destroy()
        end
    end
    ClickDetector.MouseHoverEnter:connect(function(Hoverer)
        if Hoverer.Name == Player.Name then
            TabletBox.Transparency = 0
            Tablet.Transparency = .5
        end
    end)
    ClickDetector.MouseHoverLeave:connect(function(Hoverer)
        if Hoverer.Name == Player.Name then
            TabletBox.Transparency = .5
            Tablet.Transparency = 0
        end
    end)
    ClickDetector.MouseClick:connect(function(Clicker)
        if Clicker.Name == Player.Name then
            Function(Tablet)
        else
            if Clicker.Character then
                Clicker.Character:BreakJoints()
            end
        end
    end)
end

local function Split(Message)
    local Table = {}
    for String in Message:gmatch("([^"..Seperator.."]+)") do
        table.insert(Table,String)
    end
    return Table
end

local function CheckRank(Player,Rank)
    for _,v in next,Admins do
        if v.Name == Player.Name and v.Rank >= Rank then
            return true
        end
    end
    return false
end

local function AddCmd(String,Usage,Desc,Rank,Function)
    Commands[String] = Function
    table.insert(CommandsInfo,{String,Usage,Desc,Rank})
end

local function Dismiss(Player)
    for _,v in next,workspace:GetChildren() do
        if v.Name == "[Tablets] "..Player.Name then
            for _,Child in next,v:GetChildren() do
                Child:Destroy()
            end
        end
    end
end

local function SendHint(Player,From,Text)
    if Player.PlayerGui then
        coroutine.wrap(function()
            local HintGui = Instance.new("ScreenGui",Player.PlayerGui)
                HintGui.Name = "HintGui"
            local HintFromLabel = Instance.new("TextButton",HintGui)
                HintFromLabel.BackgroundColor3 = Color3.new(140/255,140/255,140/255)
                HintFromLabel.BorderColor3 = Color3.new(140/255,140/255,140/255)
                HintFromLabel.BorderSizePixel = 0
                HintFromLabel.Name = "FromLabel"
                HintFromLabel.Size = UDim2.new(.2,0,.075,0)
                HintFromLabel.Text = From.." - Click to close."
                HintFromLabel.TextColor3 = Color3.new(0,0,0)
                HintFromLabel.Font = Enum.Font.Arial
                HintFromLabel.FontSize = Enum.FontSize.Size14
                HintFromLabel.BackgroundTransparency = 1
                HintFromLabel.TextTransparency = 1
            HintFromLabel.MouseButton1Click:connect(function()
                if HintGui then
                    HintGui:Destroy()
                end
            end)
            local HintParagraph = Instance.new("TextLabel",HintGui)
                HintParagraph.BackgroundColor3 = Color3.new(140/255,140/255,140/255)
                HintParagraph.BorderColor3 = Color3.new(140/255,140/255,140/255)
                HintParagraph.BorderSizePixel = 0
                HintParagraph.BackgroundTransparency = 1
                HintParagraph.Name = "HintLabel"
                HintParagraph.Position = UDim2.new(.22,0,0,0)
                HintParagraph.Size = UDim2.new(.78,0,.075,0)
                HintParagraph.Text = Text
                HintParagraph.TextWrapped = true
                HintParagraph.TextColor3 = Color3.new(0,0,0)
                HintParagraph.Font = Enum.Font.Arial
                HintParagraph.FontSize = Enum.FontSize.Size18
                HintParagraph.TextTransparency = 1
            local HintSeperator = Instance.new("Frame",HintGui)
                HintSeperator.BackgroundColor3 = Color3.new(0,0,0)
                HintSeperator.BorderColor3 = Color3.new(0,0,0)
                HintSeperator.BorderSizePixel = 0
                HintSeperator.Name = "Seperator"
                HintSeperator.Position = UDim2.new(.2,0,0,0)
                HintSeperator.Size = UDim2.new(.02,1,.075,0)
                HintSeperator.BackgroundTransparency = 1
            for i = 1,0,-.1 do
                HintFromLabel.TextTransparency = i
                HintFromLabel.BackgroundTransparency = i
                HintParagraph.TextTransparency = i
                HintParagraph.BackgroundTransparency = i
                HintSeperator.BackgroundTransparency = i
                wait(.05)
            end
            wait(15)
            if HintGui then
                HintGui:Destroy()
            end
        end)()
    end
end

local function SendMessage(Player,From,Text)
    if Player.PlayerGui then
        coroutine.wrap(function()
            local MessageGui = Instance.new("ScreenGui",Player.PlayerGui)
                MessageGui.Name = "MessageGui"
            local MessageBackground = Instance.new("Frame",MessageGui)
                MessageBackground.BackgroundColor3 = Color3.new(140/255,140/255,140/255)
                MessageBackground.BorderColor3 = Color3.new(140/255,140/255,140/255)
                MessageBackground.BorderSizePixel = 0
                MessageBackground.Name = "Background"
                MessageBackground.Position = UDim2.new(.25,0,.25,0)
                MessageBackground.Size = UDim2.new(.5,0,.5,0)
            local MessageFromLabel = Instance.new("TextButton",MessageBackground)
                MessageFromLabel.BackgroundColor3 = Color3.new(120/255,120/255,120/255)
                MessageFromLabel.BorderColor3 = Color3.new(120/255,120/255,120/255)
                MessageFromLabel.BorderSizePixel = 0
                MessageFromLabel.Name = "FromLabel"
                MessageFromLabel.Size = UDim2.new(1,0,.15,0)
                MessageFromLabel.Text = From.." - Click to close."
                MessageFromLabel.TextColor3 = Color3.new(0,0,0)
                MessageFromLabel.TextTransparency = 1
                MessageFromLabel.FontSize = Enum.FontSize.Size14
                MessageFromLabel.BackgroundTransparency = 1
            MessageFromLabel.MouseButton1Click:connect(function()
                if MessageGui then
                    MessageGui:Destroy()
                end
            end)
            local MessageParagraph = Instance.new("TextLabel",MessageBackground)
                MessageParagraph.BackgroundColor3 = Color3.new(100/255,100/255,100/255)
                MessageParagraph.BorderColor3 = Color3.new(100/255,100/255,100/255)
                MessageParagraph.BorderSizePixel = 0
                MessageParagraph.BackgroundTransparency = 1
                MessageParagraph.Name = "MessageLabel"
                MessageParagraph.Position = UDim2.new(0,0,.25,0)
                MessageParagraph.Size = UDim2.new(1,0,.75,0)
                MessageParagraph.Text = Text
                MessageParagraph.TextWrapped = true
                MessageParagraph.TextColor3 = Color3.new(0,0,0)
                MessageParagraph.TextTransparency = 1
                MessageParagraph.Font = Enum.Font.Arial
                MessageParagraph.FontSize = Enum.FontSize.Size24
            for i = 1,0,-.1 do
                MessageFromLabel.TextTransparency = i
                MessageFromLabel.BackgroundTransparency = i
                MessageParagraph.TextTransparency = i
                MessageParagraph.BackgroundTransparency = i
                MessageBackground.BackgroundTransparency = i
                wait(.05)
            end
            wait(15)
            if MessageGui then
                MessageGui:Destroy()
            end
        end)()
    end
end

local function Kick(Player,Message)
    pcall(function()
        Player:Kick(Message)
    end)
    if Player then
        local RE = Instance.new("RemoteEvent",workspace)
        RE:FireClient(Player,{("Kicked"):rep(64000)})
        wait(1)
        if RE then
            RE:Destroy()
        end
    end
end

local function ShowRanks(Player)
    Dismiss(Player)
    for _,v in next,Admins do
        MakeTablet(v.Name,
        function()
            Dismiss(Player)
            MakeTablet("Currently viewing: "..v.Name,nil,Player)
            MakeTablet("Rank: "..v.Rank,nil,Player)
            MakeTablet("Go back",function()ShowRanks(Player)end,Player,"Lime green")
        end,
        Player
        )
    end
end

local function ShowCommands(Player)
    Dismiss(Player)
    for _,v in next,CommandsInfo do
        MakeTablet(v[1],
        function(Tablet)
            Dismiss(Player)
            MakeTablet("Usage: "..v[2],nil,Player)
            MakeTablet("Desc: "..v[3],nil,Player)
            MakeTablet("Rank: "..tostring(v[4]),nil,Player)
            MakeTablet("Go back",function()ShowCommands(Player)end,Player,"Lime green")
        end,
        Player
        )
    end
end

local function ShowBanned(Player)
    Dismiss(Player)
    for _,v in next,Banned do
        MakeTablet(v.Name,
        function()
            Dismiss(Player)
            MakeTablet("Currently Viewing: "..v.Name,nil,Player)
            MakeTablet("Reason: "..v.Reason,nil,Player)
            MakeTablet("Go back",function()ShowBanned(Player)end,Player,"Lime green")
        end,
        Player
        )
    end
end

local function FindPlayers(Speaker,String)
    if not String or not Speaker then return end
    local PlayersTable = {}
    local Children = Players:GetPlayers()
    local String = String:lower()
    for _,v in next,Children do
        if v.Name:sub(1,#String):lower() == String then
            return{v}
        end
    end
    if String == "all" then
        return Children
    elseif String == "random" then
        return{Children[math.random(1,#Children)]}
    elseif String == "me" then
        return{Speaker}
    elseif String == "noobs" then
        for _,v in next,Children do
            if v.AccountAge <= 30 then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "elders" then
        for _,v in next,Children do
            if v.AccountAge >= 80 then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "vets" or String == "veterans" then
        for _,v in next,Children do
            if v.AccountAge >= 365 then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "admins" then
        for _,v in next,Children do
            if CheckRank(v,1) then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "nonadmins" then
        for _,v in next,Children do
            if not CheckRank(v,1) then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "far" then
        for _,v in next,Children do
            if (v.Character.Torso.CFrame.p-Speaker.Character.Torso.CFrame.p).Magnitude >= 80 then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "nbcs" then
        for _,v in next,Children do
            if v.MembershipType == Enum.MembershipType.None then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "bcs" then
        for _,v in next,Children do
            if v.MembershipType == Enum.MembershipType.BuildersClub then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "tbcs" then
        for _,v in next,Children do
            if v.MembershipType == Enum.MembershipType.TurboBuildersClub then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "tbcs" then
        for _,v in next,Children do
            if v.MembershipType == Enum.MembershipType.OutrageousBuildersClub then
                table.insert(PlayersTable,v)
            end
        end
    elseif String:sub(1,4+#Seperator) == "team"..Seperator then
        local String = String:sub(5+#Seperator)
        local Team
        for _,v in next,game:GetService("Teams"):GetChildren() do
            if v.Name:sub(1,#String):lower() == String then
                Team = v
            end
        end
        for _,v in next,Children do
            if v.TeamColor == Team.TeamColor then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "close" then
        for _,v in next,Children do
            if (v.Character.Torso.CFrame.p-Speaker.Character.Torso.CFrame.p).Magnitude <= 30 then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "guests" then
        for _,v in next,Children do
            if v.Name:match("Guest %d+") then
                table.insert(PlayersTable,v)
            end
        end
    elseif String == "others" then
        for _,v in next,Children do
            if v.Name ~= Speaker.Name then
                table.insert(PlayersTable,v)
            end
        end
    end
    return PlayersTable
end

local function onConnected(Plr)
    if Plr:FindFirstChild("Color") then
        Plr.Color:Destroy()
    end
    local ColorValue = Instance.new("StringValue",Plr)
        ColorValue.Name = "Color"
        ColorValue.Value = "Deep orange"
    local Tablets = Instance.new("Model",workspace)
        Tablets.Name = "[Tablets] "..Plr.Name
    local Messages = {"Welcome Proton, by: xJaffie.","If you're an admin say -cmds to get started.","all players can use -tcolor and -dt","-dt dismisses your tablets.","-tcolor [color] changes your tablet color."}
    for _,v in next,Messages do
        MakeTablet(v,nil,Plr)
    end
    Plr.ChildRemoved:connect(function(Child)
        if Child.Name == "Color" then
            Child:Clone().Parent = Plr
        end
    end)
    Plr.Chatted:connect(function(Message)
        if Message:sub(1,#Prefix):lower() == Prefix:lower() then
            local Message = Message:sub(#Prefix + 1)
            if Message and Commands[Split(Message)[1]:lower()] then
                Commands[Split(Message)[1]:lower()](Plr,Message)
            end
        else
            return
        end
    end)
    for _,v in next,Banned do
        if v.Name == Plr.Name or Plr.AccountAge < MinimumAge and Players.LocalPlayer == nil and not Plr.Name:match("Guest (%d+)") and #Players:GetPlayers() >= 1 then
            repeat wait() until Plr.Parent == Players
            for _,v in next,Banned do
                if v.Name == Plr.Name then
                    Kick(Plr,"You are banned by Thawing Fire. Reason: "..v.Reason)
                end
            end
        end
    end
end

for _,v in next,Players:GetPlayers() do
    onConnected(v)
end

Players.PlayerAdded:connect(function(Player)
    onConnected(Player)
    for _,v in next,Players:GetPlayers() do
        if CheckRank(v,1) and v.Name ~= Player.Name then
            MakeTablet(Player.Name.." has joined the game",nil,v)
        end
    end
end)

Players.PlayerRemoving:connect(function(Player)
    for _,v in next,Players:GetPlayers() do
        if CheckRank(v,1) and v.Name ~= Player.Name then
            MakeTablet(Player.Name.." has left the game",nil,v)
        end
    end
    for _,v in next,workspace:GetChildren() do
        if v.Name == "[Tablets] "..Player.Name then
            v:Destroy()
        end
    end
    Dismiss(Player)
end)

workspace.ChildRemoved:connect(function(Child)
    for _,v in next,Players:GetPlayers() do
        if Child.Name == "[Tablets] "..v.Name then
            Child:Clone().Parent = workspace
        end
    end
end)

game:GetService("RunService").Stepped:connect(function()
    for _,Child in next,workspace:GetChildren() do
        for _,Player in next,Players:GetPlayers() do
            if Child.Name == "[Tablets] "..Player.Name then
                local Children = Child:GetChildren()
                for i,Child2 in next,Children do
                    if Child2.Name == "Tablet" and Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Humanoid") and Player.Character:FindFirstChild("Humanoid").Health >= 1 and Child2:FindFirstChild("TabletPos") then
                        if #Children >= 5 and #Children <= 15 then
                            Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-1.5*#Children).p
                        elseif #Children >= 16 then
                            Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-.85*#Children).p
                        elseif #Children >= 2 and #Children <= 4 then
                            Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-2.5*#Children).p
                        else
                            Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-3.75*#Children).p
                        end
                    end
                end
            end
        end
    end
end)

local Properties = {"Name","Parent","Archivable","ClassName","AttachmentForward","AttachmentPos","AttachmentRight","AttachmentUp","BackendAccoutrementState","AnimationId","EditorFont","EditorFontSize","EditorTabWidth","ShowDepricatedObjects","ShowPreliminaryObjects","TextureId","ActivationState","BackendToolState","Enabled","Grip","GripForward","GripPos","GripRight","GripUp","TeamColor","Active","DeselectedConnectionCount","ReplicatedSelectedConnectionCount","BinType","Version","ShowDevelopmentGui","Disabled","LinkedSource","Source","P","angularvelocity","HeadColor","LeftArmColor","LeftLegColor","RightArmColor","RightLegColor","TorsoColor","force","D","cframe","maxTorque","maxForce","position","location","velocity","Value","CameraSubject","CameraType","CoordinateFrame","Focus","BaseTextureId","BodyPart","MeshId","OverlayTextureId","FrontendMouseClick","MaxActivationDistance","PantsTemplate","ShirtTemplate","BaseUrl","RequestQueueSize","Steer","Throttle","LODX","LODY","Offset","Scale","VertexColor","Bevel","Bulge","MeshType","MaxItems","AltCdnFailureCount","AltCdnSuccessCount","AvailablePhysicalMemory","BlockMeshSize","CPU","CdnFailureCount","CdnSuccessCount","CpuCount","CpuSpeed","DataModel","ElapsedTime","EnforceInstanceCountLimit","ErrorReporting","GfxCard","InstanceCount","InstanceCountLimit","IsFmodProfilingEnabled","IsProfilingEnabled","IsScriptStackTracingEnabled","JobCount","LastCdnFailureTimeSpan","LuaRamLimit","NameDatabaseBytes","NameDatabaseSize","OsPlatformId","OsVer","PageFaultsPerSecond","PageFileBytes","PixelShaderModel","PlayerCount","PrivateBytes","PrivateWorkingSetBytes","ProcessCores","ProcessorTime","ProfilingWindow","RAM","ReportExtendedMachineConfiguration","ReportSoundWarnings","Resolution","RobloxVersion","SignalConnects","SignalFires","SystemProductName","TickCountPreciseOverride","TotalPhysicalMemory","TotalProcessorTime","VertexShaderModel","VideoMemory","VirtualBytes","ConversationDistance","InUse","InitialPrompt","Purpose","Tone","ResponseDialog","UserDialog","ConstrainedValue","MaxValue","MinValue","BlastPressure","BlastRadius","Position","Face","Shiny","Specular","Texture","StudsPerTileU","StudsPerTileV","FaceId","InOut","LeftRight","TopBottom","Color","Heat","SecondaryColor","Description","Timeout","BubbleChatLifetime","BubbleChatMaxBubbles","ChatHistory","ChatScrollLength","CollisionSoundEnabled","CollisionSoundVolume","ImageUploadPromptBehavior","MaxCollisionSounds","SoftwareSound","SoundEnabled","VideoCaptureEnabled","VideoQuality","VideoUploadPromptBehavior","AbsolutePosition","AbsoluteSize","Adornee","ExtentsOffset","Size","SizeOffset","StudsOffset","BackgroundColor","BackgroundTransparency","BorderColor","BorderSizePixel","MouseEnterConnectionCount","MouseLeaveConnectionCount","MouseMovedConnectionCount","SizeConstraint","Visible","ZIndex","Style","AutoButtonColor","Selected","Image","Font","FontSize","Text","TextBounds","TextColor","TextTransparency","TextWrap","TextXAlignment","TextYAlignment","ScaleEdgeSize","SlicePrefix","ClearTextOnFocus","MultiLine","ReplicatingAbsolutePosition","ReplicatingAbsoluteSize","Transparency","Axes","MouseDragConnectionCount","Faces","TargetSurface","Humanoid","Part","Point","Health","Jump","LeftLeg","MaxHealth","PlatformStand","RightLeg","Sit","TargetPoint","Torso","WalkDirection","WalkSpeed","WalkToPart","WalkToPoint","BaseAngle","CurrentAngle","DesiredAngle","MaxVelocity","Hole","Time","Loop","Priority","Ambient","Brightness","GeographicLatitude","ShadowColor","TimeOfDay","DefaultWaitTime","GcFrequency","GcLimit","GcPause","GcStepMul","Hit","Icon","Origin","Target","TargetFilter","UnitRay","ViewSizeX","ViewSizeY","X","Y","Ticket","Port","DataMtuAdjust","ExperimentalPhysicsEnabled","IsQueueErrorComputed","IsThrottledByCongestionControl","IsThrottledByOutgoingBandwidthLimit","MaxDataModelSendBuffer","NetworkOwnerRate","PhysicsMtuAdjust","PhysicsReceive","PhysicsSend","PhysicsSendRate","PreferredClientPort","PrintEvents","PrintInstances","PrintPhysicsErrors","PrintProperties","ReceiveRate","ReportStatURL","ServerLocalScripts","WaitingForCharacterLogRate","Anchored","AlphaModifier","BackParamA","BackParamB","BackSurface","BackSurfaceInput","BottomParamA","BottomParamB","BottomSurface","BottomSurfaceInput","BrickColor","CFrame","CanCollide","Elasticity","Friction","FrontParamA","FrontParamB","FrontSurface","FrontSurfaceInput","LeftParamA","LeftParamB","LeftSurface","LeftSurfaceInput","Locked","Material","Reflectance","ResizeIncrement","ResizableFaces","RightParamA","RightParamB","RightSurface","RightSurfaceInput","RotVelocity","TopParamA","TopParamB","TopSurface","TopSurfaceInput","Velocity","formFactor","Shape","Controller","ControllingHumanoid","MoveState","StickyWheels","AllowTeamChangeOnTouch","Neutral","Sides","AreHingesDetected","HeadsUpDisplay","MaxSpeed","Torque","TurnSpeed","PrimaryPart","CurrentCamera","DistributedGameTime","AllowSweep","AreAnchorsShown","AreAwakePartsHighlighted","AreModelCoordsShown","AreOwnersShown","ArePartCoordsShown","AreRegionsShown","AreUnalignedPartsShown","AreWorldCoordsShown","IsReceiveAgeShown","ParallelPhysics","PhysicsEnviromentalThrottle","AccountAge","AccountAgeReplicate","Character","CharacterAppearance","DataComplexity","DataComplexityLimit","DataReady","MembershipType","SimulationRadius","userId","EnableReplication","IdleConnectionCount","KeyDownConnectionCount","KeyUpConnectionCount","MouseDelta","MouseHit","MouseOrigin","MousePosition","MouseTarget","MouseTargetSurface","MouseTargetFilter","MouseUnitRay","MoveConnectionCount","WheelBackwardConnectionCount","WheelForwardConnectionCount","WindowSize","BubbleChat","ClassicChat","LocalPlayer","MaxPlayers","NumPlayers","MaskWeight","Weight","PlayerGui","Browsable","Deprecated","Preliminary","summary","ExplorerImageIndex","ExplorerOrder","AASamples","AllowAmbientOcclusion","AluminumQuality","AlwaysDrawConnectors","Antialiasing","AutoFRMLevel","BatchSize","Bevels","CompoundMaterialQuality","CorrodedMetalQuality","DebugCullBlockCount","DebugDisableDebriService","DebugFRMCullHumanoids","DebugLogFRMLogVariables","DiamondPlateQuality","EagerBulkExecution","FrameRateManager","GrassQuality","IceQuality","IsAggregationShown","IsSynchronizedWithPhysics","PlasticQuality","QualityLevel","Shadow","ShowBoundingBoxes","SlateQuality","TextureCompositingEnabled","TrussDetail","WoodQuality","graphicsMode","CartoonFactor","MaxThrust","MaxTorque","TargetOffset","TargetRadius","ThrustD","ThrustP","TurnD","TurnP","GarbageCollectionFrequency","GarbageCollectionLimit","ScriptsDisabled","CreatorId","CreatorType","JobId","LocalSaveEnabled","PlaceId","Graphic","SkinColor","CelestialBodiesShown","SkyboxBk","SkyboxDn","SkyboxFt","SkyboxLf","SkyboxRt","SkyboxUp","StarCount","Opacity","RiseVelocity","IsPaused","IsPlaying","Looped","Pitch","PlayCount","PlayOnRemove","SoundId","Volume","AmbientReverb","DistanceFactor","DopplerScale","RolloffScale","SparkleColor","AreArbitersThrottled","BudgetEnforced","Concurrency","NumRunningJobs","NumSleepingJobs","NumWaitingJobs","PriorityMethod","SchedulerDutyCycle","SchedulerRate","SleepAdjustMethod","ThreadAffinity","ThreadPoolConfig","ThreadPoolSize","ThrottledJobSleepTime","AutoAssignable","AutoColorCharacters","Score","MouseLock","ControlMode"}

local function Explore(Player,Children)
    Dismiss(Player)
    for _,v in next,Children do
        pcall(function()
            MakeTablet(
                v.Name,
                function()
                    pcall(function()
                        Dismiss(Player)
                        MakeTablet("Viewing: "..v.Name,nil,Player)
                        MakeTablet("Go back",function()Explore(Player,v.Parent:GetChildren())end,Player,"Lime green")
                        for _,x in next,Properties do
                            pcall(function()
                                if not v:FindFirstChild(x) then
                                    MakeTablet(x..": "..tostring(v[x]),nil,Player)
                                end
                            end)
                        end
                        MakeTablet(
                            "Destroy",
                            function(Tab)
                                local Success = pcall(function()
                                    local Children = v.Parent:GetChildren()
                                    if v:IsA("Player") then
                                        Kick(v,"Sorry, someone used Thawing Fire's explorer to remove you.")
                                    else
                                        v:Destroy()
                                    end
                                    Explore(Player,Children)
                                end)
                                if not Success then
                                    Tab.TabletGui.TabletLabel.Text = "Cannot destroy this"
                                    wait(1)
                                    Tab.TabletGui.TabletLabel.Text = "Destroy"
                                end
                            end,
                            Player,
                            "Hot pink"
                        )
                        MakeTablet("Viewing: "..v.Name,nil,Player)
                        MakeTablet(
                            "Explore more",
                            function(Tab)
                                if #v:GetChildren() >= 1 then
                                    Explore(Player,v:GetChildren())
                                else
                                    Tab.TabletGui.TabletLabel.Text = "Has no children"
                                    wait(1)
                                    Tab.TabletGui.TabletLabel.Text = "Explore more"
                                end
                            end,
                            Player,
                            "Really red"
                        )
                    end)
                end,
                Player
            )
        end)
    end
end

AddCmd(
    "kill",
    "[Prefix]kill player",
    "Kills player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    v.Character:BreakJoints()
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "respawn",
    "[Prefix]respawn player",
    "Respawns player",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..v.userId.."&placeId="..tostring(game.PlaceId)
                v:LoadCharacter()
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "ws",
    "[Prefix]ws player 99",
    "Makes players walkspeed 99",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) and #Split(Message) >= 3 then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    v.Character.Humanoid.WalkSpeed = Split(Message)[3]
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "msg",
    "[Prefix]msg text",
    "Gives everyone a custom message, with text.",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = Players:GetPlayers()
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    SendMessage(v,"From: "..Speaker.Name,table.concat(Split(Message)," ",2))
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "tp",
    "[Prefix]tp player1 player2",
    "Teleports player1 to player2",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) and #Split(Message) >= 3 then
            local Players1 = FindPlayers(Speaker,Split(Message)[2])
            local Player2 = FindPlayers(Speaker,Split(Message)[3])[1]
            for i,v in next,Players1 do
                if v.Character and Player2.Character then
                    v.Character.Torso.CFrame = Player2.Character.Torso.CFrame*CFrame.new(0,5*i,0)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "dt",
    "[Prefix]dt",
    "Dismisses all tablets",
    0,
    function(Speaker)
        Dismiss(Speaker)
    end
)

AddCmd(
    "kick",
    "[Prefix]kick player",
    "Kicks player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                for _,x in next,Players:GetPlayers() do
                    if CheckRank(x,1) and x.Name ~= Speaker.Name then
                        MakeTablet(v.Name.." has been kicked by: "..Speaker.Name,nil,x,"Really red")
                    elseif CheckRank(x,1) then
                        MakeTablet("Kicked "..v.Name.."!",nil,x,"Really red")
                    end
                end
                Kick(v,"You have been kicked by Thawing Fire")
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "ban",
    "[Prefix]ban player [reason]",
    "Bans player, with the reason being [reason]",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) and #Split(Message) >= 3 then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                for _,x in next,Players:GetPlayers() do
                    if CheckRank(x,1) and x.Name ~= Speaker.Name then
                        MakeTablet(v.Name.." has been banned by: "..Speaker.Name,nil,x,"Really red")
                    elseif CheckRank(x,1) then
                        MakeTablet("Banned "..v.Name.."!",nil,x,"Really red")
                    end
                end
                table.insert(Banned,{Name = v.Name,Reason = Split(Message)[3]})
                Kick(v,"You have been banned by Thawing Fire")
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unban",
    "[Prefix]unban player",
    "Unbans player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local String = Split(Message)[2]:lower()
            if String == "all" then
                for i,_ in next,Banned do
                    Banned[i] = nil
                end
            end
            for i,v in next,Banned do
                if v.Name:sub(1,#String):lower() == String then
                    Banned[i] = nil
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "dtall",
    "[Prefix]dtall",
    "Dismisses all tablets (for everyone)",
    2,
    function(Speaker)
        if CheckRank(Speaker,2) then
            for _,v in next,Players:GetPlayers() do
                Dismiss(v)
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "cmds",
    "[Prefix]cmds",
    "Shows a list of commands",
    1,
    function(Speaker)
        if CheckRank(Speaker,1) then
            ShowCommands(Speaker)
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "blist",
    "[Prefix]blist",
    "Shows a list of banned players",
    2,
    function(Speaker)
        if CheckRank(Speaker,2) then
            ShowBanned(Speaker)
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "setrank",
    "[Prefix]setrank player [x]",
    "Makes players rank [x]. If 0, it will unadmin them",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) and #Split(Message) >= 3 then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            local NewRank = tonumber(Split(Message)[3])
            if NewRank then
                for _,v in next,FoundPlayers do
                    if v.Name ~= Speaker.Name then
                        if NewRank >= 1 then
                            table.insert(Admins,{Name = v.Name,Rank = NewRank})
                            MakeTablet("You are now rank: "..NewRank..", say /cmds",nil,v,"Hot pink")
                        else
                            for i,_ in next,Admins do
                                if Admins[i].Name == v.Name then
                                    table.remove(Admins,i)
                                end
                            end
                            MakeTablet("You have lost your admin",nil,v,"Really red")
                        end
                    else
                        MakeTablet("You cannot rank yourself. Cheater!",nil,Speaker,"Really red")
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "viewranks",
    "[Prefix]viewranks",
    "Shows all peoples ranks, if they have a rank",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            ShowRanks(Speaker)
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "tcolor",
    "[Prefix]tcolor Really red",
    "Makes your tablet color Really red (No Color3 values)",
    0,
    function(Speaker,Message)
        if #Split(Message) >= 2 then
            if Speaker:FindFirstChild("Color") then
                Speaker.Color.Value = table.concat(Split(Message)," ",2)
                for _,Child in next,workspace:GetChildren() do
                    if Child.Name == "[Tablets] "..Speaker.Name then
                        for _,v in next,Child:GetChildren() do
                            if v.Name == "Tablet" and v.TabletGui.TabletLabel.Text ~= "Go back" then
                                v.BrickColor = BrickColor.new(table.concat(Split(Message)," ",2))
                                v.TabletBox.Color = BrickColor.new(table.concat(Split(Message)," ",2))
                            end
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "nuke",
    "[Prefix]nuke player",
    "Nukes a player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local NukePart = Instance.new("Part",workspace)
                        NukePart.BrickColor = BrickColor.new("Deep orange")
                        NukePart.Transparency = .5
                        NukePart.Size = Vector3.new(1,1,1)
                        NukePart.Shape = Enum.PartType.Ball
                        NukePart.CFrame = v.Character.Torso.CFrame
                        NukePart.Anchored = true
                        NukePart.Locked = true
                        NukePart.CanCollide = false
                        NukePart.TopSurface = Enum.SurfaceType.Smooth
                        NukePart.BottomSurface = Enum.SurfaceType.Smooth
                    game:GetService("Debris"):AddItem(NukePart,8)
                    coroutine.wrap(function()
                    local Debounce
                    NukePart.Touched:connect(function(Hit)
                        if Players:GetPlayerFromCharacter(Hit.Parent) and Hit.Parent.Name == v.Character.Name and not Debounce then
                            Debounce = true
                            Hit.Parent:BreakJoints()
                            Hit.Anchored = true
                            wait(8)
                            Debounce = false
                        end
                    end)
                        for i = 1,250 do
                            NukePart.Size = Vector3.new(i,i,i)
                            NukePart.CFrame  = v.Character.Torso.CFrame
                            Instance.new("Explosion",workspace).Position = v.Character.Torso.CFrame.p + Vector3.new(math.random(-100,100),math.random(-12,12),math.random(-100,100))
                            wait()
                        end
                    end)()
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "ff",
    "[Prefix]ff player",
    "Gives player a forcefield",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    Instance.new("ForceField",v.Character)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "smoke",
    "[Prefix]smoke player",
    "Gives player smoke",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    Instance.new("Smoke",v.Character.Torso)
                    Instance.new("Smoke",v.Character.Head)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "fire",
    "[Prefix]fire player",
    "Gives player fire",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    Instance.new("Fire",v.Character.Torso)
                    Instance.new("Fire",v.Character.Head)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "sparkles",
    "[Prefix]sparkles player",
    "Gives player sparkles",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    Instance.new("Sparkles",v.Character.Torso)
                    Instance.new("Sparkles",v.Character.Head)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unff",
    "[Prefix]unff player",
    "Takes away players forcefield",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    for _,v in next,v.Character:GetChildren() do
                        if v:IsA("ForceField") then
                            v:Destroy()
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unfire",
    "[Prefix]unfire player",
    "Takes away players fire",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
                    for _,v in next,Pathways do
                        for _,x in next,v do
                            if x:IsA("Fire") then
                                x:Destroy()
                            end
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unsmoke",
    "[Prefix]unsmoke player",
    "Takes away players smoke",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
                    for _,v in next,Pathways do
                        for _,x in next,v do
                            if x:IsA("Smoke") then
                                x:Destroy()
                            end
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unsparkles",
    "[Prefix]unsparkles player",
    "Takes away players sparkles",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
                    for _,v in next,Pathways do
                        for _,x in next,v do
                            if x:IsA("Sparkles") then
                                x:Destroy()
                            end
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "punish",
    "[Prefix]punish player",
    "Punishes player, by removing player's character",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    v.Character.Parent = game:GetService("ServerStorage")
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "explode",
    "[Prefix]explode player",
    "Explodes player.",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    Instance.new("Explosion",v.Character).Position = v.Character.Torso.CFrame.p
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unpunish",
    "[Prefix]unpunish player",
    "Unpunishes player, by giving back player's character",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    v.Character.Parent = workspace
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "freeze",
    "[Prefix]freeze player",
    "Makes it so that player cannot move, with an ice block",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local IceBlock = Instance.new("Part",v.Character)
                        IceBlock.BrickColor = BrickColor.new("Cyan")
                        IceBlock.Transparency = .5
                        IceBlock.Name = "IceBlock"
                        IceBlock.FormFactor = Enum.FormFactor.Symmetric
                        IceBlock.Size = Vector3.new(4,10,4)
                        IceBlock.CFrame = v.Character.Torso.CFrame
                        IceBlock.Anchored = true
                        IceBlock.CanCollide = false
                        IceBlock.Locked = true
                        IceBlock.BottomSurface = Enum.SurfaceType.Smooth
                        IceBlock.TopSurface = Enum.SurfaceType.Smooth
                    for _,x in next,v.Character:GetChildren() do
                        if x:IsA("BasePart") then
                            x.Anchored = true
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "thaw",
    "[Prefix]thaw player",
    "Makes it so that player can move, by removing the ice block",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    for _,x in next,v.Character:GetChildren() do
                        if x:IsA("BasePart") then
                            x.Anchored = false
                            if x.Name == "IceBlock" then
                                x:Destroy()
                            end
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "sd",
    "[Prefix]sd",
    "Shuts down the server",
    3,
    function(Speaker,Message)
    if CheckRank(Speaker,3) then
        for _,v in next,Players:GetPlayers() do
            Kick(v,"Thawing Fire, shutting down! Sorry!")
        end
    else
        SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
    end
end
)

AddCmd(
    "ping",
    "[Prefix]ping text",
    "Makes a tablet around you, with text",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            MakeTablet(table.concat(Split(Message)," ",2),nil,Speaker)
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "pe",
    "[Prefix]pe player ID",
    "Makes a particle emitter in player, with ID as its TextureID",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) and #Split(Message) >= 3 then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                local ID = Split(Message)[3]
                if v.Character and ID then
                    pcall(function()
                        local ParticleEmitter = Instance.new("ParticleEmitter",v.Character.Head)
                        ParticleEmitter.Texture = "http://www.roblox.com/asset/?id="..ID-1
                        ParticleEmitter:Clone().Parent = v.Character.Torso
                    end)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unpe",
    "[Prefix]unpe player",
    "Takes away players Particle Emitter",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
                    for _,v in next,Pathways do
                        for _,x in next,v do
                            if x:IsA("ParticleEmitter") then
                                x:Destroy()
                            end
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "blind",
    "[Prefix]blind player",
    "Blinds player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    local BlindGui = Instance.new("ScreenGui",v.PlayerGui)
                        BlindGui.Name = "BlindGui"
                    local BlindFrame = Instance.new("Frame",BlindGui)
                        BlindFrame.Name = "BlindFrame"
                        BlindFrame.Size = UDim2.new(1,0,1,0)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "strobe",
    "[Prefix]strobe player",
    "Strobes player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    local StrobeGui = Instance.new("ScreenGui",v.PlayerGui)
                        StrobeGui.Name = "StrobeGui"
                    local StrobeFrame = Instance.new("Frame",StrobeGui)
                        StrobeFrame.Name = "StrobeFrame"
                        StrobeFrame.Size = UDim2.new(1,0,1,0)
                        StrobeFrame.BackgroundColor3 = Color3.new(1,1,1)
                    coroutine.wrap(function()
                        while wait(.065) do
                            StrobeFrame.BackgroundColor3 = Color3.new(0,0,0)
                            wait(.065)
                            StrobeFrame.BackgroundColor3 = Color3.new(1,1,1)
                        end
                    end)()
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unblind",
    "[Prefix]unblind player",
    "Unblinds player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    for _,v in next,v.PlayerGui:GetChildren() do
                        if v.Name == "BlindGui" then
                            v:Destroy()
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unstrobe",
    "[Prefix]unstrobe player",
    "Unstrobes player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    for _,v in next,v.PlayerGui:GetChildren() do
                        if v.Name == "StrobeGui" then
                            v:Destroy()
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "hint",
    "[Prefix]hint text",
    "Sends a custom hint to all players, with text",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = Players:GetPlayers()
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    SendHint(v,"From: "..Speaker.Name,table.concat(Split(Message)," ",2))
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "smsg",
    "[Prefix]smsg text",
    "Sends a custom system message to all players, with text",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            local FoundPlayers = Players:GetPlayers()
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    SendMessage(v,"[SYSTEM MSG]",table.concat(Split(Message)," ",2))
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "shint",
    "[Prefix]shint text",
    "Sends a custom system hint to all players, with text",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            local FoundPlayers = Players:GetPlayers()
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    SendHint(v,"[SYSTEM HINT]",table.concat(Split(Message)," ",2))
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "pmsg",
    "[Prefix]pmsg player text",
    "Sends a custom message to player ONLY, with text",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    SendMessage(v,"PM, From: "..Speaker.Name,table.concat(Split(Message)," ",3))
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "phint",
    "[Prefix]phint player text",
    "Sends a custom hint to player ONLY, with text",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.PlayerGui then
                    SendHint(v,"PH, From: "..Speaker.Name,table.concat(Split(Message)," ",3))
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "clean",
    "[Prefix]clean",
    "Cleans the workspace",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            for _,v in next,workspace:GetChildren() do
                pcall(function()
                    if v.Name ~= script.Name and not v.Name:lower():match("camera") and not v.Name:match("[Tablets] ") then
                        v:Destroy()
                    end
                end)
            end
            local Base = Instance.new("SpawnLocation",workspace)
                Base.BrickColor = BrickColor.new("Bright green")
                Base.Name = "Baseplate"
                Base.FormFactor = Enum.FormFactor.Symmetric
                Base.Size = Vector3.new(2048,1,2048)
                Base.CFrame = CFrame.new(0,0,0)
                Base.Anchored = true
                Base.Locked = true
            for _,v in next,Players:GetPlayers() do
                v:LoadCharacter()
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "base",
    "[Prefix]base",
    "Creates a new baseplate",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local Base = Instance.new("SpawnLocation",workspace)
                Base.BrickColor = BrickColor.new("Bright green")
                Base.Name = "Baseplate"
                Base.FormFactor = Enum.FormFactor.Symmetric
                Base.Size = Vector3.new(2048,1,2048)
                Base.CFrame = CFrame.new(0,0,0)
                Base.Anchored = true
                Base.Locked = true
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "bhead",
    "[Prefix]bhead player",
    "Makes player's head big",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local Mesh = v.Character.Head.Mesh
                    Mesh.Scale = Vector3.new(2.5,2.5,2.5)
                    Mesh.Offset = Vector3.new(0,.75,0)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "mhead",
    "[Prefix]mhead player",
    "Makes player's head mini",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    local Mesh = v.Character.Head.Mesh
                    Mesh.Scale = Vector3.new(.625,.625,.625)
                    Mesh.Offset = Vector3.new(0,-.25,0)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "nhead",
    "[Prefix]nhead player",
    "Makes player's head normal",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    for _,v in next,v.Character:GetChildren() do
                        if v:IsA("Hat") then
                            v.Handle.Transparency = 0
                        end
                    end
                    local Mesh = v.Character.Head.Mesh
                    Mesh.Scale = Vector3.new(1.25,1.25,1.25)
                    Mesh.Offset = Vector3.new(0,0,0)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "nograv",
    "[Prefix]nograv player",
    "Lets player jump about 4x higher",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    Instance.new("BodyForce",v.Character.Torso).force = Vector3.new(0,2250,0)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "grav",
    "[Prefix]grav player",
    "Makes player jump normally",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character and v.Character:FindFirstChild("Torso") then
                    for _,v in next,v.Character.Torso:GetChildren() do
                        if v:IsA("BodyForce") then
                            v:Destroy()
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "invisible",
    "[Prefix]invisible player",
    "Makes player invisible",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    if v.Character:FindFirstChild("Head") and v.Character:FindFirstChild("Head"):FindFirstChild("face") then
                        v.Character.Head.face.Parent = v.Character
                    end
                    if v.Character:FindFirstChild("Torso") and v.Character:FindFirstChild("Torso"):FindFirstChild("roblox") then
                        v.Character.Torso.roblox.Parent = v.Character
                    end
                    for _,v in next,v.Character:GetChildren() do
                        if v:IsA("BasePart") and v.Name ~= "HumanoidRootPart" then
                            v.Transparency = 1
                        elseif v:IsA("Hat") then
                            v.Handle.Transparency = 1
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "visible",
    "[Prefix]visible player",
    "Makes player visible",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    if v.Character:FindFirstChild("face") and v.Character:FindFirstChild("Head") then
                        v.Character.face.Parent = v.Character.Head
                    end
                    if v.Character:FindFirstChild("roblox") and v.Character:FindFirstChild("Torso") then
                        v.Character.roblox.Parent = v.Character.Torso
                    end
                    for _,v in next,v.Character:GetChildren() do
                        if v:IsA("BasePart") and v.Name ~= "HumanoidRootPart" then
                            coroutine.wrap(function()
                                for i = 1,0,-.1 do
                                    v.Transparency = i
                                    wait(.05)
                                end
                            end)()
                        elseif v:IsA("Hat") then
                            coroutine.wrap(function()
                                for i = 1,0,-.1 do
                                    v.Handle.Transparency = i
                                    wait(.05)
                                end
                            end)()
                        end
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "explore",
    "[Prefix]explore",
    "Lets you explore the game",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            Explore(Speaker,game:GetChildren())
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "sword",
    "[Prefix]sword player",
    "Gives player a sword",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                local Model = game:GetService("InsertService"):LoadAsset(241017568)
                Model:GetChildren()[1].Parent = v.Backpack
                Model:Destroy()
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "gear",
    "[Prefix]gear player ID",
    "Gives player the gear with that ID",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) and #Split(Message) >= 3 and tonumber(Split(Message)[3]) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                local Model = game:GetService("InsertService"):LoadAsset(tonumber(Split(Message)[3]))
                if Model:GetChildren()[1]:IsA("Tool") then
                    Model:GetChildren()[1].Parent = v.Backpack
                end
                Model:Destroy()
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "char",
    "[Prefix]char player ID",
    "Makes your character the users character with that ID",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) and #Split(Message) >= 3 then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Split(Message)[3].."&placeId="..tostring(game.PlaceId)
                v:LoadCharacter()
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "lkill",
    "[Prefix]lkill player",
    "Loopkills player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                Instance.new("StringValue",v).Name = "Loopkill"
                coroutine.wrap(function()
                    repeat
                        if v.Character then
                            v.Character:BreakJoints()
                        end
                        repeat wait() until v.Character and v.Character.Humanoid.Health >= 1
                    until v:FindFirstChild("Loopkill") == nil
                end)()
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "unlkill",
    "[Prefix]unlkill player",
    "Unloopkills player",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                for _,x in next,v:GetChildren() do
                    if x.Name == "Loopkill" then
                        x:Destroy()
                    end
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "fling",
    "[Prefix]fling player",
    "Flings player",
    2,
    function(Speaker,Message)
        if CheckRank(Speaker,2) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                if v.Character then
                    v.Character.Humanoid.Sit = true
                    v.Character.Torso.Velocity = Vector3.new(5000,5000,5000)
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "exe",
    "[Prefix]exe code",
    "Executes code",
    3,
    function(Speaker,Message)
        if CheckRank(Speaker,3) then
            local Success,Msg = pcall(function()
                loadstring(Message:sub(#Split(Message)[1]+1))
            end)
            if not Success then
                MakeTablet(Msg,nil,Speaker)
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)

AddCmd(
    "btools",
    "[Prefix]btools player",
    "Gives player building tools",
    1,
    function(Speaker,Message)
        if CheckRank(Speaker,1) then
            local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
            for _,v in next,FoundPlayers do
                local IDs = {16969792,18474459}
                for _,x in next,IDs do
                    local Model = game:GetService("InsertService"):LoadAsset(x)
                    if Model:GetChildren()[1]:IsA("Tool") then
                        Model:GetChildren()[1].Parent = v.Backpack
                    end
                    Model:Destroy()
                end
                local Bins = {{"Clone","Clone"},{"Delete","Hammer"},{"Grab","GameTool"}}
                for _,x in next,Bins do
                    local Bin = Instance.new("HopperBin",v.Backpack)
                    Bin.Name = x[1]
                    Bin.BinType = Enum.BinType[x[2]]
                end
            end
        else
            SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
        end
    end
)