home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00168.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  760 b   |  35 lines
  1. on BLUEWAVE
  2.   global GRIDV, GRIDH, GRIDY, TY, TH, NYC, DT, TURN, N, SOND
  3.   set TY to 0
  4.   set TH to 0
  5.   set N to 0
  6.   repeat while N = 0
  7.     set NYC to random(125)
  8.     if getAt(GRIDV, NYC) = 2 then
  9.       set N to 1
  10.       set TY to getAt(GRIDY, NYC)
  11.       set TH to getAt(GRIDH, NYC)
  12.     end if
  13.   end repeat
  14.   updateStage()
  15.   set DT to 2
  16.   set the locH of sprite 10 to TH
  17.   set the locV of sprite 10 to TY
  18.   repeat with N = 1 to 8
  19.     set the castNum of sprite 10 to 207
  20.     updateStage()
  21.     COUNTTIME()
  22.     set the castNum of sprite 10 to 208
  23.     updateStage()
  24.     COUNTTIME()
  25.   end repeat
  26.   if TURN = 2 then
  27.     set the castNum of sprite 10 to 12
  28.   end if
  29.   if TURN = 1 then
  30.     set the castNum of sprite 10 to 69
  31.   end if
  32.   updateStage()
  33.   REMOVESPRITE()
  34. end
  35.