--- a/hedgewars/CCHandlers.inc	Wed Jun 11 21:00:58 2008 +0000
+++ b/hedgewars/CCHandlers.inc	Wed Jun 11 21:41:44 2008 +0000
@@ -529,3 +529,8 @@
 GameState:= gsChat;
 KeyPressChat(27)
 end;
+
+procedure chHistory(var s: shortstring);
+begin
+uChat.showAll:= not uChat.showAll
+end;

--- a/hedgewars/uChat.pas	Wed Jun 11 21:00:58 2008 +0000
+++ b/hedgewars/uChat.pas	Wed Jun 11 21:41:44 2008 +0000
@@ -114,7 +114,7 @@
 
 if (GameState = gsChat)
 	and (InputStr.Tex <> nil) then
-	DrawTexture(11, visibleCount * 16 + 10, InputStr.Tex);
+	DrawTexture(8, visibleCount * 16 + 10, InputStr.Tex);
 end;
 
 procedure KeyPressChat(Key: Longword);

--- a/hedgewars/uConsole.pas	Wed Jun 11 21:00:58 2008 +0000
+++ b/hedgewars/uConsole.pas	Wed Jun 11 21:41:44 2008 +0000
@@ -242,6 +242,7 @@
 RegisterVariable('+speedup', vtCommand, @chSpeedup_p    , true );
 RegisterVariable('-speedup', vtCommand, @chSpeedup_m    , true );
 RegisterVariable('skip'    , vtCommand, @chSkip         , false);
+RegisterVariable('history' , vtCommand, @chHistory      , true );
 RegisterVariable('chat'    , vtCommand, @chChat         , true );
 RegisterVariable('say'     , vtCommand, @chSay          , true );
 RegisterVariable('ammomenu', vtCommand, @chAmmoMenu     , false);

--- a/hedgewars/uKeys.pas	Wed Jun 11 21:00:58 2008 +0000
+++ b/hedgewars/uKeys.pas	Wed Jun 11 21:41:44 2008 +0000
@@ -115,6 +115,7 @@
 DefaultBinds[ 27]:= 'quit';
 DefaultBinds[ 48]:= '+volup';
 DefaultBinds[ 57]:= '+voldown';
+DefaultBinds[ 96]:= 'history';
 DefaultBinds[ 99]:= 'capture';
 DefaultBinds[102]:= 'fullscr';
 DefaultBinds[104]:= 'findhh';