home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / demos / elteldem / etdemo.dir / 00233.ls < prev    next >
Encoding:
Text File  |  1994-12-09  |  444 b   |  25 lines
  1. on mouseDown
  2.   if soundBusy(1) then
  3.     sound stop 1
  4.   end if
  5.   puppetSprite(7, 1)
  6.   set the castNum of sprite 7 to 123
  7.   updateStage()
  8.   puppetSound("forward")
  9.   repeat while the stillDown
  10.   end repeat
  11. end
  12.  
  13. on mouseUp
  14.   set the castNum of sprite 7 to 233
  15.   updateStage()
  16.   puppetSprite(7, 0)
  17.   puppetSprite(8, 0)
  18.   puppetSprite(9, 0)
  19.   puppetSprite(10, 0)
  20.   puppetSprite(11, 0)
  21.   puppetSprite(12, 0)
  22.   puppetTransition(23)
  23.   go(marker(1))
  24. end
  25.