You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

162 lines
4.3 KiB

REM This is an example of a more complex program,
REM which spawns procedural waves
LET wave = 0
LET timeout = @time + 120000
initial_wait:
LET remaining = timeout - @time
IF remaining <= 0 THEN
GOTO main
END IF
PRINT "[red]Enemies[white] approaching: "
PRINT ceil(remaining / 1000), " s"
PRINT_FLUSH_GLOBAL(mission)
wait(0.5)
GOTO initial_wait
main:
wave = wave + 1
REM TODO: difficult control wave multiplier
LET progression = POW(wave / 4, 0.75)
REM TODO: optimize duplicate operations
progression = MIN(progression / 2 + rand(progression / 2), 10)
LET units = 2 + SQRT(progression) * 4 + RAND(progression * 2)
REM TODO: difficulty control unit amount
units = CEIL(units * 1)
LET tank_units = FLOOR(RAND(units))
LET mech_units = FLOOR(RAND(units - tank_units))
LET air_units = units - tank_units - mech_units
LET spawnx = 30
LET spawny = 50
GOTO spawn_tank
spawn_tank_end:
GOTO spawn_mech
spawn_mech_end:
LET spawnx = 20
GOTO spawn_air
spawn_air_end:
WRITE(wave, cell1, 1)
READ(timeout, cell1, 0)
timeout = @time + timeout * 1000
main_wait:
LET remaining = timeout - @time
IF remaining <= 0 THEN
GOTO main
END IF
PRINT "[yellow]Wave ", wave, "[white] - "
PRINT "Next wave: ", ceil(remaining / 1000), " s"
PRINT_FLUSH_GLOBAL(mission)
wait(0.5)
GOTO main_wait
spawn_tank:
FOR spawned = 1 TO tank_units
LET roll = rand(progression)
IF roll >= 3 THEN
IF roll >= 4 THEN
SPAWN(@conquer, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 5.75
ELSE
SPAWN(@vanquish, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 3.5
END IF
ELSE
IF roll >= 2 THEN
SPAWN(@precept, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 3.25
ELSE
REM Small units can unclump easily
IF roll >= 1 THEN
SPAWN(@locus, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 1.0
ELSE
SPAWN(@stell, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 1.0
END IF
END IF
END IF
IF spawnx < 10 THEN
spawnx = 10
END IF
NEXT spawned
GOTO spawn_tank_end
spawn_mech:
FOR spawned = 1 TO mech_units
LET roll = rand(progression)
IF roll >= 3 THEN
IF roll >= 4 THEN
SPAWN(@collaris, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 5.5
ELSE
SPAWN(@tecta, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 2.87
END IF
ELSE
IF roll >= 2 THEN
SPAWN(@anthicus, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 2.62
ELSE
IF roll >= 1 THEN
SPAWN(@cleroi, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 1.0
ELSE
SPAWN(@merui, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 1.0
END IF
END IF
END IF
IF spawnx < 10 THEN
spawnx = 10
END IF
NEXT spawned
GOTO spawn_mech_end
spawn_air:
FOR spawned = 1 TO air_units
LET roll = rand(progression)
IF roll >= 3 THEN
IF roll >= 4 THEN
SPAWN(@disrupt, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 5.75
ELSE
SPAWN(@quell, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 4.5
END IF
ELSE
IF roll >= 2 THEN
SPAWN(@obviate, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 3.12
ELSE
IF roll >= 1 THEN
SPAWN(@avert, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 1
ELSE
SPAWN(@elude, spawnx, spawny, 0, @crux, _)
spawnx = spawnx - 1
END IF
END IF
END IF
IF spawnx < 10 THEN
spawnx = 10
END IF
NEXT spawned
GOTO spawn_air_end