home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
yoriai.dir
/
00018_Script_18
< prev
next >
Wrap
Text File
|
1995-11-10
|
818b
|
41 lines
on mouseUp
global YORIAI,DANSION,TACHI
put "B" into vP
if DANSION = 3 then
put 1 after vP
go to "B1"
else
if DANSION = 0 then
if YORIAI < 2 then
put 1 after vP
go to "B1"
else
if YORIAI > 1 then
if TACHI = 0 then
put 2 after vP
go to "B1"
else
put 1 after vP
go to "B1"
end if
end if
end if
else
if DANSION = 1 or DANSION = 2 then
if TACHI = 0 then
put 2 after vP
go to "BD"
else
put "D" after vP
go to "BD"
end if
end if
end if
end if
sound playFile 1,"\S_YORIAI\" & vP & "_TALK"
updateStage
put vP into field "TEST"
end