home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / IE.DXR / 00168.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  1.3 KB  |  60 lines
  1. on enterFrame
  2.   global CastleLoop, NeighborLoop, RainForestLoop
  3.   startTimer()
  4.   repeat while the timer < (50 * 8)
  5.     if rollOver(9) then
  6.       set the visible of sprite 12 to 1
  7.       updateStage()
  8.       if the mouseDown then
  9.         set CastleLoop to "on"
  10.         play frame "Castle"
  11.         exit repeat
  12.       end if
  13.     else
  14.       set the visible of sprite 12 to 0
  15.       updateStage()
  16.     end if
  17.     if rollOver(10) then
  18.       set the visible of sprite 13 to 1
  19.       updateStage()
  20.       if the mouseDown then
  21.         set NeighborLoop to "on"
  22.         play frame "Neighbrhd."
  23.         exit repeat
  24.       end if
  25.     else
  26.       set the visible of sprite 13 to 0
  27.       updateStage()
  28.     end if
  29.     if rollOver(11) then
  30.       set the visible of sprite 14 to 1
  31.       updateStage()
  32.       if the mouseDown then
  33.         set RainForestLoop to "on"
  34.         play frame "RF"
  35.         exit repeat
  36.       end if
  37.     else
  38.       set the visible of sprite 14 to 0
  39.       updateStage()
  40.     end if
  41.     if rollOver(16) then
  42.       set the visible of sprite 17 to 1
  43.       updateStage()
  44.       if the mouseDown then
  45.         play frame "Demo"
  46.         exit repeat
  47.       end if
  48.     else
  49.       set the visible of sprite 17 to 0
  50.       updateStage()
  51.     end if
  52.     if rollOver(48) then
  53.       if the mouseDown then
  54.         play done
  55.         exit repeat
  56.       end if
  57.     end if
  58.   end repeat
  59. end
  60.