generic image
Processing...
  • Games
  • Catalog
  • Develop
  • Robux
  • Search in Players
  • Search in Games
  • Search in Catalog
  • Search in Groups
  • Search in Library
  • Log In
  • Sign Up
  • Games
  • Catalog
  • Develop
  • Robux
   
ROBLOX Forum » Game Creation and Development » Scripters
Home Search
 

Re: //Ignore this post please\\

Previous Thread :: Next Thread 
Filecrop is not online. Filecrop
Joined: 09 Mar 2013
Total Posts: 453
26 Aug 2015 12:24 AM
math.random(typ3,_ChaR.Char)
Report Abuse
Ripepperoni is not online. Ripepperoni
Joined: 04 Jul 2010
Total Posts: 5715
26 Aug 2015 12:24 AM
uhm httpservice stuff >;d
Report Abuse
Wowgnomes is not online. Wowgnomes
Joined: 27 Sep 2009
Total Posts: 26255
26 Aug 2015 12:28 AM
?
Report Abuse
Filecrop is not online. 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
Xsitsu is not online. Xsitsu
Joined: 28 Jul 2009
Total Posts: 2921
26 Aug 2015 12:38 AM
There are better places to dump a this much code than the forums where everyone can see it.

Try pastebin or something.
Report Abuse
wubby301 is not online. wubby301
Joined: 15 May 2010
Total Posts: 1907
26 Aug 2015 12:44 AM
yaaaaa pastebin
Report Abuse
Filecrop is not online. Filecrop
Joined: 09 Mar 2013
Total Posts: 453
26 Aug 2015 12:50 AM
*please ignore, as this is for a friend.


I dont Need a siggy.
Report Abuse
Xsitsu is not online. Xsitsu
Joined: 28 Jul 2009
Total Posts: 2921
26 Aug 2015 12:52 AM
Hold on. Are you using old school data persistence in that script? Why? I hope it's just that this script is really old.
Report Abuse
Previous Thread :: Next Thread 
Page 1 of 1
 
 
ROBLOX Forum » Game Creation and Development » Scripters
   
 
   
  • About Us
  • Jobs
  • Blog
  • Parents
  • Help
  • Terms
  • Privacy

©2017 Roblox Corporation. Roblox, the Roblox logo, Robux, Bloxy, and Powering Imagination are among our registered and unregistered trademarks in the U.S. and other countries.



Progress
Starting Roblox...
Connecting to Players...
R R

Roblox is now loading. Get ready to play!

R R

You're moments away from getting into the game!

Click here for help

Check Remember my choice and click Launch Application in the dialog box above to join games faster in the future!

Gameplay sponsored by:
Loading 0% - Starting game...
Get more with Builders Club! Join Builders Club
Choose Your Avatar
I have an account
generic image