equal
deleted
inserted
replaced
44 |
44 |
45 {$IFDEF IPHONEOS} |
45 {$IFDEF IPHONEOS} |
46 procedure HW_click; cdecl; export; |
46 procedure HW_click; cdecl; export; |
47 procedure HW_zoomIn; cdecl; export; |
47 procedure HW_zoomIn; cdecl; export; |
48 procedure HW_zoomOut; cdecl; export; |
48 procedure HW_zoomOut; cdecl; export; |
|
49 procedure HW_zoomReset; cdecl; export; |
49 procedure HW_ammoMenu; cdecl; export; |
50 procedure HW_ammoMenu; cdecl; export; |
50 procedure HW_allKeysUp; cdecl; export; |
51 procedure HW_allKeysUp; cdecl; export; |
51 procedure HW_walkLeft; cdecl; export; |
52 procedure HW_walkLeft; cdecl; export; |
52 procedure HW_walkRight; cdecl; export; |
53 procedure HW_walkRight; cdecl; export; |
53 procedure HW_aimUp; cdecl; export; |
54 procedure HW_aimUp; cdecl; export; |
54 procedure HW_aimDown; cdecl; export; |
55 procedure HW_aimDown; cdecl; export; |
55 procedure HW_shoot; cdecl; export; |
56 procedure HW_shoot; cdecl; export; |
|
57 procedure HW_whereIsHog; cdecl; export; |
56 |
58 |
57 {$ENDIF} |
59 {$ENDIF} |
58 |
60 |
59 var hideAmmoMenu: boolean; |
61 var hideAmmoMenu: boolean; |
60 wheelUp: boolean = false; |
62 wheelUp: boolean = false; |
121 WriteLnToConsole('HW - zooming out'); |
123 WriteLnToConsole('HW - zooming out'); |
122 wheelDown:= true; |
124 wheelDown:= true; |
123 exit |
125 exit |
124 end; |
126 end; |
125 |
127 |
|
128 procedure HW_zoomReset; cdecl; export; |
|
129 begin |
|
130 WriteLnToConsole('HW - reset zoom'); |
|
131 middleClick:= true; |
|
132 exit |
|
133 end; |
|
134 |
126 procedure HW_ammoMenu; cdecl; export; |
135 procedure HW_ammoMenu; cdecl; export; |
127 begin |
136 begin |
128 WriteLnToConsole('HW - right click'); |
137 WriteLnToConsole('HW - right click'); |
129 rightClick:= true; |
138 rightClick:= true; |
130 exit |
139 exit |
172 |
181 |
173 procedure HW_shoot; cdecl; export; |
182 procedure HW_shoot; cdecl; export; |
174 begin |
183 begin |
175 WriteLnToConsole('HW - shooting'); |
184 WriteLnToConsole('HW - shooting'); |
176 spaceKey:= true; |
185 spaceKey:= true; |
|
186 exit |
|
187 end; |
|
188 |
|
189 procedure HW_whereIsHog; cdecl; export; |
|
190 var Xcoord, Ycoord: LongInt; |
|
191 begin |
|
192 //Xcoord:= Gear^.dX + WorldDx; |
|
193 WriteLnToConsole('HW - hog is at x: ' + ' y:'); |
|
194 |
177 exit |
195 exit |
178 end; |
196 end; |
179 {$ENDIF} |
197 {$ENDIF} |
180 |
198 |
181 function KeyNameToCode(name: string): word; |
199 function KeyNameToCode(name: string): word; |