home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
doujyou.dir
/
00269_Script_269
< prev
next >
Wrap
Text File
|
1995-11-10
|
2KB
|
70 lines
on TeikaX
global gTeika,gTeika2
Sound playFile 2,"\S_POKALT\COIN"
if abs(gTeika2) > 1000 then
set gKake = 100
else
if abs(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
-- TeikaCheck
end
on TeikaCheck
global gTeika,gFineSky,gFineSkyTeika,¼
gMapPosH,gMapPosV,gCDPosH,gCDPosV,gCDCastNum
if gTeika = 0 then
sound playFile 1,"\S_GAMEYA\TEIKA_0"
repeat while soundBusy(1)
nothing
end repeat
set gMapPosH = 256
set gMapPosV = 8
set gCDPosH = 250
set gCDPosV = 262
set gCDCastNum = 35
tell the stage
go to frame"toMAP"
end tell
-- set gFineSky = 0
go to movie"GAMEYA"
else
if gTeika >= gFineSkyTeika and gFineSky = 0 then
go to movie"TOWN_SUB"
set gFineSky = 1
else
nothing
end if
end if
end