git.pond.sub.org Git - empserver/blob - tests/retreat/setup-POGO

   1 || create land
   2 desi @0,0:2 a
   3 desi 4,4 h
   4 des -6,2 h
   5 give c * ?des#. 100
   6 || country#1
   7 add 1 1 1 p
   8 edit l * ?des#.&xloc>-6&xloc<0 o 1 O 1
   9 desi -2,0 c
  10 edit c 1 c -2,0 s 4 b 640 M 25000 T 100
  11 | two forts (-2,-2 with return fire, -2,2 without)
  12 desi -2,2 f
  13 desi -2,-2 f
  14 | harbor
  15 desi -3,1 h
  16 | ships for testing retreat command
  17 build s -3,1 cs 5
  18 edit s 4 L -5,1 U 7
  19 | fleet a defined below
  20 | ship to drop depth charges
  21 build s -3,1 dd
  22 edit s 5 g 1 s 40
  23 | ship to launch torpedoes
  24 build s -3,1 sb
  25 edit s 6 T 165 L -1,3 g 1 s 36
  26 | complete the ships
  27 edit s * ?own#0 E 100 M 127 m 10
  28 | p-bombers with 50% hit chance vs. dd in port
  29 build p -2,2 lb 5
  30 | marine missiles acc 50
  31 edit p 0 U 10 T mi t 160 U 11 U 12 U 13 U 14
  32 | p-bombers with 50% hit chance vs. cav
  33 edit p 0 U 20 t 400 U 21 U 22 U 23 U 24
  34 | very accurate p-bomber
  35 edit p 0 U 30 T ac t 400
  36 | complete the planes
  37 edit p * ?own#0 e 100 m 127
  38 | land units for testing retreat command
  39 build l -3,1 inf 5
  40 edit u 4 L -4,0 U 7
  41 | army a defined below
  42 | complete the land units (fortify to reduce unwanted collateral damage)
  43 edit u * ?own#0 e 100 M 127 m 10 F 127
  44 || country#2
  45 add 2 2 2 p
  46 edit l * ?des#.&own=0 o 2 O 2
  47 | mountain, to test "can't retreat into mountain"
  48 desi 2,0 ^
  49 edit c 2 c 2,0 s 4 b 640 M 25000 T 100
  50 | harbors, 0,2 efficient, 2,2 construction zone
  51 desi 0:2,2 h
  52 edit l 2,2 e 1
  53 | ship that can return fire to -2,-2 and -5,-1 weakly
  54 edit s 5 U 9 O 2 L -4,-2 E 60
  55 | a train to carry land units
  56 edit u 0 U 9 O 2 T tra L 0,2
  57 | target ships gun fire: injured, helpless, not helpless
  58 edit s 0 U 20 O 2 U 10 L 0,2 U 11
  59 retr 10 nhhnj ih
  60 retr 11 n h
  61 retr 20 u h
  62 | crazy group retreat
  63 edit s 10 U 25 L -4,2 U 26 U 27 U 28 U 29 L 5,3
  64 edit s 25 U 24 O 1
  65 fleet g 24/25/26/27/28/29
  66 retr g ggg i
  67 retr 26 bn i
  68 retr g ?uid=27 bn i
  69 retr g ?uid=28 ggg b
  70 retr g ?uid=29 ggg i
  71 | target ships that want to retreat, but can't:
  72 | sunk
  73 edit s 10 U 30 E 20
  74 | #31 unused
  75 edit s 10 U 31
  76 | crewless
  77 edit s 10 U 32 m 0
  78 | in construction zone
  79 edit s 10 U 33 L 2,2
  80 | landlocked in 3,1
  81 edit s 10 U 34 L 3,1
  82 | no mobility
  83 edit s 10 U 35 M 0
  84 | on sale
  85 edit s 10 U 36
  86 | set as POGO doesn't work, done in setup-2
  87 fleet c 30/32/35/36
  88 retr c n i
  89 retr 31/33/34 n i
  90 | target ships having difficulties during retreat:
  91 edit s 10 U 40 t lc U 41 U 42
  92 | runs out of mobility
  93 edit s 40 M 5
  94 retr 40 nnnnh i
  95 | into construction zone 2,2
  96 retr 41 nuh i
  97 | into unfriendly -3,1
  98 edit s 42 L -4,2
  99 retr 42 ugggh i
 100 | as group into minefield -6,4
 101 edit s 10 U 43 t ms U 44
 102 fleet m 43/44
 103 edit s m L -4,4
 104 edit l -6,4 M 100
 105 retr m gg i
 106 | missions for retreat to clear
 107 miss s 40/41/42 int .
 108 | target ships depth-charges: injured vs. depth-charged, depth-charged,
 109 | helpless, not helpless
 110 edit s 10 U 50 t sb L -5,1 U 51 U 52 U 53 L -4,-2
 111 retr 50 gg dih
 112 retr 51 gg dh
 113 retr 52/53 gg h
 114 | target ships bombs: injured vs. bombed, bombed
 115 | five of each, to have a decent chance at getting both a hit and a miss
 116 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
 117 retr 60/61/62/63/64 nn bih
 118 retr 65/66/67/68/69 nn bh
 119 | target ships missiles: injured (bombed doesn't apply)
 120 | five, to have a decent chance at getting both a hit and a miss
 121 edit s 60 U 80 L -6,2 U 81 U 82 U 83 U 84
 122 retr 80/81/82/83/84 nn bih
 123 | target ships torpedoes: torpedoed (injured not implemented)
 124 | five, to have a decent chance at getting both a hit and a miss
 125 edit s 10 U 100 L 0,4 U 101 U 102 U 103 U 104
 126 retr 100/101/102/103/104 nn tih
 127 | target ship sonar
 128 edit s 50 U 120
 129 retr 120 gg s
 130 | target ship boarding
 131 edit s 50 U 130 t tt
 132 retr 130 gg u
 133 | target land units bombs: bombed
 134 edit u 9 U 10 T cav L 1,1
 135 lret 10 jhhuy b
 136 | crazy group retreat
 137 edit u 10 U 25 L 3,1 a g U 26 U 27 U 28 U 29 L 4,0
 138 edit u 25 U 24 O 1
 139 army g 24/25/26/27/28/29
 140 lret g bhg b
 141 lret 26 uh b
 142 lret g ?uid=27 uh b
 143 lret g ?uid=28 bhg i
 144 lret g ?uid=29 bhg b
 145 | target land units that want to retreat, but can't:
 146 | destroyed
 147 edit u 10 U 30 L 0,2 e 10
 148 | loaded on ship
 149 edit u 10 U 31 L 0,2 S 35
 150 | crewless
 151 edit u 10 U 32 L 0,2 m 0
 152 | kidnapped
 153 edit u 10 U 33 L -1,1
 154 | loaded on train
 155 edit u 10 U 34 L 0,2 Y 9
 156 | no mobility
 157 edit u 10 U 35 L 0,2 M 0
 158 | on sale
 159 edit u 10 U 36 L 0,2
 160 | set as POGO doesn't work, done in setup-2
 161 army c 30/31/32/34/35/36
 162 lret c j b
 163 lret 33 j b
 164 | target land units having difficulties during retreat:
 165 | runs out of mobility
 166 edit u 10 U 40 M 5
 167 lret 40 nu b
 168 | into mountain 2,0
 169 edit u 10 U 41
 170 lret 41 jy b
 171 | into foreign sector -1,1
 172 edit u 10 U 42
 173 lret 42 g b
 174 | as group into minefield 0,0
 175 edit u 10 U 10 U 43 T eng U 44
 176 army m 43/44
 177 edit l 0,0 O 1 M 100
 178 lret m yu b
 179 | missions for retreat to clear
 180 miss l 40/41/42 res .
 181 | target land units bombs: injured vs. bombed
 182 | five, to have a decent chance at getting both a hit and a miss
 183 edit u 10 U 60 L 0,0 U 61 U 62 U 63 U 64
 184 lret 60/61/62/63/64 nj bih
 185 || country#3, allied to #2
 186 add 3 3 3 p
 187 edit l 2:3,-2:-1 o 3 O 3
 188 || country#4, friendly to #2
 189 add 4 4 4 p
 190 edit l 4,4 o 4 O 4
 191 || finishing touches
 192 give m * ?des=f 5
 193 give g * ?des=f 2
 194 give s * ?des=f 100
 195 give p * ?des=f 100
 196 edit l * ?des#.&eff=0 e 100 m 127
 197 fleet a 0/1/3/4
 198 army a 0/1/3/4
 199 || relations
 200 decl w 1 2
 201 decl w 2 1
 202 decl a 2 3
 203 decl f 2 4
 204 || show initial state here to help maintainers
 205 map *
 206 cens * ?des#.
 207 ship *
 208 retr *
 209 land *
 210 lretr *
 211 plane *