hedgewars/uWorld.pas
changeset 2224 4f3e7bd31841
parent 2198 6a3d40acba8b
child 2226 e35b62cb7a1c
--- a/hedgewars/uWorld.pas	Sun Jul 05 13:25:02 2009 +0000
+++ b/hedgewars/uWorld.pas	Sun Jul 05 13:39:05 2009 +0000
@@ -82,7 +82,7 @@
 var x, y, i, t, l: LongInt;
     Slot, Pos: LongInt;
 begin
-if (TurnTimeLeft = 0) or KbdKeyPressed then bShowAmmoMenu:= false;
+if (TurnTimeLeft = 0) or (((CurAmmoGear = nil) or ((CurAmmoGear^.Ammo^.Propz and ammoprop_AltAttack) = 0)) and KbdKeyPressed) then bShowAmmoMenu:= false;
 if bShowAmmoMenu then
    begin
    if AMxShift = 210 then prevPoint.X:= 0;