home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / mcny / source / funhouse.dir / 00016.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  1.4 KB  |  57 lines
  1. on mouseDown
  2.   global gottorch, littorch, fireon
  3.   if gottorch = 1 then
  4.     set the moveableSprite of sprite 8 to 1
  5.   end if
  6. end
  7.  
  8. on enterFrame
  9.   global fireon, whichroom, gottorch
  10.   set whichroom to 2
  11.   if rollOver(21) and the mouseDown then
  12.     puppetSprite(20, 1)
  13.     set the locH of sprite 20 to 150
  14.     set the locV of sprite 20 to 10
  15.     set the ink of sprite 20 to 8
  16.     set the castNum of sprite 20 to 81
  17.   else
  18.     if rollOver(8) and the mouseDown and (gottorch = 0) then
  19.       puppetSprite(20, 1)
  20.       set the locH of sprite 20 to 100
  21.       set the locV of sprite 20 to 90
  22.       set the ink of sprite 20 to 8
  23.       set the castNum of sprite 20 to 82
  24.     else
  25.       if rollOver(22) and the mouseDown then
  26.         puppetSprite(20, 1)
  27.         set the locH of sprite 20 to 200
  28.         set the locV of sprite 20 to 70
  29.         set the ink of sprite 20 to 8
  30.         set the castNum of sprite 20 to 83
  31.       else
  32.         puppetSprite(20, 0)
  33.       end if
  34.     end if
  35.   end if
  36.   updateStage()
  37.   if fireon = 1 then
  38.     puppetSprite(11, 1)
  39.     set the ink of sprite 7 to 0
  40.     updateStage()
  41.     set the castNum of sprite 7 to 66
  42.     updateStage()
  43.     set the castNum of sprite 7 to 67
  44.     updateStage()
  45.     set the castNum of sprite 7 to 68
  46.     updateStage()
  47.     set the castNum of sprite 7 to 69
  48.     updateStage()
  49.     set the castNum of sprite 7 to 70
  50.     updateStage()
  51.   end if
  52. end
  53.  
  54. on exitFrame
  55.   go("room2")
  56. end
  57.