home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / ingenius / shockwav / qintro.dcr / 00004.ls < prev    next >
Encoding:
Text File  |  1996-05-10  |  340 b   |  15 lines
  1. on mouseDown
  2.   if the puppet of sprite 1 = 0 then
  3.     set the castNum of sprite 1 to the number of cast "blow1"
  4.     updateStage()
  5.     startTimer()
  6.     repeat while the timer < 10
  7.     end repeat
  8.     puppetSprite(1, 1)
  9.     set the castNum of sprite 1 to the number of cast "blow2"
  10.     updateStage()
  11.   else
  12.     puppetSprite(1, 0)
  13.   end if
  14. end
  15.