home *** CD-ROM | disk | FTP | other *** search
/ MacUser Mac Bin 36 / MACUSER-MACBIN36-1996-11.ISO.7z / MACUSER-MACBIN36-1996-11.ISO / MACBIN / inbox9611 / 00025_Script_25 < prev    next >
Text File  |  1996-09-23  |  349b  |  13 lines
  1. on kchuu
  2.   set casnum = clickOn()
  3.   set castorg = the castNum of sprite casnum
  4.   repeat while the StillDown
  5.     cursor 200
  6.     puppetSprite casnum,TRUE    
  7.     set the castNum of sprite casnum to castorg +1    
  8.     updateStage
  9.   end repeat
  10.   cursor 0
  11.   set the castNum of sprite casnum to castorg
  12.   puppetSprite casnum,FALSE  
  13. end kchuu