home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Games / Xconq 7.0d16 / lib / pelops.g < prev    next >
Encoding:
Text File  |  1993-12-20  |  1.9 KB  |  85 lines  |  [TEXT/MPS ]
  1. (game-module "pelops"
  2.   (title "Peloponnesian War")
  3.   (blurb "Athens vs Sparta, for control of Greece")
  4.   (base-module "greek")
  5.   (variants
  6.    (see-all true)
  7.    ;; not realistic, more for debugging
  8.    ("Wipeout" eval (scorekeeper (do last-side-wins)))
  9.    )
  10. )
  11.  
  12. ;;; Suppress random startups (should hack synthesis list)
  13. (add u* start-with 0)
  14. (add u* independent-near-start 0)
  15. (table independent-density (u* t* 0))
  16.  
  17. (set advantage-min 1)
  18. (set advantage-default 1)
  19. (set advantage-max 1)
  20.  
  21. ;;; One of the interesting properties of the Pelopponnesian War was that
  22. ;;; it was really a three-sided contest, with Persia always waiting in
  23. ;;; the wings, looking for opportunities to influence events.
  24.  
  25. (side 1 (noun "Athenian"))
  26.  
  27. (side 2 (noun "Spartan"))
  28.  
  29. (side 3 (noun "Persian"))
  30.  
  31. (include "u-greek")
  32.  
  33. ;;; Initial alignments of cities.
  34.  
  35. (unit "Athens" (s 1))
  36. (unit "Abydos" (s 1))
  37. (unit "Amphipolis" (s 1))
  38. (unit "Brauron" (s 1))
  39. (unit "Byzantium" (s 1))
  40. (unit "Chalcis" (s 1))
  41. (unit "Chios" (s 1))
  42. (unit "Corcyra" (s 1))
  43. ;(unit "Larisa" (s 1))
  44. (unit "Marathon" (s 1))
  45. (unit "Naupactus" (s 1))
  46. (unit "Naxos" (s 1))
  47. (unit "Olynthus" (s 1))
  48. (unit "Paros" (s 1))
  49. ;(unit "Pela" (s 1))
  50. (unit "Sestos" (s 1))
  51. (unit "Thoricus" (s 1))
  52. ;; (should put army near Potidaea)
  53.  
  54. (unit "Sparta" (s 2))
  55. (unit "Elis" (s 2))
  56. (unit "Corinth" (s 2))
  57. (unit "Gythium" (s 2))
  58. (unit "Kythera" (s 2))
  59. (unit "Megara" (s 2))
  60. (unit "Olympia" (s 2))
  61. ;(unit "Potidaea" (s 2))
  62. (unit "Pylos" (s 2))
  63. (unit "Tegea" (s 2))
  64. (unit "Thebes" (s 2))
  65.  
  66. (unit "Sardis" (s 3))
  67. (unit "Ancyra" (s 3))
  68. (unit "Magnesia" (s 3))
  69. (unit "Pergamum" (s 3))
  70.  
  71. ;; Cities to get rid of.
  72.  
  73. (unit "Alexandria" (hp 0))
  74. (unit "Antioch" (hp 0))
  75. (unit "Carthage" (hp 0))
  76. (unit "Gaza" (hp 0))
  77. (unit "Heliopolis" (hp 0))
  78. (unit "Leptis" (hp 0))
  79. (unit "Memphis" (hp 0))
  80. (unit "Naucratis" (hp 0))
  81. (unit "Pelusium" (hp 0))
  82. (unit "Rome" (hp 0))
  83. (unit "Ruspe" (hp 0))
  84. ;(unit "" (hp 0))
  85.