Werewolf: Fixed a bug that occasionally caused a person to get wolf twice in the same game.

doc/CHANGELOG

@@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Werewolf: Fixed a bug that occasionally caused a person to get wolf
+      twice in the same game.
     * Werewolf: Fixed a typo that broke the gun on occasion.
     * Fixed a minor retract bug in Werewolf.
     * Fixed two major bugs in Werewolf that messed up game play.

modules/Werewolf.pm

@@ -217,7 +217,7 @@ sub cmd_wolf {
                 # Set wolves.
                 while ($cwolves > 0) {
                     my $rpi = $plyrs[int rand scalar @plyrs];
-                    if ($PLAYERS{$rpi} !~ m/^(s|g|h|d|t)$/xsm) {
+                    if ($PLAYERS{$rpi} !~ m/^(w|s|g|h|d|t)$/xsm) {
                         $PLAYERS{$rpi} = 'w';
                         $cwolves--;
                         $STATIC[0] .= ", \2$NICKS{$rpi}\2";