From 474115c110e67e05dd2cf15dd7745570d9bc7bb7 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Fri, 4 Apr 2008 11:54:25 +0200 Subject: [PATCH] Updated checkGal --- PA.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/PA.pm b/PA.pm index a5109a3..43e8e45 100644 --- a/PA.pm +++ b/PA.pm @@ -72,11 +72,13 @@ sub checkGal { }else{ $ND::server->command("notice $ND::nick syntax: .g X:Y"); } - my $f = $ND::DBH->prepare("SELECT score,size,value FROM galaxies WHERE x = ? AND y = ? and tick = (SELECT max(tick) from galaxies)"); + 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], Size=$row[1], Value=$row[2]"); + $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]"); } } -- 2.39.2