hedgewars/uWorld.pas
changeset 965 a4d5fc8eec7a
parent 961 a9a349b2b3fa
child 988 cdff3f6f9b38
equal deleted inserted replaced
964:4c6ff62c54d2 965:a4d5fc8eec7a
   136 
   136 
   137      if (Pos >= 0) then
   137      if (Pos >= 0) then
   138         if Ammo^[Slot, Pos].Count > 0 then
   138         if Ammo^[Slot, Pos].Count > 0 then
   139            begin
   139            begin
   140            DrawTexture(AMxCurr + 10, cScreenHeight - 68, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);
   140            DrawTexture(AMxCurr + 10, cScreenHeight - 68, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);
   141            if Ammo^[Slot, Pos].Count < 10 then
   141            if Ammo^[Slot, Pos].Count < AMMO_INFINITE then
   142               DrawTexture(AMxCurr + 175, cScreenHeight - 68, CountTexz[Ammo^[Slot, Pos].Count]);
   142               DrawTexture(AMxCurr + 175, cScreenHeight - 68, CountTexz[Ammo^[Slot, Pos].Count]);
   143            if bSelected then
   143            if bSelected then
   144               begin
   144               begin
   145               bShowAmmoMenu:= false;
   145               bShowAmmoMenu:= false;
   146               SetWeapon(Ammo^[Slot, Pos].AmmoType);
   146               SetWeapon(Ammo^[Slot, Pos].AmmoType);