hedgewars/uChat.pas
changeset 8740 3eb1891f81ef
parent 8739 bbab7e35eaf2
child 8741 c98ec6865631
--- a/hedgewars/uChat.pas	Sun Mar 17 01:26:40 2013 +0100
+++ b/hedgewars/uChat.pas	Sun Mar 17 01:34:24 2013 +0100
@@ -45,8 +45,10 @@
 
 var Strs: array[0 .. MaxStrIndex] of TChatLine;
     MStrs: array[0 .. MaxStrIndex] of shortstring;
+    LocalStrs: array[0 .. MaxStrIndex] of shortstring;
     missedCount: LongWord;
     lastStr: LongWord;
+    localLastStr: LongWord;
     history: LongWord;
     visibleCount: LongWord;
     InputStr: TChatLine;
@@ -304,7 +306,7 @@
 procedure KeyPressChat(Key: Longword);
 const firstByteMark: array[0..3] of byte = (0, $C0, $E0, $F0);
 var i, btw, index: integer;
-    utf8, chatLine: shortstring;
+    utf8: shortstring;
 begin
     if Key <> 0 then
     case Key of
@@ -329,18 +331,14 @@
         {arrow keys (up, down)}
         63232, 63233: begin
 
-            if (Key = 63232) and (history < lastStr) then inc(history);
+            if (Key = 63232) and (history < localLastStr) then inc(history);
             if (Key = 63233) and (history > 0) then dec(history);
 
-            index:= lastStr - history + 1;
-            if (index > lastStr) then
+            index:= localLastStr - history + 1;
+            if (index > localLastStr) then
                 SetLine(InputStr, '', true)
             else
-                begin
-                btw:= Pos(': ', Strs[index].s) + 2; // remove the nick
-                chatLine:= copy(Strs[index].s, btw, Length(Strs[index].s));
-                SetLine(InputStr, chatLine, true);
-                end;
+                SetLine(InputStr, LocalStrs[index], true);
             end;
         {arrow keys (left, right)}
         63234, 63235: begin end;
@@ -384,7 +382,11 @@
     if copy(s, 1, 4) = '/me ' then
         s:= #2 + '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4)
     else
+        begin
+        localLastStr:= (localLastStr + 1) mod MaxStrIndex;
+        LocalStrs[localLastStr]:= s;
         s:= #1 + UserNick + ': ' + s;
+        end;
 
     AddChatString(s)
 end;
@@ -425,6 +427,7 @@
     RegisterVariable('chat', @chChat, true );
 
     lastStr:= 0;
+    localLastStr:= 0;
     history:= 0;
     visibleCount:= 0;
     showAll:= false;