equal
deleted
inserted
replaced
21 |
21 |
22 {$IFDEF HWLIBRARY} |
22 {$IFDEF HWLIBRARY} |
23 var xx, yy: LongInt; |
23 var xx, yy: LongInt; |
24 |
24 |
25 // retrieve protocol information |
25 // retrieve protocol information |
26 procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export; |
26 procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export; |
27 begin |
27 begin |
28 // http://bugs.freepascal.org/view.php?id=16156 |
28 // http://bugs.freepascal.org/view.php?id=16156 |
29 if netProto <> nil then netProto^:= cNetProtoVersion; |
29 if netProto <> nil then netProto^:= cNetProtoVersion; |
30 if versionStr <> nil then versionStr^:= cVersionString; |
30 if versionStr <> nil then versionStr^:= cVersionString; |
31 end; |
31 end; |
210 function HW_isWeaponRequiringClick: boolean; cdecl; export; |
210 function HW_isWeaponRequiringClick: boolean; cdecl; export; |
211 begin |
211 begin |
212 exit( (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0 ) |
212 exit( (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0 ) |
213 end; |
213 end; |
214 |
214 |
|
215 function HW_isWeaponTimerable: boolean; cdecl; export; |
|
216 var CurSlot, CurAmmo: LongWord; |
|
217 begin |
|
218 CurSlot:= CurrentHedgehog^.CurSlot; |
|
219 CurAmmo:= CurrentHedgehog^.CurAmmo; |
|
220 exit( (CurrentHedgehog^.Ammo^[CurSlot, CurAmmo].Propz and ammoprop_Timerable) <> 0) |
|
221 end; |
|
222 |
|
223 procedure HW_setGrenadeTime(time: LongInt); cdecl; export; |
|
224 begin |
|
225 ParseCommand('/timer ' + inttostr(time), true); |
|
226 end; |
|
227 |
215 //amSwitch |
228 //amSwitch |
216 {$ENDIF} |
229 {$ENDIF} |
217 |
230 |
218 end. |
231 end. |
219 |
232 |