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, uConsole; |
16 uses uKeys, uConsole, hwengine; |
17 |
17 |
18 {$INCLUDE "config.inc"} |
18 {$INCLUDE "config.inc"} |
19 |
|
20 {$IFDEF IPHONEOS} |
|
21 // called by pascal code, they deal with the objc code |
|
22 function IPH_getDocumentsPath: PChar; cdecl; external; |
|
23 procedure IPH_showControls; cdecl; external; |
|
24 {$ENDIF} |
|
25 |
|
26 {$IFDEF HWLIBRARY} |
|
27 // retrieve protocol information |
|
28 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
|
29 |
|
30 // called by the touch functions (SDL_uikitview.m) |
|
31 // they emulate user interaction from mouse or keyboard |
|
32 procedure HW_click; cdecl; export; |
|
33 procedure HW_zoomIn; cdecl; export; |
|
34 procedure HW_zoomOut; cdecl; export; |
|
35 procedure HW_zoomReset; cdecl; export; |
|
36 procedure HW_ammoMenu; cdecl; export; |
|
37 procedure HW_allKeysUp; cdecl; export; |
|
38 procedure HW_walkLeft; cdecl; export; |
|
39 procedure HW_walkRight; cdecl; export; |
|
40 procedure HW_aimUp; cdecl; export; |
|
41 procedure HW_aimDown; cdecl; export; |
|
42 procedure HW_shoot; cdecl; export; |
|
43 procedure HW_whereIsHog; cdecl; export; |
|
44 procedure HW_chat; cdecl; export; |
|
45 procedure HW_pause; cdecl; export; |
|
46 procedure HW_tab; cdecl; export; |
|
47 {$ENDIF} |
|
48 |
19 |
49 implementation |
20 implementation |
50 |
21 |
51 {$IFDEF HWLIBRARY} |
22 {$IFDEF HWLIBRARY} |
|
23 // retrieve protocol information |
52 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
24 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
53 begin |
25 begin |
54 if netProto <> nil then netProto^:= cNetProtoVersion; |
26 if netProto <> nil then netProto^:= cNetProtoVersion; |
55 if versionStr <> nil then versionStr^:= shortstring(cVersionString); |
27 if versionStr <> nil then versionStr^:= shortstring(cVersionString); |
56 end; |
28 end; |