Converted the .g command

[NDIRC.git] / PA.pm

diff --git a/PA.pm b/PA.pm
index 04cf743386feaa8847b9415721d276f3f67fed30..72050d851a77a7fce5902d222e5de807e412e8de 100644 (file)
--- a/PA.pm
+++ b/PA.pm
@@ -28,27 +28,7 @@ require Exporter;
 
 our @ISA = qw/Exporter/;
 
-our @EXPORT = qw/checkGal shipEff shipStop parseValue prettyValue calcXp findCovOpper tick_time/;
-
-sub checkGal {
-       my ($msg) = @_;
-
-       my ($x,$y,);
-       if ($msg =~ /(\d+)\D+(\d+)/){
-               $x = $1;
-               $y = $2;
-       }else{
-               $ND::server->command("notice $ND::nick syntax: .g X:Y");
-       }
-       my $f = $ND::DBH->prepare(q{SELECT score,scorerank,size,sizerank,value,valuerank,planets
-               FROM galaxies WHERE x = ? AND y = ? AND tick = (SELECT max(tick) from galaxies)
-       });
-       $f->execute($x,$y);
-       while (my @row = $f->fetchrow()){
-               @row = map (valuecolor(1),@row);
-               $ND::server->command("notice $ND::nick $x:$y  Score=$row[0] ($row[1]), Size=$row[2] ($row[3]), Value=$row[4] ($row[5]), Planets=$row[6]");
-       }
-}
+our @EXPORT = qw/shipEff shipStop parseValue prettyValue calcXp findCovOpper tick_time/;
 
 sub shipEff {
        my ($msg,$command) = @_;