Snake Spiel

[Cueppi]

ich guck mal mit den begin und end ;)

können sie mir dann einen kleinen tipp geben, wie ich das asulager `?

[DeddyH]

Was auslagern?

[edit] BTW: Deine Codeformatierung ist sagen wir mal "kreativ", da müsste etwas mehr Ordnung rein. [/edit]

[haentschman]

Delphi-Quellcode:

procedure TForm1.Initialisierung;
 var
  X, Y: Integer;
  begin
     BtnStart.Enabled := False;
     PunkteZaehler:= 0;
     for X:=0 to BSB do
     for Y:=0 to HSB do
     map[X, Y] := 0;
     kopf := Point(1, 1);
     laengesnake := 3;
     richtung := Point(0, 1);
     map[kopf.X, kopf.Y] := laengesnake;
     neuesfressen;
     bewegungSchlange;
     AktiviereButtons(True);
     ende := False;
     Timer1.Enabled := True;
     Startbild.Visible:=false;
     ZPunkte.Visible:=true;
     APunkte.Visible:=true;
     BtnHoch.Visible:=True;
     BtnLinks.Visible:=True;
     BtnRechts.Visible:=True;
     BtnUnten.Visible:=True;
  end;

Delphi-Quellcode:

procedure TForm1.BtnStartClick(Sender: TObject);
  begin
    Initialisierung;
    PlaySOUND(PChar('.\Rattlesnakerattle.wav'),hInstance,snd_ASync );
  end;

Delphi-Quellcode:

procedure TForm1.BtnBeendenClick(Sender: TObject);
begin
  if (BtnStart.Enabled =false)
    then timer1.Enabled:=false
  else if (MessageBox(0,'Schon fertig gezockt ?!?! // Good Bye :-)' ,'Spielende' ,
  MB_YESNO + MB_ICONQUESTION )=IDYES)then close; Initialisierung;
   if (BtnStart.Enabled =false)
    then timer1.Enabled:=false;
  IF (MessageBox(0, 'Wiederholen ??', 'Spielende', MB_YESNO + MB_ICONQUESTION )=IDNO)
then Initialisierung;
   if (BtnStart.Enabled =false)
    then timer1.Enabled:=false;
    //showMessage ('Schon fertig gezockt ?!?! // Good Bye :-)');
  if (BtnStart.Enabled =false)
  then timer1.Enabled:=false;
if (BtnStart.Enabled =true)
then close;
    BtnStart.Enabled:=true;

[Cueppi]

ja also :

"der Sound wird abgespielt beim Start und beim Beenden, weil du in der BtnBeendenClick BtnStart.Click aufrufst. Ich gehe davon aus, daß du damit wieder neu initialisieren möchtest. Lagere die Initialisierung in eine eigene Prozedure aus und rufe diese explizit auf. Dann ist auch der Sound aus dem Beenden weg. "

das :D

[DeddyH]

Achso, siehe Beitrag 13.

[Cueppi]

jetzt meckert das Programm:

Nicht deklarierter Begriff in zeile 237 - 257 :(

[haentschman]

du mußt natürlich die procedure noch unter private deklarieren... :zwinker:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    map: Array [0..BSB] of Array [0..HSB] of Integer;
    kopf,
    richtung,
    fressen: TPoint;
    LaengeSnake: Integer;
    PunkteZaehler: Integer;
    ende: Boolean;


    procedure AktiviereButtons(status: Boolean);
    procedure FarbeSpielfeld;
    procedure BewegungSchlange;
    procedure NeuesFressen;
    procedure SpielEnde;
    procedure Initialisierung;

  public

[DeddyH]

Stimmt, das muss auch eine Methode sein. Schreib also mal

Delphi-Quellcode:

procedure Initialisierung;

in den private-Abschnitt des Formulars und im implementation-Teil dann

Delphi-Quellcode:

procedure TForm1.Initialisierung;
begin
  //hier der Code
end;

[Cueppi]

es läuft alles wie gewünscht!
super danke :):):)
aber noch zwei fragen:

wie würdet ihr das denn "aufräumen" also, weil eben ja gesagt wurde, das ich sehr kreativ programmiert hab :(

und, ich möchte die schlange mit den Pfeiltasten & "W,A,S,D" steuern können, was muss ich dafür programmieren ??

[Cueppi]

die fertige Datei :)