Hilfe mit Textadventure

[DeddyH]

Und den Sinn von

Zitat:

image1.canvas.create ;

solltest Du uns vielleicht auch einmal erklären.

[Sir Rufo]

Also den Raum selber würde ich schon anders aufbauen. Warum merkt sich der Raum nicht die Beschreibung selber?

Und wenn ich mich von einem Raum in eine Richtung x bewege, dann kann diese Methode doch einfach eine Raum-Instanz zurückliefern. Gibt es keinen Raum in Richtung x, dann liefert der Raum einfach die eigene Instanz zurück.

Delphi-Quellcode:

Procedure TForm.Move ( ADirection : TDirection );
begin
  FCurrentRoom := FCurrentRoom.MoveTo ( ADirection );
end;

Sieht viel einfacher aus und ist auch leichter zu verstehen.