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 fleet c 30/32/35
  85 retr c n i
  86 retr 31/33/34 n i
  87 | target ships having difficulties during retreat:
  88 edit s 10 U 40 t lc U 41 U 42
  89 | runs out of mobility
  90 edit s 40 M 5
  91 retr 40 nnnnh i
  92 | into construction zone 2,2
  93 retr 41 nuh i
  94 | into unfriendly -3,1
  95 edit s 42 L -4,2
  96 retr 42 ugggh i
  97 | as group into minefield -6,4
  98 edit s 10 U 43 t ms U 44
  99 fleet m 43/44
 100 edit s m L -4,4
 101 edit l -6,4 M 100
 102 retr m gg i
 103 | missions for retreat to clear
 104 miss s 40/41/42 int .
 105 | target ships depth-charges: injured vs. depth-charged, depth-charged,
 106 | helpless, not helpless
 107 edit s 10 U 50 t sb L -5,1 U 51 U 52 U 53 L -4,-2
 108 retr 50 gg dih
 109 retr 51 gg dh
 110 retr 52/53 gg h
 111 | target ships bombs: injured vs. bombed, bombed
 112 | five of each, to have a decent chance at getting both a hit and a miss
 113 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
 114 retr 60/61/62/63/64 nn bih
 115 retr 65/66/67/68/69 nn bh
 116 | target ships missiles: injured (bombed doesn't apply)
 117 | five, to have a decent chance at getting both a hit and a miss
 118 edit s 60 U 80 L -6,2 U 81 U 82 U 83 U 84
 119 retr 80/81/82/83/84 nn bih
 120 | target ships torpedoes: torpedoed (injured not implemented)
 121 | five, to have a decent chance at getting both a hit and a miss
 122 edit s 10 U 100 L 0,4 U 101 U 102 U 103 U 104
 123 retr 100/101/102/103/104 nn tih
 124 | target ship sonar
 125 edit s 50 U 120
 126 retr 120 gg s
 127 | target ship boarding
 128 edit s 50 U 130 t tt
 129 retr 130 gg u
 130 | target land units bombs: bombed
 131 edit u 9 U 10 T cav L 1,1
 132 lret 10 jhhuy b
 133 | crazy group retreat
 134 edit u 10 U 25 L 3,1 a g U 26 U 27 U 28 U 29 L 4,0
 135 edit u 25 U 24 O 1
 136 army g 24/25/26/27/28/29
 137 lret g bhg b
 138 lret 26 uh b
 139 lret g ?uid=27 uh b
 140 lret g ?uid=28 bhg i
 141 lret g ?uid=29 bhg b
 142 | target land units that want to retreat, but can't:
 143 | destroyed
 144 edit u 10 U 30 L 0,2 e 10
 145 | loaded on ship
 146 edit u 10 U 31 L 0,2 S 35
 147 | crewless
 148 edit u 10 U 32 L 0,2 m 0
 149 | kidnapped
 150 edit u 10 U 33 L -1,1
 151 | loaded on train
 152 edit u 10 U 34 L 0,2 Y 9
 153 | no mobility
 154 edit u 10 U 35 L 0,2 M 0
 155 army c 30/31/32/34/35
 156 lret c j b
 157 lret 33 j b
 158 | target land units having difficulties during retreat:
 159 | runs out of mobility
 160 edit u 10 U 40 M 5
 161 lret 40 nu b
 162 | into mountain 2,0
 163 edit u 10 U 41
 164 lret 41 jy b
 165 | into foreign sector -1,1
 166 edit u 10 U 42
 167 lret 42 g b
 168 | as group into minefield 0,0
 169 edit u 10 U 10 U 43 T eng U 44
 170 army m 43/44
 171 edit l 0,0 O 1 M 100
 172 lret m yu b
 173 | missions for retreat to clear
 174 miss l 40/41/42 res .
 175 | target land units bombs: injured vs. bombed
 176 | five, to have a decent chance at getting both a hit and a miss
 177 edit u 10 U 60 L 0,0 U 61 U 62 U 63 U 64
 178 lret 60/61/62/63/64 nj bih
 179 || country#3, allied to #2
 180 add 3 3 3 p
 181 edit l 2:3,-2:-1 o 3 O 3
 182 || country#4, friendly to #2
 183 add 4 4 4 p
 184 edit l 4,4 o 4 O 4
 185 || finishing touches
 186 give m * ?des=f 5
 187 give g * ?des=f 2
 188 give s * ?des=f 100
 189 give p * ?des=f 100
 190 edit l * ?des#.&eff=0 e 100 m 127
 191 fleet a 0/1/3/4
 192 army a 0/1/3/4
 193 || relations
 194 decl w 1 2
 195 decl w 2 1
 196 decl a 2 3
 197 decl f 2 4
 198 || show initial state here to help maintainers
 199 map *
 200 cens * ?des#.
 201 ship *
 202 retr *
 203 land *
 204 lretr *
 205 plane *