home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
finetown.dir
/
00005_Script_5
< prev
next >
Wrap
Text File
|
1995-11-10
|
2KB
|
91 lines
on OverLap
global Muki,LandOnOK
if sprite 25 within 4 then
set the visible of sprite 14 = 1
set LandOnOK = 1
set Muki = "KARU_GIN"
else
if sprite 25 within 5 then
set the visible of sprite 15 = 1
set LandOnOK = 1
set Muki = "DOUJYOU"
else
if sprite 25 within 6 then
set the visible of sprite 16 = 1
set LandOnOK = 1
set Muki = "GAMEYA"
else
if sprite 25 within 7 then
set the visible of sprite 17 = 1
set LandOnOK = 1
set Muki = "LIB_ST"
else
if sprite 25 within 8 then
set the visible of sprite 18 = 1
set LandOnOK = 1
set Muki = "IDO"
else
if sprite 25 within 9 then
set the visible of sprite 19 = 1
set LandOnOK = 1
set Muki = "HINT_DE"
else
if sprite 25 within 10 then
set the visible of sprite 20 = 1
set LandOnOK = 1
set Muki = "ROUDOKU"
else
if sprite 25 within 11 then
set the visible of sprite 21 = 1
set LandOnOK = 1
set Muki = "YORIAI"
else
if sprite 25 within 2 then
repeat with SP= 14 to 22
set the visible of sprite SP = 0
end repeat
set the type of sprite 48 = 0
set LandOnOK = 0
set Muki = 0
end if
end if
end if
end if
end if
end if
end if
end if
end if
updateStage
end
on Tyakuriku
puppetSound 0
Sound playfile 2,"\MATERIAL\LANDON"
set LDDis = 10
if the locV of sprite 25 > the locV of sprite 24 - 10 then
exit
else
repeat with i = 1 to 20
set the locV of sprite 25 = the locV of sprite 25 + LDDis
updateStage
if the locV of sprite 25 > the locV of sprite 24 - 10 then exit repeat
wait 4
end repeat
end if
repeat while soundBusy(2)
nothing
end repeat
end
on wait t
put the ticks + t into endTime
repeat while the ticks <= endTime
nothing
end repeat
end