home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00004_SETUPBOARD.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  1.0 KB  |  38 lines
  1. on SETUPBOARD
  2.   global GRIDX, GRIDY, MAN, HEAD, TELE, TELECNT, OPT
  3.   set OPT to 0
  4.   set TELECNT to 0
  5.   repeat with n = 1 to 14 * 12
  6.     set G to random(5)
  7.     if G = 1 then
  8.       set the locH of sprite 11 to getAt(GRIDX, n)
  9.       set the locV of sprite 11 to getAt(GRIDY, n)
  10.       setAt(GRIDVAL, n, 2)
  11.       updateStage()
  12.     end if
  13.     if G < 5 then
  14.       next repeat
  15.     end if
  16.     set the locH of sprite 10 to getAt(GRIDX, n)
  17.     set the locV of sprite 10 to getAt(GRIDY, n)
  18.     setAt(GRIDVAL, n, 1)
  19.     updateStage()
  20.   end repeat
  21.   set the locH of sprite 30 to getAt(GRIDX, 41)
  22.   set the locV of sprite 30 to getAt(GRIDY, 41)
  23.   updateStage()
  24.   set MAN to 41
  25.   set the keyUpScript to "GETDIR"
  26.   repeat with n = 10 to 11
  27.     set the locH of sprite n to -2000
  28.     set the locV of sprite n to -2000
  29.     updateStage()
  30.   end repeat
  31.   set TELE to random(164)
  32.   set the castNum of sprite 9 to 14
  33.   set the locH of sprite 9 to getAt(GRIDX, TELE)
  34.   set the locV of sprite 9 to getAt(GRIDY, TELE)
  35.   updateStage()
  36.   setAt(GRIDVAL, TELE, 30)
  37. end
  38.