home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00078.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  1.5 KB  |  50 lines
  1. on exitFrame
  2.   global DR, TEMDR, HEAD, SOLUTION, TEMBUTGRID, BUTGRID, PUZZ, SOL, SOLCNT, SOLUTIONFLAG, OPT
  3.   set OPT to 0
  4.   set SOL to EMPTY
  5.   set SOLCNT to 0
  6.   set SOLUTION to EMPTY
  7.   set TEMBUTGRID to 0
  8.   set BUTGRID to 0
  9.   set TEMDR to 0
  10.   set DR to 0
  11.   puppetSprite(8, 1)
  12.   set the locH of sprite 8 to -2000
  13.   set the locV of sprite 8 to -2000
  14.   puppetSprite(12, 1)
  15.   set the locH of sprite 12 to -2000
  16.   set the locV of sprite 12 to -2000
  17.   puppetSprite(9, 1)
  18.   set the locH of sprite 9 to -2000
  19.   set the locV of sprite 9 to -2000
  20.   puppetSprite(10, 1)
  21.   set the trails of sprite 10 to 1
  22.   set the locH of sprite 10 to -2000
  23.   set the locV of sprite 10 to -2000
  24.   puppetSprite(30, 1)
  25.   set the locH of sprite 30 to -2000
  26.   set the locV of sprite 30 to -2000
  27.   updateStage()
  28.   puppetSprite(11, 1)
  29.   set the trails of sprite 10 to 1
  30.   set the locH of sprite 10 to -2000
  31.   set the locV of sprite 10 to -2000
  32.   set the castNum of sprite 11 to 102
  33.   if (PUZZ = 1) or (PUZZ = 4) or (PUZZ = 7) or (PUZZ = 11) or (PUZZ = 15) or (PUZZ = 18) or (PUZZ = 21) or (PUZZ = 25) then
  34.     set the castNum of sprite 11 to 100
  35.   end if
  36.   if (PUZZ = 2) or (PUZZ = 3) or (PUZZ = 6) or (PUZZ = 10) or (PUZZ = 14) or (PUZZ = 17) or (PUZZ = 20) or (PUZZ = 24) then
  37.     set the castNum of sprite 11 to 101
  38.   end if
  39.   set the keyUpScript to "eempty"
  40.   GETFLOOR()
  41.   if SOLUTIONFLAG = 0 then
  42.     set the keyUpScript to "GETDIR"
  43.   else
  44.     set the keyUpScript to EMPTY
  45.   end if
  46.   set the trails of sprite 10 to 0
  47.   set the trails of sprite 11 to 0
  48.   set the trails of sprite 12 to 0
  49. end
  50.