home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / mcny / source / funhouse.dir / 00040.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  361 b   |  12 lines
  1. on mouseUp
  2.   global gottorch, littorch, fireon
  3.   puppetSprite(8, 1)
  4.   if (fireon = 1) and (the locV of sprite 8 > 120) and (the locV of sprite 8 < 170) and (the locH of sprite 8 > 100) and (the locH of sprite 8 < 200) then
  5.     set littorch to 1
  6.   end if
  7.   set gottorch to 1
  8.   set the locV of sprite 8 to 20
  9.   set the locH of sprite 8 to 350
  10.   updateStage()
  11. end
  12.