local ply = LocalPlayer()
function CrateSystem()
    local Form = vgui.Create( "DFrame" )
    local Butt = vgui.Create("DButton")
        Form:SetPos( ScrW()/2 - 400, ScrH()/2 - 200)
        Form:SetSize( 800, 400 )
        Form:SetTitle("")
        Form:SetVisible( true )
        Form:SetDraggable( true )
        Form:ShowCloseButton( false )
        Form:MakePopup()
        function Form:Paint( w, h )
            draw.RoundedBox( 0, 0, 0, w, h, Color(127, 140, 141))
            draw.RoundedBox( 0, 0, 0, w, h-360, Color(41, 128, 185))
            draw.RoundedBox( 0, 35, 70, w-70, h-100, Color(41, 128, 185))
            draw.SimpleText( "Crate System", "CloseCaption_Bold", 325, 5, Color( 255, 255, 255), 0, 0)
        end

        Butt:SetParent ( Form )
        Butt:SetPos( 775,5)
        Butt:SetText("")
        Butt:SetSize( 20, 30)
        Butt.DoClick = function()
            if Form:IsVisible() == true then
            Form:SetVisible(false)
            end
        end
        function Butt:Paint( w, h )
            draw.SimpleText( "X", "DermaLarge", 0, 0, Color( 255, 255, 255), 0, 0)
        end
end
concommand.Add ( "open_cratesystem", CrateSystem)

hook.Add("ShowSpare2", "f4shit", function( ply )
ply:ConCommand("open_cratesystem")
end)