;;; This is a test game that mentions *everything*. ;;; ;;; Comments and symbols or strings beginning with xxx ;;; will be filtered out when comparing with the set of ;;; defined symbols. (game-module "all" (base-game "") (base-module "") (blurb "xxxyyy") (default-base-module "") (design-notes "") (instructions "") (notes "") (picture-name "xxxzzz") (title "xxx") (variants (real-time) (see-all) (sequential) (world-seen) (world-size) (economy) (people) (supply) ) (version "") (original-module) (original-variants) (original-version) ) (unit-type xxxunit (start-with 1) (acp-damage-effect nil) (acp-independent 0) (acp-max 1) (acp-min 0) (acp-morale-effect nil) (acp-per-turn 1) (acp-per-turn-max 0) (acp-per-turn-min 0) (acp-season-effect nil) (acp-temperature-effect nil) (acp-to-change-side 0) (acp-to-detonate 0) (acp-to-disband 0) (acp-to-fire 0) (acp-to-move 0) (acp-to-transfer-part 0) (action-priority 0) (advanced 0) (advanced-auto-construct 0) (advanced-auto-research 0) (ai-peace-garrison 0) (ai-tactical-range 1) (ai-war-garrison 0) (already-seen 0) (already-seen-independent 0) (assign-number 0) (attack 0) (available 1) (can-be-self 0) (can-research 0) (capacity 0) (char "") (colonizer 0) (consumption-temperature-effect nil) (country-units-max 0) (courage-max 0) (courage-min 0) (cp 1) (cp-attrition 0) (cp-per-self-build 0) (cp-to-self-build 0) (cxp-max 0) (cxp-on-capture-effect 0) (defend 0) (description-format nil) (detonate-on-death 0) (direct-control 1) (encounter-result '((vanish nil ""))) (facility 0) (facility-total-max 0) (fire-angle-max 0) (free-acp 0) (free-mp 0) (generic-char "") (generic-name "") (help "") (hit-falloff-range 0) (hp-max 1) (hp-per-disband 0) (hp-per-detonation 0) (hp-recovery 0) (hp-to-recover 0) (image-name "") (independent-growth-chance 0) (independent-near-start 0) (independent-takeover-chance 0) (initial-seen-radius 0) (long-name "") (lost-revolt-chance 0) (lost-vanish-chance 0) (lost-wreck-chance 0) (minimal-size-goal 0) (mobile-total-max 0) (morale-max 0) (morale-recovery 0) (move-range 0) (mp-to-leave-world 0) (namer "") (name "") (name-internal "") (naval 0) (notes nil) (obsolete 0) (occupant-total-max 0) (opinion-max 0) (opinion-min 0) (point-value 0) (parts-max 1) (possible-sides nil) (range 0) (range-min 0) (reach 0) (revolt-at-opinion-min 0) (revolt-chance 0) (road-to-edge-chance 0) (see-always 0) (see-occupants 0) (see-terrain-if-captured 0) (self-changeable 0) (self-resurrects 0) (short-name "") (speed 0) (speed-max 0) (speed-damage-effect nil) (speed-min 0) (speed-wind-effect nil) (spot-action 1) (spur-chance 0) (spur-range 0) (spy-chance 0) (spy-range 0) (stack-order 0) (start-with 0) (tech-from-ownership 0) (tech-leakage 0) (tech-max 0) (tech-per-turn-max 0) (tech-to-build 0) (tech-to-own 0) (tech-to-see 0) (tech-to-use 0) (temperature-attrition nil) (type-in-game-max -1) (type-per-side-max -1) (unit-growth-chance 0) (unit-takeover-chance 0) (use-own-cell 0) (vision-range 0) (vision-bend 0) (wrecked-type 1) (zz-b 0) (zz-bb 0) (zz-transport 0) (zz-c 0) (zz-cm 0) (zz-cc 0) (zz-bw 0) ) (unit-type xxxunit2) (terrain-type xxxterrain (alt-percentile-max 0) (alt-percentile-min 0) (capacity 0) (char "") (clouds-max 0) (clouds-min 0) (country-growth-chance 0) (country-people-chance 0) (country-takeover-chance 0) (country-terrain-max 0) (country-terrain-min 0) (elevation-max 0) (elevation-min 0) (help "") (image-name "") (independent-people-chance 0) (liquid 0) (maze-passage-occurrence 0) (maze-room-occurrence 0) (name "") (notes nil) (occurrence 0) (people-max 0) (river-chance 0) (subtype 0) (subtype-x 0) (temperature-average 0) (temperature-max 0) (temperature-min 0) (temperature-variability 0) (thickness 0) (wet-percentile-max 0) (wet-percentile-min 0) (wind-force-average 0) (wind-force-max 0) (wind-force-min 0) (wind-force-variability 0) (wind-variability 0) (zz-fr 0) ) (terrain-type xxxterrain2 (subtype border) ) (terrain-type xxxterrain3 (subtype connection) ) (terrain-type xxxterrain4 (subtype coating) ) (material-type xxxmaterial (char "m") (help "") (image-name "") (initial-treasury 0) (name "") (notes nil) (people 0) (resource-icon 0) (treasury 0) ) (advance-type xxxadvance (help "") (image-name "") (name "") (notes nil) (rp 1) ) ;(print false) ;(print true) (add xxxunit start-with 1) ;;; Variables. (set action-movies nil) (set action-narratives nil) (set action-notices nil) (set advantage-default 1) (set advantage-max 3) (set advantage-min 1) (set ai-advanced-unit-separation 0) (set ai-badtask-remove-chance 0) (set ai-badtask-max-retries 0) (set ai-badtask-reserve-chance 0) (set ai-may-resign 0) (set alt-blob-density 0) (set alt-blob-height 0) (set alt-blob-size 0) (set alt-smoothing 0) (set bigicons 0) (set calendar nil) (set combat-model 0) (set contour-color "red") (set country-border-color "blue") (set country-radius-max 0) (set country-radius-min 0) (set country-separation-max 0) (set country-separation-min 0) (set create-units-from-specs true) (set default-namer "") (set disband-unfinished-units 0) (set edge-road-density 0) (set edge-terrain 0) (set elapsed-real-time 0) (set event-movies nil) (set event-narratives nil) (set event-notices nil) (set extra-turn-chance 0) (set feature-colors nil) (set feature-namers nil) (set feature-types nil) (set frontline-color "green") (set grid-color "") (set growth-stop-chance 0) (set indepside-can-build 0) (set indepside-can-develop 0) (set indepside-can-research 0) (set indepside-has-ai 0) (set indepside-has-treasury 0) (set initial-date "") (set initial-date-max "") (set initial-date-min "") (set initial-day-part 0) (set initial-year-part 0) (set last-turn 100) (set maze-passage-density 0) (set maze-room-density 0) (set meridian-color "black") (set no-indepside-ingame 0) ;(set player-mix-default nil) ;(set player-mix-required nil) (set player-sides-locked 0) (set random-state 0) (set real-time-for-game 0) (set real-time-per-side 0) (set real-time-per-turn 0) (set river-sink-terrain 0) (set zz-run-serial-number 12345) (set salvage-unfinished-cps 0) (set salvage-unfinished-materials 0) (set scorefile-name "") (set season-names nil) (set see-all 1) (set see-terrain-always 0) (set see-weather-always 0) (set self-required 0) (set shoreline-color "blue") (set side-can-research 0) (set side-color-library nil) (set side-library nil) (set sides-max 9) (set sides-min 1) (set synthesis-methods nil) (set synthesis-done nil) (set temperature-floor 0) (set temperature-floor-elevation 0) (set temperature-moderation-range 0) (set terrain-seen 0) (set turn 0) (set unit-name-color "white") (set units-in-game-max 100) (set units-may-go-into-reserve 0) (set units-per-side-max 100) (set unseen-char "") (set unseen-color "") (set use-side-priority 0) (set wet-blob-density 0) (set wet-blob-height 0) (set wet-blob-size 0) (set wet-smoothing 0) (set wind-mix-range 0) ;;; Tables. (table accident-damage) (table accident-hit-chance) (table accident-vanish-chance) (table acp-night-effect) (table acp-for-retreat) (table acp-occupant-effect) (table acp-to-add-terrain) (table acp-to-attack) (table acp-to-be-fired-on) (table acp-to-build) (table acp-to-capture) (table acp-to-change-type) (table acp-to-create) (table acp-to-defend) (table acp-to-enter-unit) (table acp-to-extract) (table acp-to-load) (table acp-to-remove-terrain) (table acp-to-produce) (table acp-to-repair) (table acp-to-develop) (table acp-to-toolup) (table acp-to-unload) (table advance-add-maxcells) (table advance-add-production) (table advance-consumption-per-rp) (table advance-mult-maxcells) (table advance-multiply-production) (table advance-needed-to-build) (table advance-needed-to-research) (table adjacent-terrain-effect) (table alter-terrain-range) (table altitude-max) (table altitude-min) (table attack-range) (table attack-range-min) (table attack-terrain-effect) (table attrition) (table auto-repair) (table auto-repair-range) (table base-consumption) (table base-production) (table body-height) (table bridge) (table build-range) (table builder-can-reuse-cp) (table can-enter-independent) (table capacity-negation) (table capture-chance) (table cellwide-protection-against) (table cellwide-protection-for) (table change-on-exhaustion-chance) (table coating-depth-max) (table coating-depth-min) (table consumption-as-occupant) (table consumption-on-creation) (table consumption-per-add-terrain) (table consumption-per-attack) (table consumption-per-build) (table consumption-per-fire) (table consumption-per-move) (table consumption-per-repair) (table control-range) (table conversion) (table conversion-default) (table counterattack) (table countercapture) (table cp-on-creation) (table cp-per-build) (table create-range) (table cxp-per-capture) (table cxp-per-combat) (table damage) (table damage-cxp-effect) (table defend-terrain-effect) (table detonate-on-approach-range) (table detonate-on-capture) (table detonate-on-hit) (table detonation-accident-chance) (table detonation-damage-at) (table detonation-damage-adjacent) (table detonation-terrain-damage-chance) (table detonation-terrain-range) (table detonation-unit-range) (table drawable-terrain) (table eye-height) (table favored-terrain) (table ferry-on-entry) (table ferry-on-departure) (table fire-attack-terrain-effect) (table fire-damage) (table fire-defend-terrain-effect) (table fire-hit-chance) (table gives-to-treasury) (table hp-min) (table hp-to-garrison) (table hit-at-max-range-effect) (table hit-by) (table hit-chance) (table hit-cxp-effect) (table hp-per-repair) (table hp-to-repair) (table hp-per-starve) (table in-length) (table independent-density) (table independent-capture-chance) (table load-max) (table looks-like) (table lose-track-chance) (table lost-surrender-chance) (table material-per-production) (table material-per-remove-terrain) (table material-to-add-terrain) (table material-to-act) (table material-to-attack) (table material-to-build) (table material-to-change-type) (table material-to-create) (table material-to-extract) (table material-to-fire) (table material-to-move) (table material-to-produce) (table material-to-remove-terrain) (table material-to-repair) (table material-to-develop) (table morale-hit) (table morale-hit-by) (table morale-on-creation) (table morale-terrain-effect) (table mp-to-enter-own) (table mp-to-enter-terrain) (table mp-to-enter-unit) (table mp-to-enter-zoc) (table mp-to-leave-terrain) (table mp-to-leave-unit) (table mp-to-leave-zoc) (table mp-to-traverse) (table mp-to-traverse-zoc) (table occ-add-maxcells) (table occ-multiply-maxcells) (table occupant-add-production) (table occupant-base-production) (table occupant-can-construct) (table occupant-can-have-occupants) (table occupant-combat) (table occupant-escape-chance) (table occupant-max) (table occupant-multiply-production) (table occupant-supply-potential) (table occupant-vision) (table opinions-on-creation) (table out-length) (table people-consumption) (table people-production) (table people-see-chance) (table people-surrender-chance) (table people-surrender-effect) (table productivity) (table productivity-adjacent) (table productivity-max) (table productivity-min) (table protection) (table recycleable-material) (table retreat-chance) (table road-chance) (table road-into-chance) (table scuttle-chance) (table see-chance) (table see-chance-adjacent) (table see-chance-at) (table see-material-always) (table see-mistake-chance) (table see-others-if-captured) (table size-limit-without-advance) (table size-limit-without-occupant) (table speed-occupant-effect) (table spy-quality) (table spy-track-chance) (table stack-protection) (table supply-capacity-deterioration) (table supply-capacity-threshold) (table supply-deterioration) (table supply-enemy-interdiction) (table supply-importance) (table supply-in-max) (table supply-interdiction-adjacent) (table supply-interdiction-adjacent-for-material) (table supply-interdiction-at) (table supply-interdiction-at-for-material) (table supply-in-threshold) (table supply-in-weight) (table supply-neutral-interdiction) (table supply-on-creation) (table supply-on-completion) (table supply-out-max) (table supply-out-threshold) (table supply-per-disband) (table supply-potential) (table supply-potential-terrain-effect) (table supply-starve-weight) (table surrender-chance) (table surrender-chance-per-attack) (table surrender-range) (table takes-from-treasury) (table tech-crossover) (table tech-per-develop) (table temperature-protection) (table terrain-consumption) (table terrain-damaged-type) (table terrain-density) (table terrain-production) (table terrain-capacity-x) (table terrain-exhaustion-type) (table terrain-initial-supply) (table terrain-storage-x) (table tp-damage) (table tp-max) (table tp-per-toolup) (table tp-to-build) (table tp-attrition) (table tp-crossover) (table track-chance) (table unit-capacity-x) (table unit-consumption-per-cp) (table unit-consumption-per-size) (table unit-consumption-to-grow) (table unit-control-chance) (table unit-control-chance-adjacent) (table unit-control-chance-at) (table unit-control-range) (table unit-initial-supply) (table unit-size-as-occupant) (table unit-size-in-terrain (u* t* 0)) (table unit-storage-x) (table unload-max) (table vanishes-on) (table visibility) (table vision-night-effect) (table weapon-height) (table withdraw-chance-per-attack) (table wrecks-on) (table zoc-into-terrain) (table zoc-from-terrain-effect) (table zoc-range) (table zz-basic-hit-worth) (table zz-basic-capture-worth) (table zz-basic-transport-worth) ;;; The world. (world 100 (axial-tilt 30) (circumference 1000) (day-length 10) (year-length 400) (daylight-fraction 0) (twilight-fraction 0) ) (area 20 20 (cell-width 10) (height 25) (latitude 40) (longitude 180) (projection 0) (sun 1 1) (temperature-year-cycle) (width 30) ) (area (aux-terrain 1 "fnsifunosiv")) (area (cloud-bottoms "ababababababa")) (area (cloud-heights "ababababababa")) (area (clouds "ababababababa")) (area (control-sides "ababababababa")) (area (elevations "dvandkjanldfadreo")) (area (features (("foo" "typ") ("bar" "tap")) "abababaaba")) (area (material 0 "dadkjnadvadfadf")) (area (people-sides "ababababababa")) (area (temperatures "uhgfuhpoafnpuoafpjh")) (area (terrain "40a")) (area (winds "ababababababa")) (area (user "aaaaaaaaaaaaaa")) (doctrine xxxdefault-doctrine (construction-run) (rearm-percent 20) (repair-percent 20) (resupply-percent 20) (locked false) ) (doctrine xxxbe-aggressive ) ;;; Sides. (side-defaults) (side 1 (name "Oneia") (long-name "Nation of Oneia") (short-name "ON") (noun "Oneian") (plural-noun "Oneiaa") (adjective "Oneian") (color "green,blue") (emblem-name "star") (feature-namers) (names-locked true) (units) (class "test") (active true) (ever-active true) (status draw) (advantage 1) (advantage-min 1) (advantage-max 3) (initial-center-at 1 1) (controlled-by 0) (trusts) (trades) (next-numbers (xxxunit 46)) (unit-namers) (feature-namers) (tech) (init-tech) (action-priorities) (already-seen) (terrain-view) (terrain-view-dates) (aux-terrain-view) (aux-terrain-view-dates) (unit-views) (material-view) (material-view-dates) (temperature-view) (temperature-view-dates) (cloud-view) (cloud-bottom-view) (cloud-height-view) (cloud-view-dates) (wind-view) (wind-view-dates) (turn-time-used 3) (total-time-used 15) (timeouts 3) (timeouts-used 0) (finished-turn false) (willing-to-draw false) (default-doctrine xxxdefault-doctrine) (doctrines (u* xxxdefault-doctrine) (xxxunit xxxbe-aggressive)) (doctrines-locked false) (standing-order xxxunit (always) (move-to 1 2 3 4) ) (self-unit 0) (priority 1) (scores (1 3) (2 15)) (loss-counts) (gain-counts) (attack-stats) (hit-stats) (ui-data) (ai-data) (player 1) (advance) (treasury) ) (side 2 (active false) (status win) ) (side 3 (status lose) ) (side 4 (controlled-by 1) ) (independent-units (color "black") ) ;;; Players. (player 0) (player 1 (name "Joe") (config-name "xxx") (display-name "screen") (ai-type-name "stupid") (password "IUL8h786m") (initial-advantage 1) ) ;;; Units. (unit-defaults) (unit xxxunit (@ 5 2 10000) (# 3) (cp 1) (cxp 0) (hp 1) (in 0) (m 0) (mo 0) (n "CPT Socks") (nb 34) (opinions 0 0) (os 1) (s 1) (sym xxxfoo) (tp 0 0 0) (trk) (z 15000) (x (xxxhi xxxthere) (appear 2) (disappear 4) (sides) ) (acp 1) (acp0 10) (am 3) (prod) (size 0) (reach 0) (usedcells 0) (maxcells 0) (curadv 0) (cpstash 0) (popul 0) (autobuild 0) (autoresearch 0) (autoplan 0) (a (move 4 2 15000)) (plan passive (ai-control 1) (asleep 1) (delayed 1) (final-turn 1) (formation 1 0 no-goal) (initial-turn 1) (reserve 1) (supply-alarm 0) (supply-is-low 0) (tasks (build) (capture) (collect) (disband) (hit-position) (hit-unit) (move-dir) (move-to) (occupy) (pickup) (produce) (repair) (develop) (resupply) (sentry) ) (wait 0) (wait-transport 0) ) ) (xxxunit 1 1 1 (a (add-terrain))) (xxxunit 1 1 1 (a (alter-terrain))) (xxxunit 1 1 1 (a (attack))) (xxxunit 1 1 1 (a (build))) (xxxunit 1 1 1 (a (capture))) (xxxunit 1 1 1 (a (change-side))) (xxxunit 1 1 1 (a (change-type))) (xxxunit 1 1 1 (a (create-at))) (xxxunit 1 1 1 (a (create-in))) (xxxunit 1 1 1 (a (detonate))) (xxxunit 1 1 1 (a (disband))) (xxxunit 1 1 1 (a (enter))) (xxxunit 1 1 1 (a (extract))) (xxxunit 1 1 1 (a (fire-at))) (xxxunit 1 1 1 (a (fire-into))) (xxxunit 1 1 1 (a (overrun))) (xxxunit 1 1 1 (a (produce))) (xxxunit 1 1 1 (a (remove-terrain))) (xxxunit 1 1 1 (a (repair))) (xxxunit 1 1 1 (a (develop))) (xxxunit 1 1 1 (a (toolup))) (xxxunit 1 1 1 (a (transfer))) (xxxunit 1 1 1 (a (transfer-part))) (xxxunit 1 1 1 (plan none)) (xxxunit 1 1 1 (plan offensive)) (xxxunit 1 1 1 (plan defensive)) (xxxunit 1 1 1 (plan exploratory)) (xxxunit 1 1 1 (plan colonizing)) (xxxunit 1 1 1 (plan improving)) (xxxunit 1 1 1 (plan offensive (goal 1 0 no-goal))) (xxxunit 1 1 1 (plan offensive (goal 1 0 won-game))) (xxxunit 1 1 1 (plan offensive (goal 1 0 lost-game))) (xxxunit 1 1 1 (plan offensive (goal 1 0 world-is-known))) (xxxunit 1 1 1 (plan offensive (goal 1 0 vicinity-is-known))) (xxxunit 1 1 1 (plan offensive (goal 1 0 positions-known))) (xxxunit 1 1 1 (plan offensive (goal 1 0 cell-is-occupied))) (xxxunit 1 1 1 (plan offensive (goal 1 0 vicinity-is-held))) (xxxunit 1 1 1 (plan offensive (goal 1 0 has-unit-type))) (xxxunit 1 1 1 (plan offensive (goal 1 0 has-unit-type-near))) (xxxunit 1 1 1 (plan offensive (goal 1 0 has-material-type))) (xxxunit 1 1 1 (plan offensive (goal 1 0 keep-formation))) (xxxunit 1 1 1 (plan offensive (goal 1 0 find-spot-to-build))) ;;; Agreements. (agreement 1 (type-name "test") (name "Treaty of Testing") (terms "Be excellent to one another!") (drafters 1) (proposers 1) (signers 1) (willing-to-sign 1) (known-to side*) (enforcement 0) (state 0) ) ;;; Scorekeepers. (scorekeeper 1 (applies-to 0) (do last-side-wins) (initial 0) (known-to 0) (notes "test") (title "First Test SK") (trigger) (triggered 0) (when) ) (scorekeeper 2 (do last-alliance-wins) ) ;;; History. (exu -2 xxxunit 1 1 0) (evt 0 log-started all) (evt 0 game-started all) (evt 1 side-joined all) (evt 1 side-lost all) (evt 1 side-withdrew all) (evt 1 side-won all) (evt 1 unit-created all) (evt 1 unit-completed all) (evt 1 unit-acquired all) (evt 1 unit-moved all) (evt 1 unit-assaulted all) (evt 1 unit-damaged all) (evt 1 unit-captured all) (evt 1 unit-killed all) (evt 1 unit-wrecked all) (evt 1 unit-vanished all) (evt 1 unit-garrisoned all) (evt 1 unit-revolted all) (evt 1 unit-surrendered all) (evt 1 unit-disbanded all) (evt 1 unit-died-in-accident all) (evt 1 unit-wrecked-in-accident all) (evt 1 unit-died-from-temperature all) (evt 1 unit-starved all) (evt 1 unit-merged all) (evt 1 unit-left-world all) (evt 1 unit-gone all) (evt 1 unit-type-changed all) (evt 1 unit-name-changed all) (evt 1 game-ended all) (evt 1 game-saved all) (evt 1 game-restarted all) (evt 1 log-ended all) (evt 1 action-ok all) (evt 1 action-error all) (evt 1 cannot-do all) (evt 1 insufficient-acp all) (evt 1 insufficient-material all) (evt 1 action-done all) (evt 1 insufficient-mp all) (evt 1 blocking-zoc all) (evt 1 cannot-leave-world all) (evt 1 destination-full all) (evt 1 overrun-failed all) (evt 1 overrun-succeeded all) (evt 1 capture-failed all) (evt 1 capture-succeeded all) (evt 1 fire-into-outside-world all) (evt 1 too-far all) (evt 1 too-near all) (evt 1 build-completed all) ;;; Imagery (imf "xxximf" ((8 8 tile border connection transition) (embed "yyy") (embed-at 0 0) (embed-size 8 8) (color (pixel-size 1) (palette) (actual 8 8) "0000000000000000") (mono "0000000000000000") (mask "0000000000000000") (file "heyhey" std 1 1) )) ;;; Misc (namer xxxnamer ) ;;; other keywords (define xxxrandom-list (quote ( undefine independent-units include namer text print restrict appear disappear feelings quote list append remove if else end-if m* a* non-unit non-material non-terrain non-advance constant subarea xform by-bits by-char by-name random grammar junky tasks reset stop end cell no-x river-x valley-x road-x over-nothing over-own over-border over-all usual reject any capitalize cond and or not = /= < <= > >= sum before-turn after-turn after-action after-event make-fractal-percentile-terrain make-random-terrain make-earthlike-terrain make-maze-terrain make-rivers make-countries make-independent-units make-initial-materials name-units-randomly name-geographical-features make-roads make-random-date make-weather always near ) ))