Develop and Download Open Source Software

reversi-of-d

Browse Subversion Repository

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

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 36 by yamat0jp, Sat Aug 29 19:48:45 2015 UTC revision 37 by yamat0jp, Sun Aug 30 08:32:57 2015 UTC
# Line 185  label Last; Line 185  label Last;
185          if CanSetStone(Stone, m, n, true) = true then          if CanSetStone(Stone, m, n, true) = true then
186          begin          begin
187            if (loop mod 2) > 0 then            if (loop mod 2) > 0 then
188            begin              inc(Score)
             inc(Score, AddScore(m, n, worth));  
             if FTurnIndex + loop < 50 then  
               dec(Score, AddScore(m, n, waste));  
           end  
189            else            else
190            begin              dec(Score);
             dec(Score, AddScore(m, n, worth));  
             if FTurnIndex + loop < 50 then  
               inc(Score, AddScore(m, n, waste));  
           end;  
191            case Stone of            case Stone of
192              stBlack:              stBlack:
193                Stone := stWhite;                Stone := stWhite;
# Line 207  label Last; Line 199  label Last;
199            begin            begin
200              Easy;              Easy;
201              FStrings := FBuffer[FTurnIndex + loop];              FStrings := FBuffer[FTurnIndex + loop];
202            end else            end
203              else
204              FBuffer[FTurnIndex + loop] := FStrings;              FBuffer[FTurnIndex + loop] := FStrings;
205          end;          end;
206        end;        end;
Legend:
Removed from v.36  
changed lines
  Added in v.37
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help