Update scans for r29

diff --git a/Scans.pm b/Scans.pm
index eec0828561eac5445fb877bc5286bcbfec266b84..17007c384bae420f5b3f62a2d15d8f93496e7f46 100644 (file)
--- 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;
        }