hedgewars/PascalExports.pas
changeset 6998 f2524a80eea2
parent 6997 2356bf174df8
child 7027 f264ad9d8965
equal deleted inserted replaced
6997:2356bf174df8 6998:f2524a80eea2
   144         HW_isWeaponSwitch:= (CurAmmoGear^.AmmoType = amSwitch);
   144         HW_isWeaponSwitch:= (CurAmmoGear^.AmmoType = amSwitch);
   145 end;
   145 end;
   146 
   146 
   147 function HW_isWeaponRope: boolean cdecl; export;
   147 function HW_isWeaponRope: boolean cdecl; export;
   148 begin
   148 begin
   149     HW_isWeaponRope:= false
   149     HW_isWeaponRope:= false;
   150     if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then
   150     if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then
   151         HW_isWeaponRope:= (CurrentHedgehog^.CurAmmoType = amRope);
   151         HW_isWeaponRope:= (CurrentHedgehog^.CurAmmoType = amRope);
   152 end;
   152 end;
   153 
   153 
   154 procedure HW_setGrenadeTime(time: LongInt); cdecl; export;
   154 procedure HW_setGrenadeTime(time: LongInt); cdecl; export;