25 procedure AddChatString(s: shortstring);

    25 procedure AddChatString(s: shortstring);

    26 procedure DrawChat;

    26 procedure DrawChat;

    27 procedure KeyPressChat(Key: Longword);

    27 procedure KeyPressChat(Key: Longword);

    28 

    28 

    29 var UserNick: shortstring = '';

    29 var UserNick: shortstring = '';

    31 

    31 

    32 implementation

    32 implementation

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

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

    34 

    34 

    35 const MaxStrIndex = 27;

    35 const MaxStrIndex = 27;