Snake Spiel

[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;