Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Abbruchbedingung und Bewegung bei 4 Gewinnt

   
    by dajuhsa, 4. Apr 2008
  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 <> 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)
  ...
• Forum: Programmieren allgemein

  Re: Abbruchbedingung und Bewegung bei 4 Gewinnt

   
    by dajuhsa, 1. Apr 2008
  erstmal legst du ein array mit den feldern an
  
  TSpielerSeite = (Rot, Gelb);
  TFeld = (Rot,Gelb,None)
  TFelder = Array of TFeld;
  var
  Felder:TFelder;
  SpielerAnDerReihe:TSpielerSeite;
  
  dort kannst du reinspeichern deine Chips