hedgewars/uWorld.pas
changeset 844 9a82149409f3
parent 843 27b5180d0988
child 883 07a568ba44e0
equal deleted inserted replaced
843:27b5180d0988 844:9a82149409f3
   132      if (Pos >= 0) then
   132      if (Pos >= 0) then
   133         if Ammo^[Slot, Pos].Count > 0 then
   133         if Ammo^[Slot, Pos].Count > 0 then
   134            begin
   134            begin
   135            DrawTexture(AMxCurr + 10, cScreenHeight - 68, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);
   135            DrawTexture(AMxCurr + 10, cScreenHeight - 68, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);
   136            if Ammo^[Slot, Pos].Count < 10 then
   136            if Ammo^[Slot, Pos].Count < 10 then
   137               //DXOutText(AMxCurr + 175, cScreenHeight - 68, fnt16, chr(Ammo^[Slot, Pos].Count + 48) + 'x', Surface);
   137               DrawTexture(AMxCurr + 175, cScreenHeight - 68, CountTexz[Ammo^[Slot, Pos].Count]);
   138            if bSelected then
   138            if bSelected then
   139               begin
   139               begin
   140               bShowAmmoMenu:= false;
   140               bShowAmmoMenu:= false;
   141               SetWeapon(Ammo^[Slot, Pos].AmmoType);
   141               SetWeapon(Ammo^[Slot, Pos].AmmoType);
   142               bSelected:= false;
   142               bSelected:= false;