From 2d63dadea0c5b15232ea5d7a1767a7fecdf6ac48 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sat, 3 Mar 2007 10:38:49 +0000
Subject: [PATCH] remove debug output, and truncate the target size

---
 PA.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/PA.pm b/PA.pm
index 48751e4..29bdb77 100644
--- a/PA.pm
+++ b/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;
-- 
2.39.2