368 end;

   368 end;

   369 

   369 

   370 procedure chSkip(var s: shortstring);

   370 procedure chSkip(var s: shortstring);

   371 begin

   371 begin

   372 if not CurrentTeam^.ExtDriven then SendIPC(',');

   372 if not CurrentTeam^.ExtDriven then SendIPC(',');

   373 TurnTimeLeft:= 0

   374 TurnTimeLeft:= 0

   374 end;

   375 end;

   375 

   376 

   376 procedure chSetMap(var s: shortstring);

   377 procedure chSetMap(var s: shortstring);

   377 begin

   378 begin