436 if CheckNoTeamOrHH or isPaused then exit;

   436 if CheckNoTeamOrHH or isPaused then exit;

   437 if not CurrentTeam^.ExtDriven then SendIPC('S');

   437 if not CurrentTeam^.ExtDriven then SendIPC('S');

   438 with CurrentHedgehog^.Gear^ do

   438 with CurrentHedgehog^.Gear^ do

   439     Message:= Message or gm_Switch

   439     Message:= Message or gm_Switch

   440 end;

   440 end;

   445 

   441 

   446 procedure chNextTurn(var s: shortstring);

   442 procedure chNextTurn(var s: shortstring);

   447 begin

   443 begin

   448     s:= s; // avoid compiler hint

   444     s:= s; // avoid compiler hint

   449     TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);

   445     TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);