home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / mcny / source / funhouse.dir / 00042.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  456 b   |  16 lines
  1. on mouseUp
  2.   global gotbug, whichroom, fireon
  3.   set gotbug to 1
  4.   puppetSprite(9, 1)
  5.   when mouseUp then
  6.   if (whichroom = 2) and (the locH of sprite 9 > 90) and (the locH of sprite 9 < 180) and (the locV of sprite 9 > 10) and (the locV of sprite 9 < 90) then
  7.     puppetSound("gulp")
  8.     updateStage()
  9.     set fireon to 1
  10.     set the castNum of sprite 9 to 100
  11.   end if
  12.   set the locV of sprite 9 to 50
  13.   set the locH of sprite 9 to 20
  14.   updateStage()
  15. end
  16.