23 procedure AddChatString(s: shortstring);

    23 procedure AddChatString(s: shortstring);

    24 procedure DrawChat;

    24 procedure DrawChat;

    25 procedure KeyPressChat(Key: Longword);

    25 procedure KeyPressChat(Key: Longword);

    26 

    26 

    27 var UserNick: shortstring = '';

    27 var UserNick: shortstring = '';

    29 

    29 

    30 implementation

    30 implementation

    31 uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys;

    31 uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys;

    32 

    32 

    33 const MaxStrIndex = 27;

    33 const MaxStrIndex = 27;