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
183
184
185
186
187
188
189
190
191
192
193
194
195
|
(game-module "monster"
(title "Monster")
(blurb "base module for monsters stomping on cities")
)
;;; Reliving those old movies...
(set see-all true)
(unit-type monster (image-name "monster") (char "M")
(point-value 100)
(help "breathes fire and stomps on buildings"))
(unit-type mob (name "panic-stricken mob") (image-name "horde") (char "m")
(help "helpless civilians"))
(unit-type |fire department| (image-name "firetruck") (char "f")
(help "puts out fires"))
(unit-type |national guard| (image-name "soldiers") (char "g")
(help "does battle with the monster"))
(unit-type building (image-name "city20-intact") (char "b")
(point-value 1)
(help "good for hiding, but crushed by monster"))
(unit-type |burning building| (image-name "city20-burning") (char "B")
(point-value 1)
(help ""))
(unit-type |wrecked building| (image-name "city20-wrecked") (char "W")
(point-value 0)
(help ""))
(unit-type |rubble pile| (image-name "city20-rubble") (char "r")
(point-value 0)
(help ""))
(define firedept |fire department|)
(define guard |national guard|)
(define BB |burning building|)
(define WB |wrecked building|)
(define R |rubble pile|)
(terrain-type sea (char "."))
(terrain-type beach (image-name "desert") (char ","))
(terrain-type street (image-name "road") (char "+"))
(terrain-type block (image-name "sienna") (char "-"))
(terrain-type fields (image-name "plains") (char "="))
(terrain-type trees (image-name "forest") (char "%"))
(define movers (monster mob firedept guard))
(define water (sea))
(define land (beach street block fields trees))
(add sea liquid true)
(add (monster) possible-sides "monster")
(add (mob firedept guard building) possible-sides "human")
;;; Static relationships.
(table unit-capacity-x
((building BB WB R) guard 1)
;; They can start in a building, but cannot re-enter.
((mob firedept) building 1)
)
(table vanishes-on
(u* water true)
;; Godzilla can go in the water.
(monster water false)
;; Fire trucks and mobs can only go along the streets.
((mob firedept) t* true)
((mob firedept) street false)
)
;;; Actions.
(add movers acp-per-turn (2 1 2 2))
(table mp-to-enter-terrain
(u* water 99)
(monster water 0)
;; Fire trucks and mobs can only go along the streets.
((mob firedept) t* 99)
((mob firedept) street 0)
)
(table mp-to-enter-unit
(u* u* 99)
;; The national guard can go through city blocks to get somewhere.
(guard (building WB R) 1)
)
(table acp-to-repair
(firedept BB 1)
)
(table hp-per-repair
(firedept BB 150)
)
;;; Combat.
;; M m f g b B W r
(add u* hp-max (100 1 2 5 6 6 6 1))
(table hit-chance
(u* u* 0)
;; M m f g b B W r
(monster u* ( 50 50 50 50 100 90 80 0))
(firedept u* ( 0 0 0 0 0 50 30 0))
(guard u* ( 80 0 0 0 50 30 30 0))
(building u* ( 10 0 0 0 0 0 0 0))
)
(table damage
(u* u* 1)
;; Monster takes longer to damage already-damaged buildings.
(monster building 3)
(monster BB 2)
(monster WB 1)
(firedept (building BB WB) 2)
(guard monster 4)
;; Rubble piles are pretty much indestructible.
(u* |rubble pile| 0)
)
(add monster acp-to-fire 1)
(add monster range 2)
(add building wrecked-type BB)
(add BB wrecked-type WB)
(add WB wrecked-type R)
(add BB hp-per-detonation 4)
(table detonation-unit-range
(BB u* 2)
)
(table detonation-damage-at
(BB u* 6)
(BB R 0)
)
(table detonation-damage-adjacent
(BB u* 6)
(BB R 0)
)
(table detonation-accident-chance
(BB t* 10.00)
)
(set action-notices '(
((destroy u* M) (actor " kills " actee "!"))
((destroy u* mob) (actor " massacres " actee "!"))
((destroy u* b) (actor " sets " actee " on fire!"))
((destroy u* BB) (actor " wrecks " actee "!"))
))
(add monster namer "monster-names")
(namer monster-names (random
"Godzilla" "Rodan" "Mothra" "Megalon" "Gajira" "Aspidra"
"Reptilicus" "Gamera"
))
;;; Random setup, for testing.
(add t* alt-percentile-min ( 0 20 25 35 80 90 ))
(add t* alt-percentile-max ( 20 25 35 80 90 100 ))
(add t* wet-percentile-min 0)
(add t* wet-percentile-max 100)
(set country-radius-min 5)
(add u* start-with (1 10 3 3 10 0 0 0))
(table favored-terrain
(u* sea 0)
)
(game-module (notes (
"Typically, one would set up a scenario with one or more monsters on"
"one side, and mobs, fire departments, and national guards on the"
"other. Note"
"that the monster can easily defeat national guards one after another,"
"and that the most successful strategy for the human side is to"
"attack the monster with several units at once. The monster can use"
"fires as a barricade to keep the national guards from getting close"
"enough to attack. Destroying buildings is fun but not very useful."
""
"Sandra Loosemore (sandra@cs.utah.edu) is the person to blame for this"
"piece of silliness (well, Stan aided and abetted)."
)))
|
