edit_int1('sect', '1,1', $key, $lob, $upb);
my $rkey = $edit2setres{$key};
if (defined $rkey) {
- $upb = 100;
setres('2,2', $rkey, $lob);
setres('4,2', $rkey, $lob - 1);
setres('6,2', $rkey, $upb);
sect_int(
['e', 0, 100],
['m', -127, 127],
- ['i', 0, 127],
- ['g', 0, 127],
- ['f', 0, 127],
- ['c', 0, 127],
- ['u', 0, 127],
+ ['i', 0, 100],
+ ['g', 0, 100],
+ ['f', 0, 100],
+ ['c', 0, 100],
+ ['u', 0, 100],
['w', 0, 100],
['l', 0, 127],
['x', 0, 255],
['d', 0, 100],
);
+# special case: unowned sector
+edit('sect', '-1,-1', 'i', 50);
+setres('-1,-1', 'g', 50);
+setsect('-1,-1', 'f', 50);
+
# special case: mines in occupied sector
setsect('1:3,-3', 'ol', 1);
setsect('1,-3', 'mi', 1);