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