|| create land
desi @0,0:2 a
desi 4,4 h
+des -6,2 h
give c * ?des#. 100
|| country#1
add 1 1 1 p
-edit l * ?des#.&xloc<0 o 1 O 1
+edit l * ?des#.&xloc>-6&xloc<0 o 1 O 1
desi -2,0 c
edit c 1 c -2,0 s 4 b 640 M 25000 T 100
| two forts (-2,-2 with return fire, -2,2 without)
desi -3,1 h
| ships for testing retreat command
build s -3,1 cs 5
+edit s 4 L -5,1 U 7
+| fleet a defined below
| ship to drop depth charges
build s -3,1 dd
edit s 5 g 1 s 40
edit p * ?own#0 e 100 m 127
| land units for testing retreat command
build l -3,1 inf 5
+edit u 4 L -4,0 U 7
+| army a defined below
| complete the land units (fortify to reduce unwanted collateral damage)
edit u * ?own#0 e 100 M 127 m 10 F 127
|| country#2
| 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 city for testing canals
+desi 4,0 c
| harbors, 0,2 efficient, 2,2 construction zone
desi 0:2,2 h
edit l 2,2 e 1
| 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
+edit u 0 U 9 O 2 T tra L 0,2
| 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
+| crazy group retreat
+edit s 10 U 25 L -4,2 U 26 U 27 U 28 U 29 L 5,3
+edit s 25 U 24 O 1
+fleet g 24/25/26/27/28/29
+retr g ggg i
+retr 26 bn i
+retr g ?uid=27 bn i
+retr g ?uid=28 ggg b
+retr g ?uid=29 ggg i
| target ships that want to retreat, but can't:
| sunk
edit s 10 U 30 E 20
-| #31 unused
-edit s 10 U 31
+| in canal
+edit s 10 U 31 L 4,0
| crewless
edit s 10 U 32 m 0
| in construction zone
edit s 10 U 34 L 3,1
| no mobility
edit s 10 U 35 M 0
-retr 30/31/32/33/34/35 n i
+| on sale
+edit s 10 U 36
+| set as POGO doesn't work, done in setup-2
+fleet c 30/32/35/36
+retr c n i
+retr 31/33/34 n i
| target ships having difficulties during retreat:
edit s 10 U 40 t lc U 41 U 42
| runs out of mobility
edit s m L -4,4
edit l -6,4 M 100
retr m gg i
+| into canal 4,0
+edit s 10 U 46 L 5,1 U 47 t pt
+fleet n 46/47
+retr n y i
| missions for retreat to clear
miss s 40/41/42 int .
| target ships depth-charges: injured vs. depth-charged, depth-charged,
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
+edit s 10 U 60 t dd L -6,2 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
+edit s 60 U 80 L -6,2 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
+edit s 10 U 100 L 0,4 U 101 U 102 U 103 U 104
retr 100/101/102/103/104 nn tih
| target ship sonar
edit s 50 U 120
edit s 50 U 130 t tt
retr 130 gg u
| target land units bombs: bombed
-edit u 9 U 10 T cav
+edit u 9 U 10 T cav L 1,1
lret 10 jhhuy b
+| crazy group retreat
+edit u 10 U 25 L 3,1 a g U 26 U 27 U 28 U 29 L 4,0
+edit u 25 U 24 O 1
+army g 24/25/26/27/28/29
+lret g bhg b
+lret 26 uh b
+lret g ?uid=27 uh b
+lret g ?uid=28 bhg i
+lret g ?uid=29 bhg b
| target land units that want to retreat, but can't:
| destroyed
-edit u 10 U 30 T inf e 10
+edit u 10 U 30 L 0,2 e 10
| loaded on ship
-edit u 10 U 31 S 35
+edit u 10 U 31 L 0,2 S 35
| crewless
-edit u 10 U 32 m 0
+edit u 10 U 32 L 0,2 m 0
| kidnapped
edit u 10 U 33 L -1,1
| loaded on train
-edit u 10 U 34 Y 9
+edit u 10 U 34 L 0,2 Y 9
| no mobility
-edit u 10 U 35 M 0
-lret 30/31/32/33/34/35 j b
+edit u 10 U 35 L 0,2 M 0
+| on sale
+edit u 10 U 36 L 0,2
+| set as POGO doesn't work, done in setup-2
+army c 30/31/32/34/35/36
+lret c j b
+lret 33 j b
| target land units having difficulties during retreat:
| runs out of mobility
edit u 10 U 40 M 5
give s * ?des=f 100
give p * ?des=f 100
edit l * ?des#.&eff=0 e 100 m 127
-fleet a * ?own=1&uid#2
-fleet a 9
-army a * ?own=1&uid#2
+fleet a 0/1/3/4
+army a 0/1/3/4
|| relations
decl w 1 2
decl w 2 1