не управляемое движение по двумерному массиву

[Kognor]

Дана матрица n на m
нужно сделать с помощью процедуры не управляемое движение по двумерному массиву для игры, для монстров

[Stilet]

Какого рода движение?

[Kognor]

по квадрату если можно или просто по горизонтали ли вертикали

[Аватар]

И шаг какой?

[Kognor]

у меня один блок 64 на 43
шаг в двумернном масиве нужен сдвиг на 1 единицу по массиву

[Аватар]

Random(4) - 0-влево, 1-вверх, 2-вправо,3-вниз. Если мешает граница - повторить

[newerow1989]

Вот по периметру (образец):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Kvadrat(x,y:integer;c:tColor);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  n=64;
  m=43;
  delta=8;

var
  Form1: TForm1;
  x,y,dx,dy:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Label1.Caption:='';
   Label1.AutoSize:=false;
   Label1.Color:=clWhite;
   Label1.Width:=n*delta;
   Label1.Height:=m*delta;
   x:=0;
   y:=0;
   dx:=1;
   dy:=0;
end;

procedure TForm1.Kvadrat(x, y: integer; c: tColor);
begin
   x:=x*delta;
   y:=y*delta;
   With Label1.Canvas do
   begin
      Pen.Color:=c;
      Brush.Color:=c;
      Rectangle(x,y,x+delta,y+delta);
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Kvadrat(x,y,Label1.Color);
   x:=x+dx;
   y:=y+dy;
   If x>n-1 then
   begin
      x:=x-dx;
      dx:=0;
      dy:=1;
   end;
   If y>m-1 then
   begin
      y:=y-dy;
      dx:=-1;
      dy:=0;
   end;
   If x<0 then
   begin
      x:=x+1;
      dx:=0;
      dy:=-1;
   end;
   If y<0 then
   begin
      y:=y+1;
      dx:=1;
      dy:=0;
   end;
   Kvadrat(x,y,clRed);
end;

end.

Сойдет?