classes wip:

reduce steal fail malus from 10% loss to 5%

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;
 }