Abbruchbedingung und Bewegung bei 4 Gewinnt

[dajuhsa]

Delphi-Quellcode:

function ImpactY(X:Integer): Integer; //X gibt die Zeile an, in der der "Einschlag" stattfindet
var 
  i:integer; 
begin 
  for i := 0 to 5 do //6 Felder Hoch ist das Spielfeld denke ich mal, alle felder in Zeile X durchgehen
    if Felder[X,i] <> None then //wenn das aktuelle Feld nicht leer also belegt ist,
    begin 
      result := i - 1; //dann landet der chip im feld darüber (Y - 1)
      exit; //und da das ergebnis feststeht wird die function beendet 
    end; //wenn das oberste besetzt ist, kommt als ergebnis -1 raus, das musst du im programm halt abfragen
end;