Шахматы Pascal

[yzen]

Нужно сделать шахматы, человек играет с человеком.
Как бы сделать фигуры. Точнее описать их движение.
И связать с доской.
Делаю на Pascal ABC.

program chess;
uses graphabc,events;
var s1,s2,i,j,cl:integer;

procedure kon(xc,yc:integer);
begin
SetBrushColor(clred);
circle(xc,yc,20);
end;

procedure Hide(xx,yy,cl:integer);
begin
  if cl=1 then SetBrushColor(clWhite)
          else SetBrushColor(clBlack);
  FillRect(((xx div 60) *60),((yy div 60) *60),(xx div 60 *60)+60,(yy div 60 *60)+60);
  
end;

procedure figura(xx,yy:integer);
var xc,yc:integer;
begin

hide(xc,yc,cl);
xc:=(xx div 60)*60+30;
yc:=(yy div 60)*60+30;
if odd(((xx+60) div 60)+((yy+60) div 60)) then cl:=0
                                               else cl:=1;

kon(xc,yc);
end;
procedure MouseDown(xx,yy,mb: integer);
begin
  if mb=1 then figura(xx,yy);
end;

procedure doska;
var xc,yc:integer;
begin
s1:=0;
s2:=0;
SetBrushColor(clBlack);
for i:=1 to 8 do   begin
                   for j:=1 to 8 do if  odd(i+j) then begin
                   FillRect(s1,s2,s1+60,s2+60);
                   s1:=s1+60;
                   end
                   else s1:=s1+60;
                   s1:=0;
                   s2:=s2+60;
                   end;
kon(30,30);
SetBrushColor(clWhite);
end;

begin
SetWindowwidth(480);
SetWindowHeight(480);
cl:=1;
doska;
OnMouseDown:=MouseDown;

end.

[pray_driver]

Есть шахматы 92 года выпуска, сделанные командой Borland на языке Borland Pascal под Windows (BPW)

Там полностью открыт исходный код, можно всё посмотреть от начала до конца. Шахматы входят в сэмпл пакета BPW. Ищите пакет на официальных сайтах, и изучайте :-)