home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacUser Mac Bin 36
/
MACUSER-MACBIN36-1996-11.ISO.7z
/
MACUSER-MACBIN36-1996-11.ISO
/
MACBIN
/
MUbase
/
00025_Script_25
< prev
Wrap
Text File
|
1996-09-21
|
349b
|
13 lines
on kchuu
set casnum = clickOn()
set castorg = the castNum of sprite casnum
repeat while the StillDown
cursor 200
puppetSprite casnum,TRUE
set the castNum of sprite casnum to castorg +1
updateStage
end repeat
cursor 0
set the castNum of sprite casnum to castorg
puppetSprite casnum,FALSE
end kchuu