From f4fda6de68d23833ffe61c81f29177cc210b3825 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Sun, 10 May 2009 16:28:01 +0200 Subject: [PATCH] Converted .getscans --- Commands/Scans.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Commands/Scans.pm b/Commands/Scans.pm index 134629b..11f3337 100644 --- a/Commands/Scans.pm +++ b/Commands/Scans.pm @@ -26,6 +26,15 @@ use feature ':5.10'; use Moose; use MooseX::MethodAttributes; +sub getscans + : Help(syntax: .getscans X:Y:Z) + : Type(pm) +{ + my ($self,$c,$args) = @_; + my ($x,$y,$z) = $args =~ /(\d+)\D+(\d+)\D+(\d+)/ or die 'ARGS'; + $c->reply("https://nd.ruin.nu/stats/find/$x:$y:$z"); +} + my %scanid = (p => 1, l => 2, d => 3, u => 4, n => 5, j => 7, a => 8); my @scantypes = ('Planet','Landing', 'Development' -- 2.39.2