home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
yoriai.dir
/
00016_Script_16
< prev
next >
Wrap
Text File
|
1995-11-10
|
1KB
|
74 lines
on startmovie
Global vP,YORIAI,DANSION
put "" into vP
if DANSION = 1 or DANSION = 2 then
go to "MENU_N"
else
go to "MENU_Y"
end if
sound playFile 2,"\S_YORIAI\Y_BGM"
put YORIAI +1 into YORIAI
end
on idle
if soundBusy(2) then
nothing
else
sound playFile 2,"\S_YORIAI\ZAWA"
end if
end
on RETURN_M
go to movie "MENU"
end
on STOPMOVIE
puppetSound 0
repeat with n = 1 to 4
sound stop n
end repeat
end
on TeikaX
global gTeika,gTeika2
Sound playFile 2,"\S_POKALT\COIN"
if gTeika2 > 1000 then
set gKake = 100
else
if gTeika2 <= 1000 then
set gKake = 10
end if
end if
repeat with Money = 1 to abs(gTeika2) / gKake
tell the stage
if gTeika < 0 then
set gTeika = 0
set gTeika3 = 0
put gTeika into field"╔e╔C╔J"
exit repeat
else
if gTeika2 > 0 then
set gTeika3 = gTeika + Money * gKake
put gTeika3 into field"╔e╔C╔J"
else
if gTeika2 < 0 then
set gTeika3 = gTeika - Money * gKake
if gTeika3 < 0 then
set gTeika3 = 0
put gTeika3 into field"╔e╔C╔J"
exit repeat
end if
put gTeika3 into field"╔e╔C╔J"
end if
end if
end if
end tell
end repeat
Sound playFile 2,"\S_POKALT\MONEY_"
set gTeika = gTeika3
set gTeika2 = 0
end