hedgewars/uAmmos.pas
changeset 2766 aa3120a9e22c
parent 2764 2613de505d8d
child 2767 77c030ac978e
equal deleted inserted replaced
2765:8a5685581aeb 2766:aa3120a9e22c
    73        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;
    73        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;
    74 
    74 
    75        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= 0;
    75        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= 0;
    76        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].InitialCount:= 0;
    76        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].InitialCount:= 0;
    77 
    77 
    78        if ((GameFlags and gfPlaceHog) <> 0) and (a = amTeleport) then 
    78        Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= AMMO_INFINITE;
    79            Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= AMMO_INFINITE;
       
    80        inc(mi[Ammoz[a].Slot])
    79        inc(mi[Ammoz[a].Slot])
    81        end
    80        end
    82     end
    81     end
    83 end;
    82 end;
    84 
    83