hedgewars/PascalExports.pas
changeset 3662 a44406f4369b
parent 3661 2378ada8a6ee
child 3668 3f7a95234d8a
equal deleted inserted replaced
3661:2378ada8a6ee 3662:a44406f4369b
   189     exit(bShowAmmoMenu);
   189     exit(bShowAmmoMenu);
   190 end;
   190 end;
   191 
   191 
   192 function HW_isWeaponRequiringClick: boolean; cdecl; export;
   192 function HW_isWeaponRequiringClick: boolean; cdecl; export;
   193 begin
   193 begin
   194     exit( (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0 )
   194     if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then
       
   195         exit( (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0 )
       
   196     else
       
   197         exit(false);
   195 end;
   198 end;
   196 
   199 
   197 function HW_isWeaponTimerable: boolean; cdecl; export;
   200 function HW_isWeaponTimerable: boolean; cdecl; export;
   198 var CurSlot, CurAmmo: LongWord;
   201 var CurSlot, CurAmmo: LongWord;
   199 begin
   202 begin