Diff of /Unit1.pas

OSDN > Find Software > reversi-of-d

 Browse Subversion Repository



/[reversi-of-d]/Unit1.pas




Diff of /Unit1.pas



 Parent Directory

|  Revision Log



|  Patch














revision 35 by yamat0jp,
Tue Aug 25 06:02:25 2015 UTC




revision 36 by yamat0jp,
Sat Aug 29 19:48:45 2015 UTC






#

Line 176 
 label Last;


Line 176 
 label Last;












176
   var
   var

















177
     m, n: integer;
     m, n: integer;

















178
   begin
   begin















179


     if loop > 2 then


     if loop > 1 then















180
       Exit;
       Exit;

















181
     inc(loop);
     inc(loop);

















182
     for m := 0 to bmp_count - 1 do
     for m := 0 to bmp_count - 1 do











#

Line 184 
 label Last;


Line 184 
 label Last;












184
       begin
       begin

















185
         if CanSetStone(Stone, m, n, true) = true then
         if CanSetStone(Stone, m, n, true) = true then

















186
         begin
         begin















187


           inc(Score, AddScore(m, n, worth));


           if (loop mod 2) > 0 then













188


           if FTurnIndex + 1 < 50 then


           begin













189


             dec(Score, AddScore(m, n, waste));


             inc(Score, AddScore(m, n, worth));













190


 


             if FTurnIndex + loop < 50 then













191


 


               dec(Score, AddScore(m, n, waste));













192


 


           end













193


 


           else













194


 


           begin













195


 


             dec(Score, AddScore(m, n, worth));













196


 


             if FTurnIndex + loop < 50 then













197


 


               inc(Score, AddScore(m, n, waste));













198


 


           end;















199
           case Stone of
           case Stone of

















200
             stBlack:
             stBlack:

















201
               Stone := stWhite;
               Stone := stWhite;











#

Line 194 
 label Last;


Line 203 
 label Last;












203
               Stone := stBlack;
               Stone := stBlack;

















204
           end;
           end;

















205
           Hard;
           Hard;















206


           Easy;


           if loop > 1 then













207


 


           begin













208


 


             Easy;













209


 


             FStrings := FBuffer[FTurnIndex + loop];













210


 


           end else













211


 


             FBuffer[FTurnIndex + loop] := FStrings;















212
         end;
         end;














         FStrings := FBuffer[FTurnIndex + loop];
 













213
       end;
       end;












214
 
     dec(loop);












215
   end;
   end;

















216
 
 

















217
 begin
 begin











#

Line 214 
 begin


Line 228 
 begin












228
       stWhite:
       stWhite:

















229
         Stone := stBlack;
         Stone := stBlack;

















230
     end;
     end;















231


     if (Form1.MenuItem14.IsChecked = true) and (FTurnIndex + 1 <= 60) then


     if (Form1.MenuItem14.IsChecked = true) and (FTurnIndex + 2 <= 60) then















232
     begin
     begin














       FBuffer[FTurnIndex + 1] := FStrings;
 













233
       loop := 0;
       loop := 0;

















234
       Hard;
       Hard;















235


     end;


     end













236


     Easy;


     else













237


 


       Easy;















238
   end
   end

















239
   else
   else

















240
     result := false;
     result := false;





























Legend:



Removed from v.35
 


changed lines


 
Added in v.36













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[reversi-of-d]/Unit1.pas
-revision 35 by yamat0jp,
Tue Aug 25 06:02:25 2015 UTC
+revision 36 by yamat0jp,
Sat Aug 29 19:48:45 2015 UTC
 Line 176 
 label Last;
    var
      m, n: integer;
    begin
-     if loop > 2 then
+     if loop > 1 then
        Exit;
      inc(loop);
      for m := 0 to bmp_count - 1 do
 Line 184 
 label Last;
        begin
          if CanSetStone(Stone, m, n, true) = true then
          begin
-           inc(Score, AddScore(m, n, worth));
+           if (loop mod 2) > 0 then
-           if FTurnIndex + 1 < 50 then
+           begin
-             dec(Score, AddScore(m, n, waste));
+             inc(Score, AddScore(m, n, worth));
+             if FTurnIndex + loop < 50 then
+               dec(Score, AddScore(m, n, waste));
+           end
+           else
+           begin
+             dec(Score, AddScore(m, n, worth));
+             if FTurnIndex + loop < 50 then
+               inc(Score, AddScore(m, n, waste));
+           end;
            case Stone of
              stBlack:
                Stone := stWhite;
-Line 194 
 label Last;
+Line 203 
 label Last;
                Stone := stBlack;
            end;
            Hard;
-           Easy;
+           if loop > 1 then
+           begin
+             Easy;
+             FStrings := FBuffer[FTurnIndex + loop];
+           end else
+             FBuffer[FTurnIndex + loop] := FStrings;
          end;
-         FStrings := FBuffer[FTurnIndex + loop];
        end;
+     dec(loop);
    end;
  begin
-Line 214 
 begin
+Line 228 
 begin
        stWhite:
          Stone := stBlack;
      end;
-     if (Form1.MenuItem14.IsChecked = true) and (FTurnIndex + 1 <= 60) then
+     if (Form1.MenuItem14.IsChecked = true) and (FTurnIndex + 2 <= 60) then
      begin
-       FBuffer[FTurnIndex + 1] := FStrings;
        loop := 0;
        Hard;
-     end;
+     end
-     Easy;
+     else
+       Easy;
    end
    else
      result := false;
 Legend:



Removed from v.35
 


changed lines


 
Added in v.36
 Legend:



Removed from v.35
 


changed lines


 
Added in v.36
-Removed from v.35
+Added in v.36
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

reversi-of-d

Browse Subversion Repository