53 begin

    53 begin

    54 FillChar(mi, sizeof(mi), 0);

    54 FillChar(mi, sizeof(mi), 0);

    55 FillChar(Ammo^, sizeof(Ammo^), 0);

    55 FillChar(Ammo^, sizeof(Ammo^), 0);

    56 for a:= Low(TAmmoType) to High(TAmmoType) do

    56 for a:= Low(TAmmoType) to High(TAmmoType) do

    57     begin

    57     begin

    59     if cnts[a] > 0 then

    58     if cnts[a] > 0 then

    60        begin

    59        begin

    61        TryDo(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true);

    60        TryDo(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true);

    62        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;

    61        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;

    63 

    62 

    72        begin

    71        begin

    73        TryDo(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true);

    72        TryDo(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true);

    74        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;

    73        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;

    75 

    74 

    76        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= AMMO_INFINITE;

    75        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= AMMO_INFINITE;

    78 

    77 

    79        inc(mi[Ammoz[a].Slot])

    78        inc(mi[Ammoz[a].Slot])

    80        end

    79        end

    81     end

    80     end

    82 end;

    81 end;