fix : bot sentence & color in team battle

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