my ($what,$ary,$ix) = @_;
my $got= $ary->[$ix];
return $got if defined $got;
- warn "$what $ix ?";
+ die "$what $ix ?";
}
$|=1;
foreach $bs qw(Buy Sell) {
- $ncommods= getint("Buy ncommods");
- for ($commodnum=0; $commodnum<$ncommods; $commodnum++) {
- $commodix= getint("Buy $commodnum commodix");
+ $alloffers_want= getint("Buy ncommods");
+ $alloffers_done=0;
+ while ($alloffers_done < $alloffers_want) {
+ $commodix= getint("Buy $alloffers_done/$alloffers_want commodix");
$offers= getint("Buy $commodnum offers");
for ($offernum=0; $offernum<$offers; $offernum++) {
$stallix= getint("Buy $commodnum $offernum stallix");
printf("\t%d\t%d", $price, $qty) or die $!;
if ($bs eq 'Buy') { print "\t\t" or die $!; }
print "\n" or die $!;
+ $alloffers_done++;
+ die if $alloffers_done > $alloffers_want;
}
}
}