Benachbarte Räume A und B haben ja eine gemeinsame Wand. Also ist
a) A.Xpos + A.Breite = B.Xpos (und A.Ypos + A.Höhe überschneidet sich mit B.Ypos + B.Höhe)
oder
b) A.Ypos + A.Höhe = B.Ypos (und A.Xpos + A.Breite überschneidet sich mit B.Xpos + B.Breite)
Damit kannst Du also eine Liste definieren als: A ist Nachbar von B.
für jeden Eintrag der Liste erzeugst Du eine Tür. Die kann ja nur am rechten oder unteren Rand des Rechteckes A sein.
Du musst nur noch die Mitte des sich überlappenden Bereiches finden. Das ist ja nicht so schwer, denn der überlappende Bereich, also die gemeinsame Wand ist die Schnittmenge der beiden rechten Wand von A mit der linken von B bzw. der unteren Wand von A mit der oberen von B.
Bei der Implementierung würdest du natürlich keine Liste erzeugen, sondern einfach so vorgehen:
Delphi-Quellcode:
For i:=0 to Rechteckliste.Count - 2 do
For j:=i+1 to Rechteckliste.Count - 1 do
If IstRechtsvon (RechteckListe[i], RechtEckListe[j]) then
BaueTuerAnDerRechtenSeiteEin (RechteckListe[i], RechtEckListe[j])
else if IstUnterhalbVon(RechteckListe[i], RechtEckListe[j]) then
BaueTuerAnDerUnterenSeiteEin (RechteckListe[i], RechtEckListe[j])
...
Procedure BaueTuerAnDerRechtenSeiteEin (RechtEck A,B);
Begin
GemeinsameWand := ErmittleUeberschneidung(A.RechteWand, B.LinkeWand);
BaueTuerInDieMitte(GemeinsameWand);
End;