Die Subdomain hat sich verändert, daher ist der Beispielcode nun hier zu finden:
http://pr0g.net/knowhow/files/snake_src.zip
Ersetz mal den Code von "Button1Click" durch folgenden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
Button1.Enabled := False;
for i:=0 to breite do
for j:=0 to hoehe do
map[i, j] := 0;
kopf := Point(1, 1);
laenge := 5;
richtung := Point(0, 1);
map[kopf.X, kopf.Y] := laenge;
neues_futter;
paint_map;
enable_buttons(True);
ende := False;
Timer1.Enabled := True;
end;