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

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Progr, Unit3;

{$R *.dfm}

var wc,hc,h,w: integer;fname: string;

pole: array of array of byte;

ex, ey:integer;

stp: array of array of byte;

{(1, 2, 3, 4),(5, 6, 7, 8), (9, 10, 11, 12), (13, 14, 15, 0)}

pic: TBitmap;

procedure TForm1.NewGame;

var

i, j:integer;

begin

try

pic.LoadFromFile(fname);

except