diff options
| -rw-r--r-- | raetselunit.pas | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/raetselunit.pas b/raetselunit.pas index b8f7171..f52a4a3 100644 --- a/raetselunit.pas +++ b/raetselunit.pas @@ -1105,6 +1105,19 @@ begin continue; end; end; + if ((i div dim) > 0) and + (invPuzzleTeile[i-dim]['x']<>invPuzzleTeile[i]['x']) and + (kAnzs[invPuzzleTeile[i-dim]['x']]<dim) then begin + gefunden:=false; + for j:=0 to kAnzs[invPuzzleTeile[i-dim]['x']]-1 do + if (puzzleTeile[invPuzzleTeile[i-dim]['x']][j] div dim < dim-1) and + (i - puzzleTeile[invPuzzleTeile[i-dim]['x']][j] < dim) then begin + gefunden:=true; + break; + end; + if not gefunden then + continue; + end; inc(i); end; end; |