304              if Ammo[slot, 0].Count > 0 then

   304              if Ammo[slot, 0].Count > 0 then

   305                 begin

   305                 begin

   306                 caSlot^:= slot;

   306                 caSlot^:= slot;

   307                 caAmmo^:= 0;

   307                 caAmmo^:= 0;

   308                 end;

   308                 end;

   310           end;

   309           end;

   311      ApplyAmmoChanges(Hedgehogs[CurrHedgehog])

   310      ApplyAmmoChanges(Hedgehogs[CurrHedgehog])

   312      end

   311      end

   313 end;

   312 end;

   314 

   313 

   315 procedure chPut(var s: shortstring);

   314 procedure chPut(var s: shortstring);

   316 begin

   315 begin

   317 if CheckNoTeamOrHH then exit;

   316 if CheckNoTeamOrHH then exit;

   318 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do

   322 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do

   319      if (State and gstHHChooseTarget) <> 0 then

   323      if (State and gstHHChooseTarget) <> 0 then

   320         begin

   324         begin

   321         isCursorVisible:= false;

   325         isCursorVisible:= false;

   322         if not CurrentTeam.ExtDriven then

   326         if not CurrentTeam.ExtDriven then

   373 begin

   377 begin

   374 if CheckNoTeamOrHH then exit;

   378 if CheckNoTeamOrHH then exit;

   375 with CurrentTeam^ do

   379 with CurrentTeam^ do

   376      with Hedgehogs[CurrHedgehog] do

   380      with Hedgehogs[CurrHedgehog] do

   377           begin

   381           begin

   378           if bShowAmmoMenu then bShowAmmoMenu:= false

   383           if bShowAmmoMenu then bShowAmmoMenu:= false

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

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

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

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

   381           end

   386           end

   382 end;

   387 end;