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 / 00100_PUTINCLOCK.ls < prev    next >
Encoding:
Text File  |  1999-08-01  |  2.3 KB  |  90 lines
  1. on PUTINCLOCK
  2.   global EBALL1, EBALL2, EBALL3, EBALL4, E1CNT, E2CNT, E3CNT, E4CNT, EBALL1H, EBALL2H, EBALL3H, EBALL4H, EBALL1V, EBALL2V, EBALL3V, EBALL4V, EDR1, EDR2, EDR3, EDR4, LEVEL, TOTTICK, TICKIN, TICKIN1, HOLE, CLOCKCNT, STC, min, SEC, MINTXT, SECTXT, DELAYIT, FLAGCLOCK
  3.   set SECTXT to EMPTY
  4.   set MINTXT to EMPTY
  5.   set DELAYIT to DELAYIT + 1
  6.   if CLOCKCNT > 59 then
  7.     set min to min + 1
  8.     set CLOCKCNT to 0
  9.   end if
  10.   set TOTTICK to TOTTICK + 1
  11.   if TOTTICK = TICKIN then
  12.     MOVETELEPORT()
  13.   end if
  14.   if TOTTICK = (TICKIN + 10) then
  15.     set the locH of sprite 7 to -2000
  16.     set the locV of sprite 7 to -2000
  17.     set HOLE to 0
  18.   end if
  19.   if TOTTICK = TICKIN1 then
  20.     MOVETELEPORT()
  21.   end if
  22.   if TOTTICK = (TICKIN1 + 10) then
  23.     set the locH of sprite 7 to -2000
  24.     set the locV of sprite 7 to -2000
  25.     set HOLE to 0
  26.   end if
  27.   if CLOCKCNT < 10 then
  28.     set SECTXT to "0" & string(CLOCKCNT)
  29.   end if
  30.   if CLOCKCNT > 9 then
  31.     set SECTXT to string(CLOCKCNT)
  32.   end if
  33.   set the text of cast "CLOCKTXT" to string(min) & ":" & SECTXT
  34.   set FLAGCLOCK to 0
  35.   if the text of cast "CLOCKTXT" = "0:30" then
  36.     set FLAGCLOCK to 1
  37.   end if
  38.   if the text of cast "CLOCKTXT" = "0:59" then
  39.     set FLAGCLOCK to 1
  40.   end if
  41.   if the text of cast "CLOCKTXT" = "1:30" then
  42.     set FLAGCLOCK to 1
  43.   end if
  44.   if FLAGCLOCK = 0 then
  45.     exit
  46.   end if
  47.   if (LEVEL = 4) and (the text of cast "CLOCKTXT" = "0:30") then
  48.     exit
  49.   end if
  50.   if (LEVEL = 6) and (the text of cast "CLOCKTXT" = "0:30") then
  51.     exit
  52.   end if
  53.   if FLAGCLOCK = 1 then
  54.     if EBALL2 = 0 then
  55.       set FLAGCLOCK to 2
  56.     end if
  57.     if (EBALL3 = 0) and (FLAGCLOCK = 1) then
  58.       set FLAGCLOCK to 3
  59.     end if
  60.     if (EBALL4 = 0) and (FLAGCLOCK = 1) then
  61.       set FLAGCLOCK to 4
  62.     end if
  63.   end if
  64.   if FLAGCLOCK = 2 then
  65.     set EBALL2 to EBALL1
  66.     set EBALL2H to EBALL1H
  67.     set EBALL2V to EBALL1V
  68.     set E2CNT to E1CNT
  69.     set EDR2 to EDR1
  70.   end if
  71.   if LEVEL > 2 then
  72.     if FLAGCLOCK = 3 then
  73.       set EBALL3 to EBALL1
  74.       set EBALL3H to EBALL1H
  75.       set EBALL3V to EBALL1V
  76.       set E3CNT to E1CNT
  77.       set EDR3 to EDR1
  78.     end if
  79.   end if
  80.   if LEVEL > 4 then
  81.     if FLAGCLOCK = 4 then
  82.       set EBALL4 to EBALL1
  83.       set EBALL4H to EBALL1H
  84.       set EBALL4V to EBALL1V
  85.       set E4CNT to E1CNT
  86.       set EDR4 to EDR1
  87.     end if
  88.   end if
  89. end
  90.