1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
(game-module "pelops"
(title "Peloponnesian War")
(blurb "Athens vs Sparta, for control of Greece in 431 BC")
(base-module "greek")
(variants
(see-all false)
;; not realistic, more for debugging
("Last Side Wins" last-side-wins
(true (scorekeeper (do last-side-wins))))
)
)
(set terrain-seen true)
;; Suppress random startups (should hack synthesis list)
(add u* start-with 0)
(add u* independent-near-start 0)
(table independent-density (u* t* 0))
;; Action in the war was limited to the general vicinity of Greece and the Aegean.
(area 101 49 (restrict 200 100 30 32))
(set initial-date "Mar -431")
;; One of the interesting properties of the Pelopponnesian War was that
;; it was really a three-sided contest, with Persia always waiting in
;; the wings, looking for opportunities to influence events.
(side 1 (name "Athens") (noun "Athenian") (emblem-name "owl"))
(side 2 (name "Sparta") (noun "Spartan") (emblem-name "shield-spear"))
(side 3 (name "Persia") (noun "Persian") (emblem-name "winged-bull"))
(include "u-greek")
;;; Initial alignments of cities.
(unit "Abdera" (s 1))
(unit "Abydos" (s 1))
(unit "Acanthus" (s 1))
(unit "Aegina" (s 1))
(unit "Amphipolis" (s 1))
(unit "Andros" (s 1) (os 1))
(unit "Athens" (s 1) (os 1) (m 100 2000))
(unit "Brauron" (s 1) (os 1))
(unit "Byzantium" (s 1))
(unit "Calchedon" (s 1))
(unit "Catana" (s 1))
(unit "Chalcis" (s 1))
(unit "Chios" (s 1))
(unit "Corcyra" (s 1))
(unit "Cos" (s 1))
(unit "Cyzicus" (s 1))
(unit "Elaea" (s 1))
(unit "Ephesus" (s 1))
(unit "Erythrae" (s 1))
(unit "Halicarnassus" (s 1))
(unit "Ialysus" (s 1))
(unit "Ilium" (s 1))
(unit "Lemnos" (s 1))
(unit "Leontini" (s 1))
(unit "Lindos" (s 1))
(unit "Methone" (s 1))
(unit "Methymna" (s 1))
(unit "Miletus" (s 1))
(unit "Myndus" (s 1))
(unit "Mytilene" (s 1))
(unit "Naupactus" (s 1))
(unit "Naxos" (s 1) (os 1))
(unit "Olynthus" (s 1))
(unit "Parium" (s 1))
(unit "Paros" (s 1) (os 1))
(unit "Perinthus" (s 1))
(unit "Plataeae" (s 1) (os 1))
(unit "Same" (s 1))
(unit "Samos" (s 1))
(unit "Sestos" (s 1))
(unit "Thasos" (s 1))
(unit "Zacynthus" (s 1))
(unit "Sparta" (s 2) (os 2) (m 100 1000))
(unit "Aegae" (s 2))
(unit "Ambracia" (s 2))
(unit "Anactorium" (s 2))
(unit "Delphi" (s 2))
(unit "Corinth" (s 2))
(unit "Elis" (s 2) (os 2))
(unit "Epidaurus" (s 2))
(unit "Gythium" (s 2) (os 2))
(unit "Kythera" (s 2))
(unit "Lepreum" (s 2))
(unit "Megara" (s 2))
(unit "Olympia" (s 2))
(unit "Pella" (s 2))
(unit "Pharae" (s 2))
(unit "Potidaea" (s 2))
(unit "Pylos" (s 2) (os 2))
(unit "Sicyon" (s 2))
(unit "Syracuse" (s 2))
(unit "Tegea" (s 2))
(unit "Thebes" (s 2) (os 2))
(unit "Therma" (s 2))
(unit "Thyrea" (s 2))
(unit "Troezen" (s 2))
(unit "Anaea" (s 3) (os 3))
(unit "Ancyra" (s 3) (os 3))
(unit "Sardis" (s 3) (os 3) (m 100 9000))
(unit "Magnesia" (s 3) (os 3))
(unit "Myra" (s 3) (os 3))
(unit "Nysa" (s 3) (os 3))
(unit "Pergamum" (s 3) (os 3))
(unit "Phaselis" (s 3) (os 3))
(unit "Tralles" (s 3) (os 3))
(unit "Xanthus" (s 3) (os 3))
;; Get rid of cities on the restricted map, but belonging to later times.
(unit "Lysimachia" (hp 0))
(unit "Megalopolis" (hp 0))
(unit "Myrlea" (hp 0))
(unit "Nicaea" (hp 0))
(unit "Smyrna" (hp 0))
;; Military units in existence already.
(hoplite (s 1) (in "Athens"))
(hoplite (s 1) (in "Miletus"))
(hoplite 44 40 1)
(trireme (s 1) (in "Athens"))
(trireme (s 1) (in "Athens"))
(hoplite (s 2) (in "Ambracia"))
(hoplite (s 2) (in "Corinth"))
(hoplite (s 2) (in "Sparta"))
(hoplite (s 2) (in "Thebes"))
(archer (s 3) (in "Sardis"))
(cavalry (s 3) (in "Sardis"))
|
