diff options
Diffstat (limited to 'src/base/UMain.pas')
-rw-r--r-- | src/base/UMain.pas | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/src/base/UMain.pas b/src/base/UMain.pas index 0c86563d..f9ac4ebe 100644 --- a/src/base/UMain.pas +++ b/src/base/UMain.pas @@ -1013,13 +1013,18 @@ procedure ClearScores(PlayerNum: integer); begin with Player[PlayerNum] do begin - Score := 0; - ScoreInt := 0; - ScoreLine := 0; - ScoreLineInt := 0; - ScoreGolden := 0; - ScoreGoldenInt := 0; + Score := 0; + ScoreLine := 0; + ScoreGolden := 0; + + ScoreInt := 0; + ScoreLineInt := 0; + ScoreGoldenInt:= 0; ScoreTotalInt := 0; + + ScoreLast := 0; + + LastSentencePerfect := False; end; end; |