X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=PA.pm;fp=PA.pm;h=72050d851a77a7fce5902d222e5de807e412e8de;hb=8492985c19c12b19d892a78664409590aeb57f47;hp=04cf743386feaa8847b9415721d276f3f67fed30;hpb=c6964887c87acd5769ec90ce8734407f74433fc7;p=NDIRC.git

diff --git a/PA.pm b/PA.pm
index 04cf743..72050d8 100644
--- 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) = @_;