--- a/hedgewars/uChat.pas	Sun Sep 27 10:26:36 2009 +0000
+++ b/hedgewars/uChat.pas	Sun Sep 27 14:33:59 2009 +0000
@@ -49,8 +49,8 @@
 const colors: array[#1..#4] of Longword = (
 	$FFFFFF, // chat message
 	$FF00FF, // action message
-	$00B000, // join/leave message
-	$AFFFAF  // team message
+	$00FF00, // join/leave message
+	$A0FFFF  // team message
 	);
 
 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);
@@ -66,7 +66,7 @@
 
 if isInput then
 	begin
-	color:= $00FFFF;
+	color:= $FFFF00;
 	str:= UserNick + '> ' + str + '_'
 	end
 	else begin