home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00021_playBtn.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  504 b   |  23 lines
  1. on mouseDown
  2.   global curFrame, scoreData, loopFlag
  3.   if the lastClick > 4 then
  4.     exit
  5.   end if
  6.   set nbFrames to count(scoreData)
  7.   if nbFrames <= 1 then
  8.     exit
  9.   end if
  10.   if (curFrame = nbFrames) and not loopFlag then
  11.     exit
  12.   end if
  13.   set spr to the clickOn
  14.   puppetSprite(spr, 1)
  15.   set the castNum of sprite spr to the number of cast "stopBtn.h"
  16.   puppetSound("pop")
  17.   updateStage()
  18.   doPause(4)
  19.   set the castNum of sprite spr to the number of cast "stopBtn"
  20.   updateStage()
  21.   replay(spr)
  22. end
  23.