diff --git a/Irpg/Classes/Farmer.pm b/Irpg/Classes/Farmer.pm
index 7512195f34f8e32f8b6ec9994e0dd0127207b73a..0bcc68d309c61129e42a11ba51d0f72a17d9c938 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);
 }