get better

diff --git a/Unit1.pas b/Unit1.pas
index 096e64b..c13aac8 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -185,7 +185,7 @@ begin
       case List[i][j].Tag of\r
         Ord(PEKE):\r
           inc(k);\r
-        Ord(MARU), Ord(KARA):\r
+        Ord(KARA):\r
           x := true;\r
       end;\r
     if x = true then\r
@@ -232,25 +232,44 @@ end;
 procedure TForm1.Timer1Timer(Sender: TObject);\r
 var\r
   i: integer;\r
-  j: integer;\r
-  k: integer;\r
   x: Boolean;\r
   procedure click;\r
   var\r
     m: integer;\r
+    y: Boolean;\r
   begin\r
+    y := false;\r
     for m := 0 to 2 do\r
       with List[i][m] do\r
       begin\r
-        if Tag = Ord(KARA) then\r
-        begin\r
-          Caption := '✖';\r
-          Tag := Ord(PEKE);\r
-          x := true;\r
-          Showmessage('LOSE');\r
-          Exit;\r
+        case Tag of\r
+          Ord(KARA):\r
+            begin\r
+              Caption := '✖';\r
+              Tag := Ord(PEKE);\r
+              x := true;\r
+            end;\r
+          Ord(PEKE):\r
+            y := true;\r
         end;\r
-      end\r
+      end;\r
+    if (x = true)and(y = true) then\r
+      Showmessage('LOSE');\r
+  end;\r
+  procedure test(A: Boolean);\r
+  var\r
+    j, k, m: integer;\r
+  begin\r
+    k := 0;\r
+    if A = true then\r
+      m := Ord(MARU)\r
+    else\r
+      m := Ord(PEKE);\r
+    for j := 0 to 2 do\r
+      if List[i][j].Tag = m then\r
+        inc(k);\r
+    if k = 2 then\r
+      click;\r
   end;\r
 \r
 begin\r
@@ -260,14 +279,15 @@ begin
     x := false;\r
     for i := 0 to High(List) do\r
     begin\r
-      k := 0;\r
-      for j := 0 to 2 do\r
-        if List[i][j].Tag = Ord(PEKE) then\r
-          inc(k);\r
-      if k = 2 then\r
-        click;\r
+      test(false);\r
       if x = true then\r
-        Exit;\r
+        Exit\r
+      else\r
+      begin\r
+        test(true);\r
+        if x = true then\r
+          Exit;\r
+      end;\r
     end;\r
     AI;\r
   end;\r