diff --git a/Irpg/Action.pm b/Irpg/Action.pm index 5f28c8086f260442beb16b563efd32a199271cd1..1be94c69db1a061a30276992eca119255ec8e8f5 100644 --- a/Irpg/Action.pm +++ b/Irpg/Action.pm @@ -408,13 +408,13 @@ sub team_battle { # pit three players against three other players my ($state, $moved); if ($myroll >= $opproll) { - ($state, $moved) = ('won', 'removed from'); + ($state, $moved) = ('3won', 'removed from'); for (my $i = 0; $i < 3; $i++) { $rps->{$opp[$i]}{next} += $rps->{$opp[$i]}{class}->real_gain(-$gain); } } else { - ($state, $moved) = ('lost', 'added to'); + ($state, $moved) = ('5lost', 'added to'); for (my $i = 0; $i < 3; $i++) { $rps->{$opp[$i]}{next} += $rps->{$opp[$i]}{class}->real_gain($gain); } @@ -423,8 +423,8 @@ sub team_battle { # pit three players against three other players "$opp[0], $opp[1], and $opp[2] ". "[".($myroll/5)."/".($mysum/5)."] have team battled ". "$opp[3], $opp[4], and $opp[5] ". - "[".($opproll/5)."/".($oppsum/5)."] and $state! ". - duration($gain)." is $moved their clocks.")); + "[".($opproll/5)."/".($oppsum/5)."] and \x03$state! ". + duration($gain)."\x03 is $moved their clocks.")); } sub rpcheck { @@ -473,7 +473,7 @@ sub do_action { Irpg::Irc::chanmsg( "$username is desperatly searching for someone, ". "but ".pronoun(2, $rps->{$username}{gender})." call remains ". - "unheard in the silent desert of ".pronoun(2, $rps->{$username}). + "unheard in the silent desert of ".pronoun(2, $rps->{$username}{gender}). " loneliness."); return 1; }