home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / ww2s-42.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  1.9 KB  |  102 lines  |  [TEXT/XCNQ]
  1. (game-module "ww2s-42"
  2.   (title "WWII (Std), Jan 42")
  3.   (blurb "The world in January 1942 (based on types from standard game)")
  4.   (base-module "ww2-stdunit")
  5.   (variants (see-all true))
  6.   )
  7.  
  8. (add u* start-with 0)
  9. (add u* independent-near-start 0)
  10.  
  11. (set synthesis-methods '(name-units-randomly))
  12.  
  13. (include "earth-1deg")
  14.  
  15. (scorekeeper (do last-side-wins)) ; for now
  16.  
  17. ;;; Sides.
  18. ;;; This is a simplified game, so have only two sides.
  19.  
  20. (side 1 (name "Allies"))
  21.  
  22. (side 2 (name "Axis"))
  23.  
  24. (set sides-min 2)
  25. (set sides-max 2)
  26.  
  27. ;;; Units.
  28.  
  29. (define capital city)
  30.  
  31. ;; This maps countries to Allies, Axis, or neutral.
  32.  
  33. (define uk 1)
  34. (define fr 2)
  35. (define us 1)
  36. (define de 2)
  37. (define it 2)
  38. (define jp 2)
  39. (define su 1)
  40. (define zh 1)
  41. (define es 0)
  42.  
  43. (include "u-e1-1938")
  44.  
  45. ;; Changes for beginning of 1942.
  46. ;; (should be in a generic 1942 status file)
  47.  
  48. ;; Iceland was occupied (sort of) by Britain.
  49.  
  50. (unit "Reykjavik" (s 1))
  51.  
  52. ;; Douala is Free French.
  53.  
  54. (unit "Douala" (s 1))
  55.  
  56. ;; Indonesia is Dutch.
  57.  
  58. (unit "Banjarmasin" (s 1))
  59. (unit "Jakarta" (s 1))
  60. (unit "Medan" (s 1))
  61. (unit "Palembang" (s 1))
  62. (unit "Surabaya" (s 1))
  63. (unit "Ujung Pendang" (s 1))
  64.  
  65. ;; German/Italian conquests and allies.
  66.  
  67. (unit "Athens" (s 2))
  68. (unit "Belgrade" (s 2))
  69. (unit "Brussels" (s 2))
  70. (unit "Bucharest" (s 2))
  71. (unit "Budapest" (s 2))
  72. (unit "Copenhagen" (s 2))
  73. (unit "Danzig" (s 2))
  74. (unit "Kiev" (s 2))
  75. (unit "Minsk" (s 2))
  76. (unit "Odessa" (s 2))
  77. (unit "Prague" (s 2))
  78. (unit "Riga" (s 2))
  79. (unit "Rotterdam" (s 2))
  80. (unit "Sofia" (s 2))
  81. (unit "Thessaloniki" (s 2))
  82. (unit "Vienna" (s 2))
  83. (unit "Vilnius" (s 2))
  84. (unit "Warsaw" (s 2))
  85. (unit "Zagreb" (s 2))
  86.  
  87. ;; Japanese conquests in China.
  88.  
  89. (unit "Baoding" (s 2))
  90. (unit "Beijing" (s 2))
  91. (unit "Guangzhou" (s 2))
  92. (unit "Kaohsiun" (s 2))
  93. (unit "Nanjing" (s 2))
  94. (unit "Nanchang" (s 2))
  95. (unit "Shanghai" (s 2))
  96. (unit "Shantou" (s 2))
  97. (unit "Taipei" (s 2))
  98. (unit "Tianjin" (s 2))
  99. (unit "Wuhan" (s 2))
  100. (unit "Xiamen" (s 2))
  101. (unit "Xuzhou" (s 2))
  102.