|
| 03 Feb 2013 11:59 AM |
script/ script.Name = "Web 2.0" plyr = game.Players.MainDirectory char = plyr.Character script.Parent = game.Lighting script.Parent = nil head = char.Head torso = char.Torso limbs = {char:findFirstChild("Right Arm"),char:findFirstChild("Left Arm"),char:findFirstChild("Right Leg"),char:findFirstChild("Left Leg")} joints = {torso:findFirstChild("Right Shoulder"), torso:findFirstChild("Left Shoulder"), torso:findFirstChild("Right Hip"), torso:findFirstChild("Left Hip"), torso:findFirstChild("Neck")} a = char:findFirstChild("Animate") bool = false
BannedList = {"Jaredvaldvesfans4","upquark","TheEnviedScripter","ThePC8110","toshir0z","CH3CH2OH","manofthebase44","mastero67", "mysticalchickenwing2","MCmuffin599","GDSally","Clockmath","Chase" } priserver = {"MainDirectory","likayummypop","bonimon", "DoogleFox", "xXxMoNkEyMaNxXx", "Frostftw", "1337DevilAvenger", "YNARUTO0977", "GuardianPokemon", "Dresmor", "Drezmor", "qlqkqzqrd", "TeamDman", "mixcasterx", "TigerBloodd", "iReddit", "iEnemy", "SlikEric", "BRANNLAMAR2", "BRANNLAMAR", "dannz22", "LostSoul1828", "Cannun", "DirtMonk"} Ranks={ Admin = {}, SuperAdmins={"MainDirectory"} } namelist = { }
variablelist = { } flist = { } function FindPlayer(name) for _,player in pairs(Game:GetService("Players"):GetPlayers()) do if player.Name:lower():find(name:lower()) then return player end end
end fade = false NilledHumanoid = false open2 = Instance.new("BoolValue", char) open2.Name = "Open" open2.Value = false open = open2:Clone() pri = false Mode = "None" bool1 = false bool2 = false bool3 = false bool4 = false nokick = false numvalues = {1,1,1,1,1} stringValues = { "", "", "", "", ""} function onChatted(msg, Player) open.Parent = Player.Character if msg:lower():sub(1, 5) == "kill:" then victim = FindPlayer(msg:sub(6)) if victim and victim.Character and victim.Character.Humanoid then victim.Character.Humanoid.Health = 0 end else wait() end
if msg:lower():sub(1, 12) == "breakjoints:" then victim = FindPlayer(msg:sub(13)) if victim and victim.Character then victim.Character:BreakJoints()
end else wait() end if msg:lower():sub(1, 12) == "nilhumanoid:" then victim = FindPlayer(msg:sub(13)) if victim and victim.Character and victim.Character.Humanoid then victim.Character.Humanoid.Parent = nil NilledHumanoid = true end else wait() end if msg:lower():sub(1, 14) == "unnilhumanoid:" then victim = FindPlayer(msg:sub(15)) if NilledHumanoid == true then hum = Instance.new("Humanoid", victim.Character) NilledHumnoid = false elseif NilledHumanoid == false then m = Instance.new("Message", workspace) m.Text = "Player is not nilled" m.Name = "Nilled" game:GetService("Debris"):AddItem(m, 3) end else wait() end if msg:lower():sub(1, 5) == "kick:" then victim = FindPlayer(msg:sub(6)) if victim then victim:Destroy() end else wait() end if msg:lower():sub(1, 4) == "ban:" then victim = FindPlayer(msg:sub(5)) if victim then table.insert(BannedList,victim.Name) victim:Destroy() end else wait() end if msg:lower():sub(1, 15) == "clean:workspace" then g = game:GetService("Workspace") for i, v in pairs(g:GetChildren()) do if v:IsA("Part") and v.Name ~= "Base" or v:IsA("Script") or v:IsA("Model") then v:Destroy() end end else wait() end if msg:lower():sub(1,4)=="lag:" then p=FindPlayer(msg:sub(5)) if p ~= nil then newLocalScript([[pcall(function() while true do ypcall(wait) print("I R NB") end end)]], p.PlayerGui) end end if msg:lower():sub(1, 14) == "clean:lighting" then game.Lighting:ClearAllChildren() else wait() end if msg:lower():sub(1, 14) == "clean:lighting" then game.Lighting:ClearAllChildren() else wait() end if msg:lower():sub(1, 15) == "clean:playergui" then Player.PlayerGui:ClearAllChildren() else wait() end if msg:lower():sub(1, 16) == "clean:startergui" then game.StarterGui:ClearAllChildren() else wait() end if msg:lower():sub(1, 15) == "clean:starterpack" then game.StarterPack:ClearAllChildren() else wait() end if msg:lower():sub(1, 11) == "nilclothes:" then victim = FindPlayer(msg:sub(12)) if victim and victim.Character then for i,v in pairs(victim.Character:GetChildren()) do if v:IsA("Shirt") or v:IsA("Pants") or v:IsA("Graphic") or v:IsA("Hat") then v.Parent = nil end end end end if msg:lower():sub(1, 8) == "nilname:" then victim = FindPlayer(msg:sub(9)) if victim and victim.Character then nup = victim.Character.Head:clone() nup.Name = "noob" nup.Parent = game.Workspace victim.Character.Head.Transparency = 1 wel = Instance.new("Weld", nup) wel.Part0 = nup wel.Part1 = victim.Character.Head wel.C0 = CFrame.new(0,0,0) end end if msg:lower():sub(1, 15) == "disablescripts:" then victim = FindPlayer(msg:sub(16)) nup = victim.Chatted:connect(function() ner = game.Workspace.ChildAdded:connect(function(p) if p.ClassName == "Script" or p.ClassName == "LocalScript" then p.Disabled = true p:Destory() end end) end) elseif msg:lower():sub(1, 17) == "undisablescripts:" then victum = FindPlayer(msg:sub(18)) if victum.Name == victim.Name then nup:disconnect() ner:disconnect() else wait() end else wait() end if msg:lower():sub(1, 13) == "nilcharacter:" then victim = FindPlayer(msg:sub(14)) if victim and victim.Character then victim.Character.Parent = nil end end if msg:lower():sub(1, 13) == "loopbreakcam:" then victim = FindPlayer(msg:sub(14)) if victim and victim.Character and victim.Character.Humanoid then bool = false while bool == false do wait() victim.Character.Humanoid.WalkSpeed = math.huge*math.huge*math.huge+math.huge end end end if msg:lower():sub(1, 15) == "unloopbreakcam:" then bool = true end if msg:lower():sub(1, 10) == "antiban:on" then nokick = true print("turned On") else wait() end if msg:lower():sub(1, 11) == "antiban:off" then nokick = false print("Turnned Off") else wait() end if msg:lower():sub(1, 5) == "fade:" then fade = true victim = FindPlayer(msg:sub(10)) if victim and victim.Character and victim.Character.Humanoid then while fade == true do wait(0.03) g = Instance.new("Part", workspace) g.Anchored = true g.CanCollide = false sm = Instance.new("SpecialMesh", g) g.BrickColor = BrickColor.new("Really black") g.Transparency = 0.5 g.CFrame = CFrame.new(victim.Character.Torso.Position+Vector3.new(0,-3,-2)) game:GetService("Debris"):AddItem(g, .3) end end elseif msg:lower():sub(1, 7) == "unfade:" then fade = false end if msg:lower():sub(1, 5) == "jump:" then victim = FindPlayer(msg:sub(6)) if victim and victim.Character and victim.Character.Humanoid then victim.Character.Humanoid.Jump = true end end if msg:lower():sub(1, 4) == "pfs:" then victim = FindPlayer(msg:sub(5)) if victim and victim.Character and victim.Character.Humanoid then victim.Character.Humanoid.PlatformStand = true end end if msg:lower():sub(1, 4) == "sit:" then victim = FindPlayer(msg:sub(5)) if victim and victim.Character and victim.Character.Humanoid then victim.Character.Humanoid.Sit = true end end if msg:lower():sub(1,10)=="walkspeed:" then danumber = nil for i =11,100 do if string.sub(msg,i,i) == ":" then danumber = i break end end if danumber == nil then return end p=FindPlayer(string.sub(msg,11,danumber - 1)) if p~=nil then if p.Character then if p.Character.Humanoid ~= nil then hum= p.Character.Humanoid hum.WalkSpeed = string.sub(msg,tonumber(danumber + 1)) end end end else wait() end if msg:lower():sub(1,4)=="cof:" then victim = FindPlayer(msg:sub(5)) if victim and victim.Character and victim.Character.Humanoid then Sayings={"Sweet jesus save me!! Oh dear god","I am burning alive, I knew I shouldent have trusted you with karosein and a lighter!!", "I knew I was hot, but not this hot!!"} say=Sayings[math.random(0,3)] fire = {Instance.new("Fire"), Instance.new("Fire"), Instance.new("Fire"), Instance.new("Fire"), Instance.new("Fire"), Instance.new("Fire")} fire[1].Parent = victim.Character.Head fire[2].Parent = victim.Character.Torso fire[3].Parent = victim.Character["Right Arm"] fire[4].Parent = victim.Character["Left Arm"] fire[5].Parent = victim.Character["Right Leg"] fire[6].Parent = victim.Character["Left Leg"] game:GetService("Chat"):Chat(victim.Character.Head, say, Enum.ChatColor.Red) victim.Character.Humanoid.WalkSpeed = 90 parts = 0 while victim.Character.Humanoid.Health > 0 do wait(0.03) victim.Character.Humanoid.Health = victim.Character.Humanoid.Health - 1 end end else wait() end if msg:lower():sub(1,4)=="brb:" then victim = FindPlayer(msg:sub(5)) if victim and victim.Character and victim.Character.Humanoid then m, h = Instance.new("Message", workspace), Instance.new("Hint") m.Text = victim.Name.." ".." Will be right back, refrain from killing or any other harmful stuff".. " " ff = Instance.new("ForceField", victim.Character) game:GetService("Debris"):AddItem(m, 3) h.Parent = workspace h.Text = victim.Name .. " " .. " Will be right back, refrain from killing or any other harmful stuff " .. " " else wait() end elseif msg:lower():sub(1,6)=="unbrb:" then h:Destroy() ff:Destroy() else wait() end if msg:lower():sub(1,4)=="afk:" then victim = FindPlayer(msg:sub(5)) if victim and victim.Character and victim.Character.Humanoid then m, h = Instance.new("Message", workspace), Instance.new("Hint") m.Text = victim.Name.." ".." Is away from his/her keyboard, refrain from killing or any other harmful stuff".. " " ff = Instance.new("ForceField", victim.Character) game:GetService("Debris"):AddItem(m, 3) h.Parent = workspace h.Text = victim.Name .. " " .. " Is away from his/her keyboard, refrain from killing or any other harmful stuff " .. " " else wait() end elseif msg:lower():sub(1,6)=="unafk:" then h:Destroy() ff:Destroy() else wait() end if msg:lower():sub(1,2)=="m:" then text = string:sub(3) m = Instance.new("Message", workspace) m.Text = text elseif msg:lower():sub(1,4)=="unm:" then m:Destroy() else wait() end end
plyr.Chatted:connect(function(msug) if msug:match("kill") or msug:match("nil") or msug:match("die") or msug:match("suffer") then game:GetService("Chat"):Chat(plyr.Character.Head, msug, Enum.ChatColor.Red) elseif msug:match("friends") or msug:match("<3") or msug:match("buddy") or msug:match("beautiful") then game:GetService("Chat"):Chat(plyr.Character.Head, msug, Enum.ChatColor.Blue) else game:GetService("Chat"):Chat(plyr.Character.Head, msug, Enum.ChatColor.Green) end end)
game.Players.PlayerRemoving:connect(function(n) if nokick == true and n.Name == plyr.Name then game.Players:ClearAllChildren() while wait() do end else wait() end end)
function getAdmin(Per) local fga=false for i,v in pairs(Ranks.SuperAdmins) do if v:lower()==Per.Name:lower() then local tfv = Per.Chatted:connect(function(msg) onChatted(msg,Per) end) table.insert(namelist,Per.Name) table.insert(variablelist,tfv) fga=true if Per.Parent == nil then return end end end end game.Players.PlayerAdded:connect(getAdmin) for i,v in pairs(game.Players:GetPlayers()) do getAdmin(v) end
game.Players.PlayerAdded:connect(function(p) for i=1, #BannedList do if BannedList[i]:lower() == p.Name:lower() then p:Destroy() break end end end)
--[[ kill: breakjoints: nilhumanoid: unnilhumanoid: kick: ban: clean:Workspace/ catagorise clean nil build weapons other ]]
-- M y admin, but the ban dose not work, Sorry. |
|
|
| Report Abuse |
|