;; FreeCraft Map - Single player campaign (briefing 'type 'wc2 'title "IV. Exodus" 'background "campaigns/alliance/interface/introscreen1.png" 'text "campaigns/alliance/level04a.txt" ;'voice "campaigns/alliance/level04a-briefing.wav" 'objective "- Survive!" 'objective "- Arthor Literios must not die") (add-trigger (lambda () (if-elapsed '>= 20)) (lambda () (action-set-timer 9036 0)) ) (add-trigger (lambda () (if-elapsed '>= 40)) (lambda () (action-start-timer)) ) (add-trigger (lambda () (and (if-elapsed '>= 200)(if-timer '<= 0))) (lambda () (action-victory)) ) (add-trigger (lambda () (if-unit 'this '<= 0 'unit-arthor-literios)) (lambda () (action-defeat))) ;;Units ;;Townhall - Produces (define-allow 'unit-peasant "AAAAAAAAAAAAAAA") (define-allow 'unit-peasant-with-gold "FFFFFFFFFFFFFFFF") (define-allow 'unit-peasant-with-wood "FFFFFFFFFFFFFFFF") (define-allow 'unit-attack-peasant "FFFFFFFFFFFFFFFF") (define-allow 'unit-peon "AAAAAAAAAAAAAAA") (define-allow 'unit-peon-with-gold "FFFFFFFFFFFFFFFF") (define-allow 'unit-peon-with-wood "FFFFFFFFFFFFFFFF") (define-allow 'unit-attack-peon "FFFFFFFFFFFFFFFF") ;;Barracks - Produces (define-allow 'unit-footman "AAAAAAAAAAAAAAA") (define-allow 'unit-archer "AAAAAAAAAAAAAAA") (define-allow 'unit-ranger "FFFFFFFFFFFFFFFF") (define-allow 'unit-knight "FFFFFFFFFFFFFFFF") (define-allow 'unit-paladin "FFFFFFFFFFFFFFFF") (define-allow 'unit-ballista "FFFFFFFFFFFFFFFF") (define-allow 'unit-grunt "AAAAAAAAAAAAAAA") (define-allow 'unit-axethrower "AAAAAAAAAAAAAAA") (define-allow 'unit-berserker "FFFFFFFFFFFFFFFF") (define-allow 'unit-ogre "FFFFFFFFFFFFFFFF") (define-allow 'unit-ogre-mage "FFFFFFFFFFFFFFFF") (define-allow 'unit-eye-of-vision "FFFFFFFFFFFFFFFF") (define-allow 'unit-catapult "FFFFFFFFFFFFFFFF") ;;Shipyard - Produces (define-allow 'unit-human-oil-tanker "AAAAAAAAAAAAAAA") (define-allow 'unit-alliance-destroyer "AAAAAAAAAAAAAAA") (define-allow 'unit-alliance-transport "FFFFFFFFFFFFFFFF") (define-allow 'unit-battleship "FFFFFFFFFFFFFFFF") (define-allow 'unit-alliance-submarine "FFFFFFFFFFFFFFFF") (define-allow 'unit-orc-oil-tanker "AAAAAAAAAAAAAAA") (define-allow 'unit-mythical-transport "FFFFFFFFFFFFFFFF") (define-allow 'unit-mythical-destroyer "AAAAAAAAAAAAAAA") (define-allow 'unit-ogre-juggernaught "FFFFFFFFFFFFFFFF") (define-allow 'unit-mythical-submarine "FFFFFFFFFFFFFFFF") ;;Other Units (define-allow 'unit-balloon "FFFFFFFFFFFFFFFF") (define-allow 'unit-gryphon-rider "FFFFFFFFFFFFFFFF") (define-allow 'unit-mage "FFFFFFFFFFFFFFFF") (define-allow 'unit-dwarves "FFFFFFFFFFFFFFFF") (define-allow 'unit-zeppelin "FFFFFFFFFFFFFFFF") (define-allow 'unit-dragon "FFFFFFFFFFFFFFFF") (define-allow 'unit-death-knight "FFFFFFFFFFFFFFFF") (define-allow 'unit-goblin-sappers "FFFFFFFFFFFFFFFF") (define-allow 'unit-skeleton "FFFFFFFFFFFFFFFF") ;;Human Specials (define-allow 'unit-female-hero "FFFFFFFFFFFFFFFF") (define-allow 'unit-flying-angle "FFFFFFFFFFFFFFFF") (define-allow 'unit-white-mage "FFFFFFFFFFFFFFFF") (define-allow 'unit-knight-rider "FFFFFFFFFFFFFFFF") (define-allow 'unit-arthor-literios "FFFFFFFFFFFFFFFF") (define-allow 'unit-wise-man "FFFFFFFFFFFFFFFF") (define-allow 'unit-man-of-light "FFFFFFFFFFFFFFFF") ;;Building Human (define-allow 'unit-town-hall "AAAAAAAAAAAAAAA") (define-allow 'unit-keep "FFFFFFFFFFFFFFFF") (define-allow 'unit-castle "FFFFFFFFFFFFFFFF") (define-allow 'unit-alliance-barracks "AAAAAAAAAAAAAAA") (define-allow 'unit-farm "AAAAAAAAAAAAAAA") (define-allow 'unit-alliance-blacksmith "AAAAAAAAAAAAAAA") (define-allow 'upgrade-sword1 "AAAAAAAAAAAAAAA") (define-allow 'upgrade-sword2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-alliance-shield1 "AAAAAAAAAAAAAAA") (define-allow 'upgrade-alliance-shield2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-ballista1 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-ballista2 "FFFFFFFFFFFFFFFF") (define-allow 'unit-alliance-watch-tower "AAAAAAAAAAAAAAA") (define-allow 'unit-alliance-guard-tower "AAAAAAAAAAAAAAA") (define-allow 'unit-alliance-cannon-tower "FFFFFFFFFFFFFFFF") (define-allow 'unit-elven-lumber-mill "AAAAAAAAAAAAAAA") (define-allow 'upgrade-arrow1 "AAAAAAAAAAAAAAA") (define-allow 'upgrade-arrow2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-ranger "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-longbow "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-ranger-scouting "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-ranger-marksmanship "FFFFFFFFFFFFFFFF") (define-allow 'unit-church "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-paladin "FFFFFFFFFFFFFFFF") ;; (define-allow 'upgrade-holy-vision "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-healing "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-exorcism "FFFFFFFFFFFFFFFF") (define-allow 'unit-stables "FFFFFFFFFFFFFFFF") (define-allow 'unit-inventor "FFFFFFFFFFFFFFFF") (define-allow 'unit-gryphon-aviary "FFFFFFFFFFFFFFFF") (define-allow 'unit-alliance-shipyard "AAAAAAAAAAAAAAA") (define-allow 'unit-human-refinery "AAAAAAAAAAAAAAA") (define-allow 'unit-alliance-oil-platform "AAAAAAAAAAAAAAA") (define-allow 'unit-alliance-foundry "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-alliance-ship-cannon1 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-alliance-ship-cannon2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-alliance-ship-armor1 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-alliance-ship-armor2 "FFFFFFFFFFFFFFFF") (define-allow 'unit-mage-tower "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-flame-shield "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-fireball "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-slow "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-invisibility "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-polymorph "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-blizzard "FFFFFFFFFFFFFFFF") (define-allow 'unit-human-wall "AAAAAAAAAAAAAAA") ;; Orc Specials (define-allow 'unit-evil-knight "FFFFFFFFFFFFFFFF") (define-allow 'unit-fad-man "FFFFFFFFFFFFFFFF") (define-allow 'unit-beast-cry "FFFFFFFFFFFFFFFF") (define-allow 'unit-fire-breeze "FFFFFFFFFFFFFFFF") (define-allow 'unit-quick-blade "FFFFFFFFFFFFFFFF") (define-allow 'unit-double-head "FFFFFFFFFFFFFFFF") (define-allow 'unit-ice-bringer "FFFFFFFFFFFFFFFF") (define-allow 'unit-sharp-axe "FFFFFFFFFFFFFFFF") (define-allow 'unit-great-hall "AAAAAAAAAAAAAAA") (define-allow 'unit-stronghold "FFFFFFFFFFFFFFFF") (define-allow 'unit-fortress "FFFFFFFFFFFFFFFF") (define-allow 'unit-mythical-barracks "AAAAAAAAAAAAAAA") (define-allow 'unit-pig-farm "AAAAAAAAAAAAAAA") (define-allow 'unit-mythical-blacksmith "AAAAAAAAAAAAAAA") (define-allow 'upgrade-battle-axe1 "AAAAAAAAAAAAAAA") (define-allow 'upgrade-battle-axe2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-mythical-shield1 "AAAAAAAAAAAAAAA") (define-allow 'upgrade-mythical-shield2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-catapult1 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-catapult2 "FFFFFFFFFFFFFFFF") (define-allow 'unit-mythical-watch-tower "AAAAAAAAAAAAAAA") (define-allow 'unit-mythical-guard-tower "AAAAAAAAAAAAAAA") (define-allow 'unit-mythical-cannon-tower "FFFFFFFFFFFFFFFF") (define-allow 'unit-troll-lumber-mill "AAAAAAAAAAAAAAA") (define-allow 'upgrade-throwing-axe1 "AAAAAAAAAAAAAAA") (define-allow 'upgrade-throwing-axe2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-berserker "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-light-axes "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-berserker-scouting "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-berserker-regeneration "FFFFFFFFFFFFFFFF") (define-allow 'unit-altar-of-storms "FFFFFFFFFFFFFFFF") (define-allow 'unit-ogre-mound "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-ogre-mage "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-eye-of-kilrogg "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-bloodlust "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-runes "FFFFFFFFFFFFFFFF") (define-allow 'unit-alchemist "FFFFFFFFFFFFFFFF") (define-allow 'unit-dragon-roost "FFFFFFFFFFFFFFFF") (define-allow 'unit-mythical-shipyard "AAAAAAAAAAAAAAA") (define-allow 'unit-mythical-foundry "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-mythical-ship-cannon1 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-mythical-ship-cannon2 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-mythical-ship-armor1 "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-mythical-ship-armor2 "FFFFFFFFFFFFFFFF") (define-allow 'unit-temple-of-the-damned "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-death-coil "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-whirlwind "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-haste "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-unholy-armor "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-death-and-decay "FFFFFFFFFFFFFFFF") (define-allow 'upgrade-raise-dead "FFFFFFFFFFFFFFFF") (define-allow 'unit-orc-refinery "AAAAAAAAAAAAAAA") (define-allow 'unit-mythical-oil-platform "AAAAAAAAAAAAAAA") (define-allow 'unit-orc-wall "FFFFFFFFFFFFFFFF") ;; Specials (define-allow 'unit-daemon "FFFFFFFFFFFFFFFF") (define-allow 'unit-critter "FFFFFFFFFFFFFFFF") (define-allow 'unit-gold-mine "FFFFFFFFFFFFFFFF") (define-allow 'unit-oil-patch "FFFFFFFFFFFFFFFF") (define-allow 'unit-circle-of-power "FFFFFFFFFFFFFFFF") (define-allow 'unit-dark-portal "FFFFFFFFFFFFFFFF") (define-allow 'unit-runestone "FFFFFFFFFFFFFFFF") (define-allow 'unit-dead-body "FFFFFFFFFFFFFFFF") (define-allow 'unit-destroyed-1x1-place "FFFFFFFFFFFFFFFF") (define-allow 'unit-destroyed-2x2-place "FFFFFFFFFFFFFFFF") (define-allow 'unit-destroyed-3x3-place "FFFFFFFFFFFFFFFF") (define-allow 'unit-destroyed-4x4-place "FFFFFFFFFFFFFFFF") (load-pud "campaigns/alliance/level04a.pud")