Реферат: Моделирование игровых программ

ex:=x1;

ey:=y1;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

pic:= TBitMap.Create;fname:= 'pic_1.bmp';

H:=4;W:=4;

Formmas;

NewGame;

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

Form1.ShowPole;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form2.ShowModal

end;

procedure TForm1.N2Click(Sender: TObject);

Var i,j:integer;

begin

for i:=1 to H do

for j:=1 to W do

pole[i,j]:= stp[i,j];

Form1.Mixer;