241 end;

   241 end;

   242 

   242 

   243 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   243 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   244 var s: shortstring;

   244 var s: shortstring;

   245 begin

   245 begin

   246 with Hedgehog do

   248 with Hedgehog do

   247      begin

   249      begin

   248      if Ammo[CurSlot, CurAmmo].Count = 0 then

   250      if Ammo[CurSlot, CurAmmo].Count = 0 then

   249         begin

   251         begin

   250         CurAmmo:= 0;

   252         CurAmmo:= 0;