Schiffe versenken, Platzierung

[m2zer0]

Edit: Ich hatte grad nen Geistesblitz
Mit ner Repeat Until Schleife war das ganze schnell gelöst^^

Trotzdem vielen Dank


So, ich bin fast fertig.
Ich hab gehofft ich schaffe den Rest allein, aber ein Problem habe ich noch.
Die Platzierung der gegnerischen Schiffe. Diese soll unter den gleichen Konditionen wie die Spielerschiffe-Platzierung ablaufen.
Also:
-4 Schiffe (2er,3er,4er,5er)
-Um ein Schiff herum darf kein 2. sein.

Code:

1)           2)
  11###        1####
  ##222        1####
  #####        #####
  #####        #222#
 so nicht   das würde gehen
(Im Programm ist es ein 10*10 Feld)

-Schiffe sollen zufällig Vertikal oder Horizontal sein

Alles was ich bisher versucht habe klappte zum Teil. Die Schiffe wurden platziert, haben aber das Feld um das andere Schiff gekonnt ignoriert.(Siehe Code bsp. 1)

Meine Überlegung war ein Rect um das Schiff zu legen und Reihe und Spalte so oft zufällig zu bestimmen bis Spalte und Zeile ein freies Feld erwischen.