import GUI

var credits : int := Pic.FileNew ("CREDITS.bmp")
var screen : int
var goback : boolean
screen := Window.Open ("graphics:700;700;nobuttonbar;title:ODIWUAAC_BETA_VERSION_1.0;offscreenonly;nocursor")

var creditscroll := -1 * Pic.Height (credits) + maxy

include "Movement.t"

proc CREDITS
    cls
    Pic.Draw (credits, 0, creditscroll, 0)
    View.UpdateArea (0, 0, maxx, maxy)
    loop
        cls
        Pic.Draw (credits, 0, creditscroll, 0)
        creditscroll += 1
        View.UpdateArea (0, 0, maxx, maxy)
        delay (1)
        exit when creditscroll >= 0
    end loop
end CREDITS

proc GAME_COMPONENT
    cls
    for b : 1 .. 3
        movement
        if done = false then
            level += 1
        else
            MENU
        end if
    end for
end GAME_COMPONENT

var button1 : int := GUI.CreateButtonFull (maxx div 2 - 100, maxy div 2 + 100, 200, "Start Game", GAME_COMPONENT, 50, "^Z", false)
var button2 : int := GUI.CreateButtonFull (maxx div 2 - 100, maxy div 2 - 100, 200, "Credits", CREDITS, 50, "^X", false)

proc MENU
    GUI.Enable (button1)
    GUI.Enable (button2)
    View.Update
    loop
        exit when GUI.ProcessEvent
    end loop
end MENU


MENU