changeset 6954 | a61458a81480 |
parent 6898 | 344b0dbd9690 |
child 7117 | 7df6386f7090 |
6953:4c2dd25630a7 | 6954:a61458a81480 |
---|---|
29 procedure AddChatString(s: shortstring); |
29 procedure AddChatString(s: shortstring); |
30 procedure DrawChat; |
30 procedure DrawChat; |
31 procedure KeyPressChat(Key: Longword); |
31 procedure KeyPressChat(Key: Longword); |
32 |
32 |
33 implementation |
33 implementation |
34 uses SDLh, uKeys, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO; |
34 uses SDLh, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO; |
35 |
35 |
36 const MaxStrIndex = 27; |
36 const MaxStrIndex = 27; |
37 |
37 |
38 type TChatLine = record |
38 type TChatLine = record |
39 Tex: PTexture; |
39 Tex: PTexture; |