hedgewars/uChat.pas
changeset 10015 4feced261c68
parent 9998 736015b847e3
parent 9954 bf51bc7e2808
child 10104 cb0b750bd8a3
equal deleted inserted replaced
10014:56d2f2d5aad8 10015:4feced261c68
    40     Tex: PTexture;
    40     Tex: PTexture;
    41     Time: Longword;
    41     Time: Longword;
    42     Width: LongInt;
    42     Width: LongInt;
    43     s: shortstring;
    43     s: shortstring;
    44     end;
    44     end;
    45     TChatCmd = (quit, pause, finish, showhistory, fullscreen);
    45     TChatCmd = (ccQuit, ccPause, ccFinish, ccShowHistory, ccFullScreen);
    46 
    46 
    47 var Strs: array[0 .. MaxStrIndex] of TChatLine;
    47 var Strs: array[0 .. MaxStrIndex] of TChatLine;
    48     MStrs: array[0 .. MaxStrIndex] of shortstring;
    48     MStrs: array[0 .. MaxStrIndex] of shortstring;
    49     LocalStrs: array[0 .. MaxStrIndex] of shortstring;
    49     LocalStrs: array[0 .. MaxStrIndex] of shortstring;
    50     missedCount: LongWord;
    50     missedCount: LongWord;
   226     x:= 2
   226     x:= 2
   227 
   227 
   228 else if (s[1] = '-') and (s[Length(s)] = '-') then
   228 else if (s[1] = '-') and (s[Length(s)] = '-') then
   229     x:= 3;
   229     x:= 3;
   230 
   230 
   231 if not CurrentTeam^.ExtDriven and (x <> 0) then
   231 if (not CurrentTeam^.ExtDriven) and (x <> 0) then
   232     for c:= 0 to Pred(TeamsCount) do
   232     for c:= 0 to Pred(TeamsCount) do
   233         if (TeamsArray[c] = CurrentTeam) then
   233         if (TeamsArray[c] = CurrentTeam) then
   234             t:= c;
   234             t:= c;
   235 
   235 
   236 if x <> 0 then
   236 if x <> 0 then