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
|
(game-module "standard"
(title "Standard Game")
(blurb "The standard Xconq game, loosely based on WW II ca 1945")
(instructions "Take over the world before you get taken over!")
(variants
(world-seen false)
(see-all false)
(world-size (60 30 360))
(sequential false)
("Mostly Land" mostly-land
(true
;; Adjust so that sea is 20% instead of 70% of the world.
(add sea alt-percentile-max 20)
(add shallows alt-percentile-min 20)
(add shallows alt-percentile-max 21)
(add swamp alt-percentile-min 21)
(add swamp alt-percentile-max 23)
(add (desert plains forest) alt-percentile-min 21)
))
("All Land" all-land
(true
;; Adjust sea and shallows out of existence, let swamp take all the low spots.
(add sea alt-percentile-min 0)
(add sea alt-percentile-max 0)
(add shallows alt-percentile-min 0)
(add shallows alt-percentile-max 0)
(add swamp alt-percentile-min 0)
(add swamp alt-percentile-max 2)
(add swamp wet-percentile-min 0)
(add swamp wet-percentile-max 100)
(add (desert plains forest) alt-percentile-min 2)
;; Counterproductive to try to set up near water.
(add sea country-terrain-min 0)
))
("Large Countries" large
(true
;; This is the same as country separation.
(set country-radius-max 48)
(add (town city) unit-growth-chance (100 20))
(add (town city) independent-growth-chance (20 0))
))
("Test" test
(true
;; For testing.
(set unseen-image-name "question")
(include "libimf")
))
("Noisy" noisy
(true
(set action-movies '(
(move (sound "pop"))
))
(set event-movies '(
(side-lost (sound "thunder"))
(unit-captured (sound "chirr"))
(unit-completed (sound "chirr"))
(unit-moved (sound "pop 2"))
))
))
)
)
(include "stdunit")
(include "nat-names")
(include "town-names")
(add (* @) namer "random-town-names")
(set feature-types (("peak") ("lake")))
(include "ng-weird")
(namer generic-lake-names (grammar root 10
(root (or 5 (foo "Lake " generic-names)
1 (generic-names " Lake")
))
(foo "") ; works around a bug
))
(set feature-namers (("lake" "generic-lake-names")))
(set advantage-min 1)
(set advantage-default 1)
(set advantage-max 5)
(scorekeeper
(title "")
(do last-side-wins)
)
(set scorefile-name "standard.xcq")
(add u* see-terrain-if-captured 10)
(add town see-terrain-if-captured 50)
(add city see-terrain-if-captured 100)
(table see-others-if-captured
(ship ship 50)
(base u* 10)
(town u* 20)
(town (town city) 100)
(city u* 100)
)
|
