Irgendwie beschleicht mich immer noch das Gefühl, du weißt gar nicht wie Schiffe versenken wirklich funktioniert, bzw. du hast das noch nicht in die wesentlichen Schritte zerlegt.
Darum verbeißt du dich in diese "bekloppte" Anzeige des Spielfelds, die mit dem Spiel an sich
nichts zu tun hat.
Nehmen wir doch mal völlig losgelöst (ja das geht, und so sollte man jedes Einzelne Teilproblem hier angehen) den Schuss auf eine Koordinate und überlegen uns, was da passieren muss:
- Die Schuss-Koordinaten werden benötigt
- Das Spielfeld wird benötigt
Ok, damit können wir nun den Schuss abgeben, aber reicht uns das schon?
Wäre ja schick, wenn wir eine Rückmeldung bekommen.
Was für Rückmeldungen können dort kommen?
- Wasser
- Treffer
- Versenkt
- Flotte versenkt
- Auf das Feld wurde schon geschossen
- Koordinaten ausserhalb des Spielfelds
Damit können wir schon folgendes schreiben:
Delphi-Quellcode:
const
Schuss_Wasser = 0;
Schuss_Treffer = 1;
Schuss_Versenkt = 2;
Schuss_FlotteVersenkt = 3;
Schuss_NichtNochmal = 4;
Schuss_Ausserhalb = 5;
function SchussAuf( ASpielfeld : TSpielfeld; x,y : Integer ) : Integer;
begin
// Dummy, wir melden mal immer Wasser, weil wir noch nicht wissen, wie wir das umsetzen wollen
Result := Schuss_Wasser;
end;
Bei 2 Ergebnissen muss die Eingabe der Koordinaten wiederholt werden, und bei einem Ergebnis ist das Spiel zu Ende.
Die anderen Ergebnisse gehören zum normalen Spielablauf.
Genau das musst du auch für die anderen Teile erst mal ausarbeiten, dann kannst du anfangen das umzusetzen.