changeset 10314 | 6691ebaa4f3a |
parent 10312 | eda8d563f677 |
child 10370 | 8676ef16c594 |
10313:769061317dc5 | 10314:6691ebaa4f3a |
---|---|
30 procedure DrawChat; |
30 procedure DrawChat; |
31 procedure KeyPressChat(Key, Sym: Longword); |
31 procedure KeyPressChat(Key, Sym: Longword); |
32 procedure SendHogSpeech(s: shortstring); |
32 procedure SendHogSpeech(s: shortstring); |
33 |
33 |
34 implementation |
34 implementation |
35 uses SDLh, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript, uConsole; |
35 uses SDLh, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript; |
36 |
36 |
37 const MaxStrIndex = 27; |
37 const MaxStrIndex = 27; |
38 |
38 |
39 type TChatLine = record |
39 type TChatLine = record |
40 Tex: PTexture; |
40 Tex: PTexture; |