fix: goodness event gain of 2nd player is fixed

Irpg/Event.pm

@@ -417,10 +417,10 @@ sub goodness {
                 "evil men poison them. Together have they prayed to their ".
                 "God, and it is his light that now shines upon them. $gain\% ".
                 "of their time is removed from their clocks."));
-        $gain = int(($gain/100)*$rps->{$players[0]}{next});
-        $rps->{$players[0]}{next} += int($rps->{$players[0]}{class}->real_gain(-$gain));
-        $gain = int(($gain/100)*$rps->{$players[1]}{next});
-        $rps->{$players[1]}{next} += int($rps->{$players[1]}{class}->real_gain(-$gain));
+        my $gain_pl = int(($gain/100)*$rps->{$players[0]}{next});
+        $rps->{$players[0]}{next} += int($rps->{$players[0]}{class}->real_gain(-$gain_pl));
+        $gain_pl = int(($gain/100)*$rps->{$players[1]}{next});
+        $rps->{$players[1]}{next} += int($rps->{$players[1]}{class}->real_gain(-$gain_pl));
         Irpg::Irc::chanmsg("$players[0] reaches next level in ".
                 duration($rps->{$players[0]}{next}).".");
         Irpg::Irc::chanmsg("$players[1] reaches next level in ".