rendered paste bodyView.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)