SBLX: New Synchronised Ban List

-- After I made the first SBL ever (that is already copied a lot of times)
-- I now present SBLX, SBL using HttpService and pastebin to ban people
-- © Copyright einsteinK Studios - Free to use, forbidden to copy

local http = game:FindService("HttpService")
if not http then error("No HttpService") end
http:GetAsync("http://pastebin.com")
SBLX = { Banned = {} }

function SBLX:Remove(plr,r)
    local gui = Instance.new("ScreenGui",plr:FindFirstChild("PlayerGui"))
    gui.Name = "SBLX_Reason_Gui" local f = Instance.new("Frame",gui)
    f.Size = UDim2.new(0.5,0,0.25,0) f.Position = UDim2.new(0.25,0,0.375,0)
    f.Style = "RobloxRound" local l = Instance.new("TextLabel",f)
    l.Size = UDim2.new(1,0,1,0) l.ZIndex = 2 l.TextWrapped = true
    l.BackgroundTransparency = 1 l.TextStrokeColor3 = Color3.new(1)
    l.TextColor3 = Color3.new() l.TextStrokeTransparency = 0
    l.Text = "You're banned by SBLX\nReason: "..(r or "Unknown")
    l.Font = "SourceSansBold" l.FontSize = "Size48" l.Name = "Reason"
    l.TextYAlignment = "Top" local i = l:clone() i.Parent = f
    i.TextYAlignment = "Bottom" i.FontSize = "Size18" i.Name = "Info"
    i.Text = [[SBLX: Synchronised Ban List - Generation X -  by einsteinK
    A project by einsteinK to ban a nood immediatly from a lot of places.
    Got a noob to report? Message einsteinK with his name AND the reason.
    (I probably ask some proof, as I only ban exploiters, big noobs, ...)]]
    wait(5) print(gui.Parent) gui:Destroy() plr:Kick() plr:Destroy()
    print("Kicked player banned by SBLX: "..tostring(plr).." ("..plr.userId..")")
end

function SBLX:Joined(plr)
    for k,v in pairs(self.Banned) do
        if k:lower() == tostring(plr):lower() then
            coroutine.wrap(self.Remove)(self,plr,v)
        end
    end
end

function SBLX:JoinAll()
    for k,v in pairs(game:GetService("Players"):GetPlayers()) do
        ypcall(self.Joined,self,v)
    end
end SBLX:JoinAll()

function SBLX:Download()
    local str = http:GetAsync("http://pastebin.com/raw.php?i=P6M8i1Xg")
    if not str:find("-- END OF BANLIST --") then return end
    self.Banned = {}
    for k,v in str:gmatch("(%S+): (.-)\n") do
        self.Banned[k] = v
    end self:JoinAll()
end
if NewCommand then
    NewCommand("SBLX",function(plr,msg) ClearTablets(plr)
        if not SBLX or not SBLX.Banned then return Inform(plr,"SBLX not installed!",5) end
        if msg:lower() == "stat" or msg:lower() == "status" then local total = 0
            for k,v in pairs(SBLX.Banned) do total = total + 1 end
            Tablet(plr,"Synchronised\nBan List\nGeneration X",Color3.new(1,1))
            Tablet(plr,"An online ban system by einsteinK",Color3.new(1,1))
            return Tablet(plr,"Banned members: "..total,Color3.new(1,1))
        end
        for k,v in pairs(SBLX.Banned) do
            if k:sub(1,#msg):lower() == msg:lower() then
                TimeTablet(600,plr,k..": "..v,Color3.new(1,0.5))
            end
        end TimeTablet(600,plr,"Synchronised\nBan List\nGeneration X",Color3.new(1,1))
    end,"Developer","Search trough the SBLX list for the given (partial) name")
end repeat SBLX:Download() until not wait(30)