From be4dbd37f218d219232c3a75ec772b940ad506e0 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 1 Oct 2018 16:27:46 +0200
Subject: sollte funktionieren - modulo gui-Macken

---
 raetselunit.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'raetselunit.inc')

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
-- 
cgit v1.2.3-54-g00ecf