From d8062cdaa3d4ae2a9acb330179756580417e2b7c Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Tue, 9 Jun 2020 17:45:00 +0200
Subject: [PATCH] itemsum/item lvls/time modifier update
Now, 1 point in str/wis/cha will add 2% for each of these modifiers
---
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 7512195..0bcc68d 100644
--- a/Irpg/Classes/Farmer.pm
+++ b/Irpg/Classes/Farmer.pm
@@ -85,8 +85,8 @@ sub real_gain {
return unless ($time =~ m/^-?\d+$/);
return unless ($time =~ m/^-?\d+(?:\.\d+$)?/);
$time = $time >= 0 ?
- $time*(1-($self->cha()-1)/20): # add less time
- $time*(1+($self->cha()-1)/20); # remove more time
+ $time*(1-($self->cha()-1)/50): # add less time
+ $time*(1+($self->cha()-1)/50); # remove more time
return CORE::int($time);
}
@@ -95,8 +95,8 @@ sub real_sum {
my ($self, $sum) = @_;
return unless ($sum =~ m/^-?\d+$/);
$sum = $sum >= 0 ?
- $sum*(1+($self->str()-1)/20):
- $sum*(1-($self->str()-1)/20);
+ $sum*(1+($self->str()-1)/50):
+ $sum*(1-($self->str()-1)/50);
return CORE::int($sum);
}
@@ -105,8 +105,8 @@ sub real_lvl {
my ($self, $lvl) = @_;
return unless ($lvl =~ m/^-?\d+$/);
$lvl = $lvl >= 0 ?
- $lvl*(1+($self->wis()-1)/20):
- $lvl*(1-($self->wis()-1)/20);
+ $lvl*(1+($self->wis()-1)/50):
+ $lvl*(1-($self->wis()-1)/50);
return CORE::int($lvl);
}
--
GitLab