From 3dd3a1090337ad0631ff547659cedf240736c788 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Wed, 12 Nov 2008 21:33:24 +0100 Subject: [PATCH] Update scans for r29 --- Scans.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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; } -- 2.39.2