3750 

  3750 

  3751 // Set TurnTimeLeft and ReadyTimeLeft if activated by SetTurnTimeLeft and SetReadyTimeLeft before

  3751 // Set TurnTimeLeft and ReadyTimeLeft if activated by SetTurnTimeLeft and SetReadyTimeLeft before

  3752 if isPendingTurnTimeLeft then

  3752 if isPendingTurnTimeLeft then

  3753     begin

  3753     begin

  3754     TurnTimeLeft:= PendingTurnTimeLeft;

  3754     TurnTimeLeft:= PendingTurnTimeLeft;

  3755     isPendingTurnTimeLeft:= false;

  3756     isPendingTurnTimeLeft:= false;

  3756     end;

  3757     end;

  3757 if isPendingReadyTimeLeft then

  3758 if isPendingReadyTimeLeft then

  3758     begin

  3759     begin

  3759     ReadyTimeLeft:= PendingReadyTimeLeft;

  3760     ReadyTimeLeft:= PendingReadyTimeLeft;

  3760     isPendingReadyTimeLeft:= false;

  3762     isPendingReadyTimeLeft:= false;

  3761     end;

  3763     end;

  3762 end;

  3764 end;

  3763 

  3765 

  3764 procedure ScriptCall(fname : shortstring);

  3766 procedure ScriptCall(fname : shortstring);