372 procedure chAmmoMenu(var s: shortstring);

   373 begin

   374 if CheckNoTeamOrHH then exit;

   375 with CurrentTeam^ do

   376      with Hedgehogs[CurrHedgehog] do

   377           begin

   378           if bShowAmmoMenu then bShowAmmoMenu:= false

   379           else if ((Gear.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0)

   380                or ((Gear.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true

   381           end

   382 end;

   383 

   384