changeset 7188 | 580cd247511e |
parent 7117 | 7df6386f7090 |
child 7291 | ad4b6c2b09e8 |
7186:013deb83086b | 7188:580cd247511e |
---|---|
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, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO; |
34 uses SDLh, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uStore, 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; |