Snake (das Spiel)

[speedax]

habs erstmal hinbekommen....aber diese procedure wählt ja nur die buitton an...kann man die damit auch gleich , quasi "direkt" bedienen?

[mleyen]

Du kannst natürlich den Code in den Buttonevents auslagern und die ausgelagerten Prozeduren dann "direkt" aufrufen.

[speedax]

um da nen punktezähler einzubauen muss ich ja theoretisch einfach nur die anzahl ausummieren die die schlange mit den futterpunkten übereinstimmt

Delphi-Quellcode:

if (kopf.X=futter.X) and (kopf.Y=futter.Y) then
  begin

    edit1.text:=inttostr(punkte);
    Inc(laenge);
    neues_futter;
    [b]punkte:=punkte+1;[/b]
  end;

oder ist das so abwägig?... i wie kommen da höchst dumme punktzahlen raus...

[speedax]

i packs net wenn ich des ganze einfach beim futter erschaffen mit rein packe dann gehts trotzdem ent, aber eig muss i ja nur zählen wieoft futter erschaffen wird-1... hmm

[anluyomo]

ich bin neu hier und auch beim Programmieren mit Delphi.
Ich benutze Lazarus

Für Einsteiger ist richtig gut erklärt und nachvollziehbar.
Am Anfang konnte ich kein Bild kriegen, aber nach copy/paste von source code, ging das.

Allerdings kann ich die Schlange nicht steuern, weder mit den Buttons noch mit den Pfeiltasten

Kann mir jemand dabei helfen?

Vielen Dank!

[QuickAndDirty]

Du musst die Eigenschaft Keypreview
im Formular aktivieren!
Dann kannst du dir im KeyDownEvent vom Formular die letzten Gedrückte Pfeiltaste merken.

[anluyomo]

Danke für die schnelle Antwort, allerdings hat sich nichts geändert. Ich kann leider nicht finden, wo der Fehler sein kann.

object Form1: TForm1
Left = 361
Height = 335
Top = 139
Width = 484
Caption = 'Form1'
ClientHeight = 335
ClientWidth = 484
KeyPreview = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
LCLVersion = '1.8.0.6'

Wie Du es beschrieben hast, habe ich in den Eigenschaften der Form das geändert und auch die Methode FormKeyDown verknüpft.
Das ist die Implementation der Buttons und von FormKeyDown:

procedure TForm1.Button2Click(Sender: TObject);
begin
if richtung.Y=0 then
richtung :=Point(0,-1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if richtung.X=0 then
richtung:=Point(1, 0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if richtung.X=0 then
richtung:=Point(1,0);
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
if richtung.Y=0 then
richtung:= Point(0,1);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_UP: Button2.Click;
VK_DOWN: Button5.Click;
VK_RIGHT: Button4.Click;
VK_LEFT: Button3.Click;
end;
end;

Danke nochmal für Deine Hilfe!

[anluyomo]

Hallo QuickAndDirty,

Hier ist der Code ohne die Anwendungsdatei, sonst war zu gross zum Hochladen.

Danke!