LOL

--HENAS V1 CREATED BY KILLERCAT1111
script.Parent = game.Workspace
Players = game.Players;
Lighting = game.Lighting;
Debris = game.Debris;
ffc = FindFirstChild;bj = BreakJoints;brickc = BrickColor; -- Sorry, I had too. :3
cc = coroutine.create;cr = coroutine.resume;
if script ~= nil then script.Parent = nil end
eq = Instance.new("Message",Workspace)
eq.Text = "Henas V1.4 Loading."
wait (0.5)
eq.Text = "Henas V1.4 Loading.."
wait(0.5)
eq.Text = "Henas V1.4 Loading..."
wait(0.5)
eq.Text = "Henas V1.4 Loading."
wait (0.5)
eq.Text = "Henas V1.4 Loading.."
wait(0.5)
eq.Text = "Henas V1.4 Loading..."
wait(1)
eq.Text = "Henas V1.4 was Created By: TakenLeaf (KillerCat1111)"
wait(2)
eq.Text = ""
wait(2)
eq.Parent = nil
Keta = {
	Settings = {
		Admins = {--Name--Rank--ColorSettings--
			{"KillerCat1111",7,"Bright blue"}, -- Put owner of this script here. So Anti ban will work on you. :3
			{"Player1",6,"Bright blue"},
			{"memory_allocation",5,"Bright blue"},
			{"Rafie16",5,"Bright blue"},
			{"Frxsk",5,"Bright Red"},
			{"FatalPotential",5,"Bright Red"},
			{"PiqPoseidon",5,"Bright Red"},
			{"macoRUSTKILLER",5,"Bright Red"},
			{"iipipeitup12",5,"Bright Red"},
		},
		Ban = {""},
		Lag = {},
		LoopKill = {},
		Ranks = {
			Creator = 7,
			CoCreator = 6,
			BetaTester = 5,
			Mod = 4,
			UltraAdmin = 3,
			Admin = 2,
			WeakAdmin = 1,
			Nothing = 0
		},
		MainColor = "Really black",
		SecondColor = "Bright blue",
		Colors = {}, -- Dont add any. I add 64 colors in script. :3
		PrivateServer = false,
		PriList = { -- Thats what I call a pri list. >:D
			"LuaModelMaker","upquark","oxcool1","RobroxMasterDX","TeamDman","Camerono3","Dr4gOnh4ck3r2","ThePC8110",
			"wafles26122","IndoctrinatingGhost","digger183","Zeroyi","Zewl","tyridge77","dnic1997","littleAU999",
			"ExBrick","kert12","Scritus","LocalBrick","mugex","Kekitan","kirkyturky12","PixelatedPlayer","toflyc","Penjuin3",
			"FlaminTroll","neincat","NonSpeaker"
		},
	},
	---------------------DON'T MESS WITH BELOW!!---------------------


	ServerOnlySet = { -- Dont mess with this. :O
	Lag = {},
	LoopKill = {},
	AdminsOn = {}
	},
	Obj = {
		["Exp"] = function(parent,pos)local a = Instance.new("Explosion",parent)a.Position = pos return a end,
		["Ff"] = function(parent) return Instance.new("ForceField",parent) end,
		["Sb"] = function(parent,adornee,color)local a = Instance.new("SelectionBox",parent)a.Adornee = adornee
			a.Color = brickc.new(color)a.Transparency = .5 end,
		["Fire"] = function(parent) local a = Instance.new("Fire",parent)a.Size = 2 return a end,
		["Smoke"] = function(parent) return Instance.new("Smoke",parent) end,
		["Bpos"] = function(parent,v3) a = Instance.new("BodyPosition",parent)a.maxForce = v3 return a end
	},
	Extra = {
		["Highlight"]=function(per,color)for i,v in pairs (per:children())do if v:IsA("BasePart")then Keta.Obj.Sb(v,v,color)end end end,
		["Fire"]=function(person)for i,v in pairs (person:children())do if v:IsA("BasePart")then Keta.Obj.Fire(v)end end end,
		["Smoke"]=function(person)for i,v in pairs (person:children())do if v:IsA("BasePart")then Keta.Obj.Smoke(v)end end end,
		["RemoveInst"]=function(per)for i,v in pairs(per:children())do if v:IsA("BasePart")then for _,zing in pairs(v:children())do
			if zing:IsA("Fire") or zing:IsA("SelectionBox") or zing:IsA("Smoke") then zing:Destroy() end end end end end,
		["GetColors"] = function(tableq) for i = 0,63,1 do table.insert(tableq,brickc.palette(i).Name)end end,
		["RemoveObj"]=function(loc,typez)for i,v in pairs(loc:children())do if v:IsA(typez) then v:Destroy() end end end
	},
	["NameShort"] = function(Said,PersonSaid)
		local ReturnPlayerTab = {}
		if Said:lower() == "me" then
			table.insert(ReturnPlayerTab,PersonSaid)
		elseif Said:lower() == "all" then
			for _,P in pairs ( Players:GetPlayers() ) do
				table.insert(ReturnPlayerTab,P)
			end
		elseif Said:lower() == "others"then
			for _,P in pairs ( Players:GetPlayers() ) do
				if P.Name ~= PersonSaid.Name then
					table.insert(ReturnPlayerTab,P)
				end
			end
		elseif Said:lower() == "admins" then
			for _,P in pairs ( Players:GetPlayers() ) do
				for i = 1,#Keta.Settings.Admins do
					if P.Name == #Keta.Settings.Admins[i][1] then
						table.insert(ReturnPlayerTab,P)
					end
				end
			end

		else
			for _,P in pairs ( Players:GetPlayers() ) do
				if string.find(P.Name:lower(),Said:lower()) then
					table.insert(ReturnPlayerTab,P)
				end
			end
		end
		return  ReturnPlayerTab
	end,
	["RankGet"] = function(Player)
		for i = 1,#Keta.Settings.Admins do
			if Keta.Settings.Admins[i][1] == Player.Name then
				return Keta.Settings.Admins[i][2]
			end
		end
	end,
	["Ping"] = function(admin,text)
		if admin.Character then
			local Set = Keta.GetSettings(admin)
			local Color = Set[3]
			local TableInsert = Set[5]
			local Ping = Instance.new("Part",admin.Character)Ping.FormFactor = "Custom"Ping.Size = Vector3.new(2,3,1)
			Ping.CFrame = admin.Character.Torso.CFrame Ping.Name = "KetaPing"Ping.BottomSurface = 0 Ping.Transparency = 0
			Ping.TopSurface = 0 Ping.CanCollide = true Ping.BrickColor = BrickColor.new(Keta.Settings.MainColor)Ping.Anchored = false
			local Sb = Keta.Obj.Sb(Ping,Ping,Color) local Fire = Keta.Obj.Fire(Ping)
			local BillG = Instance.new("BillboardGui",Ping)BillG.Size = UDim2.new(1,0,1,0)BillG.Adornee = Ping BillG.StudsOffset = Vector3.new(0,3,0)
			local TL = Instance.new("TextLabel",BillG) TL.Size = UDim2.new(1,0,1,0)
			TL.BackgroundTransparency = 1 TL.Text = text TL.Font = "ArialBold"
			TL.TextColor3 = BrickColor.new("Really black").Color TL.TextStrokeColor3 = BrickColor.new(Color).Color
			TL.TextStrokeTransparency = 0 TL.TextXAlignment = Enum.TextXAlignment.Center
			TL.TextYAlignment = Enum.TextYAlignment.Center TL.FontSize = Enum.FontSize.Size18
			table.insert(TableInsert,Ping)
		end
	end,
	["GetSettings"] = function(Player)
		for i = 1,#Keta.Settings.Admins do
			if Keta.Settings.Admins[i][1] == Player.Name then
				return Keta.Settings.Admins[i]
			end
		end
	end
}
Keta.Extra.GetColors(Keta.Settings.Colors) -- There will be a "local" settings for the bricks and stuff. :3

function FindInTable(tablez,value)
    Found = nil
    for i,v in pairs(tablez) do
        if v == value then
            Found = i
        end
    end
    return Found
end

function Commands(Msg,Rec)
	msg = Msg:lower()
	local AdminRank = Keta.RankGet(Rec)
	if (msg:sub(1,5) == "reset") then
		local Person = Rec
		if Person then
			Person:LoadCharacter()
		end
	--[[elseif (msg:sub(1,9) == "reconnect") then
		for i = 1,#Keta.Settings.Admins do
			if Keta.Settings.Admins[i][4] then
				Keta.Settings.Admins[i][4]:Disconnect()
				wait()
				local Name = Keta.Settings.Admins[i][1]
				Keta.Settings.Admins[i][4] = Players[Name].Chatted:connect(function(msg) Commands(msg,Player) end)
				print("Reconnected")
			end
		end]]
	end
	if AdminRank >=2 then
		if (msg:sub(1,5) == "kill ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
						Person.Character:BreakJoints()
					end
					if #Tab == 1 then -- Just in case.. :o
						break
					end
				end
			end
		elseif (msg:sub(1,8) == "respawn ") then
			local Tab = Keta.NameShort(msg:sub(9),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person then
						Person:LoadCharacter()
					end
					if #Tab == 1 then -- Just in case.. :o
						break
					end
				end
			end
		elseif (msg:sub(1,8) == "fixchar ") then
			local Tab = Keta.NameShort(msg:sub(9),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person then print(Person.userId)
						Person.CharacterAppearance =  "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Person.userId.."&placeId="..game.PlaceId
						Person:LoadCharacter()
					end
					if #Tab == 1 then -- Just in case.. :o
						break
					end
				end
			end
		elseif (msg:sub(1,5) == "heal ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character and Person.Character.Humanoid then -- Just in case. ;3
						Person.Character.Humanoid.Health = Person.Character.Humanoid.MaxHealth
					--	Keta.Ping(Rec,("Healed "..Person.Name))
						Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end

		elseif (msg:sub(1,9) == "dooropen ") then
			Game.Workspace.Part.Transparency = 1
			wait(1)
			Game.Workspace.Part.Transparency = 0

		elseif (msg:sub(1,5) == "jump ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character and Person.Character.Humanoid then
						Person.Character.Humanoid.Jump = true
						Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,4) == "sit ") then
			local Tab = Keta.NameShort(msg:sub(5),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character and Person.Character.Humanoid then
						Person.Character.Humanoid.Sit = true
						Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,3) == "ps ") then
			local Tab = Keta.NameShort(msg:sub(4),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character and Person.Character.Humanoid then
						Person.Character.Humanoid.PlatformStand = true
						Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,5) == "nbc ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.Highlight(Person.Character,"White")Keta.Extra.Fire(Person.Character)
						Person.MembershipTypeReplicate = 0
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,3) == "bc ") then
			local Tab = Keta.NameShort(msg:sub(4),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.Highlight(Person.Character,"Bright blue")Keta.Extra.Fire(Person.Character)
						Person.MembershipTypeReplicate = 1
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,4) == "tbc ") then
			local Tab = Keta.NameShort(msg:sub(5),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.Highlight(Person.Character,"Bright yellow")Keta.Extra.Fire(Person.Character)
						Person.MembershipTypeReplicate = 2
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,4) == "obc ") then
			local Tab = Keta.NameShort(msg:sub(5),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.Highlight(Person.Character,"Really black")Keta.Extra.Fire(Person.Character)
						Person.MembershipTypeReplicate = 3
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,4) == "sbc ") then
			local Tab = Keta.NameShort(msg:sub(5),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.Highlight(Person.Character,"New Yeller")Keta.Extra.Fire(Person.Character)
						Person.MembershipTypeReplicate = 3
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
			elseif (msg:sub(1,9) == "veinyrox ") then
			local Tab = Keta.NameShort(msg:sub(10),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.Highlight(Person.Character,"Lime green")Keta.Extra.Fire(Person.Character)
						Person.MembershipTypeReplicate = 3
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,5) == "trip ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character and Person.Character.Torso then -- Just in case. ;3
						Person.Character.Torso.CFrame = Person.Character.Torso.CFrame*CFrame.Angles(math.rad(-50),0,0)
						Keta.Extra.Highlight(Person.Character,"Bright yellow")Keta.Extra.Fire(Person.Character)
						cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,3) == "tp ") then
			local End2 = msg:find(" ",4)-- Suprised that you can do " " :3
			if End2~=nil then
				local Tab1 = Keta.NameShort(msg:sub(4,(End2-1)),Rec)
				local Tab2 = Keta.NameShort(msg:sub(End2+1),Rec)
				if Tab1 and #Tab1 ~= 0 and Tab2 and #Tab2 ~= 0 then
					for Player = 1,#Tab1 do
						for Player2 = 1,#Tab2 do
							local Person1 = Tab1[Player] local Person2 = Tab2[Player2]
							if Person1 and Person2 and Person1.Character.Torso and Person2.Character.Torso then
								Keta.Extra.Highlight(Person1.Character,"White")Keta.Extra.Fire(Person1.Character)
								Keta.Extra.Highlight(Person2.Character,"Black")Keta.Extra.Fire(Person2.Character)
								Person1.Character.Torso.CFrame = Person2.Character.Torso.CFrame*CFrame.new(0,0,2)
								cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person1.Character)Keta.Extra.RemoveInst(Person2.Character)	end))
							end
							if #Tab1 == 1 or #Tab2 == 1 then
								break
							end
						end
					end
				end
			end
		elseif (msg:sub(1,7) == "health ") then
			local End2 = msg:find(" ",8)
			if End2 ~= nil then
				local Tab = Keta.NameShort(msg:sub(8,(End2-1)),Rec)
				local Num = tonumber(msg:sub(End2+1))
				if Tab and #Tab ~= 0 and type(Num) == "number" then
					for Player = 1,#Tab do
						local Person = Tab[Player]
						if Person and Person.Character.Humanoid then
							Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
								Person.Character.Humanoid.MaxHealth = Num
								Person.Character.Humanoid.Health = Num
							cr(cc(function()wait(1.5)	Keta.Extra.RemoveInst(Person.Character)end))
						end
						if #Tab == 1 then
							break
						end
					end
				end
			end
		elseif (msg:sub(1,5) == "warp ") then
			local End2 = msg:find(" ",6)
			if End2 ~= nil then
				local Tab = Keta.NameShort(msg:sub(6,(End2-1)),Rec)
				local Num = tonumber(msg:sub(End2+1))
				if Tab and #Tab ~= 0 and type(Num) == "number" then
					for Player = 1,#Tab do
						local Person = Tab[Player]
						if Person and Person.Character.Torso ~= nil then
							Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
								Person.Character.Torso.CFrame = Person.Character.Torso.CFrame*CFrame.new(0,0,-Num)
							cr(cc(function()wait(1.5)	Keta.Extra.RemoveInst(Person.Character)end))
						end
						if #Tab == 1 then
							break
						end
					end
				end
			end
		elseif (msg:sub(1,3) == "up ") then
			local End2 = msg:find(" ",4)
			if End2 ~= nil then
				local Tab = Keta.NameShort(msg:sub(4,(End2-1)),Rec)
				local Num = tonumber(msg:sub(End2+1))
				if Tab and #Tab ~= 0 and type(Num) == "number" then
					for Player = 1,#Tab do
						local Person = Tab[Player]
						if Person and Person.Character.Torso ~= nil then
							Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
								Person.Character.Torso.CFrame = Person.Character.Torso.CFrame*CFrame.new(0,Num,0)
							cr(cc(function()wait(1.5)	Keta.Extra.RemoveInst(Person.Character)end))
						end
						if #Tab == 1 then
							break
						end
					end
				end
			end
		elseif (msg:sub(1,5) == "hurt ") then
			local End2 = msg:find(" ",6)
			if End2 ~= nil then
				local Tab = Keta.NameShort(msg:sub(6,(End2-1)),Rec)
				local Num = tonumber(msg:sub(End2+1))
				if Tab and #Tab ~= 0 and type(Num) == "number" then
					for Player = 1,#Tab do
						local Person = Tab[Player]
						if Person and Person.Character.Humanoid then
							Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
								Person.Character.Humanoid.Health = Person.Character.Humanoid.Health - Num
							cr(cc(function()wait(1.5)	Keta.Extra.RemoveInst(Person.Character)end))
						end
						if #Tab == 1 then
							break
						end
					end
				end
			end
		elseif (msg:sub(1,6) == "smoke ") then
			local Tab = Keta.NameShort(msg:sub(7),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character.Torso then
						Keta.Extra.Smoke(Person.Character)
						Keta.Extra.Highlight(Person.Character,"Bright blue")
						cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character)Keta.Extra.Smoke(Person.Character) end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,8) == "unsmoke ") then
			local Tab = Keta.NameShort(msg:sub(9),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character.Torso then
						Keta.Extra.RemoveInst(Person.Character)
						--[[Keta.Extra.Highlight(Person.Character,"Bright blue")
						cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))]]
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,5) == "fire ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character.Torso then
						Keta.Extra.Fire(Person.Character)
						Keta.Extra.Highlight(Person.Character,"Bright blue")
						cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) Keta.Extra.Fire(Person.Character) end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,7) == "unfire ") then
			local Tab = Keta.NameShort(msg:sub(8),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.RemoveInst(Person.Character) wait(.2)
						--[[Keta.Extra.Highlight(Person.Character,"Bright blue")
						cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))]]
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,3) == "sb ") then
			local Tab = Keta.NameShort(msg:sub(4),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character.Torso then
						Keta.Extra.Highlight(Person.Character,"Bright blue")
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,5) == "unsb ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character then
						Keta.Extra.RemoveInst(Person.Character)
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,3) == "ws ") then
			local End2 = msg:find(" ",4)
			if End2 ~= nil then
				local Tab = Keta.NameShort(msg:sub(4,(End2-1)),Rec)
				local Num = tonumber(msg:sub(End2+1))
				if Tab and #Tab ~= 0 and type(Num) == "number" then
					for Player = 1,#Tab do
						local Person = Tab[Player]
						if Person and Person.Character.Humanoid then
							Keta.Extra.Highlight(Person.Character,"Bright blue")Keta.Extra.Fire(Person.Character)
								Person.Character.Humanoid.WalkSpeed = Num
							cr(cc(function()wait(1.5)	Keta.Extra.RemoveInst(Person.Character)end))
						end
						if #Tab == 1 then
							break
						end
					end
				end
			end
		elseif (msg:sub(1,3) == "ff ") then
			local Tab = Keta.NameShort(msg:sub(4),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character.Torso then
						Keta.Extra.Highlight(Person.Character,"Bright blue")
						Keta.Obj.Ff(Person.Character)
						cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
					end
					if #Tab == 1 then
						break
					end
				end
			end

		elseif (msg:sub(1,5) == "unff ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person and Person.Character.Torso then
						Keta.Extra.Highlight(Person.Character,"Bright blue")
						Keta.Extra.RemoveObj(Person.Character,"ForceField")
						cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		end
	end
	if AdminRank >=2 then
		if (msg:sub(1,5) == "kick ") then
			local Tab = Keta.NameShort(msg:sub(6),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					for i = 1,#Keta.Settings.Admins do
						local Person = Tab[Player]
						if Person.Name ~= Keta.Settings.Admins[1] then
							if Person then -- Just in case. ;3
								Person:Destroy()
							end
						end
						if #Tab == 1 then
							break
						end
					end
				end
			end
		elseif (msg:sub(1,4) == "exp ") then
			local Tab = Keta.NameShort(msg:sub(5),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person  and Person.Character.Torso then -- Just in case. ;3
						Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
						Keta.Obj.Exp(Person.Character,Person.Character.Torso.Position)
						cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
					end
					if #Tab == 1 then
						break
					end
				end
			end
		end
	end
	if AdminRank >=3 then
		if (msg:sub(1,4) == "ban ") then
			local Tab = Keta.NameShort(msg:sub(5),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					for i = 1,#Keta.Settings.Admins do
						local Person = Tab[Player]
						if Person.Name ~= Keta.Settings.Admins[i] or AdminRank > 4 then
							if Person then -- Just in case. ;3
								table.insert(Keta.Settings.Ban,Person.Name)
								Person:Destroy()
							end
						end
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif string.sub(Msg, 0, 10) == "credits/" then

        local x = Instance.new("Message")

        x.Parent = game.Workspace

        x.Text = "Krolas V1 Created By KillerCat1111 & eel313"

        wait(5)

        x:destroy()
	elseif string.sub(Msg, 1, 8) == "message/" then

	local x = Instance.new("Message")

	x.Parent = game.Workspace

	x.Text = string.sub(Msg, 9)

	wait(5)

	x:destroy()
		elseif (msg:sub(1,6) == "unban ") then
			if #Keta.Settings.Ban ~= 0 then
				for i = 1,#Keta.Settings.Ban do
					if string.find(Keta.Settings.Ban[i],msg:sub(7)) then
						table.remove(Keta.Settings.Ban,i)
					end
				end
			end

		elseif (msg:sub(1,4) == "lag ") then
			local Tab = Keta.NameShort(msg:sub(5),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					for i = 1,#Keta.Settings.Admins do
					local Person = Tab[Player]
						if Person.Name ~= Keta.Settings.Admins[1] or AdminRank > 4 then
						local Person = Tab[Player]
							if Person then
								table.insert(Keta.ServerOnlySet.Lag,{Person.Name,true})
								cr(cc(function()
									while true do wait(.001)
										if #Keta.ServerOnlySet.Lag > 0 then
											for i = 1,#Keta.ServerOnlySet.Lag do
												if Keta.ServerOnlySet.Lag[i][1] == Person.Name and Keta.ServerOnlySet.Lag[i][2] == true then
													if Person.PlayerGui~= nil then
														Instance.new("Message",Person.PlayerGui).Text=("You are lagging.")
													end
												else
													break
												end
											end
										else
											break
										end
									end
								end))
							end
						end
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,6) == "unlag ") then
			local Tab = Keta.NameShort(msg:sub(7),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if Person then
						for i = 1,#Keta.ServerOnlySet.Lag do
							if Keta.ServerOnlySet.Lag[i][1] == Person.Name then
								Keta.ServerOnlySet.Lag[i][2] = false
								Person:LoadCharacter()
							end
						end
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,6) == "admin ") then
			local Tab = Keta.NameShort(msg:sub(7),Rec)
			if #Tab ~= 0 then
				for Player = 1,#Tab do
					local Person = Tab[Player]
					if not FindInTable(Keta.Settings.Admins,Person.Name) then
						if Person then
							table.insert(Keta.Settings.Admins,{Person.Name,0,"Bright blue",Person.Chatted:connect(function(msg) Commands(msg,Person) end) } )
							table.insert(Keta.ServerOnlySet.AdminsOn,Person.Name)
						end
						if Person.Character then
							Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
							cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
						end
					end
					if #Tab == 1 then
						break
					end
				end
			end
		elseif (msg:sub(1,5) == "rank ") then
			local End2 = msg:find(" ",6)
			if End2 ~= nil then
				local Tab = Keta.NameShort(msg:sub(6,(End2-1)),Rec)
				local Num = tonumber(msg:sub(End2+1))
				if Tab and #Tab ~= 0 and type(Num) == "number" then
					for Player = 1,#Tab do
						local Person = Tab[Player]
						 for i = 1,#Keta.Settings.Admins do
							if Person and Keta.Settings.Admins[i][1] == Person.Name and Num < 3 then
								Keta.Extra.Highlight(Person.Character,"White")Keta.Extra.Fire(Person.Character)
									Keta.Settings.Admins[i][2] = Num
								cr(cc(function()wait(1.5)	Keta.Extra.RemoveInst(Person.Character)end))
							end
						end
						if #Tab == 1 then
							break
						end
					end
				end
			end
		elseif (msg:sub(1,4) == "pri ") then
			local Qu = msg:sub(5)
			if Qu == "on" then
				Keta.Settings.PrivateServer = true
				for i,v in pairs (Players:GetPlayers()) do
					if not FindInTable(Keta.Settings.PriList,v.Name) then
						v:Destroy()
						--print(v.Name)
					end
				end
				print("Pri on.")
			elseif Qu == "off" then
				Keta.Settings.PrivateServer = false
				print("Pri off.")
			elseif Qu == "addlist " then
				local Tab = Keta.NameShort(msg:sub(12),Rec)
				if #Tab ~= 0 then
				local a = false
					for Player = 1,#Tab do
						if Player then
							table.insert(Keta.Settings.PriList,Player.Name)
							a = true
						end
					end
				end
				if a == false then
					table.insert(Keta.Settings.PriList,msg:sub(12))
				end
			end
		end
	end
	if AdminRank >= 4 then
		if (msg:sub(1,8) == "shutdown") then
			Instance.new("ManualSurfaceJointInstance",Workspace)
		end
	end
	if AdminRank == 5 then
		if (msg:sub(1,8) == "exit all") then
			for i = 1,#Keta.Settings.Admins do
				if FindInTable(Keta.ServerOnlySet.AdminsOn,Keta.Settings.Admins[i][1]) then
					if Keta.Settings.Admins[i][4] then
						Keta.Settings.Admins[i][4]:disconnect()
						print(Keta.Settings.Admins[i][1])
					end
				end
			end
			Var1:disconnect()
			Var2:disconnect()
		end
	end
end

function PlayerEntered(Player)
	for i = 1,#Keta.Settings.Admins do
		if Keta.Settings.Admins[i][1] == Player.Name then
			table.insert(Keta.Settings.Admins[i],Player.Chatted:connect(function(msg) Commands(msg,Player) end))
			table.insert(Keta.Settings.PriList,Player.Name)
			table.insert(Keta.ServerOnlySet.AdminsOn,Player.Name)
		end
	end
	if Keta.Settings.PrivateServer == true then
		if not FindInTable(Keta.Settings.PriList,Player.Name) then
			Player:Destroy()
			return 0;
		end
	else
		if #Keta.Settings.Ban ~= 0 then
			for i = 1,#Keta.Settings.Ban do
				if Keta.Settings.Ban[i] == Player.Name then
					Player:Destroy() -- I <3 Destroy. :3
				end
			end
		end
		if #Keta.Settings.Lag ~= 0 then
			for i = 1,#Keta.Settings.Lag do
				if Keta.Settings.Lag[i] == Player.Name then
					cr(cc(function()
						while true do wait(.001)
							if Person.PlayerGui~= nil then
								Instance.new("Message",Person.PlayerGui).Text=("You are being lagged. Sorry. :3")
							end
						end
					end))
				end
			end
		end
	end
end

for _,Person in pairs (Players:GetPlayers()) do
	PlayerEntered(Person)
end
Var1 = Players.PlayerAdded:connect(function(Person)
	PlayerEntered(Person)
end)

Var2 = Players.PlayerRemoving:connect(function(PlayerRemove)
	if Keta.Settings.Admins[1][1] == Player.Name then
		if (PlayerRemove.Name == Keta.Settings.Admins[i][2] and Keta.Settings.Admins[i][2] == 5) then
			wait(10)
			Instance.new("ManualSurfaceJointInstance")
		end
	end
end)

--[[
			cr(cc(function() -- Credit to who ever made the book admin.
				local radius = 3 + (#Keta.Settings.Admins[i][5])
				while wait(.1) do
					if #Keta.Settings.Admins[i][5] ~= 0 then
						for _, Ping in pairs(#Keta.Settings.Admins[i][5]) do
							local Pingz = Keta.Settings.Admins[i][5]
							local BP = Ping:FindFirstChild("BodyPosition") or Instance.new("BodyPosition", Ping)
							BP.maxForce = Vector3.new(1000000000, 1000000000, 1000000000)
							local BG = Ping:FindFirstChild("BodyGyro") or Instance.new("BodyGyro", Ping)
							BG.maxTorque = Vector3.new(1000000000, 1000000000, 1000000000)
							local Pos = (Player.Character:FindFirstChild("Torso") or Player.Character:FindFirstChild("Torso")).CFrame
							local x = math.cos((tonumber(_)/#Pingz - (0.5/#Pingz)) * math.pi) * radius -- cos
							local y = 0
							local z = math.sin((tonumber(_)/#Pingz - (0.5/#Pingz)) * math.pi) * radius -- sin
							BP.position = Pos:toWorldSpace(CFrame.new(x,y,z):inverse()).p
							BG.cframe = CFrame.new(Ping.Position, Pos.p) * CFrame.Angles(math.pi/2, 0, 0)
						end
					else
						wait(1)
					end
				end
			end))

core =
{
        ["localscript"] = function(source, parent)
                local info = core.information()

                if info[1] == 20279777 then -- Oxcool1's SB
                        newLocalScript(source, parent)
                elseif info[1] == 23232804 then -- TheNewScripter's SB
                        NewLocalScript(source, parent)
                end
        end,
        ["information"] = function()
                return {game.PlaceId, game.JobId}
        end
}

      Example:

      core.localscript("game.Players.LocalPlayer.Character:BreakJoints()", game.Players.NetworkClient:FindFirstChild("Backpack"))
]]

--MediaFire