hedgewars/uChat.pas
changeset 4385 f679ffa2dc8c
parent 4378 91655618a510
child 4402 54a78ec6aac4
equal deleted inserted replaced
4384:615a3e7bd850 4385:f679ffa2dc8c
    32 var UserNick: shortstring = '';
    32 var UserNick: shortstring = '';
    33     ChatReady: boolean;
    33     ChatReady: boolean;
    34     showAll: boolean;
    34     showAll: boolean;
    35 
    35 
    36 implementation
    36 implementation
    37 uses uStore, SDLh, uKeys, uTypes, uVariables, uCommands, uUtils, uTextures, uRender;
    37 uses SDLh, uKeys, uTypes, uVariables, uCommands, uUtils, uTextures, uRender;
    38 
    38 
    39 const MaxStrIndex = 27;
    39 const MaxStrIndex = 27;
    40 
    40 
    41 type TChatLine = record
    41 type TChatLine = record
    42         Tex: PTexture;
    42         Tex: PTexture;