hedgewars/uWorld.pas
changeset 2857 768dfbe276a5
parent 2856 cc70797a0b75
child 2863 9eb53b1f1842
equal deleted inserted replaced
2856:cc70797a0b75 2857:768dfbe276a5
   137    if cReducedQuality then
   137    if cReducedQuality then
   138        AMxShift:= 210
   138        AMxShift:= 210
   139    else
   139    else
   140        if AMxShift < 210 then inc(AMxShift, MENUSPEED);
   140        if AMxShift < 210 then inc(AMxShift, MENUSPEED);
   141    end;
   141    end;
       
   142 Ammo:= nil;
   142 if (CurrentTeam <> nil) and (CurrentHedgehog <> nil) and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then
   143 if (CurrentTeam <> nil) and (CurrentHedgehog <> nil) and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then
   143    Ammo:= CurrentHedgehog^.Ammo
   144    Ammo:= CurrentHedgehog^.Ammo
   144 else if (LocalAmmo <> -1) then
   145 else if (LocalAmmo <> -1) then
   145    Ammo:= GetAmmoByNum(LocalAmmo);
   146    Ammo:= GetAmmoByNum(LocalAmmo);
   146 Slot:= 0;
   147 Slot:= 0;