home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00083_PUTBACKBOARD.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  2.5 KB  |  83 lines
  1. on PUTBACKBOARD
  2.   global FLOOR, GRIDX, GRIDY, GRIDVAL, TELE, L, MAN, startMovie, BUTGRID, TEMBUTGRID, PUZZ, SOLUTIONFLAG, SOLCNT, SOL, TEMPBOARD, HEAD, THEAD, DR
  3.   set GRIDVAL to []
  4.   repeat with n = 10 to 12
  5.     set the locH of sprite n to -2000
  6.     set the locV of sprite n to -2000
  7.     updateStage()
  8.   end repeat
  9.   set the trails of sprite 10 to 1
  10.   set the trails of sprite 11 to 1
  11.   set the trails of sprite 12 to 1
  12.   set the locH of sprite 8 to -2000
  13.   set the locV of sprite 8 to -2000
  14.   updateStage()
  15.   repeat with n = 1 to 168
  16.     if getAt(TEMPBOARD, n) = 15 then
  17.       setAt(GRIDVAL, n, 15)
  18.       set BUTGRID to n
  19.       set TEMBUTGRID to n
  20.       set the locH of sprite 8 to getAt(GRIDX, n)
  21.       set the locV of sprite 8 to getAt(GRIDY, n)
  22.       updateStage()
  23.     end if
  24.     if getAt(TEMPBOARD, n) = 0 then
  25.       setAt(GRIDVAL, n, 0)
  26.     end if
  27.     if getAt(TEMPBOARD, n) = 1 then
  28.       setAt(GRIDVAL, n, 1)
  29.       set the locH of sprite 10 to getAt(GRIDX, n)
  30.       set the locV of sprite 10 to getAt(GRIDY, n)
  31.       updateStage()
  32.     end if
  33.     if getAt(TEMPBOARD, n) = 5 then
  34.       setAt(GRIDVAL, n, 5)
  35.       set the locH of sprite 12 to getAt(GRIDX, n)
  36.       set the locV of sprite 12 to getAt(GRIDY, n)
  37.       updateStage()
  38.     end if
  39.     if getAt(TEMPBOARD, n) = 2 then
  40.       setAt(GRIDVAL, n, 2)
  41.       set the locH of sprite 11 to getAt(GRIDX, n)
  42.       set the locV of sprite 11 to getAt(GRIDY, n)
  43.       updateStage()
  44.     end if
  45.     if getAt(TEMPBOARD, n) = 100 then
  46.       setAt(GRIDVAL, n, 0)
  47.       set MAN to n
  48.       set the locH of sprite 30 to getAt(GRIDX, n)
  49.       set the locV of sprite 30 to getAt(GRIDY, n)
  50.       updateStage()
  51.     end if
  52.     if getAt(TEMPBOARD, n) = 30 then
  53.       setAt(GRIDVAL, n, 30)
  54.       set TELE to n
  55.       set the locH of sprite 9 to getAt(GRIDX, n)
  56.       set the locV of sprite 9 to getAt(GRIDY, n)
  57.       updateStage()
  58.     end if
  59.   end repeat
  60.   repeat with n = 10 to 12
  61.     set the locH of sprite n to -2000
  62.     set the locV of sprite n to -2000
  63.     updateStage()
  64.   end repeat
  65.   set TEMPBOARD to []
  66.   repeat with n = 1 to 168
  67.     setAt(TEMPBOARD, n, getAt(GRIDVAL, n))
  68.   end repeat
  69.   setAt(TEMPBOARD, MAN, 100)
  70.   set the locH of sprite 30 to getAt(GRIDX, MAN)
  71.   set the locV of sprite 30 to getAt(GRIDY, MAN)
  72.   updateStage()
  73.   if HEAD = 1 then
  74.     set the locH of sprite 11 to getAt(GRIDX, MAN - 14)
  75.     set the locV of sprite 11 to getAt(GRIDY, MAN - 14)
  76.     updateStage()
  77.   end if
  78.   set the trails of sprite 10 to 0
  79.   set the trails of sprite 11 to 0
  80.   set the trails of sprite 12 to 0
  81.   updateStage()
  82. end
  83.