316 end;

   316 end;

   317 

   317 

   318 procedure chPrecise_p(var s: shortstring);

   318 procedure chPrecise_p(var s: shortstring);

   319 begin

   319 begin

   320 s:= s; // avoid compiler hint

   320 s:= s; // avoid compiler hint

   323 if CheckNoTeamOrHH or isPaused then

   321 if CheckNoTeamOrHH or isPaused then

   324     exit;

   322     exit;

   325 if not isExternalSource then

   323 if not isExternalSource then

   326     SendIPC(_S'Z');

   324     SendIPC(_S'Z');

   327 bShowFinger:= false;

   325 bShowFinger:= false;

   331 end;

   329 end;

   332 

   330 

   333 procedure chPrecise_m(var s: shortstring);

   331 procedure chPrecise_m(var s: shortstring);

   334 begin

   332 begin

   335 s:= s; // avoid compiler hint

   333 s:= s; // avoid compiler hint

   338 if CheckNoTeamOrHH then

   334 if CheckNoTeamOrHH then

   339     exit;

   335     exit;

   340 if not isExternalSource then

   336 if not isExternalSource then

   341     SendIPC(_S'z');

   337     SendIPC(_S'z');

   342 with CurrentHedgehog^.Gear^ do

   338 with CurrentHedgehog^.Gear^ do