home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / pc / software / spiele / strat / fcraft.tgz / fcraft.tar / clone-000402 / data / ccl / upgrade.ccl < prev   
Text File  |  2000-04-02  |  12KB  |  328 lines
  1. ;;   ___________             _________              _____  __
  2. ;;   \_      _____/______   ____   ____ \_   ___ \____________ _/ ____\/  |_
  3. ;;    |    __) \_  __ \_/ __ \_/ __ \/    \  \/\_  __ \__  \\   __\\   __\ 
  4. ;;    |     \   |  | \/\  ___/\  ___/\     \____|  | \// __ \|  |   |  |
  5. ;;    \___  /   |__|    \___  >\___  >\______  /|__|  (____  /__|   |__|
  6. ;;      \/            \/       \/         \/           \/
  7. ;;  ______________________                           ______________________
  8. ;;              T H E   W A R   B E G I N S
  9. ;;       FreeCraft - A free fantasy real time strategy game engine
  10. ;;
  11. ;;    upgrade.ccl    -    Define the dependencies and upgrades.
  12. ;;
  13. ;;    (c) Copyright 2000 by Lutz Sammer
  14. ;;
  15. ;;    $Id: upgrade.ccl,v 1.4 2000/03/14 00:41:45 root Exp $
  16. ;;
  17.  
  18. ;;=============================================================================
  19. ;;    Define the upgrades
  20. ;;
  21. ;;    (define-upgrade upgrade icon #( costs ))
  22. ;;
  23. ;;    costs: gold wood oil time
  24. ;;
  25. ;;    NOTE: Save can generate this table.
  26.  
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28. ;;    * Race human.
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30.  
  31. (define-upgrade "upgrade-sword1"        "icon-sword2"
  32.   #(   200   800     0   200 ))
  33. (define-upgrade "upgrade-sword2"        "icon-sword3"
  34.   #(   250  2400     0   250 ))
  35. (define-upgrade "upgrade-arrow1"        "icon-arrow2"
  36.   #(   200   300   300   200 ))
  37. (define-upgrade "upgrade-arrow2"        "icon-arrow3"
  38.   #(   250   900   500   250 ))
  39. (define-upgrade "upgrade-human-shield1"        "icon-human-shield2"
  40.   #(   200   300   300   200 ))
  41. (define-upgrade "upgrade-human-shield2"        "icon-human-shield3"
  42.   #(   250   900   500   250 ))
  43. (define-upgrade "upgrade-human-ship-cannon1"    "icon-human-ship-cannon2"
  44.   #(   200   700   100   200 ))
  45. (define-upgrade "upgrade-human-ship-cannon2"    "icon-human-ship-cannon3"
  46.   #(   250  2000   250   250 ))
  47. (define-upgrade "upgrade-human-ship-armor1"    "icon-human-ship-armor2"
  48.   #(   200   500   500   200 ))
  49. (define-upgrade "upgrade-human-ship-armor2"    "icon-human-ship-armor3"
  50.   #(   250  1500   900   250 ))
  51. (define-upgrade "upgrade-catapult1"        "icon-catapult1"
  52.   #(   250  1500     0   250 ))
  53. (define-upgrade "upgrade-catapult2"        "icon-catapult2"
  54.   #(   250  4000     0   250 ))
  55. (define-upgrade "upgrade-ranger"        "icon-ranger"
  56.   #(   250  1500     0   250 ))
  57. (define-upgrade "upgrade-longbow"        "icon-longbow"
  58.   #(   250  2000     0   250 ))
  59. (define-upgrade "upgrade-ranger-scouting"    "icon-ranger-scouting"
  60.   #(   250  1500     0   250 ))
  61. (define-upgrade "upgrade-ranger-marksmanship"    "icon-ranger-marksmanship"
  62.   #(   250  2500     0   250 ))
  63. (define-upgrade "upgrade-paladin"        "icon-paladin"
  64.   #(   250  1000     0   250 ))
  65. (define-upgrade "upgrade-holy-vision"        "icon-holy-vision"
  66.   #(     0     0     0     0 ))
  67. (define-upgrade "upgrade-healing"        "icon-heal"
  68.   #(   200  1000     0   200 ))
  69. (define-upgrade "upgrade-exorcism"        "icon-exorcism"
  70.   #(   200  2000     0   200 ))
  71. (define-upgrade "upgrade-flame-shield"        "icon-flame-shield"
  72.   #(   100  1000     0   100 ))
  73. (define-upgrade "upgrade-fireball"        "icon-fireball"
  74.   #(     0     0     0     0 ))
  75. (define-upgrade "upgrade-slow"            "icon-slow"
  76.   #(   100   500     0   100 ))
  77. (define-upgrade "upgrade-invisibility"        "icon-invisibility"
  78.   #(   200  2500     0   200 ))
  79. (define-upgrade "upgrade-polymorph"        "icon-critter"
  80.   #(   200  2000     0   200 ))
  81. (define-upgrade "upgrade-blizzard"        "icon-blizzard"
  82.   #(   200  2000     0   200 ))
  83.  
  84. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  85. ;;    * Race orc.
  86. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  87.  
  88. (define-upgrade "upgrade-battle-axe1"        "icon-battle-axe2"
  89.   #(   200   500   100   200 ))
  90. (define-upgrade "upgrade-battle-axe2"        "icon-battle-axe3"
  91.   #(   250  1500   300   250 ))
  92. (define-upgrade "upgrade-throwing-axe1"        "icon-throwing-axe2"
  93.   #(   200   300   300   200 ))
  94. (define-upgrade "upgrade-throwing-axe2"        "icon-throwing-axe3"
  95.   #(   250   900   500   250 ))
  96. (define-upgrade "upgrade-orc-shield1"        "icon-orc-shield2"
  97.   #(   200   300   300   200 ))
  98. (define-upgrade "upgrade-orc-shield2"        "icon-orc-shield3"
  99.   #(   250   900   500   250 ))
  100. (define-upgrade "upgrade-orc-ship-cannon1"    "icon-orc-ship-cannon2"
  101.   #(   200   700   100   200 ))
  102. (define-upgrade "upgrade-orc-ship-cannon2"    "icon-orc-ship-cannon3"
  103.   #(   250  2000   250   250 ))
  104. (define-upgrade "upgrade-orc-ship-armor1"    "icon-orc-ship-armor2"
  105.   #(   200   500   500   200 ))
  106. (define-upgrade "upgrade-orc-ship-armor2"    "icon-orc-ship-armor3"
  107.   #(   250  1500   900   250 ))
  108. (define-upgrade "upgrade-ballista1"        "icon-ballista1"
  109.   #(   250  1500     0   250 ))
  110. (define-upgrade "upgrade-ballista2"        "icon-ballista2"
  111.   #(   250  4000     0   250 ))
  112. (define-upgrade "upgrade-berserker"        "icon-berserker"
  113.   #(   250  1500     0   250 ))
  114. (define-upgrade "upgrade-light-axes"        "icon-light-axes"
  115.   #(   250  2000     0   250 ))
  116. (define-upgrade "upgrade-berserker-scouting"    "icon-berserker-scouting"
  117.   #(   250  1500     0   250 ))
  118. (define-upgrade "upgrade-berserker-regeneration""icon-berserker-regeneration"
  119.   #(   250  3000     0   250 ))
  120. (define-upgrade "upgrade-ogre-mage"        "icon-ogre-mage"
  121.   #(   250  1000     0   250 ))
  122. (define-upgrade "upgrade-eye-of-kilrogg"    "icon-eye-of-kilrogg"
  123.   #(     0     0     0     0 ))
  124. (define-upgrade "upgrade-bloodlust"        "icon-bloodlust"
  125.   #(   100  1000     0   100 ))
  126. (define-upgrade "upgrade-raise-dead"        "icon-skeleton"
  127.   #(   100  1500     0   100 ))
  128. (define-upgrade "upgrade-death-coil"        "icon-death-coil"
  129.   #(   100     0     0   100 ))
  130. (define-upgrade "upgrade-whirlwind"        "icon-whirlwind"
  131.   #(   150  1500     0   150 ))
  132. (define-upgrade "upgrade-haste"            "icon-haste"
  133.   #(   100   500     0   100 ))
  134. (define-upgrade "upgrade-unholy-armor"        "icon-unholy-armor"
  135.   #(   200  2500     0   200 ))
  136. (define-upgrade "upgrade-runes"            "icon-runes"
  137.   #(   150  1000     0   150 ))
  138. (define-upgrade "upgrade-death-and-decay"    "icon-death-and-decay"
  139.   #(   200  2000     0   200 ))
  140.  
  141. ;;=============================================================================
  142. ;;    Define the dependencies
  143. ;;
  144. ;;    (define-dependency unit/upgrade '( unit/upgrade count ... ) ... )
  145. ;;
  146. ;;    NOTE: Save can generate this table.
  147.  
  148. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  149. ;;    * Race human.
  150. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  151.  
  152. ;;    - naval forces
  153. (define-dependency "unit-human-transport"
  154.   '( "unit-elven-lumber-mill" ))
  155. (define-dependency "unit-battleship"
  156.   '( "unit-human-foundry" ))
  157. (define-dependency "unit-gnomish-submarine"
  158.   '( "unit-gnomish-inventor" ))
  159.  
  160. ;;    - land forces
  161. (define-dependency "unit-archer"
  162.   '( "unit-elven-lumber-mill" ))
  163. (define-dependency "unit-ranger"
  164.   '( "upgrade-ranger" "unit-elven-lumber-mill" ))
  165. (define-dependency "unit-knight"
  166.   '( "unit-stables" "unit-human-blacksmith" ))
  167. (define-dependency "unit-paladin"
  168.   '( "upgrade-paladin" "unit-stables" "unit-human-blacksmith" ))
  169. (define-dependency "unit-ballista"
  170.   '( "unit-human-blacksmith" "unit-elven-lumber-mill" ))
  171.  
  172. ;;    - air forces
  173. (define-dependency "unit-gnomish-flying-machine"
  174.   '( "unit-elven-lumber-mill" ))
  175.  
  176. ;;    - buildings
  177. (define-dependency "unit-human-guard-tower"
  178.   '( "unit-elven-lumber-mill" ))
  179. (define-dependency "unit-human-cannon-tower"
  180.   '( "unit-human-blacksmith" ))
  181.  
  182. (define-dependency "unit-human-shipyard"
  183.   '( "unit-elven-lumber-mill" ))
  184. (define-dependency "unit-human-foundry"
  185.   '( "unit-human-shipyard" ))
  186. (define-dependency "unit-human-refinery"
  187.   '( "unit-human-shipyard" ))
  188.  
  189. (define-dependency "unit-keep"
  190.   '( "unit-human-barracks" ))
  191.  
  192. (define-dependency "unit-stables"
  193.   '( "unit-castle" ) '( "unit-keep" ))
  194. (define-dependency "unit-gnomish-inventor"
  195.   '( "unit-castle" ) '( "unit-keep" ))
  196.  
  197. (define-dependency "unit-castle"
  198.   '( "unit-stables" "unit-human-blacksmith" "unit-elven-lumber-mill" ))
  199.  
  200. (define-dependency "unit-mage-tower"
  201.   '( "unit-castle" ))
  202. (define-dependency "unit-church"
  203.   '( "unit-castle" ))
  204. (define-dependency "unit-gryphon-aviary"
  205.   '( "unit-castle" ))
  206.  
  207. ;;    - upgrades/research
  208. (define-dependency "upgrade-sword2"
  209.   '( "upgrade-sword1" ))
  210. (define-dependency "upgrade-arrow2"
  211.   '( "upgrade-arrow1" ))
  212. (define-dependency "upgrade-human-shield2"
  213.   '( "upgrade-human-shield1" ))
  214. (define-dependency "upgrade-ballista2"
  215.   '( "upgrade-ballista1" ))
  216.  
  217. (define-dependency "upgrade-ranger"
  218.   '( "unit-castle" ) '( "unit-keep" ))
  219. (define-dependency "upgrade-longbow"
  220.   '( "unit-castle" "upgrade-ranger" ))
  221. (define-dependency "upgrade-ranger-scouting"
  222.   '( "unit-castle" "upgrade-ranger" ))
  223. (define-dependency "upgrade-ranger-marksmanship"
  224.   '( "unit-castle" "upgrade-ranger" ))
  225.  
  226. (define-dependency "upgrade-holy-vision"
  227.   '( "upgrade-paladin" ))
  228. (define-dependency "upgrade-healing"
  229.   '( "upgrade-paladin" ))
  230. (define-dependency "upgrade-exorcism"
  231.   '( "upgrade-paladin" ))
  232.  
  233. (define-dependency "upgrade-human-ship-cannon2"
  234.   '( "upgrade-human-ship-cannon1" ))
  235. (define-dependency "upgrade-human-ship-armor2"
  236.   '( "upgrade-human-ship-armor1" ))
  237.  
  238. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  239. ;;    * Race orc.
  240. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  241.  
  242. ;;    - naval forces
  243. (define-dependency "unit-orc-transport"
  244.   '( "unit-orc-foundry" ))
  245. (define-dependency "unit-ogre-juggernaught"
  246.   '( "unit-orc-foundry" ))
  247. (define-dependency "unit-giant-turtle"
  248.   '( "unit-goblin-alchemist" ))
  249.  
  250. ;;    - land forces
  251. (define-dependency "unit-ogre"
  252.   '( "unit-ogre-mound" "unit-orc-blacksmith" ))
  253. (define-dependency "unit-ogre-mage"
  254.   '( "upgrade-ogre-mage" "unit-ogre-mound" "unit-orc-blacksmith" ))
  255. (define-dependency "unit-axethrower"
  256.   '( "unit-troll-lumber-mill" ))
  257. (define-dependency "unit-berserker"
  258.   '( "unit-troll-lumber-mill" "upgrade-berserker" ))
  259. (define-dependency "unit-catapult"
  260.   '( "unit-orc-blacksmith" "unit-troll-lumber-mill" ))
  261.  
  262. ;;    - air forces
  263. (define-dependency "unit-goblin-zeppelin"
  264.   '( "unit-troll-lumber-mill" ))
  265.  
  266. ;;    - buildings
  267. (define-dependency "unit-orc-guard-tower"
  268.   '( "unit-troll-lumber-mill" ))
  269. (define-dependency "unit-orc-cannon-tower"
  270.   '( "unit-orc-blacksmith" ))
  271.  
  272. (define-dependency "unit-orc-shipyard"
  273.   '( "unit-troll-lumber-mill" ))
  274. (define-dependency "unit-orc-foundry"
  275.   '( "unit-orc-shipyard" ))
  276. (define-dependency "unit-orc-refinery"
  277.   '( "unit-orc-shipyard" ))
  278.  
  279. (define-dependency "unit-stronghold"
  280.   '( "unit-orc-barracks" ))
  281.  
  282. (define-dependency "unit-ogre-mound"
  283.   '( "unit-fortress" ) '( "unit-stronghold" ))
  284. (define-dependency "unit-goblin-alchemist"
  285.   '( "unit-fortress" ) '( "unit-stronghold" ))
  286.  
  287. (define-dependency "unit-fortress"
  288.   '( "unit-ogre-mound" "unit-orc-blacksmith" "unit-troll-lumber-mill" ))
  289.  
  290. (define-dependency "unit-temple-of-the-damned"
  291.   '( "unit-fortress" ))
  292. (define-dependency "unit-altar-of-storms"
  293.   '( "unit-fortress" ))
  294. (define-dependency "unit-dragon-roost"
  295.   '( "unit-fortress" ))
  296.  
  297. ;;    - upgrades/research
  298. (define-dependency "upgrade-battle-axe2"
  299.   '( "upgrade-battle-axe1" ))
  300. (define-dependency "upgrade-throwing-axe2"
  301.   '( "upgrade-throwing-axe1" ))
  302. (define-dependency "upgrade-orc-shield2"
  303.   '( "upgrade-orc-shield1" ))
  304. (define-dependency "upgrade-catapult2"
  305.   '( "upgrade-catapult1" ))
  306.  
  307. (define-dependency "upgrade-berserker"
  308.   '( "unit-fortress" "unit-stronghold" ))
  309. (define-dependency "upgrade-light-axes"
  310.   '( "unit-fortress" "upgrade-berserker" ))
  311. (define-dependency "upgrade-berserker-scouting"
  312.   '( "unit-fortress" "upgrade-berserker" ))
  313. (define-dependency "upgrade-berserker-regeneration"
  314.   '( "unit-fortress" "upgrade-berserker" ))
  315.  
  316. (define-dependency "upgrade-eye-of-kilrogg"
  317.   '( "upgrade-ogre-mage" ))
  318. (define-dependency "upgrade-bloodlust"
  319.   '( "upgrade-ogre-mage" ))
  320. (define-dependency "upgrade-runes"
  321.   '( "upgrade-ogre-mage" ))
  322.  
  323. (define-dependency "upgrade-orc-ship-cannon2"
  324.   '( "upgrade-orc-ship-cannon1" ))
  325. (define-dependency "upgrade-orc-ship-armor2"
  326.   '( "upgrade-orc-ship-armor1" ))
  327.  
  328.