home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00031_loopBtn.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  252 b   |  13 lines
  1. on mouseDown
  2.   global loopFlag
  3.   if the lastClick > 4 then
  4.     exit
  5.   end if
  6.   set spr to the clickOn
  7.   puppetSprite(spr, 1)
  8.   puppetSound("pop")
  9.   set the castNum of sprite spr to the number of cast "noLoopBtn"
  10.   set loopFlag to 1
  11.   updateStage()
  12. end
  13.