[tristan]

Есть программа Snake и управляется с помощью клавишь (a,s,d,w), можно ли сделать так чтобы червяк(или линия) сама двигалась по экрану без управления, как ему хочется. Вот текст программы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, struct, ExtCtrls;   type   TForm1 = class(TForm)     Timer1: TTimer;     procedure Timer1Timer(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormKeyDown(Sender: TObject; var Key: Word;       Shift: TShiftState);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   Snake   : TSnake;   Buffer : TBitMap;   posX: word; implementation   {$R *.dfm}   procedure TForm1.Timer1Timer(Sender: TObject); var i,j:integer;     newx,newy:integer; begin PatBlt(Buffer.Canvas.Handle, 0, 0, Buffer.Width, Buffer.Height, BLACKNESS);   for i:=1 to AMaxX do for j:=1 to AMaxY do if gameA[i,j]=-1 then begin Buffer.Canvas.Rectangle(i*5,j*5,i*5+5,j*5+5); end;   case Snake.Direction of 1: Snake.Move(Snake.First.X+1,Snake.First.Y); 2: Snake.Move(Snake.First.X,Snake.First.Y+1); 3: Snake.Move(Snake.First.X-1,Snake.First.Y); 4: Snake.Move(Snake.First.X,Snake.First.Y-1); end;   Snake.Draw(Buffer.Canvas);   BitBlt(Form1.Canvas.Handle,0,0,Form1.Width,Form1.Height,Buffer.Canvas.Handle,0,0,SRCCOPY); end;   procedure TForm1.FormCreate(Sender: TObject); var i,j:integer; begin for i:=1 to AMaxX do for j:=1 to AMaxY do GameA[i,j]:=0;   Buffer:=TBitMap.Create; Buffer.Width:=Form1.Width; Buffer.Height:=Form1.Height;   Snake.Create(1,5,10,10,clYellow);   end;   procedure TForm1.FormDestroy(Sender: TObject); begin Snake.Destroy; end;   procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin case key of 87: Snake.SetDirection(4); 68: Snake.SetDirection(1); 65: Snake.SetDirection(3); 83: Snake.SetDirection(2); 27: close; 32: Snake.Remove; 107: Snake.Add; else Form1.Caption:=IntToStr(key); end; end; end.

Админ: Читаем правила форума по оформлению кода!

[lmikle]

В таймере, перед собственно перемещением:

Код:

1	Snake.Direction := Random(4) + 1;

[tristan]

Я поставил вашу строчку после этого кода:

Код:

1 2 3 4 5 6 7

case Snake.Direction of 1: Snake.Move(Snake.First.X+1,Snake.First.Y); 2: Snake.Move(Snake.First.X,Snake.First.Y+1); 3: Snake.Move(Snake.First.X-1,Snake.First.Y); 4: Snake.Move(Snake.First.X,Snake.First.Y-1); end; Snake.Draw(Buffer.Canvas);

и внизу написал вашу строчку и получилась, змейка сама стала ползать так как ей хочется. Большое вам спасибо.