my $planet = $c->model->selectrow_array(q{SELECT planetid($1,$2,$3,tick())}
,undef,$x,$y,$z);
+ unless ($planet){
+ $c->reply("There is no planet with coords $x:$y:$z, try again after the tick.");
+ return;
+ }
my $query = $c->model->prepare(q{SELECT scan_id
FROM scans
my ($self, $c, $msg) = @_;
my ($target,$mess) = $msg =~ /^(\S+) (.*)$/ or die 'ARGS';
- $c->message("msg $target", "<b>$mess</b> <c04>(reply with /msg $ND::scanchan)</c>");
- $c->message("msg $ND::scanchan", "<c03>$target << $mess</c>");
+ $c->message("msg $target", "<b>$mess</b> <c04>(reply with /msg "
+ .$c->channel.")</c>");
+ $c->message("msg ".$c->channel, "<c03>$target << $mess</c>");
}
+
sub addscan
: Help(syntax: .addscan list of scans)
{
my $disp = new NDIRC::Dispatcher;
-$disp->load('Basic','PA','Channel','Quotes','Members','Usermgm','Intel','Def');
+$disp->load('Basic','PA','Channel','Quotes','Members','Usermgm','Intel','Scans');
$ND::scanchan = '#testarmer';
$ND::defchan = '#testarlite';