From d730f337cfc4ccd05e7e403fe5ac3b0198c0a4b9 Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Wed, 8 Apr 2020 13:19:09 +0200
Subject: [PATCH] Divide by 2 the bonuses from real_gain, real_level and
real_sum
---
Irpg/Classes/Farmer.pm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/Irpg/Classes/Farmer.pm b/Irpg/Classes/Farmer.pm
index 1002ced..06c395b 100644
--- a/Irpg/Classes/Farmer.pm
+++ b/Irpg/Classes/Farmer.pm
@@ -84,8 +84,8 @@ sub real_gain {
my ($self, $time) = @_;
return unless ($time =~ m/^-?\d+$/);
$time = $time >= 0 ?
- $time*(1-($self->cha()-1)/10): # add less time
- $time*(1+($self->cha()-1)/10); # remove more time
+ $time*(1-($self->cha()-1)/20): # add less time
+ $time*(1+($self->cha()-1)/20); # remove more time
return CORE::int($time);
}
@@ -94,8 +94,8 @@ sub real_sum {
my ($self, $sum) = @_;
return unless ($sum =~ m/^-?\d+$/);
$sum = $sum >= 0 ?
- $sum*(1+($self->str()-1)/10):
- $sum*(1-($self->str()-1)/10);
+ $sum*(1+($self->str()-1)/20):
+ $sum*(1-($self->str()-1)/20);
return CORE::int($sum);
}
@@ -104,8 +104,8 @@ sub real_lvl {
my ($self, $lvl) = @_;
return unless ($lvl =~ m/^-?\d+$/);
$lvl = $lvl >= 0 ?
- $lvl*(1+($self->wis()-1)/10):
- $lvl*(1-($self->wis()-1)/10);
+ $lvl*(1+($self->wis()-1)/20):
+ $lvl*(1-($self->wis()-1)/20);
return CORE::int($lvl);
}
--
GitLab