Курсовая работа: Допустимость хода шахматной фигуры

and (image2.Top>=0) and (image2.Top<=448) then begin

image16.Left:=image2.Left; image16.Top:=image2.Top;image16.Show; image16.hide;

k:=image2.left; l:=image2.Top;

image16.left:=k+64; image16.Top:=l-128; image16.show;image16.hide; image16.left:=k-64; image16.Top:=l-128; image16.show;image16.hide; image16.left:=k+64; image16.Top:=l+128; image16.show;image16.hide;

image16.left:=k-64; image16.Top:=l+128; image16.show;image16.hide; image16.left:=k+128; image16.Top:=l+64; image16.show;image16.hide; image16.left:=k-128; image16.Top:=l+64; image16.show;image16.hide;

image16.left:=k+128; image16.Top:=l-64; image16.show;image16.hide; image16.left:=k-128; image16.Top:=l-64; image16.show;image16.hide; end;

if (image3.left>=0) and (image3.left<=448)

and (image3.Top>=0) and (image3.Top<=448) then begin

image16.Left:=image3.Left; image16.Top:=image3.Top;image16.Show; image16.hide;

k:=image3.left; l:=image3.Top;

for i:=1 to 8 do begin

image16.left:=k+64*i; image16.Top:=l+64*i; image16.show;image16.hide; image16.left:=k-64*i;

image16.Top:=l-64*i; image16.show;image16.hide; image16.left:=k-64*i; image16.Top:=l+64*i;

image16.show;image16.hide; image16.left:=k+64*i; image16.Top:=l-64*i; image16.show;image16.hide; end; end;

if (image4.left>=0) and (image4.left<=448)

and (image4.Top>=0) and (image4.Top<=448) then begin

image16.Left:=image4.Left; image16.Top:=image4.Top; image16.Show; image16.hide;

k:=image4.left; l:=image4.Top;

for i:=1 to 8 do begin

image16.left:=k+64*i; image16.Top:=l; image16.show;image16.hide; image16.left:=k-64*i; image16.Top:=l;

image16.show;image16.hide; image16.left:=k; image16.Top:=l+64*i; image16.show;image16.hide;

image16.left:=k; image16.Top:=l-64*i; image16.show;image16.hide; end; end;

if (image5.left>=0) and (image5.left<=448)

and (image5.Top>=0) and (image5.Top<=448) then begin

image16.Left:=image5.Left;

image16.Top:=image5.Top;image16.Show; image16.hide; k:=image5.left; l:=image5.Top;

for i:=1 to 8 do begin

image16.left:=k+64*i; image16.Top:=l+64*i; image16.show;image16.hide; image16.left:=k-64*i;

image16.Top:=l-64*i; image16.show;image16.hide; image16.left:=k-64*i; image16.Top:=l+64*i;