ZFX + Developia

Code: Alles auswählen

program Snake;

uses
  Forms,
  uSnake;

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Code: Alles auswählen

unit uSnake;

interface
  uses
    Windows, SysUtils, Graphics, Forms, Dialogs, Math, AppEvnts,
    StdCtrls, Classes, Controls, ExtCtrls;

type
  TForm1=class(TForm)
    Timer1: TTimer;
    ApplicationEvent1: TApplicationEvents;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ApplicationEvent1Activate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;
  Fruit, Dir, Dir2: Word;
  Snake: Array of Word;
  Points: Int64;

implementation

{$R *.dfm}

procedure TForm1.ApplicationEvent1Activate(Sender: TObject);
begin
  randomize;
  Canvas.Brush.Color:=clWhite;
  Canvas.FrameRect(Rect(14, 46, 529, 433));
end;

procedure TForm1.Click(Sender:TObject);
var
  i:Integer;
begin
  if Sender=Button1 then begin
    Button1.Hide;
    Button2.Hide;
    Canvas.Brush.Color:=0;
    Canvas.FillRect(Rect(15,47,528,432));
    SetLength(Snake,3);
    for i:=0 to high(Snake) do Snake[i]:=(32+i) shl 8+24;
    Dir:=1;
    Dir2:=Dir;
    Points:=0;
    Fruit:=$FF;
    Timer1.Interval:=150;
    Timer1.Enabled:=true;
  end else Close;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if(Dir<>((Key and 3)+2) mod 4) and (Key>=37) and (Key<=40) then Dir2:=Key and 3;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

  procedure Draw(p: Word; c: TColor=clBlack);
  var
    x, y: Integer;
  begin
    x:=16+p shr 8*8;
    y:=48+p and $FF*8;
    Canvas.Brush.Color:=c;
    Canvas.FillRect(Rect(x, y, 7+x, 7+y));
  end;

  function OnSnake(p:Word):Boolean;
  var
    i:Integer;
  begin
    Result:=false;
    for i:=0 to high(Snake) do if p=Snake[i] then Result:=true;
  end;

var
  i, NewPos, Color: Integer;
begin
  Dir:=Dir2;
  NewPos:=Snake[0]-sign(Dir mod 3-0.5) shl (Dir mod 2*8);
  Label1.Caption:='Punkte: '+inttostr(Points);

  if (NewPos<0) or (NewPos>$3FFF) or (NewPos and $FF>47) or OnSnake(NewPos)then begin
    Timer1.Enabled:=false;
    ShowMessage('Game over!');
    Button1.Show;
    Button2.Show;
    exit;
  end;

  if NewPos=Fruit then begin
    SetLength(Snake, Length(Snake)+1);
    Fruit:=$FF;
    inc(Points,round(2000/(Timer1.Interval+1)));
    Timer1.Interval:=round(Timer1.Interval*0.98);
  end;

  if Fruit=$FF then repeat
    Fruit:=random(64) shl 8+random(48);
  until not OnSnake(Fruit);

  Draw( Fruit, $FFFF );
  Draw( Snake[high(Snake)] );

  for i:= high(Snake) downto 1 do Snake[i]:=Snake[i-1];

  Snake[0]:=NewPos;
  for i:=0 to high(Snake)do begin
    Color:=round((sin(i*2)*0.175+0.625)*50);
    if i=0 then Color:=50;
    Draw(Snake[i], RGB(Color, Color*4, Color));
  end;
end;

end.

Code: Alles auswählen

procedure TF.KD(SN:TObject;var K:W;SH:TShiftState);
begin
  if(D<>((K and 3)+2)mod 4)and(K>=37)and(K<=40)then D2:=K and 3;
end;