changeset 5166 | d1eb1560b4d5 |
parent 5125 | 715cf3f2b342 |
child 5194 | 851c6fbb44e6 |
5165:91fb710a6668 | 5166:d1eb1560b4d5 |
---|---|
26 * |
26 * |
27 * See also: C declarations on wikipedia |
27 * See also: C declarations on wikipedia |
28 * http://en.wikipedia.org/wiki/X86_calling_conventions#cdecl |
28 * http://en.wikipedia.org/wiki/X86_calling_conventions#cdecl |
29 *) |
29 *) |
30 interface |
30 interface |
31 uses uTypes, uConsts, uVariables, GLunit, uKeys, uChat, uSound, uAmmos, uUtils, |
31 uses uTypes, uConsts, uVariables, GLunit, uKeys, uSound, uAmmos, uUtils, |
32 uCommands, uMobile; |
32 uCommands, uMobile; |
33 |
33 |
34 {$INCLUDE "config.inc"} |
34 {$INCLUDE "config.inc"} |
35 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
|
35 |
36 |
36 implementation |
37 implementation |
37 {$IFDEF HWLIBRARY} |
38 {$IFDEF HWLIBRARY} |
38 var cZoomVal: GLfloat; |
39 var cZoomVal: GLfloat; |
39 previousGameState: TGameState; |
40 previousGameState: TGameState; |
161 end; |
162 end; |
162 |
163 |
163 procedure HW_chat; cdecl; export; |
164 procedure HW_chat; cdecl; export; |
164 begin |
165 begin |
165 chatAction:= true; |
166 chatAction:= true; |
166 end; |
|
167 |
|
168 procedure HW_chatEnd; cdecl; export; |
|
169 begin |
|
170 KeyPressChat(27); // esc - cleans buffer |
|
171 KeyPressChat(13); // enter - removes chat |
|
172 end; |
167 end; |
173 |
168 |
174 procedure HW_screenshot; cdecl; export; |
169 procedure HW_screenshot; cdecl; export; |
175 begin |
170 begin |
176 flagMakeCapture:= true; |
171 flagMakeCapture:= true; |