49 implementation |
49 implementation |
50 |
50 |
51 {$IFDEF HWLIBRARY} |
51 {$IFDEF HWLIBRARY} |
52 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
52 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
53 begin |
53 begin |
54 if netProto <> nil then netProto^:= cNetProtoVersion; |
54 if netProto <> nil then netProto^:= cNetProtoVersion; |
55 if versionStr <> nil then versionStr^:= shortstring(cVersionString); |
55 if versionStr <> nil then versionStr^:= shortstring(cVersionString); |
56 end; |
56 end; |
57 |
57 |
58 procedure HW_click; cdecl; export; |
58 procedure HW_click; cdecl; export; |
59 begin |
59 begin |
60 leftClick:= true; |
60 leftClick:= true; |
61 end; |
61 end; |
62 |
62 |
63 procedure HW_zoomIn; cdecl; export; |
63 procedure HW_zoomIn; cdecl; export; |
64 begin |
64 begin |
65 wheelUp:= true; |
65 wheelUp:= true; |
66 end; |
66 end; |
67 |
67 |
68 procedure HW_zoomOut; cdecl; export; |
68 procedure HW_zoomOut; cdecl; export; |
69 begin |
69 begin |
70 wheelDown:= true; |
70 wheelDown:= true; |
71 end; |
71 end; |
72 |
72 |
73 procedure HW_zoomReset; cdecl; export; |
73 procedure HW_zoomReset; cdecl; export; |
74 begin |
74 begin |
75 middleClick:= true; |
75 middleClick:= true; |
76 end; |
76 end; |
77 |
77 |
78 procedure HW_ammoMenu; cdecl; export; |
78 procedure HW_ammoMenu; cdecl; export; |
79 begin |
79 begin |
80 rightClick:= true; |
80 rightClick:= true; |
81 end; |
81 end; |
82 |
82 |
83 procedure HW_allKeysUp; cdecl; export; |
83 procedure HW_allKeysUp; cdecl; export; |
84 begin |
84 begin |
85 // set all keys to released |
85 // set all keys to released |
86 init_uKeys(); |
86 init_uKeys(); |
87 end; |
87 end; |
88 |
88 |
89 procedure HW_walkLeft; cdecl; export; |
89 procedure HW_walkLeft; cdecl; export; |
90 begin |
90 begin |
91 leftKey:= true; |
91 leftKey:= true; |
92 end; |
92 end; |
93 |
93 |
94 procedure HW_walkRight; cdecl; export; |
94 procedure HW_walkRight; cdecl; export; |
95 begin |
95 begin |
96 rightKey:= true; |
96 rightKey:= true; |
97 end; |
97 end; |
98 |
98 |
99 procedure HW_aimUp; cdecl; export; |
99 procedure HW_aimUp; cdecl; export; |
100 begin |
100 begin |
101 upKey:= true; |
101 upKey:= true; |
102 end; |
102 end; |
103 |
103 |
104 procedure HW_aimDown; cdecl; export; |
104 procedure HW_aimDown; cdecl; export; |
105 begin |
105 begin |
106 downKey:= true; |
106 downKey:= true; |
107 end; |
107 end; |
108 |
108 |
109 procedure HW_shoot; cdecl; export; |
109 procedure HW_shoot; cdecl; export; |
110 begin |
110 begin |
111 spaceKey:= true; |
111 spaceKey:= true; |
112 end; |
112 end; |
113 |
113 |
114 procedure HW_chat; cdecl; export; |
114 procedure HW_chat; cdecl; export; |
115 begin |
115 begin |
116 chatAction:= true; |
116 chatAction:= true; |
117 end; |
117 end; |
118 |
118 |
119 procedure HW_tab; cdecl; export; |
119 procedure HW_tab; cdecl; export; |
120 begin |
120 begin |
121 switchAction:= true; |
121 switchAction:= true; |
122 end; |
122 end; |
123 |
123 |
124 procedure HW_pause; cdecl; export; |
124 procedure HW_pause; cdecl; export; |
125 begin |
125 begin |
126 pauseAction:= true; |
126 pauseAction:= true; |
127 end; |
127 end; |
128 |
128 |
129 procedure HW_whereIsHog; cdecl; export; |
129 procedure HW_whereIsHog; cdecl; export; |
130 //var Xcoord, Ycoord: LongInt; |
130 //var Xcoord, Ycoord: LongInt; |
131 begin |
131 begin |
132 //Xcoord:= Gear^.dX + WorldDx; |
132 //Xcoord:= Gear^.dX + WorldDx; |
133 WriteLnToConsole('HW - hog is at x: ' + ' y:'); |
133 WriteLnToConsole('HW - hog is at x: ' + ' y:'); |
134 |
134 |
135 exit |
135 exit |
136 end; |
136 end; |
137 {$ENDIF} |
137 {$ENDIF} |
138 |
138 |
139 end. |
139 end. |
140 |
140 |