my $the_road=Road->new(-begin => $door);
my $roading=threads->create(sub{$the_road->go(-on=>1,-dir=>'down')});
(localtime==$now && ($the_road->gone)>($far)
&& ($the_road->heading) eq 'ahead') && do {
if (I->can('follow')) {
I->follow(-pursue=>$the_road,
-with=>(I->{feet}->set_opt(-eager=>1)),
) until (do{
my @slw=grep {$_->width > $the_road->width} @ways;
$done=0;
for $slw (@slw) {
$the_road->meet($slw) &&
(grep {$_->meet($slw)} @paths,@errands)>=$many &&
do {$done=1;last}}
$done
});
TODO: {
local $TODO = "I cannot say";
}
}};
--
dakkar - Mobilis in mobile
|