X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Scans.pm;h=17007c384bae420f5b3f62a2d15d8f93496e7f46;hb=3dd3a1090337ad0631ff547659cedf240736c788;hp=eec0828561eac5445fb877bc5286bcbfec266b84;hpb=fe6db7c088929577f239ee7f8ce4615d938432b6;p=NDIRC.git diff --git a/Scans.pm b/Scans.pm index eec0828..17007c3 100644 --- a/Scans.pm +++ b/Scans.pm @@ -89,23 +89,23 @@ sub sendScan { } } -our %scanid = (p => 1, s => 2, t => 3, u => 4, n => 5, j => 7, a => 8); +our %scanid = (p => 1, l => 2, d => 3, u => 4, n => 5, j => 7, a => 8); -our @scantypes = ('Planet','Surface Analysis', 'Technology Analysis' +our @scantypes = ('Planet','Landing', 'Development' ,'Unit', 'News', 'Incoming', 'Jumpgate', 'Advanced Unit'); sub reqScan { my ($msg, $command) = @_; my ($x, $y, $z, $type, $typeid); - if (defined $msg && $msg =~ /^([pstunja]) (\d+)\D+(\d+)\D+(\d+) (\S.*)/){ + if (defined $msg && $msg =~ /^([pdunja]) (\d+)\D+(\d+)\D+(\d+) (\S.*)/){ $typeid = $scanid{$1}; $type = $scantypes[$typeid-1]; ($x,$y,$z) = ($2,$3,$4); $msg = $5; }else{ $ND::server->command("notice $ND::nick syntax: $command type X:Y:Z message" - . " | type is the first character in the scan name, like p for planet scan, message is a message to scanners, message is a message to scanners, like plz or thanks like plz or thanks"); + . " | type is the first character in the scan name, like p for planet scan, message is a message to scanners, like plz or thanks like plz or thanks"); return; }