home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / search.dir / 00083.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  378 b   |  15 lines
  1. on mouseDown
  2.   global StartSprite
  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 < 8 then
  11.     set StartSprite to StartSprite + 1
  12.     PlacePict()
  13.   end if
  14. end
  15.