Markus Armbruster
58cd269bed
Does not cover land unit retreat after a failed morale check. The test exposes bugs. They're marked "BUG:" in the test input. Signed-off-by: Markus Armbruster <armbru@pond.sub.org>
159 lines
4.3 KiB
Text
159 lines
4.3 KiB
Text
|| create land
|
|
desi @0,0:2 a
|
|
desi 4,4 h
|
|
give c * ?des#. 100
|
|
|| country#1
|
|
add 1 1 1 p
|
|
desi -2,0 c
|
|
edit c 1 c -2,0 s 4 b 640 M 25000 T 100
|
|
| two forts (one with, one without return fire)
|
|
desi -2,2 f
|
|
desi -2,-2 f
|
|
| harbor for building of non-landlocked ships
|
|
desi -3,1 h
|
|
edit l * ?des#.&xloc<0 o 1 O 1
|
|
| ships for testing retreat command
|
|
build s -3,1 cs 5
|
|
| ship to drop depth charges
|
|
build s -3,1 dd
|
|
| ship to launch torpedoes
|
|
edit s 5 g 1 s 40
|
|
build s -3,1 sb
|
|
edit s 6 T 165 L -1,3 g 1 s 36
|
|
| p-bombers with 50% hit chance vs. dd in port
|
|
build p -2,2 lb 5
|
|
| marine missiles acc 50
|
|
edit p 0 U 10 T mi t 160 U 11 U 12 U 13 U 14
|
|
| p-bombers with 50% hit chance vs. cav
|
|
edit p 0 U 20 t 400 U 21 U 22 U 23 U 24
|
|
| very accurate p-bomber
|
|
edit p 0 U 30 T ac t 400
|
|
| land units for testing retreat command
|
|
build l -3,1 inf 5
|
|
| fortify to reduce unwanted collateral damage
|
|
edit u * F 127
|
|
|| country#2
|
|
add 2 2 2 p
|
|
| mountain, to test "can't retreat into mountain"
|
|
desi 2,0 ^
|
|
edit c 2 c 2,0 s 4 b 640 M 25000 T 100
|
|
| a harbor for building, a harbor for testing construction zone retreat
|
|
desi 0:2,2 h
|
|
edit l 2,2 e 1
|
|
edit l * ?des#.&own=0 o 2 O 2
|
|
| ship that can return fire to -2,-2 and -5,-1 weakly
|
|
edit s 5 U 9 O 2 L -4,-2 E 60
|
|
| a train to carry land units
|
|
edit u 0 U 9 O 2 T tra L 1,1
|
|
| target ships gun fire: injured, helpless, not helpless
|
|
edit s 0 U 20 O 2 U 10 L 0,2 U 11
|
|
retr 10 nhhnj ih
|
|
retr 11 n h
|
|
retr 20 u h
|
|
| target ships that want to retreat, but can't: sunk, sailing, crewless,
|
|
| in construction zone, landlocked, no mobility
|
|
edit s 10 U 30 U 31 U 32 U 33 U 34 U 35
|
|
sail 31 nnnnh
|
|
edit s 33 L 2,2
|
|
edit s 34 L 3,1
|
|
retr 30/31/32/33/34/35 n i
|
|
| target ships having difficulties during retreat: out of mobility,
|
|
| into non-navigable, into unfriendly, as group into minefield
|
|
edit s 10 U 40 t lc U 41 U 42
|
|
retr 40 nnnnh i
|
|
edit s 40 M 5
|
|
retr 41 nuh i
|
|
edit s 42 L -4,2
|
|
retr 42 ugggh i
|
|
edit s 10 U 43 t ms U 44
|
|
fleet m 43/44
|
|
edit s m L -4,4
|
|
edit l -8:-6,4 M 100
|
|
retr m gg i
|
|
miss s 40/41/42 int .
|
|
| target ships depth-charges: injured vs. depth-charged, depth-charged,
|
|
| helpless, not helpless
|
|
edit s 10 U 50 t sb L -5,1 U 51 U 52 U 53 L -4,-2
|
|
retr 50 gg dih
|
|
retr 51 gg dh
|
|
retr 52/53 gg h
|
|
| target ships bombs: injured vs. bombed, bombed
|
|
| five of each, to have a decent chance at getting both a hit and a miss
|
|
edit s 10 U 60 t dd U 61 U 62 U 63 U 64 U 65 U 66 U 67 U 68 U 69
|
|
retr 60/61/62/63/64 nn bih
|
|
retr 65/66/67/68/69 nn bh
|
|
| target ships missiles: injured (bombed doesn't apply)
|
|
| five, to have a decent chance at getting both a hit and a miss
|
|
edit s 60 U 80 U 81 U 82 U 83 U 84
|
|
retr 80/81/82/83/84 nn bih
|
|
| target ships torpedoes: torpedoed (injured not implemented)
|
|
| five, to have a decent chance at getting both a hit and a miss
|
|
edit s 10 U 100 U 101 U 102 U 103 U 104
|
|
retr 100/101/102/103/104 nn tih
|
|
| target ship sonar
|
|
edit s 50 U 120
|
|
retr 120 gg s
|
|
| target ship boarding
|
|
edit s 50 U 130 t tt
|
|
retr 130 gg u
|
|
| target land units bombs: bombed
|
|
edit u 9 U 10 T cav
|
|
lret 10 jhhuy b
|
|
| target land units that want to retreat, but can't: destroyed,
|
|
| loaded on ship, crewless, kidnapped, loaded on land unit, no mobility
|
|
edit u 10 U 30 T inf
|
|
edit u 10 U 31 S 35
|
|
edit u 10 U 32 U 33 U 35
|
|
edit u 33 L -1,1
|
|
edit u 10 U 34 Y 9
|
|
lret 30/31/32/33/34/35 j b
|
|
| target land units having difficulties during retreat: out of mobility,
|
|
| into mountain, into foreign sector, as group into minefield
|
|
edit u 10 U 40 U 41 U 42
|
|
lret 40 nu b
|
|
edit u 40 M 5
|
|
lret 41 jy b
|
|
lret 42 g b
|
|
edit u 10 U 43 T eng U 44
|
|
army m 43/44
|
|
edit l 0:1,-1:0 O 1 M 100
|
|
lret m yu b
|
|
miss l 40/41/42 res .
|
|
| target land units bombs: injured vs. bombed
|
|
| five, to have a decent chance at getting both a hit and a miss
|
|
edit u 10 U 60 L 0,0 U 61 U 62 U 63 U 64
|
|
lret 60/61/62/63/64 nj bih
|
|
|| country#3, allied to #2
|
|
add 3 3 3 p
|
|
edit l 2:3,-2:-1 o 3 O 3
|
|
|| country#4, friendly to #2
|
|
add 4 4 4 p
|
|
edit l 4,4 o 4 O 4
|
|
|| finishing touches
|
|
give m * ?des=f 5
|
|
give g * ?des=f 2
|
|
give s * ?des=f 100
|
|
give p * ?des=f 100
|
|
edit l * ?des#.&eff=0 e 100 m 127
|
|
edit s * ?eff=20&uid#30 E 100
|
|
edit s * ?mob=0&uid#35 M 127
|
|
edit s * ?uid#32 m 10
|
|
edit u * ?eff=10&uid#30 e 100
|
|
edit u * ?mob=0&uid#35 M 127
|
|
edit u * ?uid#32 m 10
|
|
fleet a * ?own=1&uid#2
|
|
fleet a 9
|
|
army a * ?own=1&uid#2
|
|
edit p * e 100 m 127
|
|
|| relations
|
|
decl w 1 2
|
|
decl w 2 1
|
|
decl a 2 3
|
|
decl f 2 4
|
|
|| show initial state here to help maintainers
|
|
map *
|
|
ship *
|
|
retr *
|
|
land *
|
|
lretr *
|
|
plane *
|