diff -r e9200bdeaccc -r a9a349b2b3fa hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Wed May 28 18:58:37 2008 +0000
+++ b/hedgewars/uWorld.pas	Wed May 28 19:18:02 2008 +0000
@@ -71,7 +71,7 @@
 
 procedure ShowAmmoMenu;
 const MENUSPEED = 15;
-var x, y, i, t: LongInt;
+var x, y, i, t, l: LongInt;
     Slot, Pos: LongInt;
 begin
 if (TurnTimeLeft = 0) or KbdKeyPressed then bShowAmmoMenu:= false;
@@ -118,6 +118,11 @@
             while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do
                   begin
                   DrawSprite(sprAMAmmos, x + t * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType));
+                  l:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;
+
+                  if l >= 0 then
+                     DrawSprite(sprTurnsLeft, x + t * 33 + 51, y + 17, l);
+
                   if (Slot = i) and (CursorPoint.X >= x + t * 33 + 35) and (CursorPoint.X < x + t * 33 + 68) then
                      begin
                      DrawSprite(sprAMSelection, x + t * 33 + 35, y + 1, 0);