home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / resource / earshot / eardemo.dir / 00037.ls < prev    next >
Encoding:
Text File  |  1996-05-17  |  636 b   |  28 lines
  1. on mouseDown
  2.   global gLastRollover
  3.   set gLastRollover to the clickOn
  4.   puppetSprite(gLastRollover, 1)
  5.   repeat while the mouseDown
  6.     if rollOver(gLastRollover) then
  7.       set the castNum of sprite gLastRollover to the number of cast (gLastRollover & "hi")
  8.     else
  9.       set the castNum of sprite gLastRollover to the number of cast (gLastRollover & "or")
  10.     end if
  11.     updateStage()
  12.   end repeat
  13. end
  14.  
  15. on mouseUp
  16.   global gLastRollover
  17.   if not rollOver(gLastRollover) then
  18.     PupsOff()
  19.   else
  20.     puppetSound("Switch Flick")
  21.     updateStage()
  22.     repeat while soundBusy(1)
  23.     end repeat
  24.     PupsOff()
  25.     go("end")
  26.   end if
  27. end
  28.