home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / search.dir / 00073.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  389 b   |  15 lines
  1. on mouseDown
  2.   global StartSprite, startList
  3.   set the castNum of sprite the clickOn to the castNum of sprite the clickOn + 1
  4.   updateStage()
  5.   repeat while the mouseDown
  6.     nothing()
  7.   end repeat
  8.   set the castNum of sprite the clickOn to the castNum of sprite the clickOn - 1
  9.   updateStage()
  10.   if StartSprite > 1 then
  11.     set StartSprite to StartSprite - 1
  12.     PlacePict()
  13.   end if
  14. end
  15.