changeset 3648 | 2477029463ed |
parent 3638 | 33ee433749ba |
child 3649 | bc35f8fee587 |
3647:0d0df215fb52 | 3648:2477029463ed |
---|---|
11 {$INCLUDE "options.inc"} |
11 {$INCLUDE "options.inc"} |
12 |
12 |
13 unit PascalExports; |
13 unit PascalExports; |
14 |
14 |
15 interface |
15 interface |
16 uses uKeys, GLunit, uWorld, uMisc, uGears, uConsole, uTeams, uConsts, hwengine; |
16 uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, hwengine; |
17 |
17 |
18 {$INCLUDE "config.inc"} |
18 {$INCLUDE "config.inc"} |
19 |
19 |
20 implementation |
20 implementation |
21 |
21 |
116 procedure HW_chat; cdecl; export; |
116 procedure HW_chat; cdecl; export; |
117 begin |
117 begin |
118 chatAction:= true; |
118 chatAction:= true; |
119 end; |
119 end; |
120 |
120 |
121 procedure HW_chatEnd; cdecl; export; |
|
122 begin |
|
123 KeyPressChat(27); // esc - cleans buffer |
|
124 KeyPressChat(13); // enter - removes chat |
|
125 end; |
|
126 |
|
121 procedure HW_tab; cdecl; export; |
127 procedure HW_tab; cdecl; export; |
122 begin |
128 begin |
123 switchAction:= true; |
129 switchAction:= true; |
124 end; |
130 end; |
125 |
131 |