--Slide Animation
local sx, sy = guiGetScreenSize( )
local window = guiCreateWindow((sx-300)/2, (sy-400)/2, 300, 400, "Test", false)
guiSetVisible(window, false)
bindKey("f2", "down", function( )
    if anim then return end
    local v = guiGetVisible(window)
    if not v then 
        guiSetVisible(window, true)
        animate(0, 1, 1, 1000, function(alpha)
            guiSetAlpha(window,alpha)
        end)
    end
    anim = true
    animate(v and 400 or 0, v and 0 or 400, 2, 1250, function(height)
        if v and height == 0 then 
            guiSetVisible(window, false)
            anim = false
        elseif not v and height == 400 then
            anim = false
        end
        local w, h = guiGetSize(window, false)
        guiSetSize(window, w, height, false)
    end)
end)