Script Sharer

-- Joiner --
--http://www49.zippyshare.com/v/38178937/file.html
--Mouse=game.Players.LocalPlayer:GetMouse();Mouse.Button1Down:connect(function()ypcall(function()print(Mouse.Target)local a = Mouse.Target.Parent Mouse.Target:Destroy() a:Destroy() end)end)
ScreenSize = 1000
Screens = {}
GlobalObjects = {}
CurrentWorld = 1
function clerp(c1,c2,sp)
    return CFrame.new(
        c1.X+(c2.X-c1.X)*sp,
        c1.Y+(c2.Y-c1.Y)*sp,
        c1.Z+(c2.Z-c1.Z)*sp
    )
end
local PBT = Instance.new("Part",script)
PBT.Transparency = 1
PBT.Anchored = true
local PBTG = Instance.new("SurfaceGui",PBT)
PBTG.CanvasSize = Vector2.new(500,200)
PBT.FormFactor = "Custom"
PBT.Size = Vector3.new(5,2,1)
PBTS = Vector3.new(5,2,1)
PBTC = CFrame.new(-20,4,20)
local PBTGB = Instance.new("TextLabel",PBTG)
PBTGB.Size = UDim2.new(1,0,1,0)
PBTGB.BackgroundColor3 = Color3.new(0,1,0)
PBTGB.Text = "Play"
PBTGB.TextScaled = true
PBT.CFrame = CFrame.new(0,2,0)

local PBT2 = Instance.new("Part",script)
PBT2CF = CFrame.new(-20,2,20)
PBT2S = Vector3.new(5,1,1)
PBT2.Anchored = true
PBT2.Transparency = 1
local PBTG2 = Instance.new("SurfaceGui",PBT2)
PBTG2.CanvasSize = Vector2.new(500,100)
PBT2.FormFactor = "Custom"
PBT2.Size = Vector3.new(5,2,1)
local PBTGB2 = Instance.new("TextLabel",PBTG2)
PBTGB2.Size = UDim2.new(1,0,1,0)
PBTGB2.BackgroundColor3 = Color3.new(0,1,0)
PBTGB2.Text = "New Script"
PBTGB2.TextScaled = true

local PBT3 = Instance.new("Part",script)
PBT3CF = CFrame.new(-20,1,20)
PBT3S = Vector3.new(5,1,1)
PBT3.Anchored = true
PBT3.Transparency = 1
local PBTG3 = Instance.new("SurfaceGui",PBT3)
PBTG3.CanvasSize = Vector2.new(500,100)
PBT3.FormFactor = "Custom"
PBT3.Size = Vector3.new(5,2,1)
local PBTGB3 = Instance.new("TextLabel",PBTG3)
PBTGB3.Size = UDim2.new(1,0,1,0)
PBTGB3.BackgroundColor3 = Color3.new(1,0,0)
PBTGB3.Text = "Delete Script"
PBTGB3.TextScaled = true
local Play = Instance.new("ClickDetector",PBT)
local P2 = Instance.new("ClickDetector",PBT2)
local P3 = Instance.new("ClickDetector",PBT3)
Play.MouseClick:connect(function(player)
    ypcall(function()
        if not player.Backpack:findFirstChild(Screens[CurrentWorld].Name) then
            NLS(game:GetService("HttpService"):GetAsync(Screens[CurrentWorld].Link),player.Backpack).Name = Screens[CurrentWorld].Name
        end
    end)
end)
function Msg(Player,Text,Click)
    local SC = Instance.new("ScreenGui",Player.PlayerGui)
    local FR = Instance.new("Frame",SC)
    FR.Size = UDim2.new(0,200,0,100)
    FR.BackgroundColor3 = Color3.new(0,0,0.5)
    FR.Position = UDim2.new(0.5,-100,0.5,-100)
    local Name = Instance.new("TextBox",FR)
    Name.Size = UDim2.new(0,200,0,50)
    Name.Position = UDim2.new(0,0,0,0)
    Name.BackgroundTransparency = 1
    Name.Text = Text
    Name.FontSize = "Size12"
    Name.TextColor3 = Color3.new(1,1,1)
    Name.TextWrapped = true
    local Add = Instance.new("TextButton",FR)
    Add.Size = UDim2.new(0,60,0,20)
    Add.Position = UDim2.new(0.5,-80,1,-30)
    Add.Text = "Continue"
    Add.BackgroundColor3 = Color3.new(0,1,0)
    local Add2 = Instance.new("TextButton",FR)
    Add2.Size = UDim2.new(0,60,0,20)
    Add2.Position = UDim2.new(0.5,20,1,-30)
    Add2.Text = "Close"
    Add2.BackgroundColor3 = Color3.new(1,0,0)
    Add2.MouseButton1Click:connect(function()
        SC:Destroy()
    end)
    Add.MouseButton1Click:connect(function()
        SC:Destroy()
        if Click then
            Click(Player)
        end
    end)
end
function Gui(Player)
    local Clean,Error = ypcall(function()
        local SC = Instance.new("ScreenGui",Player.PlayerGui)
        local FR = Instance.new("Frame",SC)
        FR.Size = UDim2.new(0,200,0,230)
        FR.BackgroundColor3 = Color3.new(0,0,0.5)
        FR.Position = UDim2.new(0.5,-100,0.5,-150)
        local Name = Instance.new("TextBox",FR)
        Name.Size = UDim2.new(0,150,0,40)
        Name.Position = UDim2.new(0.5,-75,0,20)
        Name.Text = "Name"
        Name.BackgroundColor3 = Color3.new(1,1,1)
        local Site = Instance.new("TextBox",FR)
        Site.Size = UDim2.new(0,150,0,40)
        Site.Position = UDim2.new(0.5,-75,0,80)
        Site.Text = "Site(Where the script is)"
        Site.BackgroundColor3 = Color3.new(1,1,1)
        local Image = Instance.new("TextBox",FR)
        Image.Size = UDim2.new(0,150,0,40)
        Image.Position = UDim2.new(0.5,-75,0,140)
        Image.Text = "ImageID (Just the number)"
        Image.BackgroundColor3 = Color3.new(1,1,1)
        local Add = Instance.new("TextButton",FR)
        Add.Size = UDim2.new(0,60,0,20)
        Add.Position = UDim2.new(0.5,-70,1,-30)
        Add.Text = "Complete"
        Add.BackgroundColor3 = Color3.new(0,1,0)
        local Add2 = Instance.new("TextButton",FR)
        Add2.Size = UDim2.new(0,60,0,20)
        Add2.Position = UDim2.new(0.5,10,1,-30)
        Add2.Text = "Cancel"
        Add2.BackgroundColor3 = Color3.new(1,0,0)
        Add.MouseButton1Click:connect(function()
            if #Site.Text < 4 then
                SC:Destroy()
                Msg(Player,"You need a site link.",Gui)
            else
                SC:Destroy()
                NewScreen(Name.Text,Site.Text,tonumber(Image.Text),function() end,Player.Name)
            end
        end)
        Add2.MouseButton1Click:connect(function()
            SC:Destroy()
        end)
    end)
    if not Clean then
        Msg(Player,"Error(Could not create):"..Error,Gui)
    end
end
function DeleteGui(P)
    ypcall(function()
        local A = CurrentWorld
        if Screens[A].Player == P.Name or P.Name == "dogwarrior24" then
            local SC = Instance.new("ScreenGui",P.PlayerGui)
            local FR = Instance.new("Frame",SC)
            FR.Size = UDim2.new(0,200,0,100)
            FR.BackgroundColor3 = Color3.new(0,0,0.5)
            FR.Position = UDim2.new(0.5,-100,0.5,-100)
            local Name = Instance.new("TextBox",FR)
            Name.Size = UDim2.new(0,200,0,50)
            Name.Position = UDim2.new(0,0,0,0)
            Name.BackgroundTransparency = 1
            Name.Text = "Are you sure you want to delete "..Screens[A].Name.."?"
            Name.FontSize = "Size14"
            Name.TextColor3 = Color3.new(1,1,1)
            Name.TextWrapped = true
            local Add = Instance.new("TextButton",FR)
            Add.Size = UDim2.new(0,60,0,20)
            Add.Position = UDim2.new(0.5,-80,1,-30)
            Add.Text = "Ok"
            Add.BackgroundColor3 = Color3.new(0,1,0)
            local Add2 = Instance.new("TextButton",FR)
            Add2.Size = UDim2.new(0,60,0,20)
            Add2.Position = UDim2.new(0.5,20,1,-30)
            Add2.Text = "Cancel"
            Add2.BackgroundColor3 = Color3.new(1,0,0)
            Add.MouseButton1Click:connect(function()
                SC:Destroy()
                if Screens[CurrentWorld].Player == P.Name or P.Name == "dogwarrior24"then
                    local AC = Screens[A]
                    AC.PG:Destroy()
                    if Screens[A+1] then
                        CurrentWorld = A+1
                    elseif Screens[A-1] then
                        CurrentWorld = A-1
                    end
                    table.remove(Screens,A)
                    print(P.Name.." deleted "..AC.Name)
                end
            end)
            Add2.MouseButton1Click:connect(function()
                SC:Destroy()
            end)
        else
            Msg(P,"You do not have permission to delete this.(you can only delete scripts you made)",function()end)
        end
    end)
end
P3.MouseClick:connect(function(P)
    ypcall(function()
        DeleteGui(P)
    end)
end)
P2.MouseClick:connect(function(player)
    ypcall(function()
        Gui(player)
    end)
end)
function NewScreen(Name,Link,BackgroundID,Update,PL)
    local A = {}
    local PlayerGui = Instance.new("Part",script)
    PlayerGui.Anchored = true
    PlayerGui.FormFactor = "Custom"
    --PlayerGui.Size = Vector3.new(ScreenSize/100,ScreenSize/100,0)
    PlayerGui.CFrame = CFrame.new(0,(ScreenSize/100)/2,0)
    PlayerGui.Transparency = 1
    local Play = Instance.new("ClickDetector",PlayerGui)
    local AM = #Screens+1
    Play.MouseClick:connect(function(player)
        ypcall(function()
            for i,v in pairs(Screens) do
                if v == A then
                    CurrentWorld = i
                end
            end
        end)
    end)
    local Screen = Instance.new("SurfaceGui",PlayerGui)
    Screen.Name = "2DGame"
    Screen.CanvasSize = Vector2.new(ScreenSize,ScreenSize)
    local Background = Instance.new("ImageLabel",Screen)
    Background.Image = "http://www.roblox.com/asset/?id="..BackgroundID-1
    Background.Size = UDim2.new(0,1000,0,600)
    Background.Position = UDim2.new(0.5,-500,0.5,-300)
    local Title = Instance.new("TextLabel",Background)
    Title.Size = UDim2.new(1,0,1,0)
    Title.Text = Name
    Title.TextColor3 = Color3.new(0.5,0.5,0.5)
    Title.TextScaled = true
    Title.BackgroundTransparency = 1
    Title.FontSize = "Size14"
    Title.Position = UDim2.new(0,0,0,0)
    A.PG = PlayerGui
    A.SC = Screen
    A.BK = Background
    A.BKID = BackgroundID
    A.Link = Link
    A.Title = Title
    A.PlayButton = Play
    A.Name = Name
    A.Player = PL
    if not Update then
        A.Update = function()
        end
    else
        A.Update = Update
    end
    table.insert(Screens,A)
    return A
end
Coob = NewScreen("Coob","http://pastebin.com/raw.php?i=3PK8jvfw",162074807)
Physiks = NewScreen("Physiks","http://pastebin.com/raw.php?i=jiAgNm3G",162077870)
Cars = NewScreen("Cars","http://pastebin.com/raw.php?i=GjxKuNP9",161150995)
Draw = NewScreen("Draw","http://pastebin.com/raw.php?i=etgXSUx3",162219445)
Emitter = NewScreen("Emitter","http://pastebin.com/raw.php?i=AEmbH9vJ",248102438)
Water = NewScreen("Water","http://pastebin.com/raw.php?i=nD2zEXsQ",248102481)
Test = NewScreen("Test","https://www.dropbox.com/s/yp4ihidhv651dny/2d%20BRL.lua?dl=1",0)
mc = math.ceil
while true do
    Time = wait()
    --for i = 1,math.ceil(1/Time) do
        PBT.Size = clerp(PBT.Size,PBTS,0.05).p
        PBT.CFrame = PBTC
        PBT2.Size = clerp(PBT2.Size,PBT2S,0.05).p
        PBT2.CFrame = PBT2CF
        PBT3.Size = clerp(PBT3.Size,PBT3S,0.05).p
        PBT3.CFrame = PBT3CF
        PBT.Anchored,PBT2.Anchored,PBT3.Anchored = true,true,true
        PBT.Transparency,PBT2.Transparency,PBT3.Transparency = 1,1,1
        PBT.Locked,PBT2.Locked,PBT3.Locked = true,true,true
        for _,Screen in pairs(Screens) do
            local SZR = 100
            if _ ~= CurrentWorld then
                SZR = 200
            end
            Screen.BK.Size = UDim2.new(0,1000,0,600)
            Screen.Title.Text = Screen.Name
            if Screen.BK.Image ~= "http://www.roblox.com/asset/?id="..Screen.BKID-1 then
                Screen.BK.Image = "http://www.roblox.com/asset/?id="..Screen.BKID-1
            end
            if Screen.BKID-1 > 0 then
                Screen.BK.BackgroundTransparency = 1
                Screen.Title.Visible = false
            else
                Screen.BK.BackgroundTransparency = 0
                Screen.Title.Visible = true
            end
            Screen.PG.Anchored = true
            Screen.PG.Locked = true
            local C = Screen.PG.CFrame
            Screen.PG.Size = clerp(Screen.PG.Size,Vector3.new(1500/SZR,1500/SZR,1),0.05).p
            --Screen.PG.CFrame = clerp(C,CFrame.new(((1500/100)*-((_-CurrentWorld))),((1500/100)/2)+5,20),0.1)
            Screen.PG.CFrame = clerp(C,
                --CFrame.new(0,6.5*#Screens,20)
                CFrame.new(-20,SZR/10,20+(3*#Screens))
                *CFrame.Angles(0,math.rad(360*(_/#Screens))-math.rad(360*(CurrentWorld/#Screens))+math.rad(180),math.rad(45))
                *CFrame.new(0,0,3*#Screens)
            ,0.05)
            Screen.Update()
        end
    --end
end