Quelltext Verständniss

[netscanner]

Hallo,
ich habe folgenden QT gefunden:

Delphi-Quellcode:

procedure TForm1.calc_snake; 
var 
  i, j: Integer; 
begin 
  for i := 0 to breite do 
    for j := 0 to hoehe do 
      if map[i, j]>0 then 
        Dec(map[i, j]); 
  Inc(kopf.X, richtung.X); 
  Inc(kopf.Y, richtung.Y); 
  if (kopf.X<0) or (kopf.X>breite) or (kopf.Y<0) or (kopf.Y>hoehe) then 
  begin 
    spiel_ende; 
    ShowMessage('Sie haben den Rand berührt!'); 
  end; 
  if (map[kopf.X, kopf.Y]>0) and (not ende) then 
  begin 
    spiel_ende; 
    ShowMessage('Sie haben sich selbst gebissen!'); 
  end; 
  if (kopf.X=futter.X) and (kopf.Y=futter.Y) then 
  begin 
    Inc(laenge); 
    neues_futter; 
  end; 
  map[kopf.X, kopf.Y] := laenge; 
end;

Das ist ein Teil eines Snake spiels.
Leider verstehe ich die vorletzte Codezeile nicht,,,
Erläuterung: laenge wird pro gefressenem Stein um eins erhöht

[SirThornberry]

Delphi-Quellcode:

Inc(laenge);

bedeutet nix anderes als

Delphi-Quellcode:

laenge := laenge + 1;

wenn die Schlange als etwas gefressen hat wird sie um eins länger und in der Folgezeile wird neues Futter bereit gestellt

[netscanner]

ich meinte aber

Delphi-Quellcode:

  map[kopf.X, kopf.Y] := laenge;

:-D

[netscanner]

aua hat sich geklärt ich hätte genauer lesen müssen :)

[Daniel G]

An der Stelle wird die Länge der Schlange an diesen Koordinaten eingetragen. Steht an dieser Stelle dann, wenn die Prozedur nochmal durchlaufen wird, keine 0, dann hat sich das Tierchen selbst gebissen... Außerdem wird so denke ich festgestellt, wie viele Körperteile noch folgen müssen... steht da aber nicht in diesem Code...

//Edit: na dann...