home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
dan256.dir
/
00443_Script_443
< prev
next >
Wrap
Text File
|
1995-11-10
|
959b
|
41 lines
on mouseDown
put clickOn() into vSpriteNum
set the cursor of sprite vSpriteNum = 290
put mouseH() into mh -- δ┤╟╡╟²
put mouseV() into mv -- δ┤╟╡╟²
if not the puppet of sprite vSpriteNum then
puppetSprite vSpriteNum, TRUE
end if
repeat while stillDown()
if mouseH() <> mh or mouseV() <> mv then
set the locH of sprite vSpriteNum = mouseH()
set the locV of sprite vSpriteNum = mouseV()
end if
updatestage
end repeat
repeat with n = 14 to 16
if sprite vSpriteNum intersects n then
set the locH of sprite vSpriteNum to the locH of sprite n
set the locV of sprite vSpriteNum to the locV of sprite n
end if
end repeat
repeat with n = 18 to 21
if vSpriteNum = n then
next repeat
else
if sprite vSpriteNum intersects n then puppetSprite n,FALSE
end if
end repeat
updatestage
end