client: Unbreak standalone build

[empserver] / tests / actofgod / geninput.pl

diff --git a/tests/actofgod/geninput.pl b/tests/actofgod/geninput.pl
index 0a18cf19cf6d366393b493c7766db84279a8b2ff..a6e0f9d978de638cafcdef325bb85ed74b4e2b75 100755 (executable)
--- a/tests/actofgod/geninput.pl
+++ b/tests/actofgod/geninput.pl
@@ -69,15 +69,19 @@ sub next_id {
 
 sub edit_int1 {
     my ($ef, $id, $key, $lob, $upb) = @_;
+    edit($ef, $id, $key, $lob + 1)
+       if $lob + 1 < $upb;
     edit($ef, $id, $key, $lob);
     $id = next_id($ef, $id);
     edit($ef, $id, $key, $lob - 1)
-       if ($lob > $INT_MIN);
+       if $lob > $INT_MIN;
     $id = next_id($ef, $id);
+    edit($ef, $id, $key, $upb - 1)
+       if $upb - 1 > $lob + 1;
     edit($ef, $id, $key, $upb);
     $id = next_id($ef, $id);
     edit($ef, $id, $key, $upb + 1)
-       if ($upb < $INT_MAX);
+       if $upb < $INT_MAX;
 }
 
 sub edit_int {
@@ -255,15 +259,20 @@ edit_int('ship', 2, (
 
 # plane: type
 edit('plane', 6, 'T', 'mb', 'O', 1, 'T', 'mb', 'T', 'hb', 'T', 'mb');
-edit('plane', 7, 'r', 255, 'T', 'hb', 'T', 'mb');
-edit('plane', 8, 'T', 'hb', 'r', 255, 'T', 'f1');
+edit('plane', 7, 'O', 1, 'r', 255, 'T', 'hb', 'T', 'mb');
+edit('plane', 8, 'O', 1, 'T', 'hb', 'r', 255, 'T', 'f1');
+edit('plane', 12, 'T', 'ssm', 'O', 1, 'U', 13, 'U', 14, 'U', 15);
 
-# plane: effic mobil range tech
+# plane: effic mobil range tech harden
 edit_int('plane', 2, (
     ['e', 0, 100],
     ['m', -127, 127],
     ['r', 0, 9],
     ['t', 50, 32767],
+    ['F', 0, 0],
+));
+edit_int('plane', 12, (
+    ['F', 0, 127],
 ));
 
 # land: type
@@ -333,8 +342,12 @@ unit_carrier('nuke', 'p');
 edit('plane', 4, 'l', '5,1');
 
 # special case: load teleports to carrier
+# (previous loads already zapped fortification)
 edit('land', 4, 'S', 2);
 
+# special case: load teleports to carrier and zaps fortification
+edit('plane', 14, 's', 4);
+
 # interactive edit
 iedit('ship', 0, 'M 2', 'm 1', 'f 1');
 iedit('ship', 0, 'R n', 'R ""');