Markus Armbruster
68945c8ff8
Exercise load, unload, lload, lunload, tend, and ltend. Notable coverage gaps: * Effect on land unit fortification * Effect on mission and retreat orders * Ships, land units and planes on sale (option MARKET 1) * Transmission of plague (option NO_PLAGUE 0) * Land units loading and unloading civilians (need a custom land unit type capable of carrying civilians) * load refusing to load x-light planes (need a custom ship type that can carry helo but not x-light) * load and lload refusing to load land units carrying land units, and lload refusing to load land units onto land units that are being carried (need a custom non-heavy land unit type that can carry land units) * tend refusing to tend non-light land units to non-supply ships, or to supply ships without room (need custom a non-light assault land unit type) This test exposes bugs. They're marked "BUG:" in the test input. There are also oddities marked "odd:", and usability issues marked "usability:". Signed-off-by: Markus Armbruster <armbru@pond.sub.org>
234 lines
8.8 KiB
Text
234 lines
8.8 KiB
Text
||| create land
|
|
| harbor 2% and 0%
|
|
desi -6:8,0 h
|
|
desi 1:9,1 h
|
|
desi -3,-1:1 h
|
|
edit l -6:8,-1:0 e 2 ?des=h
|
|
| city 2% and 0%
|
|
desi 0:9,4:5 c
|
|
edit l 0:8,4 e 2
|
|
| highway 100%
|
|
desi 1:9,3 +
|
|
edit l 0:8,-2 e 100 m 60
|
|
| populate
|
|
give c * ?des#. 100
|
|
give m * ?des#. 100
|
|
give f * ?des#. 100
|
|
give s * ?des#. 1
|
|
give g * ?des#. 1
|
|
give i * ?des#. 9950
|
|
give l * ?des#. 9950
|
|
give b * ?des#. 20
|
|
give r * ?des#. 200
|
|
|
|
|
||| countries, each one gets one of each sector
|
|
|| #1
|
|
add 1 1 1 p
|
|
edit c 1 c 0,4 s 4 b 640 M 25000 T 100
|
|
edit l -6:1,0:5 o 1 O 1 ?des#.
|
|
| occupied sector (old owner is allied)
|
|
edit l -2,0 O 2
|
|
edit l -3,-1 o 2 O 1
|
|
|| #2
|
|
add 2 2 2 p
|
|
edit c 2 c 2,4 s 4 b 640 M 25000 T 100
|
|
edit l 2:3,0:5 o 2 O 2
|
|
|| #3
|
|
add 3 3 3 p
|
|
edit c 3 c 4,4 s 4 b 640 M 25000 T 100
|
|
edit l 4:5,0:5 o 3 O 3
|
|
|| #4
|
|
add 4 4 4 p
|
|
edit c 4 c 6,4 s 4 b 640 M 25000 T 100
|
|
edit l 6:7,0:5 o 4 O 4
|
|
|| #5
|
|
add 5 5 5 g
|
|
| the following is to simplify building; owner will be reset to 0 later
|
|
edit l 8:9,0:5 o 5 O 5
|
|
|| relations
|
|
decl a 1 2
|
|
decl a 2 1
|
|
decl f 1 3
|
|
decl f 3 1
|
|
|
|
|
||| ships
|
|
| all belong to #1 unless stated otherwise
|
|
| ls#0/.../24: in each of the 25 different land sectors, fleet a
|
|
| fb#25/.../34: in each of the 10 different cities, fleet a
|
|
| fleet will be assigned later
|
|
build s 0:9,0:5 ?des#. ls
|
|
build s 0:9,4:5 fb
|
|
| cs#80/81/82: in -6:-2,0, have 10c 101l 10h
|
|
edit s 0 U 80 t cs L -2,0 c 10 l 101 h 10 U 81 L -4,0 U 82 L -6,0
|
|
| cs#85/86/87: allied and ally is h's old-owner, allied in old-owned h, in
|
|
| allied occupied h and old-owner matches ship owner
|
|
edit s 0 U 85 t cs L -2,0 c 10 O 2 U 86 L -4,0 U 87 L -3,-1 O 1
|
|
| ls#90/92/93/94: in #1's harbor, owned by #0/2/3/4, have 6m, fleet b
|
|
edit s 0 U 90 F b m 6 O 0 U 92 O 2 U 93 O 3 U 94 O 4
|
|
| ls#95: at sea, has 6m, fleet b
|
|
edit s 90 U 95 L 1,-1 O 1
|
|
| cal#100/mb#101/cs#105: ships loading planes
|
|
| #100 capability plane, #101 capability miss, #105 full (done below)
|
|
edit s 0 U 100 L -2,0 t cal U 101 t mb U 105 t cs
|
|
| frg#110/sb#111/cs#112/sbc#113/cs#115: ships loading lands
|
|
| #110 surface, #111 sub, #112 surface supply, #113 sub supply, #115 full
|
|
edit s 100 U 110 t frg U 111 t sb U 112 t cs U 113 t sbc U 115 t cs
|
|
| cs#150/.../154: tenders in 1,-1, have 20c 20m 20u 20f 7s 42g, fleet t
|
|
| fleet will be assigned later
|
|
edit s 0 U 150 L 1,-1 t cs c 20 m 20 u 20 f 20 s 7 g 42 U 151 U 152 U 153 U 154
|
|
| cs#160/162/163/164: tenders owned by #0/2/3/4 in 0,-2,
|
|
| have 20c 20m 20u 20f 7s 42g, fleet u
|
|
edit s 150 U 160 L 0,-2 F u O 0 U 162 O 2 U 163 O 3 U 164 O 4
|
|
| ls#165: another tender in 1,-1
|
|
edit s 150 U 165 t ls
|
|
| cs#166: another tender in 0,-2, have 20c 20m 20u 20f 7s 42g
|
|
edit s 150 U 166 L 0,-2
|
|
| frg#170/sb#171/cs#172/sbc#173/cs#175: ships receiving lands from tenders
|
|
edit s 150 U 170 L 1,-1 t frg U 171 t sb U 172 t cs U 173 t sbc U 175 t cs
|
|
| cs#200/201: ltender, have 20c 20m 20u 20f 7s 42g, fleet T
|
|
edit s 150 U 200 F T U 201
|
|
| cs#212: ltender, owned by #2, have 20c 20m 20u 20f 7s 42g
|
|
edit s 200 U 212 O 2
|
|
| assign #0/.../34 to fleet a, give 6m, fix up owner
|
|
edit s * F a m 6 O 1 ?uid<35
|
|
| assign #150/.../154 to fleet t
|
|
edit s 150/151/152/153/154 F t
|
|
|
|
|
||| land units
|
|
| all belong to #1 unless stated otherwise
|
|
| linf#0/.../24: next to fleet a, army A
|
|
| army will be assigned later
|
|
build l 0:9,0:5 ?des#. linf
|
|
| linf#25/.../29: next to fleet a in 2% h, owned by sector owner, army A
|
|
build l 0:8,0 linf
|
|
edit u 25/26/27/28/29 a A
|
|
| linf#30/.../34: next to army a, army C
|
|
build l 0:8,0 ?des#. linf
|
|
edit u 30/31/32/33/34 a C O 1
|
|
| linf#35/.../39: next to army a, owned by sector owner, army C
|
|
build l 0:8,0 linf
|
|
edit u 35/36/37/38/39 a C
|
|
| filler to make build give me #50 next, will be undone later
|
|
edit u 40 O 5 U 41 U 42 U 43 U 44 U 45 U 46 U 47 U 48 U 49
|
|
| tra#50/.../54: in each of the 5 different harbors, army a
|
|
build l 0:8,0 tra
|
|
edit u 50/51/52/53/54 a a m 6 O 1
|
|
| sup#80/81/82 have 101i 10h in -6:-2,0
|
|
edit u 0 U 80 T sup L -2,0 i 101 h 10 U 81 L -4,0 U 82 L -6,0
|
|
| tra#90/92/93/94: in #1's harbor, owned by #0/2/3/4, have 6m, army b
|
|
edit u 50 U 90 a b m 6 O 0 U 92 O 2 U 93 O 3 U 94 O 4
|
|
| rad#100/105: lands loading planes, #100 empty, #101 full (done below)
|
|
edit u 0 U 100 L -2,0 T rad U 105
|
|
| tra#110/115: lands loading lands, #110 empty, #115 full (done below)
|
|
edit u 0 U 110 L -2,0 T tra U 115
|
|
| rad#120/.../133: riding cs#115 and tra#115
|
|
edit u 0 U 120 T rad S 115 U 121 U 122 Y 115 U 123 U 124 U 125 U 126 U 127 U 128 U 129 U 130 U 131 U 132 U 133
|
|
| linf#140/.../143: light
|
|
edit u 0 U 140 L -2,0 U 141 U 142 U 143
|
|
| hat#150/151/152: neither light nor heavy
|
|
edit u 140 U 150 T hat U 151 U 152
|
|
| tra#160: heavy
|
|
edit u 140 U 160 T tra
|
|
| #170/.../174: spies
|
|
edit u 140 U 170 T spy U 171 U 172 U 172 U 173 U 174
|
|
| linf#180/.../204: riding fleet a, have 6m, army B
|
|
edit u 0 U 180 a B m 6 S 0 U 181 S 1 U 182 S 2 U 183 S 3 U 184 S 4 U 185 S 5 U 186 S 6 U 187 S 7 U 188 S 8 U 189 S 9 U 190 S 10 U 191 S 11 U 192 S 12 U 193 S 13 U 194 S 14 U 195 S 15 U 196 S 16 U 197 S 17 U 198 S 18 U 199 S 19 U 200 S 20 U 201 S 21 U 202 S 22 U 203 S 23 U 204 S 24
|
|
| linf#210/212/213/214: next to fleet b
|
|
edit u 0 U 210 U 212 U 213 U 214
|
|
| linf#222/223/224/225: riding fleet b, owned by ride's owner, have 6m, army B
|
|
| (lnd_prewrite() doesn't let us put a rider on unowned #90)
|
|
edit u 0 U 225 a B m 6 S 95 U 222 O 2 S 92 U 223 O 3 S 93 U 224 O 4 S 94
|
|
| linf#230/.../234: riding army a, have 6m army D
|
|
edit u 0 U 230 a D m 6 Y 50 U 231 Y 51 U 232 Y 52 U 233 Y 53 U 234 Y 54
|
|
| linf#240/242/243/244: next to army b
|
|
edit u 0 U 240 U 242 U 243 U 244
|
|
| linf#252/253/254: riding army b, owned by ride's owner, have 6m, army D
|
|
| (lnd_prewrite() doesn't let us put a rider on unowned #90)
|
|
edit u 0 U 252 a D m 6 O 2 Y 92 U 253 O 3 Y 93 U 254 O 4 Y 94
|
|
| sup#300/linf#/301/302/303/hat#304: tended lands riding fleet t, army t
|
|
edit u 80 U 300 a t S 150 U 301 T linf S 151 U 302 S 152 U 303 S 153 U 304 T hat S 154
|
|
| linf#312/313/314: tended lands riding fleet u, owned by ride's
|
|
| (lnd_prewrite() doesn't let us put a rider on unowned #160)
|
|
| owner, army u
|
|
edit u 301 U 312 a u O 2 S 162 U 313 O 3 S 163 U 314 O 4 S 164
|
|
| linf#315/.../317, tended lands riding ls#165
|
|
edit u 0 U 315 S 165 U 316 U 317
|
|
| spy#320/321/323, tended spies riding ls#165, army s
|
|
edit u 315 U 320 T spy a s U 321 U 322
|
|
| linf#330/331, tended lands riding cs#166
|
|
edit u 315 U 330 S 166 U 331
|
|
| sup#350/351/352: ltended lands, have 25m 101i 10h, riding fleet T
|
|
edit u 0 U 350 T sup m 25 S 200 U 351 U 352 S 201
|
|
| assign #0/.../24 to army A, give 6m, fix up owner
|
|
edit u * a A m 6 O 1 ?uid<25
|
|
|
|
|
|||| planes
|
|
| all belong to #1 unless stated otherwise
|
|
| sam#0/.../24: next to fleet a, wing A
|
|
| wing will be assigned later
|
|
build p 0:9,0:5 ?des#. sam
|
|
| sam#25/.../29: next to fleet a in 2% h, owned by sector owner, wing A
|
|
build p 0:8,0:0 ?des#. sam
|
|
edit p 25/26/27/28/29 w A
|
|
| sam#30/.../34: next to army a, wing C
|
|
build p 0:8,0 sam
|
|
edit p 30/31/32/33/34 w C O 1
|
|
| sam#35/.../39: next to army a, owned by sector owner, wing C
|
|
build p 0:8,0 sam
|
|
edit p 35/36/37/38/39 w C
|
|
| sam#40/.../59, #57 on ship#105, #58 on land#105, #59 hardened, rest wing E
|
|
build p -2,0 sam 20 200 y
|
|
edit p * w E ?uid>39&uid<57
|
|
edit p 57 s 105
|
|
edit p 58 y 105
|
|
edit p 59 F 1
|
|
| nc#60/.../89: helo, wing K
|
|
build p -2,0 nc 30 200 y
|
|
edit p * ?uid>59&eff>0 w K
|
|
| mi#90/.../109: light missile, wing M
|
|
build p -2,0 mi 20 200 y
|
|
edit p * ?uid>89&eff>0 w M
|
|
| f2#110/.../139: light fixed-wing, wing F
|
|
build p -2,0 f2 30 200 y
|
|
edit p * ?uid>109&eff>0 w F
|
|
| zep#140: non-light
|
|
edit p 0 U 140 l -2,0 T zep w
|
|
| sam#150/.../174: riding fleet a, wing B
|
|
edit p 0 U 150 w B s 0 U 151 s 1 U 152 s 2 U 153 s 3 U 154 s 4 U 155 s 5 U 156 s 6 U 157 s 7 U 158 s 8 U 159 s 9 U 160 s 10 U 161 s 11 U 162 s 12 U 163 s 13 U 164 s 14 U 165 s 15 U 166 s 16 U 167 s 17 U 168 s 18 U 169 s 19 U 170 s 20 U 171 s 21 U 172 s 22 U 173 s 23 U 174 s 24
|
|
| sam#180/182/183/184: next to fleet b
|
|
edit p 0 U 180 U 182 U 183 U 184
|
|
| sam#192/193/194/195: riding fleet b, owned by ride's owner, wing B
|
|
| (pln_prewrite() doesn't let us put a rider on unowned #90)
|
|
edit p 0 U 192 w B O 2 s 92 U 193 O 3 s 93 U 194 O 4 s 94 U 195 s 95
|
|
| sam#200/.../204: riding army a, wing D
|
|
edit p 0 U 200 w D y 50 U 201 y 51 U 202 y 52 U 203 y 53 U 204 y 54
|
|
| sam#210/212/213/214: next to army b
|
|
edit p 0 U 210 U 212 U 213 U 214
|
|
| sam#222/223/224: riding army b, owned by ride's owner, wing D
|
|
| (pln_prewrite() doesn't let us put a rider on unowned #90)
|
|
edit p 0 U 222 w D O 2 y 92 U 223 O 3 y 93 U 224 O 4 y 94
|
|
| sam#230/231: riding rad#120 and next to rad#121, both riding cs#115
|
|
edit p 0 U 231 l -2,0 U 230 y 120
|
|
| sam#232/233: riding rad#122 and next to rad#120, both riding tra#115
|
|
edit p 231 U 233 U 232 y 122
|
|
| assign #0/.../24 to wing A, fix up owner
|
|
edit p * w A O 1 ?uid<25
|
|
|
|
|
||| finishing touches
|
|
edit s * E 100 M 90 ?eff>0
|
|
edit u * e 100 M 60 ?eff>0
|
|
edit p * e 100 m 60 ?eff>0
|
|
edit l * ?own=5 o 0 O 0
|
|
edit s * ?own=5 O 0
|
|
edit u * ?own=5 O 0
|
|
edit p * ?own=5 O 0
|
|
|
|
|
||| show initial state here to help maintainers
|
|
map *
|
|
cens * ?des#.
|
|
comm * ?des#.
|
|
ship *
|
|
carg *
|
|
land *
|
|
lcarg *
|
|
plan *
|