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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
(game-module "1757"
(title "Europe 1757")
(blurb "Central Europe, April, 1757.")
(base-module "fred")
)
(include "t-cent-eur")
;;; Modify the defaults in fred.
(add u* start-with 0)
;;; Everybody has joined the war now.
(side 1 (name "Prussia") (adjective "Prussian") (emblem-name "arms-prussia"))
(side 2 (name "Hannover") (adjective "Hannoverian") (emblem-name "arms-hannover"))
(side 3 (name "Austria") (adjective "Austrian") (emblem-name "arms-austria"))
(side 4 (name "Saxony") (adjective "Saxon") (emblem-name "arms-saxony"))
(side 5 (name "France") (adjective "French") (emblem-name "arms-france"))
(side 6 (name "Russia") (adjective "Russian") (emblem-name "arms-russia"))
(side 7 (name "Sweden") (adjective "Swedish") (emblem-name "arms-sweden"))
(side 8 (name "Empire") (adjective "Empire"))
(side 1 (trusts (1 1) (2 1)))
(side 2 (trusts (1 1) (2 1)))
(side 4 (controlled-by 1))
(side 3 (trusts (3 1) (5 1) (6 1) (7 1) (8 1)))
(side 5 (trusts (3 1) (5 1) (6 1) (7 1) (8 1)))
(side 6 (trusts (3 1) (5 1) (6 1) (7 1) (8 1)))
(side 7 (trusts (3 1) (5 1) (6 1) (7 1) (8 1)))
(side 8 (trusts (3 1) (5 1) (6 1) (7 1) (8 1)))
(set sides-max 8)
;; (should put towns and fortresses into a separate module)
(town (n "Danzig") (@ 35 35))
(town (n "Hamburg") (@ 12 32))
(town (n "Emden") (@ 8 30))
(town (n "Thorn") (@ 38 29))
(town (n "Bremen") (@ 13 28))
(town (n "Posen") (@ 36 25))
(town (n "Cassel") (@ 18 19))
(town (n "Leipzig") (@ 27 18))
(town (n "Chemnitz") (@ 29 16))
(town (n "Eger") (@ 31 12))
(town (n "Wurzburg") (@ 24 11))
(town (n "Donauworth") (@ 29 6))
(town (n "Regensburg") (@ 32 6))
(town (n "Passau") (@ 36 5))
(town (n "Ulm") (@ 27 4))
(fortress 22 23 1 (n "Magdeburg"))
(fortress (n "Berlin") (@ 25 26) (s 1))
(fortress (n "Stettin") (@ 26 30))
(fortress (n "Kustrin") (@ 30 25) (s 1))
(fortress 36 21 1 (n "Glogau") (s 1))
(fortress (n "Colberg") (@ 29 34) (s 1))
(fortress (n "Schweidinitz") (@ 39 17) (s 3))
(fortress 40 18 1 (n "Breslau") (s 1))
(fortress (n "Glatz") (@ 40 16) (s 1))
(fortress (n "Brieg") (@ 42 17) (s 1))
(fortress (n "Neisse") (@ 43 15) (s 1))
(fortress (n "Munster") (@ 11 23))
(fortress (n "Minden") (@ 14 24))
(fortress (n "Hannover") (@ 17 25) (s 2))
(fortress (n "Stade") (@ 12 31) (s 2))
(fortress (n "Prague") (@ 35 12) (s 3))
(fortress (n "Brunn") (@ 44 7))
(fortress (n "Olmutz") (@ 46 9) (s 3))
(fortress (n "Vienna") (@ 46 3) (s 3))
(fortress (n "Koniggratz") (@ 40 13))
(fortress (n "Nuremberg") (@ 28 9) (s 8))
(fortress (n "Torgau") (@ 28 19) (s 1) (os 4))
(fortress (n "Dresden") (@ 31 17) (s 1) (os 4))
(fortress (n "Metz") (@ 15 8) (s 5))
(fortress (n "Strasbourg") (@ 20 5) (s 5))
(fortress (n "Venlo") (@ 7 20))
(fortress (n "Roermond") (@ 9 18))
(fortress (n "Cologne") (@ 12 17) (s 5))
(fortress (n "Coblenz") (@ 15 14) (s 5))
(fortress (n "Dusseldorf") (@ 11 19))
(fortress (n "Mainz") (@ 18 12) (s 5))
(fortress (n "Wesel") (@ 9 22))
(fortress (n "Frankfort") (@ 20 13) (s 5))
(fortress (n "Konigsberg") (@ 38 38) (s 1))
(fortress (n "Stralsund") (@ 20 34) (s 7))
(fortress (@ 39 39) (s 6))
(army 25 26 1 (hp 2))
(army 30 25 1 (hp 2))
(army 22 23 1 (hp 7))
(army 28 19 1 (hp 2))
(army 40 18 1 (hp 4))
(army 34 17 1 (hp 18))
(army 42 17 1 (hp 2))
(army 43 15 1 (hp 2))
(army 40 16 1 (hp 2))
(army 39 17 1 (hp 34))
(army 36 21 1)
(army 26 30 1 (hp 20))
(army 31 17 1 (hp 20))
(general 31 17 1 (n "Keith"))
(general 29 16 1 (n "Maurice"))
(general 26 30 1 (n "Lehwaldt"))
(marshal 34 17 1 (n "Brunswick"))
(marshal 39 17 1 (n "Schwerin"))
(prince 31 17 1 (n "Henry"))
;(prince -1 -1 1 (n "Ferdinand"))
(king 31 17 1 (n "Frederick"))
(army 12 31 2 (hp 2))
(army 13 28 2 (hp 2))
(army 15 25 2 (hp 2))
(army 17 25 2 (hp 8))
(army 14 24 2 (hp 5))
(army 16 23 2 (hp 7))
(general 14 24 2 (n "Karl"))
(marshal 16 23 2 (n "Zastrow"))
(prince 17 25 2 (n "Cumberland"))
(army 36 16 3 (hp 28))
(army 40 13 3 (hp 27))
(army 31 12 3 (hp 24))
(army 44 7 3 (hp 8))
(army 46 9 3 (hp 10))
(army 46 3 3 (hp 8))
(army 35 12 3 (hp 15))
(general 31 12 3 (n "Darenberg"))
(general 36 16 3 (n "Koenigsegg"))
(general 46 9 3 (n "Nadasy"))
(marshal 35 12 3 (n "Browne"))
(marshal 40 13 3 (n "Serbeloni"))
(marshal 46 3 3 (n "Daun"))
(king 35 12 3 (n "Charles"))
(depot 36 16 3)
(army 29 17 4 (hp 1))
(army 9 22 5 (hp 8))
(army 11 19 5 (hp 8))
(army 9 18 5 (hp 24))
(army 12 17 5)
(army 15 14 5)
(army 20 13 5)
(army 18 12 5)
(army 15 8 5)
(army 7 20 5 (hp 30))
(army -20 -5 5 (hp 20) (cp -1) (appear 10))
(general 7 20 5 (n "Broglie"))
(general 9 22 5 (n "Chevert"))
(general 9 18 5 (n "Contades"))
(general 11 19 5 (n "St. Germain"))
(marshal 7 20 5 (n "D'Estrees"))
(marshal -20 -5 5 (cp -1) (n "Soubise") (appear 10))
(army -39 -38 6 (hp 40) (cp -1) (appear 8))
(general -39 -38 6 (n "Fermor") (cp -1) (appear 8))
(marshal -39 -38 6 (n "Apraxin") (cp -1) (appear 8))
(army 20 34 7 (hp 20))
(marshal 20 34 7 (n "Hamilton"))
(army 28 9 8 (hp 1))
(army -28 -9 8 (hp 18) (cp -1) (appear 8))
(marshal -28 -9 8 (n "von Sachsen-Hildburghausen") (cp -1) (appear 8))
;;; Need some better scorekeepers.
(scorekeeper (do last-side-wins))
(set initial-date "1 Apr 1757")
(set initial-year-part 7)
;;; Game only lasts until the end of the year (armies would
;;; invariably go into winter quarters from December thru March).
(set last-turn 19)
|
