27 

    27 

    28 procedure AddChatString(s: shortstring);

    28 procedure AddChatString(s: shortstring);

    29 procedure DrawChat;

    29 procedure DrawChat;

    30 procedure KeyPressChat(Key: Longword);

    30 procedure KeyPressChat(Key: Longword);

    31 

    31 

    33     ChatReady: boolean;

    33     ChatReady: boolean;

    34     showAll: boolean;

    34     showAll: boolean;

    35 

    35 

    36 implementation

    36 implementation

    37 uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys, uTeams;

    37 uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys, uTeams;

   314 

   314 

   315 procedure initModule;

   315 procedure initModule;

   316 begin

   316 begin

   317     lastStr:= 0;

   317     lastStr:= 0;

   318     visibleCount:= 0;

   318     visibleCount:= 0;

   320     showAll:= false;

   319     showAll:= false;

   321     ChatReady:= false;

   320     ChatReady:= false;

   322     missedCount:= 0;

   321     missedCount:= 0;

   323 end;

   322 end;

   324 

   323 

   325 procedure freeModule;

   324 procedure freeModule;

   326 begin

   325 begin

   328 end;

   327 end;

   329 

   328 

   330 end.

   329 end.