add /history command from chat
authorkoda
Wed, 23 Oct 2013 04:35:23 +0200
changeset 9569 dd1861ca4def
parent 9567 42bc1b58a242
child 9571 273567816538
add /history command from chat
hedgewars/uChat.pas
--- 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')
             );