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 37 by yamat0jp,
Sun Aug 30 08:32:57 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


             inc(Score)













189


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


           else













190


 


             dec(Score);















191
           case Stone of
           case Stone of

















192
             stBlack:
             stBlack:

















193
               Stone := stWhite;
               Stone := stWhite;











#

Line 194 
 label Last;


Line 195 
 label Last;












195
               Stone := stBlack;
               Stone := stBlack;

















196
           end;
           end;

















197
           Hard;
           Hard;















198


           Easy;


           if loop > 1 then













199


 


           begin













200


 


             Easy;













201


 


             FStrings := FBuffer[FTurnIndex + loop];













202


 


           end













203


 


           else













204


 


             FBuffer[FTurnIndex + loop] := FStrings;















205
         end;
         end;














         FStrings := FBuffer[FTurnIndex + loop];
 













206
       end;
       end;












207
 
     dec(loop);












208
   end;
   end;

















209
 
 

















210
 begin
 begin











#

Line 214 
 begin


Line 221 
 begin












221
       stWhite:
       stWhite:

















222
         Stone := stBlack;
         Stone := stBlack;

















223
     end;
     end;















224


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


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















225
     begin
     begin














       FBuffer[FTurnIndex + 1] := FStrings;
 













226
       loop := 0;
       loop := 0;

















227
       Hard;
       Hard;















228


     end;


     end













229


     Easy;


     else













230


 


       Easy;















231
   end
   end

















232
   else
   else

















233
     result := false;
     result := false;





























Legend:



Removed from v.35
 


changed lines


 
Added in v.37













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 37 by yamat0jp,
Sun Aug 30 08:32:57 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
+             inc(Score)
-             dec(Score, AddScore(m, n, waste));
+           else
+             dec(Score);
            case Stone of
              stBlack:
                Stone := stWhite;
-Line 194 
 label Last;
+Line 195 
 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 221 
 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.37
 Legend:



Removed from v.35
 


changed lines


 
Added in v.37
-Removed from v.35
+Added in v.37
-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