X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FIRC%2FPA.pm;h=29bdb7722f647226b3f230d289ea7e0878682653;hb=4aa8043871fac60e6a5038489f6bc05ab2f3bd78;hp=48751e490a64a1fdcc33cb5bcdf40845f60666f2;hpb=4f0ba7a3042745559e2ddb2abe7cef063399c606;p=ndwebbie.git

diff --git a/ND/IRC/PA.pm b/ND/IRC/PA.pm
index 48751e4..29bdb77 100644
--- a/ND/IRC/PA.pm
+++ b/ND/IRC/PA.pm
@@ -142,8 +142,6 @@ FROM ship_stats WHERE name ILIKE ?
 sub calcXp {
 	my ($x,$y,$z,$roids,$cap) = @_;
 
-	print "$roids:$cap:";
-
 	my ($avalue,$ascore) = $ND::DBH->selectrow_array(q{
 		SELECT value,score FROM current_planet_stats WHERE 
 			id = (SELECT planet FROM users WHERE hostmask ILIKE ?);
@@ -156,7 +154,7 @@ sub calcXp {
 	unless($roids){
 		$roids = int($tsize*$cap);
 	}elsif ($roids < 10){
-		$tsize *= .75**($roids-1);
+		$tsize *= int(.75**($roids-1));
 		$roids = int($cap*$tsize);
 	}
 	$tsize -= $roids;