hedgewars/uAmmos.pas
changeset 3952 d6412423da45
parent 3943 9835060e5c01
child 3966 cbec77b5f706
equal deleted inserted replaced
3950:296cbdd85e50 3952:d6412423da45
   246                 //SwitchNotHeldAmmo(Hedgehog);
   246                 //SwitchNotHeldAmmo(Hedgehog);
   247                 CurAmmoType:= amNothing
   247                 CurAmmoType:= amNothing
   248                 end
   248                 end
   249             end
   249             end
   250     end;
   250     end;
   251 perfExt_NewTurnBeginning;
   251 perfExt_AmmoUpdate;
   252 end;
   252 end;
   253 
   253 
   254 function  HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean;
   254 function  HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean;
   255 var slot, ami: LongInt;
   255 var slot, ami: LongInt;
   256 begin
   256 begin
   355             ShowCrosshair:= (Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_NoCrossHair) = 0
   355             ShowCrosshair:= (Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_NoCrossHair) = 0
   356         else
   356         else
   357             ShowCrosshair:= (Propz and ammoprop_NoCrosshair) = 0;
   357             ShowCrosshair:= (Propz and ammoprop_NoCrosshair) = 0;
   358         end
   358         end
   359     end;
   359     end;
   360 perfExt_NewTurnBeginning;
       
   361 end;
   360 end;
   362 
   361 
   363 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);
   362 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);
   364 begin
   363 begin
   365 with Hedgehog do
   364 with Hedgehog do