--- a/hedgewars/CCHandlers.inc	Fri Sep 22 18:09:26 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Sat Sep 23 19:26:07 2006 +0000
@@ -369,3 +369,16 @@
    end
 end;
 
+procedure chAmmoMenu(var s: shortstring);
+begin
+if CheckNoTeamOrHH then exit;
+with CurrentTeam^ do
+     with Hedgehogs[CurrHedgehog] do
+          begin
+          if bShowAmmoMenu then bShowAmmoMenu:= false
+          else if ((Gear.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0)
+               or ((Gear.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true
+          end
+end;
+
+