Fixing decimal bug with levels.

This commit is contained in:
Sergiotarxz 2024-03-08 21:19:43 +01:00
parent 780477c52d
commit 6371fd1195
1 changed files with 4 additions and 2 deletions

View File

@ -30,7 +30,7 @@ sub level {
my $experience = $pokemon->{substructures}[0]{experience};
my $growth_func = $self->growth_function;
my $level = 1;
while ($level <= 100 && $growth_func->($level) <= $experience) {
while ($level <= 100 && int($growth_func->($level)) <= $experience) {
$level++;
}
$level -= 1;
@ -93,8 +93,10 @@ sub _exp_medium_fast {
sub _exp_medium_slow {
my $n = shift;
return (
#define EXP_MEDIUM_SLOW(n)((6 * CUBE(n)) / 5 - (15 * SQUARE(n)) + (100 * n) - 140) // (6 * (n)^3) / 5 - (15 * (n)^2) + (100 * n) - 140
my $return = (
( 6 * _cube($n) ) / 5 - ( 15 * _square($n) ) + ( 100 * $n ) - 140 );
return $return;
}
sub _exp_erratic {