diff options
author | Erich Eckner <git@eckner.net> | 2018-10-01 16:27:46 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-10-01 16:27:46 +0200 |
commit | be4dbd37f218d219232c3a75ec772b940ad506e0 (patch) | |
tree | 8609c9eff842593c5a75a197292d0c53a3a01f43 /raetselunit.inc | |
parent | ab7b912fe2e31fdbb0978979df8606724c387d10 (diff) | |
download | Raetsel-be4dbd37f218d219232c3a75ec772b940ad506e0.tar.xz |
sollte funktionieren - modulo gui-Macken
Diffstat (limited to 'raetselunit.inc')
-rw-r--r-- | raetselunit.inc | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/raetselunit.inc b/raetselunit.inc index 3176ade..b3eb1c5 100644 --- a/raetselunit.inc +++ b/raetselunit.inc @@ -653,7 +653,7 @@ begin end; {$IFDEF buchstaben} if inhalt[J+dim*I]=0 then continue; - Rand[dim+I]:=inhalt[J+dim*I]; + Rand[3*dim+I]:=inhalt[J+dim*I]; break; {$ENDIF} {$IFDEF hochhaus} @@ -673,7 +673,7 @@ end; {$IFDEF relativeInhaltsAenderung} // procedure tHochhausRaetsel.relativeInhaltsAenderung(diff: longint); begin - if (cursorPosition<0) or (cursorPosition>=dim*dim) then + if (cursorPosition<0) or (cursorPosition>=dim*dim) or startfeld[cursorPosition] then exit; {$IFDEF hochhaus} if inhalt[cursorPosition]=-1 then @@ -690,6 +690,10 @@ end; {$IFDEF absoluteInhaltsAenderung} // function tHochhausRaetsel.absoluteInhaltsAenderung(key: word): boolean; begin + if (cursorPosition<0) or (cursorPosition>=dim*dim) or startfeld[cursorPosition] then begin + result:=false; + exit; + end; result:=true; {$IFDEF buchstaben} if (key>=ord('A')) and (key<=min(ord('A')+groeszen[0]-1,ord('Z'))) then begin |