changeset 4647 | 20b982afbe6e |
parent 4603 | d362ab6c7f53 |
child 4812 | f924be23ffb4 |
4588:5ef5415c4ee1 | 4647:20b982afbe6e |
---|---|
23 interface |
23 interface |
24 uses uTypes, uConsts, uVariables, GLunit, uKeys, uChat, uSound, uAmmos, uUtils, |
24 uses uTypes, uConsts, uVariables, GLunit, uKeys, uChat, uSound, uAmmos, uUtils, |
25 uCommands; |
25 uCommands; |
26 |
26 |
27 {$INCLUDE "config.inc"} |
27 {$INCLUDE "config.inc"} |
28 var dummy: boolean; // avoid compiler hint |
|
29 |
28 |
30 implementation |
29 implementation |
31 {$IFDEF HWLIBRARY} |
30 {$IFDEF HWLIBRARY} |
32 var cZoomVal: GLfloat; |
31 var cZoomVal: GLfloat; |
33 previousGameState: TGameState; |
32 previousGameState: TGameState; |
34 |
33 |
35 // retrieve protocol information |
34 // retrieve protocol information |
36 procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export; |
35 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
37 begin |
36 begin |
38 netProto^:= cNetProtoVersion; |
37 netProto^:= cNetProtoVersion; |
39 versionStr^:= cVersionString; |
38 versionStr^:= cVersionString; |
40 end; |
39 end; |
41 |
40 |