Trying to correct prior amNothing checkin. untested.
authornemo
Tue, 08 Sep 2009 21:58:09 +0000 (2009-09-08)
changeset 2359 76d853f22afa
parent 2358 d4a9c309eb14
child 2360 d4d545da9dbe
Trying to correct prior amNothing checkin. untested.
hedgewars/uConsts.pas
hedgewars/uWorld.pas
--- a/hedgewars/uConsts.pas	Tue Sep 08 19:47:45 2009 +0000
+++ b/hedgewars/uConsts.pas	Tue Sep 08 21:58:09 2009 +0000
@@ -285,7 +285,7 @@
 	gmAllStoppable = gm_Left or gm_Right or gm_Up or gm_Down or gm_Attack or gm_Precise;
 
 	cMaxSlotIndex       = 8;
-	cMaxSlotAmmoIndex   = 4;
+	cMaxSlotAmmoIndex   = 5;
 
 	ammoprop_Timerable    = $00000001;
 	ammoprop_Power        = $00000002;
--- a/hedgewars/uWorld.pas	Tue Sep 08 19:47:45 2009 +0000
+++ b/hedgewars/uWorld.pas	Tue Sep 08 21:58:09 2009 +0000
@@ -123,7 +123,7 @@
 	dec(y, 33);
 	DrawSprite(sprAMSlotName, x, y, 0);
 	for i:= cMaxSlotIndex downto 0 do
-		if (Ammo^[i, 0].Count > 0) and (Ammo^[i, 0].AmmoType <> amNothing) then
+		if (Ammo^[i, 0].Count > 0) then
 			begin
 			if (cScreenHeight - CursorPoint.Y >= y - 33) and (cScreenHeight - CursorPoint.Y < y) then Slot:= i;
 			dec(y, 33);
@@ -131,7 +131,7 @@
 			DrawSprite(sprAMSlot, x, y, 0);
 			DrawSprite(sprAMSlotKeys, x + 2, y + 1, i);
 			t:= 0;
-			while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do
+			while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) and (Ammo^[i, t].AmmoType <> amNothing) do
 				begin
 				l:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;