Browse Subversion Repository
Diff of /Unit1.pas
 Parent Directory
|  Revision Log
|  Patch
| 160 |
worth: array [1 .. 4] of TPoint = ((X: 0; Y: 0), (X: 7; Y: 0), (X: 0; Y: 7), |
worth: array [1 .. 4] of TPoint = ((X: 0; Y: 0), (X: 7; Y: 0), (X: 0; Y: 7), |
| 161 |
(X: 7; Y: 7)); |
(X: 7; Y: 7)); |
| 162 |
label Last; |
label Last; |
| 163 |
|
procedure Easy; |
| 164 |
|
var |
| 165 |
|
m, n: integer; |
| 166 |
|
begin |
| 167 |
|
for m := 0 to bmp_count - 1 do |
| 168 |
|
for n := 0 to bmp_count - 1 do |
| 169 |
|
if CanSetStone(Stone, m, n, false) = true then |
| 170 |
|
begin |
| 171 |
|
inc(Score); |
| 172 |
|
inc(Score, AddScore(m, n, worth)); |
| 173 |
|
end; |
| 174 |
|
end; |
| 175 |
procedure Hard; |
procedure Hard; |
| 176 |
var |
var |
| 177 |
m, n: integer; |
m, n: integer; |
| 194 |
Stone := stBlack; |
Stone := stBlack; |
| 195 |
end; |
end; |
| 196 |
Hard; |
Hard; |
| 197 |
|
Easy; |
| 198 |
end; |
end; |
| 199 |
FStrings := FBuffer[FTurnIndex + 1]; |
FStrings := FBuffer[FTurnIndex + loop]; |
| 200 |
end; |
end; |
| 201 |
end; |
end; |
| 202 |
|
|
| 214 |
stWhite: |
stWhite: |
| 215 |
Stone := stBlack; |
Stone := stBlack; |
| 216 |
end; |
end; |
| 217 |
if (Form1.MenuItem14.IsChecked = true) and (FTurnIndex + 1 >= 60) then |
if (Form1.MenuItem14.IsChecked = true) and (FTurnIndex + 1 <= 60) then |
| 218 |
begin |
begin |
| 219 |
FBuffer[FTurnIndex + 1] := FStrings; |
FBuffer[FTurnIndex + 1] := FStrings; |
| 220 |
loop := 0; |
loop := 0; |
| 221 |
Hard; |
Hard; |
| 222 |
end; |
end; |
| 223 |
for i := 0 to bmp_count - 1 do |
Easy; |
|
for j := 0 to bmp_count - 1 do |
|
|
if CanSetStone(Stone, i, j, false) = true then |
|
|
begin |
|
|
inc(Score); |
|
|
inc(Score, AddScore(i, j, worth)); |
|
|
end; |
|
| 224 |
end |
end |
| 225 |
else |
else |
| 226 |
result := false; |
result := false; |
|
|
Legend:
| Removed from v.34 |
|
| changed lines |
| |
Added in v.35 |
|
|
| |
Parent Directory
Revision Log
Patch