--- a/hedgewars/uChat.pas Mon Oct 21 12:38:24 2013 -0400
+++ b/hedgewars/uChat.pas Wed Oct 23 04:35:23 2013 +0200
@@ -41,7 +41,7 @@
Width: LongInt;
s: shortstring;
end;
- TChatCmd = (quit, pause, finish, fullscreen);
+ TChatCmd = (quit, pause, finish, showhistory, fullscreen);
var Strs: array[0 .. MaxStrIndex] of TChatLine;
MStrs: array[0 .. MaxStrIndex] of shortstring;
@@ -73,6 +73,7 @@
(ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'),
(ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'),
(ChatCmd: '/finish'; ProcedureCallChatCmd: 'finish'),
+ (ChatCmd: '/history'; ProcedureCallChatCmd: 'history'),
(ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr')
);