diff --git a/Irpg/Classes/Farmer.pm b/Irpg/Classes/Farmer.pm
index 1002cedcdd611c37baff3d6b36865c148b92d360..06c395b3a76de1e0a5c332d8322f20449a84f95c 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);
 }