fixed .xp

diff --git a/PA.pm b/PA.pm
index ca73ea59030b818d885de1ea0a2ce300cb4faef7..2eb88b1f3abbcc33cda310d83e650ac589a51aec 100644 (file)
--- a/PA.pm
+++ b/PA.pm
@@ -154,7 +154,7 @@ sub calcXp {
        unless($roids){
                $roids = int($tsize*$cap);
        }elsif ($roids < 10){
-               $tsize *= int(.75**($roids-1));
+               $tsize = ceil($tsize*.75**($roids-1));
                $roids = int($cap*$tsize);
        }
        $tsize -= $roids;