hedgewars/CCHandlers.inc
changeset 2855 7e6adeb57427
parent 2853 953a6d71396f
child 2874 3c7c2bf1ba38
--- a/hedgewars/CCHandlers.inc	Tue Feb 23 23:54:38 2010 +0000
+++ b/hedgewars/CCHandlers.inc	Wed Feb 24 01:55:59 2010 +0000
@@ -602,16 +602,18 @@
 
 procedure chAmmoMenu(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
-with CurrentTeam^ do
-     with Hedgehogs[CurrHedgehog] do
-          begin
-          bSelected:= false;
+if CheckNoTeamOrHH then 
+   bShowAmmoMenu:= true
+else
+   with CurrentTeam^ do
+        with Hedgehogs[CurrHedgehog] do
+             begin
+             bSelected:= false;
 
-          if bShowAmmoMenu then bShowAmmoMenu:= false
-          else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (MultiShootAttacks > 0)
-               or ((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true
-          end
+             if bShowAmmoMenu then bShowAmmoMenu:= false
+             else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (MultiShootAttacks > 0)
+                  or ((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true
+             end
 end;
 
 procedure chFullScr(var s: shortstring);