hedgewars/uWorld.pas
changeset 1125 87937426031b
parent 1120 eb5a9f86f9c6
child 1256 2754a6a8c8f1
--- a/hedgewars/uWorld.pas	Sun Jul 27 21:01:11 2008 +0000
+++ b/hedgewars/uWorld.pas	Sun Jul 27 21:50:44 2008 +0000
@@ -116,11 +116,14 @@
             t:= 0;
             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
+                     begin
+                     DrawSprite(sprAMAmmosBW, x + t * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType));
                      DrawSprite(sprTurnsLeft, x + t * 33 + 51, y + 17, l);
+                     end else
+                     DrawSprite(sprAMAmmos, x + t * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType));
 
                   if (Slot = i) and (CursorPoint.X >= x + t * 33 + 35) and (CursorPoint.X < x + t * 33 + 68) then
                      begin