equal
deleted
inserted
replaced
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, GLunit, uWorld, uMisc, uConsole, hwengine; |
16 uses uKeys, GLunit, uWorld, uMisc, uGears, uConsole, uTeams, uConsts, hwengine; |
17 |
17 |
18 {$INCLUDE "config.inc"} |
18 {$INCLUDE "config.inc"} |
19 |
19 |
20 implementation |
20 implementation |
21 |
21 |
182 begin |
182 begin |
183 CursorPoint.X:= xx; |
183 CursorPoint.X:= xx; |
184 CursorPoint.Y:= yy; |
184 CursorPoint.Y:= yy; |
185 end |
185 end |
186 else |
186 else |
|
187 begin |
187 xx:= CursorPoint.X; |
188 xx:= CursorPoint.X; |
188 yy:= CursorPoint.Y; |
189 yy:= CursorPoint.Y; |
189 end; |
190 end; |
190 |
191 end; |
191 function HW_isAmmoOpen:boolean; cdecl; export; |
192 |
|
193 function HW_isAmmoOpen: boolean; cdecl; export; |
192 begin |
194 begin |
193 exit(bShowAmmoMenu); |
195 exit(bShowAmmoMenu); |
194 end; |
196 end; |
|
197 |
|
198 function HW_isWeaponRequiringClick: boolean; cdecl; export; |
|
199 begin |
|
200 exit( (savedAmmoType = amTeleport) or |
|
201 (savedAmmoType = amBee) or |
|
202 (savedAmmoType = amAirAttack) or |
|
203 (savedAmmoType = amMineStrike) or |
|
204 (savedAmmoType = amGirder) or |
|
205 (savedAmmoType = amNapalm) or |
|
206 (savedAmmoType = amPiano) |
|
207 ) |
|
208 end; |
|
209 |
|
210 //amSwitch |
195 {$ENDIF} |
211 {$ENDIF} |
196 |
212 |
197 end. |
213 end. |
198 |
214 |