home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
dan256.dir
/
00444_Script_444
< prev
next >
Wrap
Text File
|
1995-11-10
|
654b
|
25 lines
on mousedown
global NGCt,Hposition
PushB
put the locH of sprite 18 = the locH of sprite 15 into a
put the locV of sprite 19 = the locV of sprite 14 into b
put the locH of sprite 21 = the locH of sprite 16 into c
if a and b and c then
repeat with n = 14 to 22
puppetSprite n, False
end repeat
puppetSprite 6, False
go to "correct" & Hposition
else
repeat with n = 14 to 22
puppetSprite n, true
end repeat
puppetSprite 6, true
tell the stage
set the visible of sprite (40+NGct) = TRUE
end tell
PUT NGct+1 INTO NGct
H_Frame
end if
end