home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00005.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  1.6 KB  |  67 lines
  1. on exitFrame
  2.   global TELECNT, MAN, TELE, BUTGRID, TEMBUTGRID, SOL, UPG, SOLCNT, SOLUTIONFLAG, PUZZ, OPT
  3.   if OPT = 5 then
  4.     set the keyUpScript to "EEMPTY"
  5.     if UPG = 0 then
  6.       set the keyDownScript to "checkfor"
  7.       CLEARPUP()
  8.       go("closeoutsw")
  9.     end if
  10.     if UPG = 1 then
  11.       set the keyDownScript to EMPTY
  12.       CLEARPUP()
  13.       go("CLOSEOUTREG")
  14.     end if
  15.   end if
  16.   if SOLUTIONFLAG = 1 then
  17.     GETDIR()
  18.   end if
  19.   if (OPT = 1) and (SOLUTIONFLAG = 0) then
  20.     set OPT to 0
  21.     play frame "OPTIONS"
  22.   end if
  23.   if (BUTGRID = 1000) and (MAN <> TEMBUTGRID) then
  24.     set BUTGRID to 1001
  25.     set the trails of sprite 10 to 1
  26.     set the locH of sprite 10 to getAt(GRIDX, TEMBUTGRID)
  27.     set the locV of sprite 10 to getAt(GRIDY, TEMBUTGRID)
  28.     updateStage()
  29.     set the locH of sprite 10 to -2000
  30.     set the locV of sprite 10 to -2000
  31.     set TEMBUTGRID to 1001
  32.     updateStage()
  33.   end if
  34.   if MAN <> 0 then
  35.     if MAN = TELE then
  36.       set MAN to MAN
  37.     end if
  38.     if MAN = BUTGRID then
  39.       REMOVEFLOORS()
  40.     end if
  41.   end if
  42.   ANIMATEORACLE()
  43.   if MAN = TELE then
  44.     startTimer()
  45.     set TTIME to the timer
  46.     repeat while the timer < (TTIME + 30)
  47.     end repeat
  48.     if SOLUTIONFLAG = 0 then
  49.       set the keyUpScript to "EEMPTY"
  50.       RECORDSCORE()
  51.       startTimer()
  52.       set TTIME to the timer
  53.       repeat while the timer < (TTIME + 30)
  54.       end repeat
  55.     end if
  56.     set SOL to EMPTY
  57.     set PUZZ to 0
  58.     set SOLUTIONFLAG to 0
  59.     go("PUZSOLV")
  60.   end if
  61.   if (OPT = 1) and (SOLUTIONFLAG = 0) then
  62.     set OPT to 0
  63.     go("OPTIONS")
  64.   end if
  65.   go(the frame)
  66. end
  67.