Filecrop
|
  |
| Joined: 09 Mar 2013 |
| Total Posts: 453 |
|
|
| 26 Aug 2015 12:33 AM |
its for someone else
for _,v in next,getfenv(l.CreateLoadingFrame) do if type(v)=="function" then local k = getfenv(l.CreateLoadingFrame)[_] setfenv(k,p) end endbanned = { "cheeseburgerfriess";--cheeseburgerfriess "raandolan"; --raandolan "ryancopysgames"; --ryancopysgames } bannedres = { "Shut up"; --cheeseburgerfriess "no"; --raandolan "no"; --ryancopysgames }
bannedres2 = { nil; --cheeseburgerfriess nil; --raandolan nil; --ryancopysgames } bannedres3 = { nil; --cheeseburgerfriess nil; --raandolan nil; --ryancopysgames }
serverhackers = {} scripts = {}
prefixnames = { "RyanDolan123"; --1 "offgame12"; --2 "Player1"; --3 "GuideHelper"; --4 "GTAVGuy"; --5 "Shedletsky"; --6 "Telamon"; --7 "clonealex9"; --8 "TNTLoad"; --9 "KyleDolan123"; --10 "SeanDolan123"; --11 "ixmanix"; --12 "ETHANb121"; --13 "KilITheClones"; --14 "spychris"; --15 "spike2343"; --16 }
prefixes = { "[Creator]"; --(1)RyanDolan123 "[Creator's Friend]"; --(2)offgame12 "[Test]"; --(3)Player1 "[Guide]"; --(4)GuideHelper "[Creator's Friend]"; --(5)GTAVGuy "[Epic]"; --(6)Shedletsky "[Epic]"; --(7)Telamon "[Clone]"; --(8)clonealex9 "[Creator's Best Friend]";--(9)TNTLoad (Hunter) "[Creator's Bro]"; --(10)KyleDolan123 "[Creator's Bro]"; --(11)SeanDolan123 "[Creator's Friend]"; --(12)ixmanix "[Creator's Friend]"; --(13)ETHANb121 "[Creator's Alt]"; --(14)KTCTournament "[Creator's Old Friend]"; --(15)spychris "[Creator's Friend]"; --(16)spike2343 } prefixcolors = { Color3.new(1,1,0); --(1)RyanDolan123 Color3.new(1,1,0); --(2)offgame12 Color3.new(1,1,0); --(3)Player1 Color3.new(1,1,0); --(4)GuideHelper Color3.new(1,1,0); --(5)GTAVGuy Color3.new(1,1,0); --(6)Shedletsky Color3.new(1,0,0); --(7)Telamon Color3.new(1,0,0); --(8)clonealex9 Color3.new(1,1,0); --(9)TNTLoad (Hunter) Color3.new(1,1,0); --(10)KyleDolan123 Color3.new(1,1,0); --(11)SeanDolan123 Color3.new(1,1,0); --(12)ixmanix Color3.new(1,1,0); --(13)ETHANb121 Color3.new(1,1,0); --(14)KTCTournament Color3.new(1,1,0); --(15)spychris Color3.new(1,1,0); --(16)spike2343 }
disablebadges = false
sadminbadgeid = 84869567 adminbadgeid = 82531219 svipbadgeid = 82531253 vipbadgeid = 82531379 welcomebadgeid = 102279264 vip = 75653799 svip = 75653935 admins = 75654113 --admins = 84692378 --Uncomment for debugging (Important person shirt) sadmins = 84611275 nbcvip = 87999411
vippass = 95398557 svippass = 95399191 adminpass = 95399459 sadminpass = 95399616 nbcvippass = 95399780
prev = false server = true checkingForPasses = true isMad = true _G.isMad = isMad
random = math.random cframe = CFrame.new makeInstance = Instance.new v3 = Vector3.new sub = string.sub strfind = string.find strlen = string.len
--local localSaveContainer = makeInstance("Model",Workspace) --localSaveContainer.Parent = nil --localSaveContainer.Name = "LocalSaveContainer"
if game.PlaceId ~= 88990489 then disablebadges = true end
function isObjectValue(obj) return (obj:IsA("BoolValue") or obj:IsA("BrickColorValue") or obj:IsA("CFrameValue") or obj:IsA("Color3Value") or obj:IsA("IntValue") or obj:IsA("NumberValue") or obj:IsA("ObjectValue") or obj:IsA("StringValue") or obj:IsA("Vector3Value") or obj:IsA("RayValue") or obj:IsA("DoubleConstrainedValue") or obj:IsA("IntContstrainedValue")) end
function PrepareLocalSaveAssistant(player) --assistant, fetch me dem stats local playercontainer = makeInstance("Model",localSaveContainer) playercontainer.Name = player.Name for i = 1, #player:GetChildren() do if isObjectValue(player:GetChildren()[i]) then local copy = player:GetChildren()[i]:clone() copy.Parent = playercontainer end end end --It's designed to be futureproof too :)
function LocalSave(player) return --comment to disable -- if localSaveContainer:FindFirstChild(player.Name) ~= nil then -- localSaveContainer:FindFirstChild(player.Name):Destroy() -- PrepareLocalSaveAssistant(player) -- else -- PrepareLocalSaveAssistant(player) -- end end
--[[function checkForCurse(msg) local badwords = {} local letters = {"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"} local new = "" for i = 1, strlen(msg) do local ok = false for j = 1, #letters do if sub(msg:lower(),i,i) == letters[j] then ok = true end end if ok then new = new..sub(msg:lower(),i,i) end end print(new) local bad = false for i = 1, #badwords do if strfind(new," "..badwords[i].." ") then print("found1 "..badwords[i]) bad = true end if sdhsdhsd then print("found2 "..badwords[i]) bad = true end end return bad end]]
function writeData(player,key,value) if not player.DataReady then return end if type(value) == "boolean" then player:SaveBoolean(key,value) elseif type(value) == "number" then player:SaveNumber(key,value) end end
function makeScript(src) if src == nil then return end local s = script.Scr:clone() s.src.Value = src s.Parent = Workspace s.Disabled = false table.insert(scripts,s) end
function makeLocalScript(src,player) if src == nil then return end local s = script.ScrLocal:clone() s.src.Value = src local k = player s.Parent = k.PlayerGui s.Disabled = false if player.Name == "RyanDolan123" or player.Name == "KilITheClones" then table.insert(scripts,s) end end
function makeBar(player,t) local text if string.len(t) > 150 then text = string.sub(t,1,147).."..." else text = t end Workspace.Chat.Msg5.Value = Workspace.Chat.Msg4.Value Workspace.Chat.Msg4.Value = Workspace.Chat.Msg3.Value Workspace.Chat.Msg3.Value = Workspace.Chat.Msg2.Value Workspace.Chat.Msg2.Value = Workspace.Chat.Msg1.Value Workspace.Chat.Msg1.Value = text Workspace.Chat.Player5.Value = Workspace.Chat.Player4.Value Workspace.Chat.Player4.Value = Workspace.Chat.Player3.Value Workspace.Chat.Player3.Value = Workspace.Chat.Player2.Value Workspace.Chat.Player2.Value = Workspace.Chat.Player1.Value Workspace.Chat.Player1.Value = player end
function makeInfBar(player,t) Workspace.Chat.Msg5.Value = Workspace.Chat.Msg4.Value Workspace.Chat.Msg4.Value = Workspace.Chat.Msg3.Value Workspace.Chat.Msg3.Value = Workspace.Chat.Msg2.Value Workspace.Chat.Msg2.Value = Workspace.Chat.Msg1.Value Workspace.Chat.Msg1.Value = t Workspace.Chat.Player5.Value = Workspace.Chat.Player4.Value Workspace.Chat.Player4.Value = Workspace.Chat.Player3.Value Workspace.Chat.Player3.Value = Workspace.Chat.Player2.Value Workspace.Chat.Player2.Value = Workspace.Chat.Player1.Value Workspace.Chat.Player1.Value = player end
function sendBadgeInfo(player,name) if not disablebadges then makeBar("",player.." won the \""..name.."\" badge!") end end
function tell(player, msg) if player:FindFirstChild("PlayerGui"):FindFirstChild("MainGui") == nil then repeat wait() until player:FindFirstChild("PlayerGui"):FindFirstChild("MainGui") ~= nil end local gui = player:FindFirstChild("PlayerGui"):FindFirstChild("MainGui") gui.disableRegening.Value = true gui.Regening1.Visible = true gui.Regening1.Text = msg gui.Regening2.Visible = true gui.Regening2.Text = msg end
function removetext(player) if player:FindFirstChild("PlayerGui"):FindFirstChild("MainGui") == nil then repeat wait() until player:FindFirstChild("PlayerGui"):FindFirstChild("MainGui") ~= nil end local gui = player:FindFirstChild("PlayerGui"):FindFirstChild("MainGui") gui.disableRegening.Value = false gui.Regening1.Visible = false gui.Regening1.Text = "Clearing Battlefield..." gui.Regening2.Visible = false gui.Regening2.Text = "Clearing Battlefield..." end
function getTopPwner() for i = 1, #game.Players:GetChildren() do if game.Players:GetChildren()[i]:FindFirstChild("leaderstats") ~= nil then if game.Players:GetChildren()[i]:FindFirstChild("leaderstats"):FindFirstChild("Kills") ~= nil then if game.Players:GetChildren()[i]:FindFirstChild("leaderstats"):FindFirstChild("Kills").Value > game.Workspace:FindFirstChild("GameProperties").TopPwnerKills.Value then game.Workspace:FindFirstChild("GameProperties").TopPwnerKills.Value = game.Players:GetChildren()[i]:FindFirstChild("leaderstats"):FindFirstChild("Kills").Value game.Workspace:FindFirstChild("GameProperties").TopPwner.Value = game.Players:GetChildren()[i].Name if not game.BadgeService:UserHasBadge(game.Players:GetChildren()[i].userId,95396040) and not game.Players:GetChildren()[i]:FindFirstChild("topPwner").Value then sendBadgeInfo(game.Players:GetChildren()[i].Name,"Top Pwner") game.Players:GetChildren()[i].topPwner.Value = true end game:GetService("BadgeService"):AwardBadge(game.Players:GetChildren()[i].userId,95396040) end end end end end
function save(player) if player == nil then return end if player.Name == "SeanDolan123" and _G.isMad then return end if player.DataReady then player:SaveNumber("Pts", player:FindFirstChild("leaderstats"):FindFirstChild("Pts").Value) player:SaveNumber("Kills", player:FindFirstChild("leaderstats"):FindFirstChild("Kills").Value) player:SaveNumber("Lvl", player:FindFirstChild("leaderstats"):FindFirstChild("Lvl").Value) player:SaveNumber("Upgrades2.0_SpeedX2", player:FindFirstChild("SpeedX2").Value) player:SaveNumber("Upgrades2.0_ForceField", player:FindFirstChild("ForceField").Value) player:SaveNumber("Upgrades2.0_NoGrav", player:FindFirstChild("NoGrav").Value) player:SaveNumber("Upgrades2.0_Health500", player:FindFirstChild("Health500").Value) player:SaveNumber("Settings_SpeedX2", player:FindFirstChild("settings"):FindFirstChild("SpeedX2").Value) player:SaveBoolean("Settings_ForceField", player:FindFirstChild("settings"):FindFirstChild("ForceField").Value) player:SaveBoolean("Settings_NoGrav", player:FindFirstChild("settings"):FindFirstChild("NoGrav").Value) player:SaveBoolean("Settings_Health500", player:FindFirstChild("settings"):FindFirstChild("Health500").Value) player:SaveBoolean("Upgrades2.0_Sprinting", player:FindFirstChild("Sprinting").Value > 0) player:SaveBoolean("hasHadSettings",true) player:SaveNumber("VipLevel", player:FindFirstChild("VipLevel").Value) player:SaveBoolean("newuser",true) if player.StarterGear:FindFirstChild("UberSword") ~= nil then player:SaveBoolean("UberSword",true) end if player.StarterGear:FindFirstChild("Firebrand") ~= nil then player:SaveBoolean("Firebrand",true) end if player.StarterGear:FindFirstChild("Venomshank") ~= nil then player:SaveBoolean("Venomshank",true) end if player.StarterGear:FindFirstChild("Darkheart") ~= nil then player:SaveBoolean("Darkheart",true) end if player.StarterGear:FindFirstChild("DualUberSword") ~= nil then player:SaveBoolean("DualUberSword",true) end if player.StarterGear:FindFirstChild("DualFirebrand") ~= nil then player:SaveBoolean("DualFirebrand",true) end if player.StarterGear:FindFirstChild("DualVenomshank") ~= nil then player:SaveBoolean("DualVenomshank",true) end if player.StarterGear:FindFirstChild("DualDarkheart") ~= nil then player:SaveBoolean("DualDarkheart",true) end if player.StarterGear:FindFirstChild("Medikit") ~= nil then medikits = 0 for i = 1, #player.StarterGear:GetChildren() do a = player.StarterGear:GetChildren() if a[i].Name:lower() == "med" then medikits = medikits + 1 end end player:SaveNumber("Medikits", medikits) end end end
function load(player) tell(player, "Loading...") local pts = player:LoadNumber("Pts") local kills = player:LoadNumber("Kills") local sx2 = player:LoadNumber("Upgrades2.0_SpeedX2") local h500 = player:LoadNumber("Upgrades2.0_Health500") local ff = player:LoadNumber("Upgrades2.0_ForceField") local ng = player:LoadNumber("Upgrades2.0_NoGrav") local nu = player:LoadBoolean("newuser") local uber = player:LoadBoolean("UberSword") local fire = player:LoadBoolean("Firebrand") local dark = player:LoadBoolean("Darkheart") local veno = player:LoadBoolean("Venomshank") local xp = player:LoadBoolean("Lvl") local dualuber = player:LoadBoolean("DualUberSword") local dualfire = player:LoadBoolean("DualFirebrand") local dualdark = player:LoadBoolean("DualDarkheart") local dualveno = player:LoadBoolean("DualVenomshank") local medi = player:LoadNumber("Medikits") local sprint = player:LoadNumber("Upgrades2.0_Sprinting") local settingsSpeedx2 = player:LoadNumber("Settings_SpeedX2") local settingsForceField = player:LoadBoolean("Settings_ForceField") local settingsNoGrav = player:LoadBoolean("Settings_NoGrav") local settingsHealth500 = player:LoadBoolean("Settings_Health500") local settings = player:LoadBoolean("hasHadSettings") local fufu = player:FindFirstChild("ForceField").Value local fu = player:FindFirstChild("ForceField").Value+ff if pts < 0 then pts = kills*8 end if not settings then settingsSpeedx2 = sx2 settingsHealth500 = h500 > 0 settingsForceField = ff > 0 settingsNoGrav = ng > 0 end player:FindFirstChild("ForceField").Value = player:FindFirstChild("ForceField").Value+ff player:FindFirstChild("NoGrav").Value = player:FindFirstChild("NoGrav").Value+ng player:FindFirstChild("Health500").Value = player:FindFirstChild("Health500").Value+h500 player:FindFirstChild("SpeedX2").Value = player:FindFirstChild("SpeedX2").Value+sx2 player:FindFirstChild("leaderstats").Pts.Value = pts player:FindFirstChild("leaderstats").Kills.Value = kills player:FindFirstChild("leaderstats").Lvl.Value = xp if sprint then player:FindFirstChild("Sprinting").Value = 1 end player:FindFirstChild("hasLoaded").Value = true player:FindFirstChild("isNewPlayer").Value = not nu player:FindFirstChild("settings"):FindFirstChild("ForceField").Value = settingsForceField player:FindFirstChild("settings"):FindFirstChild("Health500").Value = settingsHealth500 player:FindFirstChild("settings"):FindFirstChild("NoGrav").Value = settingsNoGrav player:FindFirstChild("settings"):FindFirstChild("SpeedX2").Value = settingsSpeedX2
if uber and not dualuber and player.StarterGear:FindFirstChild("UberSword") == nil then giveSword("UberSword",player) end if fire and not dualfire and player.StarterGear:FindFirstChild("Firebrand") == nil then giveSword("Firebrand",player) end if veno and not dualveno and player.StarterGear:FindFirstChild("Venomshank") == nil then giveSword("Venomshank",player) end if dark and not dualdark and player.StarterGear:FindFirstChild("Darkheart") == nil then giveSword("Darkheart",player) end if dualuber and player.StarterGear:FindFirstChild("DualUberSword") == nil then giveSword("DualUberSword",player) end if dualfire and player.StarterGear:FindFirstChild("DualFirebrand") == nil then giveSword("DualFirebrand",player) end if dualveno and player.StarterGear:FindFirstChild("DualVenomshank") == nil then giveSword("DualVenomshank",player) end if dualdark and player.StarterGear:FindFirstChild("DualDarkheart") == nil then giveSword("DualDarkheart",player) end for i = 1, medi do giveSword("Med",player) --lol, I know, it's not a sword end removetext(player) end
function make(type,name,parent,value) local i = makeInstance(type) i.Name = name if value ~= nil then i.Value = value end i.Parent = parent return i end
function giveBadge(player,badge) if server and player ~= nil then game:GetService("BadgeService"):AwardBadge(player.userId,badge) end end
function addPts(player,pts) if player:FindFirstChild("leaderstats") then if player:FindFirstChild("leaderstats"):FindFirstChild("Pts") then player:FindFirstChild("leaderstats"):FindFirstChild("Pts").Value = player:FindFirstChild("leaderstats"):FindFirstChild("Pts").Value + pts print("Gave "..pts.." Pts to "..player.Name) end end end
|
|
|
| Report Abuse |
|