Schiffe versenken

[kindliche kaiserin]

So, das Programm ist jetzt fertig. Es funktioniert auch alles......naja bei 20 Mal spielen friert es ein Mal ein und bei weiteren 20 Mal spielen setzt der die Schiffe des Computergegners falsch. Warum weiß ich nicht, da der Quellcode jetzt eigentlich diesbezüglich m.M.n. fehlerfrei ist.

Jetzt wollte ich nur noch ein wenig an der Optik was verbessern.
Und zwar möchte ich, dass nach jedem Schuss, der auch ein Treffer war, geprüft wird, ob sich ringsum den Schuss noch belegte Felder befinden und wenn ja, ob diese auch schon getroffen wurden..Wenn dann alle getroffen wurden - sprich: wenn das Schiff versenkt wurde - soll der das Schiff komplett rot färben.
Ich habe da jetzt ein wenig was versucht, aber es funktioniert noch nicht so wirklich..

Delphi-Quellcode:

   s_laenge := 1 ;

          repeat
            begin
              a := a + 1 ;
              b := b - 1 ;
              if ( ( schiffe_comp [ mx_mensch + a , my_mensch ] . belegt = true ) and
                 ( schiffe_comp [ mx_mensch + a , my_mensch ] . treffer = true ) ) or

                 ( ( schiffe_comp [mx_mensch , my_mensch + a ] . belegt = true ) and
                 ( schiffe_comp [mx_mensch , my_mensch + a ] . treffer = true ) ) then
                begin
                  s_laenge := s_laenge + 1 ;
                end;

              if ( ( schiffe_comp [ mx_mensch - b , my_mensch ] . belegt = true ) and
                 ( schiffe_comp [ mx_mensch - b , my_mensch ] . treffer = true ) ) or

                 ( ( schiffe_comp [mx_mensch , my_mensch - b ] . belegt = true ) and
                 ( schiffe_comp [mx_mensch , my_mensch - b ] . treffer = true ) ) then
                begin
                  s_laenge := s_laenge + 1 ;
                end;
            end;
          until  ( ( ( schiffe_comp [ mx_mensch + a , my_mensch ] . belegt = false ) and
                 ( schiffe_comp [ mx_mensch + a , my_mensch ] . treffer = false ) ) or

                 ( ( schiffe_comp [mx_mensch , my_mensch + a ] . belegt = false ) and
                 ( schiffe_comp [mx_mensch , my_mensch + a ] . treffer = false ) ) and

                 ( ( schiffe_comp [ mx_mensch - b , my_mensch ] . belegt = false ) and
                 ( schiffe_comp [ mx_mensch - b , my_mensch ] . treffer = false ) ) or

                 ( ( schiffe_comp [mx_mensch , my_mensch - b ] . belegt = false ) and
                 ( schiffe_comp [mx_mensch , my_mensch - b ] . treffer = false ) ) ) ;

Ich habe für jedes einzelne Schiff ein Array [0..3] angelegt. 0 und 1 sind x- und y-Koordinate für den Startpunkt; 2 und 3 sind jeweils Höhe und Länge des Schiffes. Wenn das Schiff dann versenkt ist, soll s_laenge als Länge für das Schiff benutzt werden. Diese Länge soll dann mit den jeweiligen Längen, die in den Arrays gespeichert wurden abgeglichen werden. Wenn eine Übereinstimmung gefunden wurde, soll dann das rote Rechteck mithilfe der Koordinaten, Längen- und Breitenangaben aus dem Array gezeichnet werden.