--- a/hedgewars/CCHandlers.inc	Sun Jan 28 16:40:04 2007 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Jan 28 20:58:06 2007 +0000
@@ -100,7 +100,8 @@
 var c: LongInt;
 begin
 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true);
-val(id, CurrentTeam^.Color, c);
+//val(id, CurrentTeam^.Color, c);
+CurrentTeam^.Color:= random($FFFFFF);
 CurrentTeam^.AdjColor:= CurrentTeam^.Color;
 AdjustColor(CurrentTeam^.AdjColor)
 end;