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