Prinzip funktioniert anscheinend nicht...

[Uwe Raabe]

Du musst den Record auch wieder an die Stelle schreiben, von dem du ihn geholt hast:

Delphi-Quellcode:

procedure TGameControl.UseEdE;
var i:integer;
    n: integer;
    cavece:TCave;
begin
  Dec(EdE);
  for i:=1 to 4 do 
  begin
    n := GetCaveByID(GetPlayerPos).nextCaves[i];
    if n>0 then
      begin
        cavece:=GetCaveByID(n);
        cavece.isVisible:=true;
        ChangeCave(n,cavece);
      end;
  end;
  paintmap;
end;