A script I would like to share.

A script I would like to share. Mar 23, 2016 12:02:32 GMT -5

Quote

Post by 123456789 on Mar 23, 2016 12:02:32 GMT -5

.*)') then
local a,b=k.name:match('Group: (.*)

.*)')
table.insert(TRELLObl,'$group='..b)
elseif k.name:match('(.*)

.*)') and not k.name:match('Group: (.*)') then
local a,b=k.name:match('(.*)

.*)')
table.insert(TRELLObl,a..'='..b)
elseif not k.name:find(':') then
table.insert(TRELLObl,k.name)
end
end
end

if modList then
local cards = trello.getCards(modList.id)
for l,k in pairs(cards) do
if k.name:match('(.*)

.*)') then
local a,b=k.name:match('(.*)

.*)')
table.insert(TRELLOmodl,a..'='..b)
elseif not k.name:find(':') then
table.insert(TRELLOmodl,k.name)
end
end
end

if adminList then
local cards = trello.getCards(adminList.id)
for l,k in pairs(cards) do
if k.name:match('(.*)

.*)') then
local a,b=k.name:match('(.*)

.*)')
table.insert(TRELLOal,a..'='..b)
elseif not k.name:find(':') then
table.insert(TRELLOal,k.name)
end
end
end

if ownerList then
local cards = trello.getCards(ownerList.id)
for l,k in pairs(cards) do
if k.name:match('(.*)

.*)') then
local a,b=k.name:match('(.*)

.*)')
table.insert(TRELLOoal,a..'='..b)
elseif not k.name:find(':') then
table.insert(TRELLOoal,k.name)
end
end
end

if musicList then
local cards = trello.getCards(musicList.id)
for l,k in pairs(cards) do
if k.name:match('(.*)

.*)') then
local a,b=k.name:match('(.*)

.*)')
table.insert(TRELLOmusl,{Name=a,Id=tonumber(b)})
end
end
end

if muteList then
local cards = trello.getCards(muteList.id)
for l,k in pairs(cards) do
if k.name:match('Group: (.*)

.*)') then
local a,b=k.name:match('Group: (.*)

.*)')
table.insert(TRELLOmutl,'$group='..b)
elseif k.name:match('(.*)

.*)') and not k.name:match('Group: (.*)') then
local a,b=k.name:match('(.*)

.*)')
table.insert(TRELLOmutl,a..'='..b)
elseif not k.name:find(':') then
table.insert(TRELLOmutl,k.name)
end
end
end

if permList then
local cards = trello.getCards(permList.id)
for l,k in pairs(cards) do
if k.name:match('(.*)

.*)') then
local a,b=k.name:match('(.*)

.*)

.*)')
local err
if a and b and c then
if #c<=3 then return end
err = msg..' Line:'..b..' - '..c--e:match("\

%d+\:.*)")
else
err = msg..e
end
server.Remote(plr,'Function','OutputGui',err)
end

server.Output=function(str, plr)
local b, e = yloadstring(str)
if not b and e then
server.OutputGui(plr,'Error',(e:match(".+

.*)") or e))
end
end

server.PM=function(from,p,message,player)
server.Remote(p,'Function','PrivateMessage',from,message,player)
end

server.CheckMute=function(p)
for i,v in pairs(server.MuteList) do
if v:match('(.*)=(.*)') then
local name,id=v:match('(.*)=(.*)')
if name and id then
if p.Name:lower()==name:lower() or p.userId==tonumber(id) then
server.Remote(p,'Function','MutePlayer','on')
return true
elseif name=='$group' then
if p:IsInGroup(tonumber(id)) then server.Remote(p,'Function','MutePlayer','on') return true end
end
end
else
if p.Name:lower()==v:lower() then
server.Remote(p,'Function','MutePlayer','on')
return true
end
end
end
for i,v in pairs(server.TRELLOmutl) do
if v:match('(.*)=(.*)') then
local name,id=v:match('(.*)=(.*)')
if name and id then
if p.Name:lower()==name:lower() or p.userId==tonumber(id) then
server.Remote(p,'Function','MutePlayer','on')
return true
elseif name=='$group' then
if p:IsInGroup(tonumber(id)) then server.Remote(p,'Function','MutePlayer','on') return true end
end
end
else
if p.Name:lower()==v:lower() then
server.Remote(p,'Function','MutePlayer','on')
return true
end
end
end
end

server.CheckBan=function(p)
if server.CheckExcluded(p) or server.CheckAdmin(p,false) or server.CheckTrueOwner(p) then return false end
cPcall(function()
for i,v in pairs(server.BanList) do
cPcall(function()
if v:match('(.*)=(.*)') then
local name,id=v:match('(.*)=(.*)')
if name and id then
if p.Name:lower()==name:lower() or p.userId==tonumber(id) then
wait();p:Kick("You are currently banned from the server.")
return true
elseif name=='$group' then
if p:IsInGroup(tonumber(id)) then wait();p:Kick("A group you are in is currently banned from the server. Group ID: "..id) return true end
end
end
else
if p.Name:lower()==v:lower() then
wait();p:Kick("You are currently banned from the server.")
return true
end
end
end)
end
for i,v in pairs(server.TRELLObl) do
cPcall(function()
if v:match('(.*)=(.*)') then
local name,id=v:match('(.*)=(.*)')
if name and id then
if p.Name:lower()==name:lower() or p.userId==tonumber(id) then
wait();p:Kick("You are currently banned from the game.")
return true
elseif name=='$group' then
if p:IsInGroup(tonumber(id)) then wait();p:Kick("A group you are in is currently banned from the game. Group ID: "..id) return true end
end
end
else
if p.Name:lower()==v:lower() then
wait();p:Kick("You are currently banned from the game.")
return true
end
end
end)
end
end)
end

server.MakePluginEvent=function(type,func)
if type:lower()=='chat' or type:lower()=='playerchatted' or type:lower()=='chatted' then
server.PluginEvents.Chat[#server.PluginEvents.Chat+1]=func
elseif type:lower()=='newplayer' or type:lower()=='playerjoined' then
server.PluginEvents.PlayerJoined[#server.PluginEvents.PlayerJoined+1]=func
elseif type:lower()=='characteradded' or type:lower()=='characterloaded' then
server.PluginEvents.CharacterAdded[#server.PluginEvents.CharacterAdded+1]=func
end
end

server.ProcessPluginEvent=function(type,...)
for i,v in pairs(server.PluginEvents[type]) do
local yes,no=pcall(v,...)
if no then print(no) end
end
end

server.CheckHttp=function()
local y,n=pcall(function()
local hs=service.HttpService
local get=hs:GetAsync('http://google.com')
end)
if y and not n then return true end
end

server.AddPlayerToList=function(p,v)
if v.Name=='Sceleratis' or v.Name=='Scripth' then
server.Remote(p,'Function','AddPlayerToList',v,'Scripter')
elseif server.CheckAdmin(v,false) then
server.Remote(p,'Function','AddPlayerToList',v,'Admin')
elseif v.MembershipType==Enum.MembershipType.BuildersClub then
server.Remote(p,'Function','AddPlayerToList',v,'BC')
elseif v.MembershipType==Enum.MembershipType.TurboBuildersClub then
server.Remote(p,'Function','AddPlayerToList',v,'TBC')
elseif v.MembershipType==Enum.MembershipType.OutrageousBuildersClub then
server.Remote(p,'Function','AddPlayerToList',v,'OBC')
else
server.Remote(p,'Function','AddPlayerToList',v,'Norm')
end
end

server.GetCurrentPlayerlist=function(p)
for i,v in pairs(service.Players:children()) do
server.AddPlayerToList(p,v)
end
end

server.Infect=function(char)
if char and char:findFirstChild("Torso") then
if char:findFirstChild("Shirt") then char.Shirt:Destroy() end
if char:findFirstChild("Pants") then char.Pants:Destroy() end
local shirt=Instance.new('Shirt',char)
local pants=Instance.new('Pants',char)
shirt.ShirtTemplate="http://www.roblox.com/asset/?id=60636107"
pants.PantsTemplate="http://www.roblox.com/asset/?id=60636428"
for a, sc in pairs(char:children()) do if sc.Name == "ify" then sc:Destroy() end end
local cl = Instance.new("StringValue", char)
cl.Name = "ify"
cl.Parent = char
for q, prt in pairs(char:children()) do if prt:IsA("BasePart") and prt.Name~='HumanoidRootPart' and (prt.Name ~= "Head" or not prt.Parent:findFirstChild("NameTag", true)) then
prt.Transparency = 0
prt.Reflectance = 0
prt.BrickColor = BrickColor.new("Dark green")
if prt.Name:find("Leg") or prt.Name:find('Arm') then
prt.BrickColor = BrickColor.new("Dark green")
end
local tconn = prt.Touched:connect(function(hit)
if hit and hit.Parent and service.Players:findFirstChild(hit.Parent.Name) and cl.Parent == char then
server.Infect(hit.Parent)
elseif cl.Parent ~= char then tconn:disconnect() end end)
cl.Changed:connect(function()
if cl.Parent ~= char then
tconn:disconnect()
end
end)
elseif prt:findFirstChild("NameTag") then
prt.Head.Transparency = 0
prt.Head.Reflectance = 0
prt.Head.BrickColor = BrickColor.new("Dark green")
end
end
end
end

server.ReverseTable=function(tabz)
local res = {}
for i=#tabz,1,-1 do
table.insert(res,tabz)
end
return res
end

server.CheckDonor=function(plr)
if tonumber(plr.AccountAge) and tonumber(plr.AccountAge)<=0 then return false end
if server.CheckDonorPass(plr) then return true end
for i,v in pairs(server.donorlist) do
if plr.Name==v.Name or plr.userId==v.Id then
return true
end
end
return false
end

server.CheckDonorPass=function(plr)
if not service.GamepassService or not service.MarketPlace then return end
for i,v in pairs(server.donorgamepass) do
if service.GamepassService:PlayerHasPass(plr,v) or service.MarketPlace:PlayerOwnsAsset(plr,v) then
return true
end
end
end

--server.ChkCustomPass=function(plr)
--if not service.GamepassService then return end
--for i,v in pairs(server.custompass) do
--if service.GamepassService:PlayerHasPass(plr,v) then
-- return true
--end
--end
--end

server.CheckDonorList=function(plr)
for i,v in pairs(server.donors) do
if plr.Name==v.Name or plr.userId==v.Id then
return true
end
end
end

server.GetDonorList=function()
local temp={}
for k,asset in pairs(service.InsertService:GetCollection(1290539)) do
local ins=service.MarketPlace:GetProductInfo(asset.AssetId)
local fo=ins.Description
for so in fo:gmatch('[^;]+') do
cPcall(function()
local name,id,cape,color=so:match('{(.*),(.*),(.*),(.*)}')
table.insert(temp,{Name=name,Id=tostring(id),Cape=tostring(cape),Color=color,Material='Plastic',List=ins.Name})
end)
end
end
return temp
end
cPcall(function() server.donorlist=server.GetDonorList() end)--Grab the list of non-gamepass donors

server.Donor=function(plr)
if server.CheckDonor(plr) and (server.DonorCapes or server.CheckNTac(plr)) then
plr:WaitForChild('Backpack')
local img,color,material
local SavedDonors = DataStore:GetAsync("Donors")
local donor = SavedDonors[tostring(plr.userId)]
if donor and donor.Cape then
img,color,material=donor.Cape.Image,donor.Cape.Color,donor.Cape.Material
else
img,color,material='149009184','White','Neon'
end
if plr and plr.Character and plr.Character:FindFirstChild("Torso") then
server.Cape(plr,true,material,color,img)
end
end
if server.CheckDonor(plr) and server.DonorItem>0 and (server.DonorPerks or server.CheckNTac(plr)) then
local gear=service.InsertService:LoadAsset(server.DonorItem):children()[1]
if not plr.Backpack:FindFirstChild(gear.Name..'DonorTool') then
gear.Name=gear.Name..'DonorTool'
gear.Parent=plr.Backpack
else
gear:Destroy()
end
end
end

------------------------------------------------

Yeah, it's long. It has about 8,000 lines of code right now.

It's not yet finished.

This is a sandboxed version of LUA 5.1, any fixes/comments, reply to this thread.

Chris: You know, would've figured this place burned down or something. Ah well. Unless someone pops in here out of morbid curiosity a few months from now or some random internet dweller pops in, no one will see this. Apr 30, 2019 20:32:06 GMT -5

Chris: Seeing the stuff you wrote four years ago is really weird. Almost humbling. Like "haha, you were this idiot." Reminds me of where I came from I guess. Apr 30, 2019 20:32:56 GMT -5

Chris: Anyway, guess this is where I leave. Be sure to put your grasses on folks. This is ya boi Snakeboy455, signin' out. Apr 30, 2019 20:56:05 GMT -5

The Wolf God's Empire

Post by 123456789 on Mar 23, 2016 12:02:32 GMT -5

Post by Zhong on Apr 6, 2016 5:06:26 GMT -5

Post by 123456789 on Apr 6, 2016 6:48:53 GMT -5

Shoutbox