411     Message:= Message or (gmSwitch and InputMask);

   411     Message:= Message or (gmSwitch and InputMask);

   412     ScriptCall('onSwitch');

   412     ScriptCall('onSwitch');

   413 end;

   413 end;

   414 

   414 

   415 procedure chNextTurn(var s: shortstring);

   415 procedure chNextTurn(var s: shortstring);

   418 begin

   417 begin

   419     s:= s; // avoid compiler hint

   418     s:= s; // avoid compiler hint

   420 

   419 

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

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

   422 

   421