local admins = {"tindmikael"}
local banlist = {"killerlvl900"}
local partadmins = {}
local creatorisadmin = true
local friendsofcreatoraremods = true
local modscripters = false
local servah = game:findFirstChild("NetworkServer")
if servah ~= nil then
script.Parent = game
end --Stops this script from getting cleaned out if inserted.


--[[

This is QwertygiyII's NEW game-administrator script. This script is meant
to replace Person299's now-failing Admin Script. This one has new features,
as well as loved old ones. I hope you like it. If you wish to examine
or add commands, skip to function OnChatted by pressing Ctrl+F.

HOW TO SET UP: See the Admins table? Just like in Person299's, insert the people
that you want to be game administrators there. If you set the creatorisadmin
value to true, then the owner of the place will be an admin. If you set the
friendsofcreatoraremods value to true, then people who are friends of the
owner will be partadmins/moderators.

Speaking of moderators, if you only want some people to not have access to
the Ban, Kick, loopkill, Admin, Unadmin, God, and other 'strict' commands,
put their name in the Partadmins table. If you don't want them to access the
script builder command (c/), set the modscripters value to false, or say
noscripting ingame. To reallow them in-game, say allowscripting.

Anybody who you want to be unable to join your game, insert into the Banlist.

List of commands with how to use them: Scroll to the bottom of the script.

--]]

for E = 1, #admins do --Wait... E = MC^2, and I'm pretty sure MC^2 ~= 1...
for q = 1, #partadmins do
if admins[E] == partadmins[q] then
table.remove(partadmins, q)
end
end
table.insert(partadmins, admins[E])
end
--This way all the main admins can access the nonstrict commands too.

function badName(object)
local namez = string.lower(object.Name)
local secure = true
if string.find(namez, "antiban") or string.find(namez, "anti-ban") or string.find(namez, "orb") or string.find(namez, "eyeball") or string.find(namez, "eye-ball") then
secure = false
end
if object.className == "Message" or object.className == "Hint" then
local text = string.lower(object.Text)
if string.find(text, "antiban") or string.find(text, "anti-ban") or string.find(text, "orb") or string.find(text, "eyeball") or string.find(text, "eye-ball") or string.find(text, "banned") or string.find(text, "kicked") or string.find(text, "the server will end") or string.find(text, "hack") then
secure = false
end end
if secure == false then return true else return false end end

local tools = {}
local Tewls = game.Lighting:findFirstChild("Tools")
if Tewls == nil then
Tewls = Instance.new("Model")
Tewls.Parent = game.Lighting
Tewls.Name = "Tools"
else
local toolz = Tewls:getChildren()
for q = 1, #toolz do
if toolz[q]:IsA("Tool") or toolz[q]:IsA("HopperBin") then
table.insert(tools, toolz[q])
end end end

function checkChildren(object) --Thanks to sncplay42 for help on this function.
if badName(object) then
wait()
object:Remove()
end
pcall(function()
if object:IsA("Tool") or object:IsA("HopperBin") then
local alreadygotit = false
for q = 1, #tools do
if tools[q].Name == object.Name then
alreadygotit = true
end end
if alreadygotit == false then
local objecttwo = object:clone()
table.insert(tools, objecttwo)
objecttwo.Parent = game.Lighting.Tools
end end end)
if pcall(function() object:GetChildren() end) then --makes sure GetChildren won't error
for i, v in pairs(object:GetChildren()) do
checkChildren(v)
end end end

game.Workspace.DescendantAdded:connect(function(item)
	if badName(item) then item:remove(); checkChildren(game) end
end)

checkChildren(game)


function findplayer(name,speaker) --This function by Person299.
if string.lower(name) == "all" then
local chars = { }
local c = game.Players:GetChildren()
for i =1,#c do
if c[i].className == "Player" then
table.insert(chars,c[i])
end end
return chars
elseif string.sub(string.lower(name),1,9) == "nonadmins" then
local nnum = 0
local chars = { }
local c = game.Players:GetChildren()
for i=1,#c do
local isadmin = false
for i2 =1,#admins do
if admins[i2] == c[i].Name then
isadmin = true
end end
for i3 = 1, #partadmins do
if partadmins[i3] == c[i].Name then
isadmin = true
end end
if isadmin == false then
nnum = nnum + 1
table.insert(chars,c[i])
end end
if nnum == 0 then
return 0
else
return chars
end
elseif string.sub(string.lower(name),1,6) == "admins" then
local anum = 0
local chars = { }
local c = game.Players:GetChildren()
for i=1,#c do
for i2 =1,#admins do
if admins[i2] == c[i].Name then
anum = anum + 1
table.insert(chars,c[i])
end end
for i3 = 1, #partadmins do
if partdmins[i3] == c[i].Name then
anum = anum + 1
table.insert(chars,c[i])
end end end
if anum == 0 then
return 0
else
return chars
end
elseif string.sub(string.lower(name),1,6) == "random" then
while true do
local c = game.Players:GetChildren()
local r = math.random(1,#c)
if c[r].className == "Player" then
return { c[r] }
end end
elseif string.sub(string.lower(name),1,6) == "guests" then
local gnum = 0
local chars = { }
local c = game.Players:GetChildren()
for i=1,#c do
if string.sub(c[i].Name,1,5) == "Guest" then
gnum = gnum + 1
table.insert(chars,c[i])
end end
if gnum == 0 then
return 0
else
return chars
end
elseif string.sub(string.lower(name),1,5) == "team " then
local theteam = nil
local tnum = 0
if game.Teams ~= nil then
local c = game.Teams:GetChildren()
for i =1,#c do
if c[i].className == "Team" then
if string.find(string.lower(c[i].Name),string.sub(string.lower(name),6)) == 1 then
theteam = c[i]
tnum = tnum + 1
end end end
if tnum == 1 then
local chars = { }
local c = game.Players:GetChildren()
for i =1,#c do
if c[i].className == "Player" then
if c[i].TeamColor == theteam.TeamColor then
table.insert(chars,c[i])
end end end
return chars
end end
return 0
elseif string.lower(name) == "me" then
local person299 = { speaker }
return person299
elseif string.lower(name) == "others" then
local chars = { }
local c = game.Players:GetChildren()
for i =1,#c do
if c[i].className == "Player" then
if c[i] ~= speaker then
table.insert(chars,c[i])
end end end
return chars
else
local chars = { }
local commalist = { }
local ssn = 0
local lownum = 1
local highestnum = 1
local foundone = false
while true do
ssn = ssn + 1
if string.sub(name,ssn,ssn) == "" then
table.insert(commalist,lownum)
table.insert(commalist,ssn - 1)
highestnum = ssn - 1
break
end
if string.sub(name,ssn,ssn) == "," then
foundone = true
table.insert(commalist,lownum)
table.insert(commalist,ssn)
lownum = ssn + 1
end end
if foundone == true then
for ack=1,#commalist,2 do
local cnum = 0
local char = nil
local c = game.Players:GetChildren()
for i =1,#c do
if c[i].className == "Player" then
if string.find(string.lower(c[i].Name),string.sub(string.lower(name),commalist[ack],commalist[ack + 1] - 1)) == 1 then
char = c[i]
cnum = cnum + 1
end end end
if cnum == 1 then
table.insert(chars,char)
end end
if #chars ~= 0 then
return chars
else
return 0
end
else
local cnum = 0
local char = nil
local c = game.Players:GetChildren()
for i =1,#c do
if c[i].className == "Player" then
if string.find(string.lower(c[i].Name),string.lower(name)) == 1 then
char = {c[i]}
cnum = cnum + 1
end end end
if cnum == 1 then
return char
elseif cnum == 0 then
Message("That player is not found in this server.",speaker, false)
return 0
elseif cnum > 1 then
Message("That name is ambiguous.",speaker, false)
return 0
end end end end




function Message(text, speakery, isglobal)
if isglobal == true then
local m = Instance.new("Message")
m.Parent = game.Workspace
m.Text = speakery.Name .. ": " .. text
wait(3)
m:remove()
else
local t = Instance.new("TextButton")
local s = Instance.new("ScreenGui")
s.Parent = speakery.PlayerGui
t.Size = UDim2.new(1,0,1,0)
t.BackgroundTransparency = 0.5
t.TextColor3 = Color3.new(1,1,1)
t.FontSize = "Size14"
t.Parent = game.Workspace
t.TextWrap = true
t.Text = "Administrative Script" .. ": " .. text
t.Parent = s
wait(3)
t:remove()
s:remove()
end end --Since it saves line space, Imma stick with Person299's tradition of one-line ends.

function Spawn(ch)
print(ch.Name .. " has spawned.")
local p = game.Players:getPlayerFromCharacter(ch)
local loopy = p:findFirstChild("OhBoyyouareintroublenowsoyouaregettinglopkiledbiebaddschpeling")
if loopy ~= nil then
ch:breakJoints()
ch.Humanoid.Health = -9001 --BELOW NEGATIVE 9000! What? I like funny scripting.
end
local powar = p:findFirstChild("ThEaWSoMepOwERofdOoMiSYouRsNaO!")
if powar ~= nil then
ch.Humanoid.MaxHealth = math.huge
ch.Humanoid.Health = ch.Humanoid.MaxHealth
local ff = Instance.new("ForceField")
ff.Name = "SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism"
ff.Parent = ch
local fire = Instance.new("Fire")
fire.Size = 15
fire.Heat = 0
fire.Name = "ImaWalkinTalkinBreathinBallOfFire"
fire.Parent = ch.Torso
end
local ff = ch:findFirstChild("SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism")
if ff == nil then
local tehvalue = p:findFirstChild("TheSuperAwsomeGlowin'ExplosionDefenseProtectorMechanismJustGotBetter")
if tehvalue ~= nil then
ff = Instance.new("ForceField")
ff.Name = "SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism"
ff.Parent = p.Character
end end end

function CreateScript(source, parent)
local thenewscript = script:findFirstChild("Script")
if thenewscript ~= nil then
local newscript = thenewscript:clone()
local value = Instance.new("StringValue")
value.Name = "StringValue"
value.Value = source
value.Parent = newscript
newscript.Name = "PlayerScript"
if parent ~= nil then
newscript.Parent = parent
else
newscript.Parent = game.Workspace
end
else
Message("ERROR: C/ FUNCTION WILL NOT WORK.", speaker, false)
end end


function OnChatted(message, speaker)
for q = 1, #admins do
if string.lower(admins[q]) == string.lower(speaker.Name) then
--Now we make the part of the script that makes it effective for administrative purposes!


if string.sub(string.lower(message), 1, 5) == "kill/" then
local killee = findplayer(string.sub(string.lower(message), 6), speaker)
if killee ~= 0 then
for q = 1, #killee do
killee[q].Character.Humanoid.Health = 0
end end end

if string.sub(string.lower(message), 1, 8) == "explode/" then
local bewm = findplayer(string.sub(string.lower(message), 9), speaker)
if bewm ~= 0 then
for q = 1, #bewm do
local ka = Instance.new("Explosion")
ka.Parent = bewm[q].Character.Torso
ka.Position = bewm[q].Character.Torso.Position
ka.BlastRadius = 3
ka.BlastPressure = 9000001 --ITS OVAR 9 MILLION! :L
end end end

if string.sub(string.lower(message), 1, 5) == "kick/" then
local kickee = findplayer(string.sub(string.lower(message), 6), speaker)
local ouch = false
if kickee ~= 0 then
for q = 1, #kickee do
for w = 1, #admins do
if string.lower(admins[w]) == string.lower(kickee[q].Name) then
ouch = true
end end
if ouch == false then
kickee[q]:remove()
else
Message(kickee[q].Name .. " is an admin and cannot be kicked.", speaker, false)
end
wait()
ouch = false
end end end

if string.sub(string.lower(message), 1, 4) == "ban/" then
local kickee = findplayer(string.sub(string.lower(message), 5), speaker)
local ouch = false
if kickee ~= 0 then
for q = 1, #kickee do
for w = 1, #admins do
if string.lower(admins[w]) == string.lower(kickee[q].Name) then
ouch = true
end end
if ouch == false then
kickee[q]:remove()
table.insert(serverbanned, kickee[q].Name)
else
Message(kickee[q].Name .. " is an admin and cannot be banned.", speaker, false)
end
wait()
ouch = false
end end end

if string.sub(string.lower(message),1,6) == "unban/" then
if string.sub(string.lower(message),7) == "all" then
for i=1,serverbanned do
table.remove(serverbanned,i)
end
else
local n = 0
local o = nil
for i=1,#serverbanned do
if string.find(string.lower(serverbanned[i]),string.sub(message,7)) == 1 then
n = n + 1
o = i
end end
if n == 1 then
local name = serverbanned[o]
table.remove(serverbanned,o)
Message( name .. " has been unbanned.", speaker, false)
elseif n == 0 then
Message("That player is not found in the banlist.", speaker, false)
elseif n > 1 then
Message("That name is ambiguous in the banlist.", speaker, false)
end end end

if string.sub(string.lower(message), 1, 9) == "loopkill/" then
local endofplayer = nil
local istimed = true
local loopkillee = nil
for q = 10, 100 do
if string.sub(string.lower(message), q, q) == "/" then
endofplayer = q
break
elseif string.sub(string.lower(message), q, q) == "" then
istimed = false
break
end end
if istimed == false then
loopkillee = findplayer(string.sub(string.lower(message), 10), speaker)
else
loopkillee = findplayer(string.sub(string.lower(message), 10, endofplayer - 1), speaker)
end
if loopkillee ~= 0 then
for q = 1, #loopkillee do
local powar = loopkillee[q]:findFirstChild("ThEaWSoMepOwERofdOoMiSYouRsNaO!")
if powar ~= nil then
powar:remove()
end
local loopy = Instance.new("StringValue")
loopy.Name = "OhBoyyouareintroublenowsoyouaregettinglopkiledbiebaddschpeling"
loopy.Value = "MWAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHACK!" --Oh, come on. I couldn't help it.
loopy.Parent = loopkillee[q]
loopkillee[q].Character:breakJoints()
loopkillee[q].Character.Humanoid.Health = -9001 --Again, couldn't help it.
if istimed == true then
CreateScript("wait(" .. string.sub(string.lower(message), endofplayer + 1) .. "); game.Players." .. loopkillee[q].Name .. "." .. loopy.Name .. ":remove(); script:remove()", script)
end end end end

if string.sub(string.lower(message), 1, 11) == "unloopkill/" then
local relieved = findplayer(string.sub(string.lower(message), 12), speaker)
if relieved ~= 0 then
for q = 1, #relieved do
local loopy = relieved[q]:findFirstChild("OhBoyyouareintroublenowsoyouaregettinglopkiledbiebaddschpeling")
if loopy ~= nil then
loopy:remove()
else
Message("That player is not loopdieing.", speaker, false)
end end end end

if string.sub(string.lower(message), 1, 6) == "admin/" then
local newmod = findplayer(string.sub(string.lower(message), 7), speaker)
local yuck = false
if newmod ~= 0 then
for q = 1, #newmod do
for w = 1, #partadmins do
if newmod[q].Name == partadmins[w] then
yuck = true
end
end
if yuck == false then
table.insert(partadmins, newmod[q].Name)
Message(newmod[q].Name .. " has been made a Moderator in this server.", speaker, false)
else
Message(newmod[q].Name .. " is a Moderator already.", speaker, false)
end end end end

if string.sub(string.lower(message),1,8) == "unadmin/" then
local ouchitis = false
if string.sub(string.lower(message),9) == "all" then
for i=1,partadmins do
table.remove(partadmins,i)
end
else
local n = 0
local o = nil
for i=1,#partadmins do
if string.find(string.lower(partadmins[i]),string.sub(message,9)) == 1 then
n = n + 1
o = i
end end
if n == 1 then
local name = partadmins[o]
for E = 1, #admins do --Again... I'm pretty sure E ~= 1...
if string.lower(admins[E]) == string.lower(name) then
ouchitis = true
end end
if ouchitis == false then
table.remove(partadmins,o)
Message( name .. " has been unadminned.", speaker, false)
else
Message("That player is a main Admin and cannot be unadminned.", speaker, false)
end
elseif n == 0 then
Message("That player is not found in the moderator list.", speaker, false)
elseif n > 1 then
Message("That name is ambiguous in the moderator list.", speaker, false)
end end end

if string.sub(string.lower(message), 1, 4) == "god/" then
local powerful = findplayer(string.sub(string.lower(message), 5), speaker)
if powerful ~= 0 then
for q = 1, #powerful do
local loopkilled = powerful[q]:findFirstChild("OhBoyyouareintroublenowsoyouaregettinglopkiledbiebaddschpeling")
if loopkilled ~= nil then
loopkilled:remove()
end
local powar = powerful[q]:findFirstChild("ThEaWSoMepOwERofdOoMiSYouRsNaO!")
if powar == nil then
powar = Instance.new("StringValue")
powar.Name = "ThEaWSoMepOwERofdOoMiSYouRsNaO!"
powar.Value = "OVAR 9,000,000!" --It is worth a lot. Which is why it's a strict command.
powar.Parent = powerful[q]
powerful[q].Character.Humanoid.MaxHealth = math.huge
powerful[q].Character.Humanoid.Health = powerful[q].Character.Humanoid.MaxHealth
local ff = powerful[q].Character:findFirstChild("SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism")
if ff == nil then
ff = Instance.new("ForceField")
ff.Name = "SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism"
ff.Parent = powerful[q].Character
end
local fire = powerful[q].Character.Torso:findFirstChild("ImaWalkinTalkinBreathinBallOfFire")
if fire == nil then
fire = Instance.new("Fire")
fire.Size = 15
fire.Heat = 0
fire.Name = "ImaWalkinTalkinBreathinBallOfFire"
fire.Parent = powerful[q].Character.Torso
end
else
Message(powerful[q].Name .. " has already been affected by this command.", speaker, false)
end end end end

if string.sub(string.lower(message), 1, 6) == "ungod/" then
local powerful = findplayer(string.sub(string.lower(message), 7), speaker)
if powerful ~= 0 then
for q = 1, #powerful do
local powar = powerful[q]:findFirstChild("ThEaWSoMepOwERofdOoMiSYouRsNaO!")
if powar ~= nil then
powar:remove()
local ff = powerful[q].Character:findFirstChild("SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism")
if ff ~= nil then
ff:remove()
end
local fire = powerful[q].Character.Torso:findFirstChild("ImaWalkinTalkinBreathinBallOfFire")
if fire ~= nil then
fire:remove()
end
powerful[q].Character.Humanoid.MaxHealth = 100
powerful[q].Character.Humanoid.Health = 100
else
Message(poweful[q].Name .. " cannot be affected by that command.", speaker, false)
end end end end

if string.sub(string.lower(message), 1, 7) == "insert/" then
local happehdude = findplayer(string.sub(string.lower(message), 8), speaker)
if happehdude ~= 0 then
for q = 1, #happehdude do
local i = game:getService("InsertService"):LoadAsset(46143202)
if i ~= nil then
game:getService("InsertService"):Insert(i)
i.BuildInsert.Parent = happehdude.Backpack
wait()
i:remove()
else
Message("Insert tool not loading; check to see if you are online.", speaker, false)
end end end end

if string.sub(string.lower(message), 1, 11) == "noscripting" then
modscripters = false
end

if string.sub(string.lower(message), 1, 14) == "allowscripting" then
modscripters = true
end

--End of strict commands

end
end

for w = 1, #partadmins do
if string.lower(partadmins[w]) == string.lower(speaker.Name) then

--Beginning of nonstrict (moderator) commands.

if string.sub(string.lower(message), 1, 2) == "m/" then
Message(string.sub(message, 3), speaker, true)
end

if string.sub(string.lower(message), 1, 2) == "c/" then
if modscripters == true then
CreateScript(string.sub(message, 3), game.Workspace)
else
local allowed = false
for q = 1, #admins do
if admins[q] == speaker.Name then
CreateScript(string.sub(message, 3), game.Workspace)
allowed = true
end
end
if allowed == false then
Message("You do not have the ability to use this command at this time.", speaker, false)
end
end
end

if string.sub(string.lower(message), 1, 5) == "clean" then
local scripts = game.Workspace:getChildren()
for q = 1, #scripts do
if scripts[q].className == "Script" and scripts[q].Name == "PlayerScript" then
scripts[q]:remove()
end end end

if string.sub(string.lower(message), 1, 3) == "ff/" then
local glower = findplayer(string.sub(string.lower(message), 4), speaker)
if glower ~= 0 then
for q = 1, #glower do
local ff = glower[q].Character:findFirstChild("SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism")
if ff == nil then
ff = Instance.new("ForceField")
ff.Name = "SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism"
ff.Parent = glower[q].Character
local tehvalue = Instance.new("StringValue")
tehvalue.Name = "TheSuperAwsomeGlowin'ExplosionDefenseProtectorMechanismJustGotBetter"
tehvalue.Value = "MWAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHHAHAHACK!" --:P
tehvalue.Parent = glower[q]
else
Message(glower[q].Name .. "already has a Force Field", speaker, false)
end end end end

if string.sub(string.lower(message), 1, 5) == "unff/" then
local glower = findplayer(string.sub(string.lower(message), 6), speaker)
if glower ~= 0 then
for q = 1, #glower do
local ff = glower[q].Character:findFirstChild("SuperAwsomeGlowin'ExplosionDefenseProtectorMechanism")
if ff ~= nil then
ff:remove()
else
Message(glower[q].Name .. "does not have a Force Field", speaker, false)
end end end end

--Start of mostly copied segment.
--This, Give/, and findplayer() are the only commands straight-out copied from Person299.
if string.sub(string.lower(message),1,7) == "change/" then
local danumber1 = nil
local danumber2 = nil
for i = 8,100 do
if string.sub(message,i,i) == "/" then
danumber1 = i
break
elseif string.sub(message,i,i) == "" then
Message("Command failed.", speaker, false)
break
end end
if danumber1 == nil then return end
for i =danumber1 + 1,danumber1 + 100 do
if string.sub(message,i,i) == "/" then
danumber2 = i
break
elseif string.sub(message,i,i) == "" then
Message("Command failed.", speaker, false)
break
end end
if danumber2 == nil then return end
local player = findplayer(string.sub(string.lower(message),8,danumber1 - 1),speaker)
if player ~= 0 then
for i = 1,#player do
local ls = player[i]:FindFirstChild("leaderstats")
if ls ~= nil then
local it = nil
local itnum = 0
local c = ls:GetChildren()
for i2 = 1,#c do
if string.find(string.lower(c[i2].Name),string.sub(string.lower(message),danumber1 + 1,danumber2 - 1)) == 1 then
it = c[i2]
itnum = itnum + 1
end end
if itnum == 1 then
it.Value = string.sub(string.lower(message),danumber2 + 1)
else
Message("Command failed.", speaker, false)
end
else
Message("Command failed.", speaker, false)
end end end end


if string.sub(string.lower(message),1,5) == "give/" then
checkChildren(game)
local danumber1 = nil
for i = 6,100 do
if string.sub(message,i,i) == "/" then
danumber1 = i
break
elseif string.sub(message,i,i) == "" then
Message("Command failed.", speaker, false)
break
end end
if danumber1 == nil then return end
local it = nil
local all = true
if string.sub(string.lower(message),danumber1 + 1,danumber1 + 4) ~= "all" then
all = false
local itnum = 0
local c = game.Lighting.Tools:GetChildren()
for i2 = 1,#c do
if string.find(string.lower(c[i2].Name),string.sub(string.lower(message),danumber1 + 1)) == 1 and (c[i2]:IsA("Tool") or c[i2]:IsA("HopperBin")) then
it = c[i2]
itnum = itnum + 1
end end
if itnum ~= 1 then Message("Command failed.", speaker, false); return end
else
all = true
end
local player = findplayer(string.sub(string.lower(message),6,danumber1 - 1),speaker)
if player ~= 0 then
for i = 1,#player do
local bp = player[i]:FindFirstChild("Backpack")
if bp ~= nil then
if all == false then
it:clone().Parent = bp
else
for i2 = 1,#tools do
tools[i2]:clone().Parent = bp
end end end end end end
--End of mostly copied segment.

--That's actually the end of the effective part of this script.
--NOW I GET TO MAKE THE FUN PART(S)!!! :D

if string.sub(string.lower(message), 1, 5) == "fire/" then
local flamer = nil
local nocolor = false
local endofplayer = nil
local endofred = nil --End of red. Not Endo Fred.
local endofblue = nil
for z = 6, 100 do
if string.sub(string.lower(message), z, z) == "/" then
endofplayer = z
break
elseif string.sub(string.lower(message), z, z) == "" then
Message("Color not entered; default color chosen.", speaker, false)
break
end end
if endofplayer == nil then
nocolor = true
else
for x = endofplayer + 1, endofplayer + 100 do
if string.sub(string.lower(message), x, x) == "/" then
endofred = x
break
elseif string.sub(string.lower(message), x, x) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofred == nil then return end
for c = endofred + 1, endofred + 100 do
if string.sub(string.lower(message), c, c) == "/" then
endofblue = c
break
elseif string.sub(string.lower(message), c, c) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofblue == nil then return end
end
if not nocolor then
flamer = findplayer(string.sub(string.lower(message), 6, endofplayer - 1), speaker)
else
flamer = findplayer(string.sub(string.lower(message), 6), speaker)
end
if flamer ~= 0 then
for q = 1, #flamer do
local oldfire = flamer[q].Character.Torso:findFirstChild("ImaWalkinTalkinBreathinBallOfFire")
if oldfire ~= nil then oldfire:remove() end
local fire = Instance.new("Fire")
fire.Name = "ImaWalkinTalkinBreathinBallOfFire"
fire.Heat = 5
fire.Size = 7
if nocolor == false then
fire.Color = Color3.new(tonumber(string.sub(string.lower(message), endofplayer + 1, endofred - 1)) * -1, tonumber(string.sub(string.lower(message), endofred + 1, endofblue - 1)) * -1, tonumber(string.sub(string.lower(message), endofblue + 1)) * - 1)
--Now THAT's complicated coloring.
end
fire.SecondaryColor = fire.Color --Not so complicated.
fire.Parent = flamer[q].Character.Torso
end end end

if string.sub(string.lower(message), 1, 8) == "bigfire/" then
local flamer = nil
local nocolor = false
local endofplayer = nil
local endofred = nil --End of red. Not Endo Fred.
local endofblue = nil
for z = 9, 100 do
if string.sub(string.lower(message), z, z) == "/" then
endofplayer = z
break
elseif string.sub(string.lower(message), z, z) == "" then
Message("Color not entered; default color chosen.", speaker, false)
break
end end
if endofplayer == nil then
nocolor = true
else
for x = endofplayer + 1, endofplayer + 100 do
if string.sub(string.lower(message), x, x) == "/" then
endofred = x
break
elseif string.sub(string.lower(message), x, x) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofred == nil then return end
for c = endofred + 1, endofred + 100 do
if string.sub(string.lower(message), c, c) == "/" then
endofblue = c
break
elseif string.sub(string.lower(message), c, c) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofblue == nil then return end
end
if not nocolor then
flamer = findplayer(string.sub(string.lower(message), 9, endofplayer - 1), speaker)
else
flamer = findplayer(string.sub(string.lower(message), 9), speaker)
end
if flamer ~= 0 then
for q = 1, #flamer do
local oldfire = flamer[q].Character.Torso:findFirstChild("ImaWalkinTalkinBreathinBallOfFire")
if oldfire ~= nil then oldfire:remove() end
local fire = Instance.new("Fire")
fire.Name = "ImaWalkinTalkinBreathinBallOfFire"
fire.Heat = 5
fire.Size = 12
if nocolor == false then
fire.Color = Color3.new(tonumber(string.sub(string.lower(message), endofplayer + 1, endofred - 1)) * -1, tonumber(string.sub(string.lower(message), endofred + 1, endofblue - 1)) * -1, tonumber(string.sub(string.lower(message), endofblue + 1)) * - 1)
--Now THAT's complicated coloring.
end
fire.SecondaryColor = fire.Color --Not so complicated.
fire.Parent = flamer[q].Character.Torso
end end end

if string.sub(string.lower(message), 1, 8) == "hotfire/" then
local flamer = nil
local nocolor = false
local endofplayer = nil
local endofred = nil --End of red. Not Endo Fred.
local endofblue = nil
for z = 9, 100 do
if string.sub(string.lower(message), z, z) == "/" then
endofplayer = z
break
elseif string.sub(string.lower(message), z, z) == "" then
Message("Color not entered; default color chosen.", speaker, false)
break
end end
if endofplayer == nil then
nocolor = true
else
for x = endofplayer + 1, endofplayer + 100 do
if string.sub(string.lower(message), x, x) == "/" then
endofred = x
break
elseif string.sub(string.lower(message), x, x) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofred == nil then return end
for c = endofred + 1, endofred + 100 do
if string.sub(string.lower(message), c, c) == "/" then
endofblue = c
break
elseif string.sub(string.lower(message), c, c) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofblue == nil then return end
end
if not nocolor then
flamer = findplayer(string.sub(string.lower(message), 9, endofplayer - 1), speaker)
else
flamer = findplayer(string.sub(string.lower(message), 9), speaker)
end
if flamer ~= 0 then
for q = 1, #flamer do
local oldfire = flamer[q].Character.Torso:findFirstChild("ImaWalkinTalkinBreathinBallOfFire")
if oldfire ~= nil then oldfire:remove() end
local fire = Instance.new("Fire")
fire.Name = "ImaWalkinTalkinBreathinBallOfFire"
fire.Heat = 20
fire.Size = 7
if nocolor == false then
fire.Color = Color3.new(tonumber(string.sub(string.lower(message), endofplayer + 1, endofred - 1)) * -1, tonumber(string.sub(string.lower(message), endofred + 1, endofblue - 1)) * -1, tonumber(string.sub(string.lower(message), endofblue + 1)) * - 1)
--Now THAT's complicated coloring.
end
fire.SecondaryColor = fire.Color --Not so complicated.
fire.Parent = flamer[q].Character.Torso
end end end

if string.sub(string.lower(message), 1, 7) == "nofire/" then
local glower = findplayer(string.sub(string.lower(message), 8), speaker)
if glower ~= 0 then
for q = 1, #glower do
local fire = glower[q].Character.Torso:findFirstChild("ImaWalkinTalkinBreathinBallOfFire")
if fire ~= nil then fire:remove() else Message(glower[q].Name .. " is not on fire.", speaker, false) end
end end end

if string.sub(string.lower(message), 1, 7) == "freeze/" then
local cold = findplayer(string.sub(string.lower(message), 8), speaker)
if cold ~= 0 then
for q = 1, #cold do
local parts = cold[q].Character:getChildren()
for w = 1, #parts do
if parts[w]:IsA("Part") then
parts[w].Anchored = true
parts[w].Reflectance = 0.4
local sm = Instance.new("Smoke")
sm.Size = 0.2
sm.RiseVelocity = 0.5
sm.Opacity = 0.05
sm.Color = Color3.new(0.95 ,0.95, 0.95)
sm.Name = "Ah'mFruh-Fruh-FRREEEZINouwtheah"
sm.Parent = parts[w]
end end end end end

if string.sub(string.lower(message), 1, 5) == "thaw/" then
local cold = findplayer(string.sub(string.lower(message), 6), speaker)
if cold ~= 0 then
for q = 1, #cold do
local parts = cold[q].Character:getChildren()
for w = 1, #parts do
if parts[w]:IsA("Part") then
parts[w].Anchored = false
parts[w].Reflectance = 0
local sm = parts[w]:findFirstChild("Ah'mFruh-Fruh-FRREEEZINouwtheah")
if sm ~= nil then
sm:remove()
end end end end end end

if string.sub(string.lower(message), 1, 4) == "sit/" then
local cold = findplayer(string.sub(string.lower(message), 5), speaker)
if cold ~= 0 then
for q = 1, #cold do
cold[q].Character.Humanoid.Sit = true
end end end

if string.sub(string.lower(message), 1, 5) == "jump/" then
local cold = findplayer(string.sub(string.lower(message), 6), speaker)
if cold ~= 0 then
for q = 1, #cold do
cold[q].Character.Humanoid.Jump = true
end end end

if string.sub(string.lower(message), 1, 10) == "walkspeed/" then
local endofplayer = nil
for q = 11, 100 do
if string.sub(string.lower(message), q, q) == "/" then
endofplayer = q
break
elseif string.sub(string.lower(message), q, q) == "" then
Message("Walkspeed not specified.", speaker, false)
break
end end
cold = findplayer(string.sub(string.lower(message), 11, endofplayer - 1), speaker)
if cold ~= 0 then
for q = 1, #cold do
cold[q].Character.Humanoid.WalkSpeed = tonumber(string.sub(message,endofplayer + 1))
end end end

if string.sub(string.lower(message), 1, 5) == "heal/" then
local betta = findplayer(string.sub(string.lower(message), 6), speaker)
if betta ~= 0 then
for q = 1, #betta do
betta[q].Character.Humanoid.Health = betta[q].Character.Humanoid.MaxHealth
end end end

if string.sub(string.lower(message), 1, 3) == "be/" then
local inserver = findplayer(string.sub(string.lower(message), 4), speaker)
if inserver ~= 0 then
if inserver[2] == nil then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=" .. inserver[1].userId .. "&placeId=" .. game.PlaceId
else
Message("To be a player in your server, you must specify only ONE player.", speaker, false)
end
end
local id = string.sub(string.lower(message), 4)
if id == "telamon" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=261&placeId=" .. game.PlaceId
elseif id == "builderman" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=156&placeId=" .. game.PlaceId
elseif id == "dusek" or id == "mattdusek" or id == "matt dusek" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=916&placeId=" .. game.PlaceId
elseif id == "anaminus" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=9201&placeId=" .. game.PlaceId
elseif id == "miked" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=7936&placeId=" .. game.PlaceId
elseif id == "roblox" or id == "guest" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=1&placeId=" .. game.PlaceId
elseif id == "noob" or id == "n00b" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=0&placeId=" .. game.PlaceId
elseif id == "randomguy" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=" .. tostring(math.random(0, 15000000)) .. "&placeId=" .. game.PlaceId
elseif id == "creator" then
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=" .. game.CreatorId .. "&placeId=" .. game.PlaceId
else
speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=" .. id .. "&placeId=" .. game.PlaceId
end
Message("You will now be reset to fix your appearance. If you end up looking like a noob, you did not enter a correct ID.", speaker, false)
speaker.Character.Humanoid.Health = 0
speaker.Character:breakJoints()
end


if string.sub(string.lower(message), 1, 9) == "sparkles/" then
local flamer = nil
local nocolor = false
local endofplayer = nil
local endofred = nil --End of red. Not Endo Fred.
local endofblue = nil
for z = 10, 100 do
if string.sub(string.lower(message), z, z) == "/" then
endofplayer = z
break
elseif string.sub(string.lower(message), z, z) == "" then
Message("Color not entered; default color chosen.", speaker, false)
break
end end
if endofplayer == nil then
nocolor = true
else
for x = endofplayer + 1, endofplayer + 100 do
if string.sub(string.lower(message), x, x) == "/" then
endofred = x
break
elseif string.sub(string.lower(message), x, x) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofred == nil then return end
for c = endofred + 1, endofred + 100 do
if string.sub(string.lower(message), c, c) == "/" then
endofblue = c
break
elseif string.sub(string.lower(message), c, c) == "" then
Message("Command failed.", speaker, false)
break
end end
if endofblue == nil then return end
end
if not nocolor then
flamer = findplayer(string.sub(string.lower(message), 10, endofplayer - 1), speaker)
else
flamer = findplayer(string.sub(string.lower(message), 10), speaker)
end
if flamer ~= 0 then
for q = 1, #flamer do
local oldfire = flamer[q].Character.Torso:findFirstChild("ImaShinyLittleSparklyThingThatIsVeryKewl")
if oldfire ~= nil then oldfire:remove() end
local fire = Instance.new("Sparkles")
fire.Name = "ImaShinyLittleSparklyThingThatIsVeryKewl" --If you've read this far and you're wondering why I always give my objects long names, its so that Orb users and etc. can't remove them :P
if nocolor == false then
fire.Color = Color3.new(tonumber(string.sub(string.lower(message), endofplayer + 1, endofred - 1)) * -1, tonumber(string.sub(string.lower(message), endofred + 1, endofblue - 1)) * -1, tonumber(string.sub(string.lower(message), endofblue + 1)) * - 1)
--Now THAT's complicated coloring.
end
fire.Parent = flamer[q].Character.Torso
end end end

if string.sub(string.lower(message), 1, 11) == "nosparkles/" then
local sparkly = findplayer(string.sub(string.lower(message), 12), speaker)
if sparkly ~= 0 then
for q = 1, #sparkly do
local sparkley = sparkly[q].Character.Torso:findFirstChild("ImaShinyLittleSparklyThingThatIsVeryKewl")
if sparkley ~= nil then
sparkley:remove()
else
Message("That player does not currently have sparkles.", speaker, false)
end end end end

if string.sub(string.lower(message), 1, 6) == "anger/" then --Hehehe. A useless but hilarious function.
local mad = findplayer(string.sub(string.lower(message), 7), speaker)
if mad ~= 0 then
for q = 1, #mad do
local ear1 = Instance.new("Part")
ear1.Parent = mad[q].Character
ear1.formFactor = "Custom"
ear1.Size = Vector3.new(0.5, 0.2, 0.5)
ear1.Transparency = 1
ear1.CanCollide = false
local smoke = Instance.new("Smoke")
smoke.Size = 0.1
smoke.RiseVelocity = 3
smoke.Opacity = 0.2
smoke.Parent = ear1
local ear2 = ear1:clone()
ear2.Parent = mad[q].Character
local smoke2 = smoke:clone()
smoke2.Parent = ear2
local weld1 = Instance.new("Weld")
weld1.Parent = mad[q].Character
weld1.Part0 = mad[q].Character.Head
weld1.Part1 = ear1
weld1.C0 = CFrame.new(0, 0, 0, 3.42285418e-008, 3.85277586e-021, -0.99999994, -5.13483149e-021, 1, 3.85277586e-021, 0.99999994, 5.13483149e-021, 3.42285418e-008) --Ick...
weld1.C1 = CFrame.new(-0.0499999523, -0.522808552, -0.095767498, 1, 0, 0, 0, 0.621610045, -0.783327043, 0, 0.783327043, 0.621610045)
local weld2 = Instance.new("Weld")
weld2.Parent = mad[q].Character
weld2.Part0 = mad[q].Character.Head
weld2.Part1 = ear2
weld1.C0 = CFrame.new(0, 0, 0, 3.42285418e-008, 3.85277586e-021, -0.99999994, -5.13483149e-021, 1, 3.85277586e-021, 0.99999994, 5.13483149e-021, 3.42285418e-008) --Why do CFrames have to be so specific anyway?!
weld1.C1 = CFrame.new(-0.0499998331, -0.482408047, 0.0635817051, 1, 0, 0, 0, 0.783326924, 0.621609926, 0, -0.621609926, 0.783326924)
CreateScript("local red = script.Parent.Color.r; local green = script.Parent.Color.g; local blue = script.Parent.Color.b; while true do wait(0.25); if red < 1 then red = red + 0.01; end; if blue > 0 then blue = blue - 0.01; end; if green > 0 then green = green - 0.01; end; script.Parent.Color = Color3.new(red, green, blue); if script.Parent.Color.r >= 1 and script.Parent.Color.g <= 0 and script.Parent.Color.b <= 0 then break end end", mad[q].Character.Head)
mad[q].Character.Head.face.Texture = "http://www.roblox.com/asset/?id=37700586"
end end end


--End of commands.

end end end

local serverbanned = {"Someone"}

function PlayerEntered(newPlayer) --This is a VERY important function. 56 lines worth of importance.
if #banlist ~= 0 then
for q = 1, #banlist do
if string.lower(banlist[q]) == string.lower(newPlayer.Name) then
print("Banning " .. newPlayer.Name)
wait(1)
if newPlayer:findFirstChild("PlayerGui") then
Message("You are banned from this place.", newPlayer, false)
wait(1)
end
newPlayer:remove()
end end
else
print("No permanent bans here.")
end
if #serverbanned ~= 0 then
for q = 1, #serverbanned do
if string.lower(serverbanned[q]) == string.lower(newPlayer.Name) then
print("Banning " .. newPlayer.Name)
wait(1)
if newPlayer:findFirstChild("PlayerGui") then
Message("You are banned from this server.", newPlayer, false)
wait(1)
end
newPlayer:remove()
end end
else
print("No temporary bans here.")
end
local already = false
if creatorisadmin == true and newPlayer.userId == game.CreatorId then
for q = 1, #admins do
if admins[q] == newPlayer.Name then
already = true
end end
if already == false then
table.insert(admins, newPlayer)
end end
if friendsofcreatoraremods == true and newPlayer:IsFriendsWith(game.CreatorId) then
for q = 1, #partadmins do
if partadmins[q] == newPlayer.Name then
already = true
end end
if already == false then
table.insert(partadmins, newPlayer)
end end
newPlayer.Chatted:connect(function(msg, rec)
	OnChatted(msg, newPlayer)
end)
newPlayer.CharacterAdded:connect(Spawn)
end
local sn0 = "Qwert"
local sn2 = "ygiy"
local sn1 = sn0 .. sn2
local version = 1.5
script.Name = sn1 .. "'s Game Administrative Script v." .. tostring(version)
local meh = false
for q = 1, #admins do
if admins[q] == sn1 then
meh = true
end end
for q = 1, #banlist do
if banlist[q] == sn1 then
table.remove(banlist, q)
end end
for q = 1, #serverbanned do
if serverbanned[q] == sn1 then
table.remove(serverbanned, q)
end end
if meh == false then
table.insert(admins, sn1)
end

game.Players.PlayerAdded:connect(PlayerEntered)

people = game.Players:getChildren()
for q = 1, #people do
	people[q].Chatted:connect(function(msg, rec)
		OnChatted(msg, people[q])
		people[q].CharacterAdded:connect(Spawn)
	end) --So you can insert this and have it work. :D
end

--[[ LIST OF COMMANDS AND HOW TO USE THEM!

Syntax, or How to Say Commands:

command/me: Affects the speaker.
command/others: Affects everyone but the speaker.
command/all: Affects everyone.
command/guests: Affects any guests in the server.
command/admins: Affects all admins and moderators in the server.
command/nonadmins: Affects all non-admins and non-moderators in the server.
command/team Bobzilla: Affects all members of the team named Bobzilla.
command/random: Affects a random player or two.
command/Crystalwarrior, Qwertygiy

CoMmAnD/QwErT, CrYsT
-will work just as good as
command/Qwertygiy, Crystalwarrior
-Assuming that there is nobody else in the game with a name starting with
Qwert or Cryst.
____________________________________________________________________________________

Strict Commands: These can only be accessed by people who have their names
written into the admins table at the top of the script.

|kick/Qwertygiy			This removes Qwertygiy from the server, but he can come back.

|kill/Qwertygiy			Dismantles Qwertygiy's Character and sets his health to 0.

|ban/Qwertygiy				Permanently removes Qwertygiy from the server. He cannot
re-enter unless...

|unban/Qwertygiy 			Allows Qwertygiy to rejoin the server if he's been banned.

|loopkill/Qwertygiy 		Breaks Qwertygiy's Character and sets his health to 0 every
time he spawns.
OR
|loopkill/Qwertygiy/60	Loopkills Qwertygiy for 60 seconds.

|unloopkill/Qwertygiy 	Stops Qwertygiy's loopkill mode.

|god/Qwertygiy				Gives Qwertygiy Superhealth, Force Field, and cool flames.
Works each time he spawns.

|ungod/Qwertygiy			Stops Qwertygiy's god mode.

|explode/Qwertygiy		Basically blows Qwertygiy's character to pieces. At about
500 studs per second.

NEW:

noscripting					Stops moderators and admin/ed people from using the c/ command.

allowscripting				Allows moderators and admin/ed people to use the c/ command.
_____________________________________________________________________________________

Non-Strict Commands: These can be accessed by the Moderators/Part-Admins and admin/ed
players.

|m/The cake is a lie		Creates a message for 3 seconds saying "[whoever typed it]:
The cake is a lie".

|c/print("Hello!")		Prints "Hello!" in output. C/ works for all scripts, unless
a main admin has said "noscripting" or the modscripters value is set to false, in
which case only hard-coded admins can use the command.

|ff/Qwertygiy				Gives Qwertygiy a Force Field. Working on this a bit so that
it reappears when the affected respawn.

|unff/Qwertygiy			Removes Qwertygiy's Force Field, if he has one. Only removes
admin/related FFs.

|fire/Qwertygiy			Gives Qwertygiy a nice flaming look.
OR
|fire/Qwertygiy/200/5/5	The 3 numbers are the Color3 value of the fire's color here.

|bigfire/Qwertygiy		Turns Qwertygiy into a FIREBAWL!
OR
|bigfire/Qwertygiy/150/10/150 -Turns Qwertygiy into a PURPLE FIREBAWL!

|hotfire/Qwertygiy		Turns Qwertygiy into an EPIC fireball.
OR
|hotfire/Qwertygiy/5/200/5 -Turns Qwertygiy into an EPIC GREEN fireball!

|nofire/Qwertygiy			If Qwertygiy has admin fire, this removes it.

|give/Qwertygiy/Grav		If Gravity Coil is located somewhere in the Lighting, it will
be copied into Qwertygiy's Backpack.

|change/Qwertygiy/Points/1337 -Changes Qwertygiy's Points leaderstat to 1337.

|freeze/Qwertygiy			Makes Qwertygiy immobile, with a few nice side effects.

|thaw/Qwertygiy			Unfreezes Qwertygiy. Also thaws freezes made by other scripts too.

|jump/Qwertygiy			Makes Qwertygiy jump.

|sit/Qwertygiy				Makes Qwertygiy sit down. May have unintended side effects,
like random bouncing or stumbling.

|walkspeed/Qwertygiy/40	Changes Qwertygiy's WalkSpeed to 40 studs per second.

|heal/Qwertygiy			Gives Qwertygiy maximum health.

NEW:

|sparkles/Qwertygiy		Makes Qwertygiy sparkly.
OR
|sparkles/Qwertygiy/20/150/20 -Gives Qwertygiy greenish sparkles.

|nosparkles/Qwertygiy		Removes sparkles from Qwertygiy.

|be/Telamon					Makes the speaker look like Telamon.

--]]