home *** CD-ROM | disk | FTP | other *** search
/ Más de 2,500 Juegos / CD1.iso / ZIPDAT / 0324 / 0324.ZIP / Setup.exe / SQUARK.EXE / SQUARK.dxr / 00103_NEWLEVEL.ls < prev    next >
Encoding:
Text File  |  1999-08-01  |  3.7 KB  |  124 lines
  1. on NEWLEVEL
  2.   global GRIDX, GRIDY, X, Y, DESGRIDNUM, TRIANGLE, VALDR, DR, GRIDNUM, SPEED, BALLCNT, TRINUM, TRIX, TRIY, row, COL, D1, D2, D3, D4, TEMDR, ESPEED, EBALL1, EBALL2, EBALL3, EBALL4, EBALL1H, EBALL1V, EBALL2H, EBALL2V, EBALL3H, EBALL3V, EBALL4H, EBALL4V, E1CNT, E2CNT, E3CNT, E4CNT, EDR1, EDR2, EDR3, DOT1, DOD2, EDR4, SQUARECNT, GHOST, CLOCKCNT, CLOCKSTART, min, SEC, DELAYIT, BALLSLEFT, TILECNT, LEVEL, BONUSROUND, DEAD
  3.   set DEAD to 0
  4.   set VALDR to []
  5.   set VALDR to [0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1]
  6.   set TILECNT to 0
  7.   set DELAYIT to 0
  8.   set min to 0
  9.   set SEC to 0
  10.   set CLOCKCNT to 0
  11.   set the text of cast "CLOCKTXT" to "0:00"
  12.   set GHOST to 0
  13.   set SQUARECNT to 0
  14.   set DOT1 to 0
  15.   set DOT2 to 0
  16.   set EDR1 to 1
  17.   set EDR2 to 4
  18.   set EDR3 to 1
  19.   set EDR4 to 4
  20.   set E1CNT to 0
  21.   set E2CNT to 0
  22.   set E3CNT to 0
  23.   set E4CNT to 0
  24.   set EBALL1 to 42
  25.   set EBALL2 to 0
  26.   set EBALL3 to 0
  27.   set EBALL4 to 0
  28.   PUTBALLBOX()
  29.   set row to 1
  30.   set COL to 1
  31.   repeat with n = 1 to 30
  32.     if getAt(TRINUM, n) <> 46 then
  33.       setAt(TRINUM, n, 30)
  34.       set the castNum of sprite (12 + n) to cast "T0"
  35.       set the locH of sprite (12 + n) to getAt(TRIX, n)
  36.       set the locV of sprite (12 + n) to getAt(TRIY, n)
  37.       updateStage()
  38.     end if
  39.   end repeat
  40.   set TRIANGLE to []
  41.   repeat with n = 1 to 30
  42.     append(TRIANGLE, 0)
  43.     append(TRIANGLE, 0)
  44.     append(TRIANGLE, 0)
  45.     append(TRIANGLE, 0)
  46.     setAt(TRINUM, n, 30)
  47.   end repeat
  48.   set BALLCNT to 0
  49.   set GRIDNUM to 1
  50.   set DESGRIDNUM to 1
  51.   set DR to 0
  52.   set TEMDR to 4
  53.   repeat with n = 6 to 7
  54.     puppetSprite(n, 1)
  55.     set the locH of sprite n to -2000
  56.     set the locV of sprite n to -2000
  57.     updateStage()
  58.   end repeat
  59.   puppetSprite(8, 1)
  60.   set X to getAt(GRIDX, 1)
  61.   set Y to getAt(GRIDY, 1)
  62.   set the locH of sprite 8 to X
  63.   set the locV of sprite 8 to Y
  64.   updateStage()
  65.   set EBALL1H to getAt(GRIDX, 42)
  66.   set EBALL1V to getAt(GRIDY, 42)
  67.   set EBALL2H to getAt(GRIDX, 42)
  68.   set EBALL2V to getAt(GRIDY, 42)
  69.   set EBALL3H to getAt(GRIDX, 42)
  70.   set EBALL3V to getAt(GRIDY, 42)
  71.   set EBALL4H to getAt(GRIDX, 42)
  72.   set EBALL4V to getAt(GRIDY, 42)
  73.   repeat with n = 9 to 12
  74.     puppetSprite(n, 1)
  75.     set the locH of sprite n to -2000
  76.     set the locV of sprite n to -2000
  77.     updateStage()
  78.   end repeat
  79.   repeat with n = 9 to 12
  80.     set the castNum of sprite n to cast "GREENBALL"
  81.   end repeat
  82.   set the locH of sprite 9 to EBALL1H
  83.   set the locV of sprite 9 to EBALL1V
  84.   if BONUSROUND = 0 then
  85.     set LEVEL to LEVEL + 1
  86.   end if
  87.   set the text of cast "LEVELTXT" to string(LEVEL)
  88.   repeat with n = 1 to 30
  89.     set the castNum of sprite (n + 12) to 30
  90.     set the locH of sprite (n + 12) to getAt(TRIX, n)
  91.     set the locV of sprite (n + 12) to getAt(TRIY, n)
  92.   end repeat
  93.   set EBALL1 to 42
  94.   if LEVEL > 5 then
  95.     set EBALL2 to 42
  96.   end if
  97.   if LEVEL > 8 then
  98.     set EBALL3 to 42
  99.   end if
  100.   if LEVEL = 3 then
  101.     set EBALL2 to 42
  102.   end if
  103.   PUTINWALLS()
  104.   ESPRITE()
  105.   PUTINDOTS()
  106.   PUTINBONUSGRID()
  107.   repeat with n = 1 to 30
  108.     if getAt(TRINUM, n) <> 46 then
  109.       set SQUARECNT to SQUARECNT + 1
  110.     end if
  111.   end repeat
  112.   set SPEED to 5
  113.   if LEVEL < 6 then
  114.     set ESPEED to 4
  115.   end if
  116.   if (LEVEL >= 6) or (LEVEL = 2) then
  117.     set ESPEED to 5
  118.   end if
  119.   startTimer()
  120.   set the keyDownScript to "GETDIRECTION"
  121.   puppetSound("THUD.WAV")
  122.   go("BEG")
  123. end
  124.