home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / rom-civ-war.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  3.6 KB  |  175 lines  |  [TEXT/XCNQ]
  1. (game-module "rom-civ-war"
  2.   (title "Roman Civil War")
  3.   (blurb "The Civil War: Caesar vs. Pompeius, 48 BC")
  4.   (base-module "roman")
  5.   (instructions 
  6.    ("Cross the sea to destroy your enemy at once," 
  7.     "or build an empire and wage a war of attrition."
  8.     ))
  9.   (notes 
  10.    ("Situation in Jan 48 BC (706 AUC)."
  11.     ""
  12.     "Caesar has more legions,"
  13.     "Pompeius has more auxiliaries and a bigger fleet."
  14.     "Other sides should be machine-played."
  15.     ""
  16.     "Massimo Campostrini (campo@sunthpi3.difi.unipi.it)"
  17.     ))
  18.   )
  19.  
  20. ; double production times of "roman"
  21. ;            i  c  a  L  B  T  U  S  / X V * @ 
  22. (add u* cp (24 60 40 80 64 96 48 40 32 1 1 1 1))
  23.  
  24. (set synthesis-methods nil)
  25. (add u* start-with 0)
  26. (side 1 (name "Caesar") (class "roman")  (color "blue"))
  27. (side 2 (name "Pompeius") (class "roman")  (color "red"))
  28. (side 3 (name "Parthia") (adjective "Parthian")
  29.       (class "civilized") (color "dim gray"))
  30. (side 4 (name "Aegyptus") (adjective "Aegyptian") 
  31.       (class "roman") #| yes, I do mean Roman |# (color "violet red"))
  32.  
  33. (set see-all true) ; until variants impled when "opening".
  34.  
  35. (include "t-roman")
  36.  
  37. (set initial-date "1 Jan 706") ; Ab Urbe Condita, i.e. 48 BC
  38. (set calendar '(usual "day" 7))
  39.  
  40. ; ---------- Caesar
  41.  
  42. (unit "Brundisium" (s 1)) ; @ 107,40
  43. (unit "Tarentum" (s 1))   ; @ 104,40
  44. (L 109 39 0 (s 1))
  45. (L 109 39 0 (s 1))
  46. (L 109 38 0 (s 1))
  47. (L 109 38 0 (s 1))
  48. (L 105 41 0 (s 1))
  49. (L 105 41 0 (s 1))
  50. (L 105 40 0 (s 1))
  51. (L 105 40 0 (s 1))
  52. (L 106 40 0 (s 1))
  53. (L 106 40 0 (s 1))
  54. (L 108 39 0 (s 1))
  55. (L 108 39 0 (s 1))
  56. (c 103 41 0 (s 1))
  57. (c 103 41 0 (s 1))
  58. (c 104 41 0 (s 1))
  59. (c 104 41 0 (s 1))
  60. (i 107 39 0 (s 1))
  61. (i 107 39 0 (s 1))
  62. (i 107 39 0 (s 1))
  63. (i 107 39 0 (s 1))
  64. (a 103 41 0 (s 1))
  65. (a 103 41 0 (s 1))
  66. (a 104 41 0 (s 1))
  67. (a 104 41 0 (s 1))
  68. (T 106 39 0 (s 1))
  69. (T 106 39 0 (s 1))
  70. (T 105 39 0 (s 1))
  71. (T 105 39 0 (s 1))
  72. (B 104 40 0 (s 1))
  73. (B 104 40 0 (s 1))
  74. (B 105 39 0 (s 1))
  75. (B 106 38 0 (s 1))
  76. (B 106 39 0 (s 1))
  77. (B 107 40 0 (s 1))
  78. (U 104 40 0 (s 1))
  79. (U 104 40 0 (s 1))
  80. (U 104 40 0 (s 1))
  81. (U 105 39 0 (s 1))
  82. (U 106 39 0 (s 1))
  83. (U 107 40 0 (s 1))
  84.  
  85. ; ---------- Pompeius
  86.  
  87. (unit "Dyrrachium" (s 2)) ; @ 109,44
  88. (unit "Nicopolis" (s 2)) ;  @ 115 37
  89. ; there are two oppida named Nicopolis, this gets the right one
  90. (L 109 45 0 (s 2))
  91. (L 110 43 0 (s 2))
  92. (L 110 42 0 (s 2))
  93. (L 111 41 0 (s 2))
  94. (L 111 40 0 (s 2))
  95. (L 112 40 0 (s 2))
  96. (L 113 39 0 (s 2))
  97. (L 113 38 0 (s 2))
  98. (L 114 38 0 (s 2))
  99. (i 110 43 0 (s 2))
  100. (i 110 42 0 (s 2))
  101. (i 111 41 0 (s 2))
  102. (i 111 40 0 (s 2))
  103. (i 112 40 0 (s 2))
  104. (i 113 39 0 (s 2))
  105. (i 113 38 0 (s 2))
  106. (i 114 38 0 (s 2))
  107. (a 110 43 0 (s 2))
  108. (a 110 42 0 (s 2))
  109. (a 111 41 0 (s 2))
  110. (a 111 40 0 (s 2))
  111. (a 112 40 0 (s 2))
  112. (a 113 39 0 (s 2))
  113. (a 113 38 0 (s 2))
  114. (a 114 38 0 (s 2))
  115. (c 111 43 0 (s 2))
  116. (c 111 42 0 (s 2))
  117. (c 112 41 0 (s 2))
  118. (c 113 40 0 (s 2))
  119. (c 114 39 0 (s 2))
  120. (c 115 38 0 (s 2))
  121. (T 110 40 0 (s 2))
  122. (T 110 40 0 (s 2))
  123. (T 111 39 0 (s 2))
  124. (T 111 39 0 (s 2))
  125. (T 112 38 0 (s 2))
  126. (T 112 38 0 (s 2))
  127. (T 113 37 0 (s 2))
  128. (T 113 37 0 (s 2))
  129. (B 110 40 0 (s 2))
  130. (B 110 40 0 (s 2))
  131. (B 111 39 0 (s 2))
  132. (B 111 39 0 (s 2))
  133. (B 112 38 0 (s 2))
  134. (B 112 38 0 (s 2))
  135. (B 113 37 0 (s 2))
  136. (B 113 37 0 (s 2))
  137. (U 109 44 0 (s 2))
  138. (U 109 44 0 (s 2))
  139. (U 109 44 0 (s 2))
  140. (U 115 37 0 (s 2))
  141. (U 112 39 0 (s 2))
  142. (U 112 39 0 (s 2))
  143. (U 112 39 0 (s 2))
  144. (U 112 39 0 (s 2))
  145.  
  146. #|
  147. ; Pompeians in 49 BC
  148. ; Afranius
  149. (L 56 44 0 (s 2))
  150. (L 57 44 0 (s 2))
  151. (L 58 43 0 (s 2))
  152. (i 56 44 0 (s 2))
  153. (i 56 44 0 (s 2))
  154. (i 57 44 0 (s 2))
  155. (i 57 44 0 (s 2))
  156. (c 58 43 0 (s 2))
  157.  
  158. ; Varro
  159. (L 38 40 0 (s 2))
  160. (L 39 40 0 (s 2))
  161. (i 38 40 0 (s 2))
  162. (i 39 40 0 (s 2))
  163. (c 39 40 0 (s 2))
  164.  
  165. ; Petreius
  166. (L 46 32 0 (s 2))
  167. (L 46 33 0 (s 2))
  168. (i 46 32 0 (s 2))
  169. |#
  170.  
  171. ; ---------- interested third parties
  172. (unit "Ecbatana" (s 3))
  173.  
  174. (unit "Alexandria" (s 4))
  175.