home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / MARS.DXR / 00875.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.5 KB  |  66 lines
  1. on exitFrame
  2.   global gJupiter, gSaturn
  3.   if gJupiter = 1 then
  4.     if the visible of sprite 46 = 0 then
  5.       door_Move()
  6.       puppetSprite(42, 1)
  7.       set the castNum of sprite 42 to 15
  8.       updateStage()
  9.       puppetSprite(42, 0)
  10.     end if
  11.     changeMovie("Jupiter.dir", 1)
  12.     exit
  13.   end if
  14.   if gSaturn = 1 then
  15.     if the visible of sprite 46 = 0 then
  16.       door_Move()
  17.       puppetSprite(42, 1)
  18.       set the castNum of sprite 42 to 15
  19.       updateStage()
  20.       puppetSprite(42, 0)
  21.     end if
  22.     changeMovie("Saturn.dir", 1)
  23.     exit
  24.   end if
  25.   if the clickOn = 44 then
  26.     if the visible of sprite 46 = 0 then
  27.       door_Move()
  28.       puppetSprite(42, 1)
  29.       set the castNum of sprite 42 to 15
  30.       updateStage()
  31.       puppetSprite(42, 0)
  32.     end if
  33.     changeMovie("Attic.dir", "Please Wait")
  34.     exit
  35.   end if
  36.   if the clickOn = 45 then
  37.     if the visible of sprite 46 = 0 then
  38.       door_Move()
  39.       puppetSprite(42, 1)
  40.       set the castNum of sprite 42 to 15
  41.       updateStage()
  42.       puppetSprite(42, 0)
  43.     end if
  44.     changeMovie("Close.dir", 1)
  45.     exit
  46.   end if
  47.   puppetSprite(42, 1)
  48.   puppetSprite(43, 1)
  49.   if the visible of sprite 46 = 0 then
  50.     set the castNum of sprite 42 to 18
  51.     if the castNum of sprite 43 = 24 then
  52.       set the castNum of sprite 43 to 25
  53.     else
  54.       set the castNum of sprite 43 to 24
  55.     end if
  56.   else
  57.     if (the castNum of sprite 42 = 16) or (the castNum of sprite 42 = 18) then
  58.       set the castNum of sprite 42 to 15
  59.     else
  60.       set the castNum of sprite 42 to 16
  61.     end if
  62.   end if
  63.   wait(8)
  64.   go(the frame)
  65. end
  66.