diff --git a/Irpg/Action.pm b/Irpg/Action.pm index be235461b7445e7caf51c31ba11c38eae431238b..4d4affdb1dfb12e8c4aa7b1cf8f252293cfe9c5a 100644 --- a/Irpg/Action.pm +++ b/Irpg/Action.pm @@ -223,12 +223,12 @@ sub steal_result { "pair of boots"); my $type = $items[rand(@items)]; my ($val, $suffix) = ($rps->{$p1}{item}{$type} =~ /(\d+)(\D?)$/); - $rps->{$p1}{item}{$type} = int($val * .9); + $rps->{$p1}{item}{$type} = int($val * .95); $rps->{$p1}{item}{$type} .= $suffix; push(@queue, "$p1 did a false move, and damaged ". pronoun(2, $rps->{$p1}{gender})." $type, which lost ". - "10% of its efficiency."); + "5% of its efficiency."); } return \@queue; }