var credits : int := Pic.FileNew ("CREDITS.bmp")
var screen : int
var menu1, menu2 : boolean := false
var save : int := 1
var levelend : boolean := false
screen := Window.Open ("graphics:800;500;nobuttonbar;offscreenonly;nocursor")

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

include "Movement.t"

include "CustomMovement.t"

include "menu.t"

process MUSIC
    loop
        Music.PlayFile ("Songs\\ODIWUAACMUSIC" + intstr (level) + ".mp3")
        exit when levelend
    end loop
end MUSIC

process CUSTOM_MUSIC
    loop
        Music.PlayFile ("Songs\\ODIWUAACMUSIC1.mp3")
    end loop
end CUSTOM_MUSIC


process MENU_MUSIC
    loop
        Music.PlayFile ("Songs\\ODIWUAAC_MUSIC_MENU.mp3")
    end loop
end MENU_MUSIC

process CREDITS_MUSIC
    Music.PlayFile ("Songs\\ODIWUAAC_CREDITS_MUSIC.mp3")
end CREDITS_MUSIC

proc CREDITS
    cls
    Pic.Draw (credits, 0, creditscroll, 0)
    View.UpdateArea (0, 0, maxx, maxy)
    loop
        cls
        Pic.Draw (credits, 0, creditscroll, 0)
        creditscroll += 2
        View.UpdateArea (0, 0, maxx, maxy)
        delay (50)
        exit when creditscroll >= 0 or hasch
    end loop
    Music.PlayFileStop
    delay (2000)
    cls
    View.Update
end CREDITS

proc NEW_GAME
    levelend := false
    menu1 := false
    menu2 := true
    cls
    loop
        x := 150
        y := 75
        movement
        if done = false then
            level += 1
            save := level
            levelend := true
            cls
        else
            done := false
            levelend := true
            exit
        end if
        exit when level = 2
    end loop
    if level = 2 then
        CREDITS
    end if
end NEW_GAME

proc CUSTOM
    level := 1
    for b : 1 .. 3
        cls
        levelend := false
        x := 150
        y := 75
        custommovement
        if done2 = false then
            level += 1
            levelend := true
        else
            done2 := false
            levelend := true
            exit
        end if
    end for
end CUSTOM


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

menu1 := true

loop
    fork MENU_MUSIC
    MENU
    Music.PlayFileStop

    if start = 4 then
        fork CREDITS_MUSIC
        CREDITS
        Music.PlayFileStop

    elsif start = 45 then
        fork CUSTOM_MUSIC
        CUSTOM
        Music.PlayFileStop

    elsif start = 55 then
        fork MUSIC
        NEW_GAME
        Music.PlayFileStop

    elsif start = 87 then
        fork MUSIC
        level := save
        NEW_GAME
        Music.PlayFileStop
    end if

end loop

Music.PlayFileLoop (musicfile)

process MUSIC
    Music.PlayFileLoop ("Songs\\ODIWUAACMUSIC" + intstr (level) + ".mp3")
end MUSIC

process CUSTOM_MUSIC
    Music.PlayFileLoop ("Songs\\ODIWUAACMUSIC1.mp3")
end CUSTOM_MUSIC

process MENU_MUSIC
    Music.PlayFileLoop ("Songs\\ODIWUAAC_MUSIC_MENU.mp3")
end MENU_MUSIC

process CREDITS_MUSIC
    Music.PlayFile ("Songs\\ODIWUAAC_CREDITS_MUSIC.mp3")
end CREDITS_MUSIC