322            s[1]:= 'p';

   322            s[1]:= 'p';

   323            PInteger(@s[2])^:= TargetPoint.X;

   323            PInteger(@s[2])^:= TargetPoint.X;

   324            PInteger(@s[6])^:= TargetPoint.Y;

   324            PInteger(@s[6])^:= TargetPoint.Y;

   325            SendIPC(s)

   325            SendIPC(s)

   326            end;

   326            end;

   328         State:= State and not gstHHChooseTarget;

   327         State:= State and not gstHHChooseTarget;

   329         end else if CurrentTeam.ExtDriven then OutError('got /put while not being in choose target mode', true)

   328         end else if CurrentTeam.ExtDriven then OutError('got /put while not being in choose target mode', true)

   330 end;

   329 end;

   331 

   330 

   332 procedure chCapture(var s: shortstring);

   331 procedure chCapture(var s: shortstring);