home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / search.dir / 00073_Script_73 < prev    next >
Text File  |  1996-03-11  |  406b  |  16 lines
  1. on mouseDown
  2.   global StartSprite,StartList
  3.   
  4.   set the castNUm of sprite the clickOn to (the castNUm of sprite the clickOn) + 1
  5.   updateStage
  6.   repeat while the mouseDown
  7.     nothing
  8.   end repeat
  9.   set the castNUm of sprite the clickOn to (the castNUm of sprite the clickOn) - 1
  10.   updateStage
  11.   
  12.   if StartSprite > 1 then
  13.     put StartSprite - 1 into StartSprite
  14.     PlacePict
  15.   end if
  16. end