Hard level changed by deleting 1 line in codes

diff --git a/Unit1.pas b/Unit1.pas
index 2f21c3f..2971904 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -163,7 +163,6 @@ const
     Y: 6), (X: 7; Y: 6), (X: 1; Y: 7), (X: 6; Y: 7));\r
   worth: array [1 .. 4] of TPoint = ((X: 0; Y: 0), (X: 7; Y: 0), (X: 0; Y: 7),\r
     (X: 7; Y: 7));\r
-label Last;\r
   procedure Easy;\r
   var\r
     m, n: integer;\r
@@ -216,7 +215,7 @@ begin
   begin\r
     Score := 0;\r
     result := true;\r
-    if FTurnIndex < 50 then\r
+//    if FTurnIndex < 50 then\r
       inc(Score, AddScore(X, Y, waste));\r
     dec(Score, AddScore(X, Y, worth));\r
     case Stone of\r