[Pilot_Red]

Сообщение от Pyro

лабиринт для этой проги...

PHP код:

function rand(chance: byte = 40): Boolean;
begin
  result := random(100) < chance;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j, step, x, y: Integer;
begin
  Button4.Click;
  step := StrToInt(Edit1.Text)*4;
  for i := 0 to (ClientWidth - 1) div step do
  for j := 0 to (ClientHeight - 1) div step do
  begin
    x := i*step;
    y := j*step;
    if rand then
    begin
      FormMouseDown(nil, mbLeft, [ssLeft], x, y);
      FormMouseUp(nil, mbLeft, [ssLeft], x+step, y);
    end;
    if rand then
    begin
      FormMouseDown(nil, mbLeft, [ssLeft], x, y);
      FormMouseUp(nil, mbLeft, [ssLeft], x, y+step);
    end;
  end;
  Button4.Click;
  Button6.Click;
  GroupBox1.Hide;
end; 


Лабиринты это хорошо, но ИМХО для лабиринтов лучше использовать алгоритмы работающие в дискретном пространстве, например волновой! В дискретном тормозов таких не будет