Snake-Spiel

[Kesteff]

Ich habe ein Snake-Spiel (bekannt von den Nokia-Handys) programmiert, allerdings funktionieren die Grundideen nicht, nämlich, dass die Schlange wächst, wenn sie was gefressen hat und dass das Spiel zu Ende ist, wenn die Schlange den Spielfeldrand oder sich selbst berührt hat.
 

Code:

procedure TSpielForm.GameOver;

begin

  if (Kopf<>nil)and((Kopf^.x=SpielImage.Width) or(Kopf^.x=0) or(Kopf^.y<SpielImage.Height)or(Kopf^.y<0))

    then timer1.Enabled := false;

      GameLabel.Visible := true;

  end;



procedure TSpielForm.ApfelGefressen;

begin

  Apfel.x:=random((SpielImage.Width div 10-1)*10);

  Apfel.y:=random((SpielImage.Height div 10-1)*10);

  if (Kop<>nil)and(Kopf^.x=Apfel.x)and(Kopf^.y=Apfel.y)

    then begin Apfel.z := true;

      Laenge := Laenge+2;

  end;

end;

Was haut da nicht hin bei diesen Prozeduren?

[Lemy]

[font  size=2 face="Courier New" color="#000080"]// Kopf^.y ]= SpielImage.Height Test war <
[/font]procedure TSpielForm.GameOver;
begin
  if ( (Kopf<>nil)
  and  ( (Kopf^.x ]= SpielImage.Width)
  or     (Kopf^.x <= 0)
 or     (Kopf^.y ]= SpielImage.Height)
  or     (Kopf^.y <= 0 ) ) )then
    timer1.Enabled := false;
  GameLabel.Visible := true;
end;

[font color="#000080"]// if ( (Kopf <> nil) war Kop <> nil

[/font]procedure TSpielForm.ApfelGefressen;
begin
  Apfel.x := random((SpielImage.Width div 10-1)*10);
  Apfel.y := random((SpielImage.Height div 10-1)*10);
  if ( (Kopf <> nil)
  and  (Kopf^.x = Apfel.x)
  and  (Kopf^.y = Apfel.y) ) then
  begin
    Apfel.z := true;
    Laenge := Laenge+2;
  end;
end;

[/font]

[Kesteff]

Dankeschön!!!
Aber leider klappen beide Prozeduren immer noch nicht richtig. Zumindest nicht, wenn ich die Prozeduren so belasse, füge ich allerdings die GameOver-Prozedur in eine Timer-Prozedur mit ein so funktioniert erstmal das Prinzip. Jedoch hält die Schlange nicht genau mit dem Kopfanfang vor der Spielfeldabgrenzung an, sondern verschwindet ein bisschen daruntur. Könnte das vielleicht an den Koordinaten der Schlange liegen? Denn der Kopf ist ja nicht nur ein kleiner Punkt, sondern ein Kreis.
So hab ich den Schlangenkopf zuvor in einer anderen Prozedur erstellt:

Code:

SpielImage.Canvas.Ellipse (Kopf^.x, Kopf^.y, Kopf^.x+24, Kopf^.y+24);

Was muss ich jetzt an der GameOver-Prozedur ändern?

[Lemy]

[font  size=2 face="Courier New" color="#000000"]  if ( (Kopf<>nil)
  and  ( (Kopf^.x >= SpielImage.Width -12)
  or     (Kopf^.x <= 12)
  or     (Kopf^.y >= SpielImage.Height -12)
  or     (Kopf^.y <= 12 ) ) )then

[/font]