View.Set ("graphics:480,272")

%------------------------------------------
%background Pics
var Main_Menu : int := Pic.FileNew ("Hyung Tae.jpg")
var ST : int := Pic.FileNew ("ST group photo.jpg")
var credits : int := Pic.FileNew ("Credits.JPG")
var Baku : int := Pic.FileNew ("Bakuretsu Tenshi.jpg")
var STS : int := Pic.FileNew ("ST Banner.jpg")
var fin : int := Pic.FileNew ("azufinish.jpg")
var bf : int := Pic.FileNew ("butterfly.jpg")
var NGE : int := Pic.FileNew ("NGE.jpg")
var STX : int := Pic.FileNew ("X-mas.jpg")
var STT : int := Pic.FileNew ("Geki.jpg")
var w : int := Pic.FileNew ("white.jpg")
%-----------------------------------------
%arrow pics
var rb : int := Pic.FileNew ("ar_rightblack.JPG")
var lb : int := Pic.FileNew ("ar_leftblack.JPG")
var ub : int := Pic.FileNew ("ar_upblack.JPG")
var db : int := Pic.FileNew ("ar_downblack.JPG")
%-----------------------------------------
%other
var finished : boolean := false
var mx, my, mb : int
var score : int := 0
var chars : array char of boolean

%-----------------------------------------
%Music
process playstuff
    loop
        exit when finished
        Music.PlayFile ("Loosey.MP3")
    end loop
end playstuff

process plays
    loop
        exit when finished
        Music.PlayFile ("Voltes V.MP3")
    end loop
end plays

process pla
    loop
        exit when finished
        Music.PlayFile ("Butterfly.MP3")
    end loop
end pla

process pl
    loop
        exit when finished
        Time.Delay (4600)
        Music.PlayFile ("OPENING THEME - Eva.mp3")
    end loop
end pl

%------------------------------------------
%ST Music----------------------------------
process STC
    loop
        exit when finished
        Music.PlayFile ("Sakura Taisen X-mas Medley.MP3")
    end loop
end STC

process STG
    loop
        exit when finished
        Music.PlayFile ("Geki! Teikoku Kagekidan (Kai).mp3")
    end loop
end STG

process STM
    loop
        exit when finished
        Music.PlayFile ("Mirai no Kyoudai he.MP3")
    end loop
end STM

process STH
    loop
        exit when finished
        Music.PlayFile ("Hanasaku Otome.mp3")
    end loop
end STH
%------------------------------------------
%Background
Pic.Draw (Main_Menu, 0, 0, 0)

%------------------------------------------
%Menu Selection

loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 181 and my > 49 and mx < 274 and my < 62 then
        exit
    elsif mb = 1 and mx > 203 and my > 24 and mx < 297 and my < 47 then
        cls
        Pic.Draw (credits, 0, 0, 0)
        Pic.Free (credits)
        if mb = 1 and mx > 20 and my > 20 and mx < 60 and my < 60 then
            cls
            Pic.Draw (Main_Menu, 0, 0, 0)
        end if
        loop
            mousewhere (mx, my, mb)
            exit when hasch
        end loop
        Pic.Draw (Main_Menu, 0, 0, 0)
    end if
end loop


cls
Pic.Draw (ST, 0, 0, 0)
%drawbox (335, 99, 445, 130, yellow) %back
%------------------------------------------------
%Song Selection
var uby1:int:=-230
var lby1:int:=-250
var

loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 13 and my > 172 and mx < 155 and my < 207 then
        exit
    elsif mb = 1 and mx > 321 and my > 12 and mx < 463 and my < 47 then %Butterfly
        fork pla
        delay (5)
        %Input.KeyDown (chars)
        %locate (1, 1)
        loop
            Pic.Draw (bf, 0, 0, 0)
            Pic.Draw (ub, 255, uby1 , picMerge)
            Pic.Draw (lb, 135, lby1, picMerge)
            Pic.Draw (db, 195, (c - 270), picMerge)
            Pic.Draw (ub, 255, (c - 290), picMerge)
            Pic.Draw (rb, 315, (c - 310), picMerge)
            Pic.Draw (lb, 135, (c - 330), picMerge)
            Pic.Draw (ub, 255, (c - 350), picMerge)
            Pic.Draw (db, 195, (c - 370), picMerge)
            Pic.Draw (rb, 315, (c - 390), picMerge)
            delay (20)
            ub1+=1
            lby1+=1
            Input.KeyDown (chars)
            if chars (KEY_UP_ARROW) then
                if uby1 > 500 then
                locate (1, 1)
                put "up"
            elsif chars (KEY_DOWN_ARROW) then
                locate (1, 1)
                put "down"
            elsif chars (KEY_RIGHT_ARROW) then
                locate (1, 1)
                put "right"
            elsif chars (KEY_LEFT_ARROW) then
                locate (1, 1)
                put "left"
            end if

        end loop
        Time.Delay (174000)
        finished := true
        Music.PlayFileStop
        cls
        Pic.Draw (fin, 0, 0, 0)
    elsif mb = 1 and mx > 321 and my > 174 and mx < 463 and my < 209 then %Evangelion
        fork pl
        for d : 0 .. 2000000000
            delay (23)
            Pic.Draw (NGE, 0, 0, 0)
            Pic.Draw (lb, 135, d, picMerge)
            Pic.Draw (db, 195, (d - 95), picMerge)
            Pic.Draw (rb, 315, (d - 110), picMerge)
            Pic.Draw (ub, 255, (d - 155), picMerge)
            Pic.Draw (lb, 135, (d - 260), picMerge)
            Pic.Draw (db, 195, (d - 280), picMerge)
            Pic.Draw (ub, 255, (d - 300), picMerge)
            Pic.Draw (rb, 315, (d - 320), picMerge)
            Pic.Draw (lb, 135, (d - 730), picMerge) %new
            Pic.Draw (db, 195, (d - 735), picMerge)
            Pic.Draw (ub, 255, (d - 755), picMerge)
            Pic.Draw (rb, 315, (d - 765), picMerge)
            Pic.Draw (ub, 255, (d - 785), picMerge)
            Pic.Draw (rb, 315, (d - 810), picMerge)
            %Pic.Draw (lb, 135, (d-850), picMerge)
            %Pic.Draw (db, 195, (d-890), picMerge)
        end for
        Time.Delay (305000)
        finished := true
        Music.PlayFileStop
        Pic.Free (NGE)
        cls
        Pic.Draw (fin, 0, 0, 0)
        loop
            mousewhere (mx, my, mb)
            exit when hasch
        end loop
        Pic.Draw (ST, 0, 0, 0)
    end if
end loop
cls
Pic.Draw (STS, 0, 0, 0)
%drawbox (329, 174, 440, 204, yellow) Back
%-----------------------------------------------------
%ST Song Selection
loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 329 and my > 174 and mx < 440 and my < 204 then
        exit
    elsif mb = 1 and mx > 18 and my > 24 and mx < 162 and my < 70 then %X-mas
        fork STC
        %Input.KeyDown (chars)
        %locate (1, 1)
        for e : 0 .. 2000000000 by 3
            Pic.Draw (STX, 0, 0, 0)
            Pic.Draw (db, 195, (e - 300), picMerge)
            Pic.Draw (rb, 315, (e - 310), picMerge)
            Pic.Draw (lb, 135, (e - 320), picMerge)
            Pic.Draw (db, 195, (e - 380), picMerge)
            Pic.Draw (rb, 315, (e - 390), picMerge)
            Pic.Draw (ub, 255, (e - 400), picMerge)
            delay (30)
        end for
        Time.Delay (233000)
        finished := true
        Music.PlayFileStop
        cls
        Pic.Draw (fin, 0, 0, 0)
    elsif mb = 1 and mx > 19 and my > 100 and mx < 162 and my < 147 then %Geki
        fork STG
        %Input.KeyDown (chars)
        %locate (1, 1)
        for f : 0 .. maxy
            Pic.Draw (STT, 0, 0, 0)
            Pic.Draw (lb, 135, f, picMerge)
            Pic.Draw (db, 195, (f - 300), picMerge)
            Pic.Draw (rb, 315, (f - 310), picMerge)
            Pic.Draw (lb, 135, (f - 320), picMerge)
            Pic.Draw (db, 195, (f - 380), picMerge)
            Pic.Draw (rb, 315, (f - 390), picMerge)
            Pic.Draw (ub, 255, (f - 400), picMerge)
            delay (10)
        end for
        Time.Delay (234000)
        finished := true
        Music.PlayFileStop
        cls
        Pic.Draw (fin, 0, 0, 0)

        loop
            mousewhere (mx, my, mb)
            exit when hasch
        end loop
        Pic.Draw (STS, 0, 0, 0)
    end if
end loop

cls
Pic.Draw (ST, 0, 0, 0)