293             inc(slot)

   293             inc(slot)

   294             end

   294             end

   295         end;

   295         end;

   296     TryDo(slot <= cMaxSlotIndex, 'Ammo slot index overflow', true);

   296     TryDo(slot <= cMaxSlotIndex, 'Ammo slot index overflow', true);

   297     CurAmmoType:= Ammo^[slot, ammoidx].AmmoType;

   297     CurAmmoType:= Ammo^[slot, ammoidx].AmmoType;

   298     end

   302     end

   299 end;

   303 end;

   300 

   304 

   301 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   305 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   302 var s: shortstring;

   306 var s: shortstring;

   331             isCursorVisible:= true

   335             isCursorVisible:= true

   332             end else begin

   336             end else begin

   333             Gear^.State:= Gear^.State and not gstHHChooseTarget;

   337             Gear^.State:= Gear^.State and not gstHHChooseTarget;

   334             isCursorVisible:= false

   338             isCursorVisible:= false

   335             end;

   339             end;

   340         end

   340         end

   341     end;

   341     end;

   342 end;

   342 end;

   343 

   343 

   344 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);

   344 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);