Использование электронно-вычислительной машины, как средства технического образования

turn_ladia:=false;

if

(((le=ls+0*square) and (te=ts+1*square)) or

((le=ls+0*square) and (te=ts+2*square)) and empty_square(te-1*square,le)or

((le=ls+0*square) and (te=ts+3*square)) and empty_square(te-1*square,le)

and empty_square(te-2*square,le)or

((le=ls+0*square) and (te=ts+4*square)) and empty_square(te-1*square,le)

and empty_square(te-2*square,le)

and empty_square(te-3*square,le)or

((le=ls+0*square) and (te=ts+5*square)) and empty_square(te-1*square,le)

and empty_square(te-2*square,le)

and empty_square(te-3*square,le)

and empty_square(te-4*square,le)or

((le=ls+0*square) and (te=ts+6*square)) and empty_square(te-1*square,le)

and empty_square(te-2*square,le)

and empty_square(te-3*square,le)

and empty_square(te-4*square,le)

and empty_square(te-5*square,le)or

((le=ls+0*square) and (te=ts+7*square)) and empty_square(te-1*square,le)

and empty_square(te-2*square,le)

and empty_square(te-3*square,le)

and empty_square(te-4*square,le)

and empty_square(te-5*square,le)

and empty_square(te-6*square,le)or

((le=ls+0*square) and (te=ts+8*square)) and empty_square(te-1*square,le)

and empty_square(te-2*square,le)

and empty_square(te-3*square,le)

and empty_square(te-4*square,le)

and empty_square(te-5*square,le)

and empty_square(te-6*square,le)

and empty_square(te-7*square,le)or

((le=ls+0*square) and (te=ts+9*square)) and empty_square(te-1*square,le)

and empty_square(te-2*square,le)

and empty_square(te-3*square,le)

and empty_square(te-4*square,le)

and empty_square(te-5*square,le)

and empty_square(te-6*square,le)

and empty_square(te-7*square,le)

and empty_square(te-8*square,le)or

((le=ls+0*square) and (te=ts-1*square)) or

((le=ls+0*square) and (te=ts-2*square)) and empty_square(te+1*square,le)or

((le=ls+0*square) and (te=ts-3*square)) and empty_square(te+1*square,le)

and empty_square(te+2*square,le)or

((le=ls+0*square) and (te=ts-4*square)) and empty_square(te+1*square,le)

and empty_square(te+2*square,le)

and empty_square(te+3*square,le)or

((le=ls+0*square) and (te=ts-5*square)) and empty_square(te+1*square,le)

and empty_square(te+2*square,le)

and empty_square(te+3*square,le)

and empty_square(te+4*square,le)or

((le=ls+0*square) and (te=ts-6*square)) and empty_square(te+1*square,le)

and empty_square(te+2*square,le)

and empty_square(te+3*square,le)

and empty_square(te+4*square,le)

and empty_square(te+5*square,le)or

((le=ls+0*square) and (te=ts-7*square)) and empty_square(te+1*square,le)

and empty_square(te+2*square,le)

and empty_square(te+3*square,le)

and empty_square(te+4*square,le)

and empty_square(te+5*square,le)

and empty_square(te+6*square,le)or

((le=ls+0*square) and (te=ts-8*square)) and empty_square(te+1*square,le)

and empty_square(te+2*square,le)

and empty_square(te+3*square,le)

and empty_square(te+4*square,le)

and empty_square(te+5*square,le)

and empty_square(te+6*square,le)

and empty_square(te+7*square,le)or

((le=ls+0*square) and (te=ts-9*square)) and empty_square(te+1*square,le)

and empty_square(te+2*square,le)

and empty_square(te+3*square,le)

and empty_square(te+4*square,le)

and empty_square(te+5*square,le)

and empty_square(te+6*square,le)

and empty_square(te+7*square,le)

and empty_square(te+8*square,le)or

((te=ts+0*square) and (le=ls+1*square)) or

((te=ts+0*square) and (le=ls+2*square)) and empty_square(te,le-1*square)or

((te=ts+0*square) and (le=ls+3*square)) and empty_square(te,le-1*square)

and empty_square(te,le-2*square)or

((te=ts+0*square) and (le=ls+4*square)) and empty_square(te,le-1*square)

and empty_square(te,le-2*square)

and empty_square(te,le-3*square)or

((te=ts+0*square) and (le=ls+5*square)) and empty_square(te,le-1*square)

and empty_square(te,le-2*square)

and empty_square(te,le-3*square)

and empty_square(te,le-4*square)or

((te=ts+0*square) and (le=ls+6*square)) and empty_square(te,le-1*square)

and empty_square(te,le-2*square)

and empty_square(te,le-3*square)

and empty_square(te,le-4*square)

and empty_square(te,le-5*square)or

((te=ts+0*square) and (le=ls+7*square)) and empty_square(te,le-1*square)

and empty_square(te,le-2*square)

and empty_square(te,le-3*square)

and empty_square(te,le-4*square)

and empty_square(te,le-5*square)

and empty_square(te,le-6*square)or

((te=ts+0*square) and (le=ls+8*square)) and empty_square(te,le-1*square)

and empty_square(te,le-2*square)

and empty_square(te,le-3*square)

and empty_square(te,le-4*square)

and empty_square(te,le-5*square)

and empty_square(te,le-6*square)

and empty_square(te,le-7*square)or

((te=ts+0*square) and (le=ls+9*square)) and empty_square(te,le-1*square)

and empty_square(te,le-2*square)

and empty_square(te,le-3*square)

and empty_square(te,le-4*square)

and empty_square(te,le-5*square)

and empty_square(te,le-6*square)

and empty_square(te,le-7*square)

and empty_square(te,le-8*square)or

((te=ts+0*square) and (le=ls-1*square)) or

((te=ts+0*square) and (le=ls-2*square)) and empty_square(te,le+1*square)or

((te=ts+0*square) and (le=ls-3*square)) and empty_square(te,le+1*square)

and empty_square(te,le+2*square)or

((te=ts+0*square) and (le=ls-4*square)) and empty_square(te,le+1*square)

and empty_square(te,le+2*square)

and empty_square(te,le+3*square)or

((te=ts+0*square) and (le=ls-5*square)) and empty_square(te,le+1*square)

and empty_square(te,le+2*square)

and empty_square(te,le+3*square)

and empty_square(te,le+4*square)or

((te=ts+0*square) and (le=ls-6*square)) and empty_square(te,le+1*square)

and empty_square(te,le+2*square)

and empty_square(te,le+3*square)

and empty_square(te,le+4*square)

and empty_square(te,le+5*square)or

((te=ts+0*square) and (le=ls-7*square)) and empty_square(te,le+1*square)

and empty_square(te,le+2*square)

and empty_square(te,le+3*square)

and empty_square(te,le+4*square)

and empty_square(te,le+5*square)

and empty_square(te,le+6*square)or

((te=ts+0*square) and (le=ls-8*square)) and empty_square(te,le+1*square)

and empty_square(te,le+2*square)

and empty_square(te,le+3*square)

and empty_square(te,le+4*square)

and empty_square(te,le+5*square)

and empty_square(te,le+6*square)

and empty_square(te,le+7*square)or

((te=ts+0*square) and (le=ls-9*square)) and empty_square(te,le+1*square)

and empty_square(te,le+2*square)

and empty_square(te,le+3*square)

and empty_square(te,le+4*square)

and empty_square(te,le+5*square)

and empty_square(te,le+6*square)

and empty_square(te,le+7*square)

and empty_square(te,le+8*square))

then turn_ladia:=true

end;

//------------------------------------------------------------------------------

function TForm1.turn_horse (ts,ls,te,le:integer):boolean;

begin //Ходы лошадок

turn_horse:=false;

if

(((le=ls+1*square) and (te=ts+2*square)) or

((le=ls-1*square) and (te=ts+2*square)) or

((le=ls+1*square) and (te=ts-2*square)) or

((le=ls-1*square) and (te=ts-2*square)) or

((le=ls+2*square) and (te=ts+1*square)) or

((le=ls+2*square) and (te=ts-1*square)) or

((le=ls-2*square) and (te=ts+1*square)) or

((le=ls-2*square) and (te=ts-1*square)))

then turn_horse:=true;

end;

//------------------------------------------------------------------------------

function TForm1.turn_elefant (ts,ls,te,le:integer):boolean;

begin //Описание ходов слонов (оф)

turn_elefant:=false;

if

(((le=ls+1*square) and (te=ts+1*square)) or

((le=ls+2*square) and (te=ts+2*square)) and empty_square(te-1*square,le-1*square)or

((le=ls+3*square) and (te=ts+3*square)) and empty_square(te-1*square,le-1*square)

and empty_square(te-2*square,le-2*square)or

((le=ls+4*square) and (te=ts+4*square)) and empty_square(te-1*square,le-1*square)

and empty_square(te-2*square,le-2*square)

and empty_square(te-3*square,le-3*square)or

((le=ls+5*square) and (te=ts+5*square)) and empty_square(te-1*square,le-1*square)

and empty_square(te-2*square,le-2*square)

and empty_square(te-3*square,le-3*square)

and empty_square(te-4*square,le-4*square)or

((le=ls+6*square) and (te=ts+6*square)) and empty_square(te-1*square,le-1*square)

and empty_square(te-2*square,le-2*square)

and empty_square(te-3*square,le-3*square)

and empty_square(te-4*square,le-4*square)

and empty_square(te-5*square,le-5*square)or

((le=ls+7*square) and (te=ts+7*square)) and empty_square(te-1*square,le-1*square)

and empty_square(te-2*square,le-2*square)

and empty_square(te-3*square,le-3*square)

and empty_square(te-4*square,le-4*square)

and empty_square(te-5*square,le-5*square)

and empty_square(te-6*square,le-6*square)or

((le=ls+8*square) and (te=ts+8*square)) and empty_square(te-1*square,le-1*square)

and empty_square(te-2*square,le-2*square)

and empty_square(te-3*square,le-3*square)

and empty_square(te-4*square,le-4*square)

and empty_square(te-5*square,le-5*square)

and empty_square(te-6*square,le-6*square)

and empty_square(te-7*square,le-7*square)or

((le=ls+9*square) and (te=ts+9*square)) and empty_square(te-1*square,le-1*square)

and empty_square(te-2*square,le-2*square)

and empty_square(te-3*square,le-3*square)

and empty_square(te-4*square,le-4*square)

and empty_square(te-5*square,le-5*square)

and empty_square(te-6*square,le-6*square)

and empty_square(te-7*square,le-7*square)

and empty_square(te-8*square,le-8*square)or

((le=ls+1*square) and (te=ts-1*square)) or

((le=ls+2*square) and (te=ts-2*square)) and empty_square(te+1*square,le-1*square)or

((le=ls+3*square) and (te=ts-3*square)) and empty_square(te+1*square,le-1*square)

and empty_square(te+2*square,le-2*square)or

((le=ls+4*square) and (te=ts-4*square)) and empty_square(te+1*square,le-1*square)

and empty_square(te+2*square,le-2*square)

and empty_square(te+3*square,le-3*square)or

((le=ls+5*square) and (te=ts-5*square)) and empty_square(te+1*square,le-1*square)

and empty_square(te+2*square,le-2*square)

and empty_square(te+3*square,le-3*square)

and empty_square(te+4*square,le-4*square)or

((le=ls+6*square) and (te=ts-6*square)) and empty_square(te+1*square,le-1*square)

and empty_square(te+2*square,le-2*square)

and empty_square(te+3*square,le-3*square)

and empty_square(te+4*square,le-4*square)

and empty_square(te+5*square,le-5*square)or

((le=ls+7*square) and (te=ts-7*square)) and empty_square(te+1*square,le-1*square)

and empty_square(te+2*square,le-2*square)

and empty_square(te+3*square,le-3*square)

and empty_square(te+4*square,le-4*square)

and empty_square(te+5*square,le-5*square)

and empty_square(te+6*square,le-6*square)or

((le=ls+8*square) and (te=ts-8*square)) and empty_square(te+1*square,le-1*square)

and empty_square(te+2*square,le-2*square)

and empty_square(te+3*square,le-3*square)

and empty_square(te+4*square,le-4*square)

and empty_square(te+5*square,le-5*square)

and empty_square(te+6*square,le-6*square)

and empty_square(te+7*square,le-7*square)or

((le=ls+9*square) and (te=ts-9*square)) and empty_square(te+1*square,le-1*square)

and empty_square(te+2*square,le-2*square)

and empty_square(te+3*square,le-3*square)

and empty_square(te+4*square,le-4*square)

and empty_square(te+5*square,le-5*square)

and empty_square(te+6*square,le-6*square)

and empty_square(te+7*square,le-7*square)

and empty_square(te+8*square,le-8*square)or

((te=ts-1*square) and (le=ls-1*square)) or

((te=ts-2*square) and (le=ls-2*square)) and empty_square(te+1*square,le+1*square)or

((te=ts-3*square) and (le=ls-3*square)) and empty_square(te+1*square,le+1*square)

and empty_square(te+2*square,le+2*square)or

((te=ts-4*square) and (le=ls-4*square)) and empty_square(te+1*square,le+1*square)

and empty_square(te+2*square,le+2*square)

and empty_square(te+3*square,le+3*square)or

((te=ts-5*square) and (le=ls-5*square)) and empty_square(te+1*square,le+1*square)

and empty_square(te+2*square,le+2*square)

and empty_square(te+3*square,le+3*square)

and empty_square(te+4*square,le+4*square)or

((te=ts-6*square) and (le=ls-6*square)) and empty_square(te+1*square,le+1*square)

and empty_square(te+2*square,le+2*square)

and empty_square(te+3*square,le+3*square)

and empty_square(te+4*square,le+4*square)

and empty_square(te+5*square,le+5*square)or

((te=ts-7*square) and (le=ls-7*square)) and empty_square(te+1*square,le+1*square)

and empty_square(te+2*square,le+2*square)

and empty_square(te+3*square,le+3*square)

and empty_square(te+4*square,le+4*square)

and empty_square(te+5*square,le+5*square)

and empty_square(te+6*square,le+6*square)or

((te=ts-8*square) and (le=ls-8*square)) and empty_square(te+1*square,le+1*square)

and empty_square(te+2*square,le+2*square)

and empty_square(te+3*square,le+3*square)

and empty_square(te+4*square,le+4*square)

and empty_square(te+5*square,le+5*square)

and empty_square(te+6*square,le+6*square)

and empty_square(te+7*square,le+7*square)or

((te=ts-9*square) and (le=ls-9*square)) and empty_square(te+1*square,le+1*square)

and empty_square(te+2*square,le+2*square)

and empty_square(te+3*square,le+3*square)

and empty_square(te+4*square,le+4*square)

and empty_square(te+5*square,le+5*square)

and empty_square(te+6*square,le+6*square)

and empty_square(te+7*square,le+7*square)

and empty_square(te+8*square,le+8*square)or

((te=ts+1*square) and (le=ls-1*square)) or

((te=ts+2*square) and (le=ls-2*square)) and empty_square(te-1*square,le+1*square)or

((te=ts+3*square) and (le=ls-3*square)) and empty_square(te-1*square,le+1*square)

and empty_square(te-2*square,le+2*square)or

((te=ts+4*square) and (le=ls-4*square)) and empty_square(te-1*square,le+1*square)

and empty_square(te-2*square,le+2*square)

and empty_square(te-3*square,le+3*square)or

((te=ts+5*square) and (le=ls-5*square)) and empty_square(te-1*square,le+1*square)

and empty_square(te-2*square,le+2*square)

and empty_square(te-3*square,le+3*square)

and empty_square(te-4*square,le+4*square)or

((te=ts+6*square) and (le=ls-6*square)) and empty_square(te-1*square,le+1*square)

and empty_square(te-2*square,le+2*square)

and empty_square(te-3*square,le+3*square)

and empty_square(te-4*square,le+4*square)

and empty_square(te-5*square,le+5*square)or

((te=ts+7*square) and (le=ls-7*square)) and empty_square(te-1*square,le+1*square)

and empty_square(te-2*square,le+2*square)

and empty_square(te-3*square,le+3*square)

and empty_square(te-4*square,le+4*square)

and empty_square(te-5*square,le+5*square)

and empty_square(te-6*square,le+6*square)or

((te=ts+8*square) and (le=ls-8*square)) and empty_square(te-1*square,le+1*square)

and empty_square(te-2*square,le+2*square)

and empty_square(te-3*square,le+3*square)

and empty_square(te-4*square,le+4*square)

and empty_square(te-5*square,le+5*square)

and empty_square(te-6*square,le+6*square)

and empty_square(te-7*square,le+7*square)or

((te=ts+9*square) and (le=ls-9*square)) and empty_square(te-1*square,le+1*square)

and empty_square(te-2*square,le+2*square)

and empty_square(te-3*square,le+3*square)

and empty_square(te-4*square,le+4*square)

and empty_square(te-5*square,le+5*square)

and empty_square(te-6*square,le+6*square)

and empty_square(te-7*square,le+7*square)

and empty_square(te-8*square,le+8*square))

then turn_elefant:=true

end;

//------------------------------------------------------------------------------

// слон

function TForm1.turn_dragon(ts,ls,te,le:integer):boolean;

begin

turn_dragon:=false;

if

(((le=ls+0*square) and (te=ts+1*square)) or

((le=ls+0*square) and (te=ts+2*square)) or

((le=ls+0*square) and (te=ts-1*square)) or

((le=ls+0*square) and (te=ts-2*square)) or

((le=ls+1*square) and (te=ts+0*square)) or

((le=ls+2*square) and (te=ts+0*square)) or

((le=ls-1*square) and (te=ts+0*square)) or

((le=ls-2*square) and (te=ts+0*square)) or

((le=ls+1*square) and (te=ts+1*square)) or

((le=ls-1*square) and (te=ts+1*square)) or

((le=ls+2*square) and (te=ts+2*square)) or

((le=ls-2*square) and (te=ts+2*square)) or

((le=ls+1*square) and (te=ts-1*square)) or

(le=ls-1*square) and (te=ts-1*square)) or

((le=ls+2*square) and (te=ts-2*square)) or

((le=ls-2*square) and (te=ts-2*square)))

then turn_dragon:=true

end;

//------------------------------------------------------------------------------

// Право ходов всех фигур

function TForm1.rule_square (ts,ls,te,le:integer):boolean;

begin

rule_square:=false;

case selection of

0: rule_square:=false;

// Белые пешки

1..10:

case mutant[selection] of

'l': rule_square:=turn_ladia(ts,ls,te,le);

'h': rule_square:=turn_horse(ts,ls,te,le);

'e': rule_square:=turn_elefant(ts,ls,te,le);

'd': rule_square:=turn_dragon(ts,ls,te,le);

'f': rule_square:=turn_ladia(ts,ls,te,le) or turn_elefant(ts,ls,te,le);

else begin

if (le=ls) then begin

if (te=ts-square) and empty_square(te,le)then rule_square:=true;

if (ts=a2.top) and (te=ts-2*square) and empty_square(te,le) and empty_square(te+1*square,le) and (game<>25)

or (ts=a2.top) and (te=ts-1*square) and (game=25)

or (ts=a2.top) and (te=ts-3*square) and empty_square(te,le) and empty_square(te+1*square,le) and empty_square(te+2*square,le)and (game=100)

then begin turn_prohod:=0; sel_prohod:=selection; t_prohod:=te+square;

l_prohod:=le; rule_square:=true; end;

end;

if ((le=ls+square)or(le=ls-square))and (te=ts-square)and not (empty_square(te,le))

then flag:=true;

if flag then rule_square:=true;

if (turn_prohod=1) and(t_prohod=ts-square) and ((l_prohod=ls+square)or (l_prohod=ls-square)) then

begin

fgname[sel_prohod].hide;

sharchil.caption:='Черная пешка взята на проходе';

rule_square:=true;

end;

end;

end;

// Черные пешки

11..20: begin

case mutant[selection] of

'l': rule_square:=turn_ladia(ts,ls,te,le);

'h': rule_square:=turn_horse(ts,ls,te,le);

'e': rule_square:=turn_elefant(ts,ls,te,le);

'f': rule_square:=turn_ladia(ts,ls,te,le) or turn_elefant(ts,ls,te,le);

else begin

if (le=ls) then begin

if (te=ts+square) and empty_square(te,le)

or (ts=a9.top) and (te=ts+2*square) and empty_square(te,le) and empty_square(te-1*square,le) and (game<>25)

then rule_square:=true;

if (ts=a9.top) and (te=ts+3*square) and empty_square(te,le) and empty_square(te-1*square,le) and empty_square(te-2*square,le)

or (ts=a4.top) and (te=ts+1*square) and (game=25)

or (ts=a7.top) and (te=ts+2*square) and empty_square(te,le) and empty_square(te-1*square,le) and (game=64)

then begin turn_prohod:=0; sel_prohod:=selection; t_prohod:=te-square; l_prohod:=le; rule_square:=true; end;

end;

if ((le=ls+square)or(le=ls-square))and (te=ts+square)and not (empty_square(te,le))

then flag:=true;

if flag then rule_square:=true;

if (turn_prohod=1) and(t_prohod=ts+square) and ((l_prohod=ls+square)or (l_prohod=ls-square)) then

begin

fgname[sel_prohod].hide;

sharchil.caption:='Белая пешка взята на проходе';

rule_square:=true;

end;

end;

end;

end;

//Короли

39,40: begin

if

((le=ls+0*square) and (te=ts+1*square)) or

((le=ls+0*square) and (te=ts-1*square)) or

((le=ls+1*square) and (te=ts+0*square)) or

((le=ls+1*square) and (te=ts+1*square)) or

((le=ls+1*square) and (te=ts-1*square)) or

((le=ls-1*square) and (te=ts+0*square)) or

((le=ls-1*square) and (te=ts+1*square)) or

((le=ls-1*square) and (te=ts-1*square))

then rule_square:=true

end;

//Короли -- конец

37,38: rule_square:=turn_ladia(ts,ls,te,le) or turn_elefant(ts,ls,te,le);

33,34,35,36: rule_square:=turn_elefant(ts,ls,te,le);

29,30,31,32: rule_square:=turn_ladia(ts,ls,te,le);

25,26,27,28: rule_square:=turn_horse(ts,ls,te,le);

end;

end;

//---------------------------------------------------------------------------//

procedure TForm1.Figure(img: Pic; str1:string; sel,color:integer);

{color: 1=white; -1=black} // При выборе фигуры

var i,j:byte;

begin

oldkletki;

if (turn=-1*color) and rule_square(t,l,img.top,img.left) then

begin

sharchil.caption:='Взят'+str1;

img.hide;

t:=img.top;

l:=img.left;

prSquare;

exit;

end;

if turn=(1*color) then

begin

fgname[selection].Picture.LoadFromFile(fgico[selection]+'.ico');

img.Picture.LoadFromFile(fgico[sel]+'_s.ico');

t:=img.top;

l:=img.left;

selection:=sel;

sharchil.caption:='Выбран'+str1;

for i:=1 to 10 do

for j:=1 to 10 do

begin

if rule_square (img.top,img.left,squares[i,j].top,squares[i,j].left)

then begin

// squarico[i,j]:='_pic\sq_r.ico';

// squares[i,j].Picture.LoadFromFile(squarico[i,j])

end;

end;

end;

end;

// Фигуры -- начало

procedure TForm1.w_Peshka_01(Sender: TObject);

begin Figure(@p_w_01,'а белая пешка',1,1);end;

procedure TForm1.w_Peshka_02(Sender: TObject);

begin Figure(@p_w_02,'а белая пешка',2,1);end;

procedure TForm1.w_Peshka_03(Sender: TObject);

begin Figure(@p_w_03,'а белая пешка',3,1);end;

procedure TForm1.w_Peshka_04(Sender: TObject);

begin Figure(@p_w_04,'а белая пешка',4,1);end;

procedure TForm1.w_Peshka_05(Sender: TObject);

begin Figure(@p_w_05,'а белая пешка',5,1);end;

procedure TForm1.w_Peshka_06(Sender: TObject);

begin Figure(@p_w_06,'а белая пешка',6,1);end;

procedure TForm1.w_Peshka_07(Sender: TObject);

begin Figure(@p_w_07,'а белая пешка',7,1);end;

procedure TForm1.w_Peshka_08(Sender: TObject);

begin Figure(@p_w_08,'а белая пешка',8,1);end;

procedure TForm1.w_Peshka_09(Sender: TObject);

begin Figure(@p_w_09,'а белая пешка',9,1);end;

procedure TForm1.w_Peshka_10(Sender: TObject);

begin Figure(@p_w_10,'а белая пешка',10,1);end;

procedure TForm1.b_Peshka_01(Sender: TObject);

begin Figure(@p_b_01,'а черная пешка',11,-1);end;

procedure TForm1.b_Peshka_02(Sender: TObject);

begin Figure(@p_b_02,'а черная пешка',12,-1);end;

procedure TForm1.b_Peshka_03(Sender: TObject);

begin Figure(@p_b_03,'а черная пешка',13,-1);end;

procedure TForm1.b_Peshka_04(Sender: TObject);

begin Figure(@p_b_04,'а черная пешка',14,-1);end;

procedure TForm1.b_Peshka_05(Sender: TObject);

begin Figure(@p_b_05,'а черная пешка',15,-1);end;

procedure TForm1.b_Peshka_06(Sender: TObject);

begin Figure(@p_b_06,'а черная пешка',16,-1);end;

procedure TForm1.b_Peshka_07(Sender: TObject);

begin Figure(@p_b_07,'а черная пешка',17,-1);end;

procedure TForm1.b_Peshka_08(Sender: TObject);

begin Figure(@p_b_08,'а черная пешка',18,-1);end;

procedure TForm1.b_Peshka_09(Sender: TObject);

begin Figure(@p_b_09,'а черная пешка',19,-1);end;

procedure TForm1.b_Peshka_10(Sender: TObject);

begin Figure(@p_b_10,'а черная пешка',20,-1);end;

procedure TForm1.b_Dragon_l(Sender: TObject);

begin Figure(@d_b_l,' черный дракон',23,-1);end;

procedure TForm1.b_Dragon_r(Sender: TObject);

begin Figure(@d_b_r,' черный дракон',24,-1);end;

procedure TForm1.w_Horse_l(Sender: TObject);

begin Figure(@h_w_l,' белый конь',25,1);end;

procedure TForm1.w_Horse_r(Sender: TObject);

begin Figure(@h_w_r,' белый конь',26,1);end;

procedure TForm1.b_Horse_l(Sender: TObject);

begin Figure(@h_b_l,' черный конь',27,-1);end;

procedure TForm1.b_Horse_r(Sender: TObject);

begin Figure(@h_b_r,' черный конь',28,-1);end;

procedure TForm1.w_Ladia_l(Sender: TObject);

begin Figure(@l_w_l,'а белая ладья',29,1);end;

procedure TForm1.w_Ladia_r(Sender: TObject);

begin Figure(@l_w_r,'а белая ладья',30,1);end;

procedure TForm1.b_Ladia_l(Sender: TObject);

begin Figure(@l_b_l,'а черная ладья',31,-1);end;

procedure TForm1.b_Ladia_r(Sender: TObject);

begin Figure(@l_b_r,'а черная ладья',32,-1);end;

procedure TForm1.w_Elefant_l(Sender: TObject);

begin Figure(@e_w_l,' белый слон',33,1);end;

procedure TForm1.w_Elefant_r(Sender: TObject);

begin Figure(@e_w_r,' белый слон',34,1);end;

procedure TForm1.b_Elefant_l(Sender: TObject);

begin Figure(@e_b_l,' черный слон',35,-1);end;

procedure TForm1.b_Elefant_r(Sender: TObject);

begin Figure(@e_b_r,' черный слон',36,-1);end;

procedure TForm1.w_Ferz(Sender: TObject);

begin Figure(@f_w,' белый ферзь',37,1);end;

procedure TForm1.b_Ferz(Sender: TObject);

begin Figure(@f_b,' черный ферзь',38,-1);end;

procedure TForm1.w_King(Sender: TObject);

begin Figure(@k_w,' белый король',39,1);end;

procedure TForm1.b_King(Sender: TObject);

begin Figure(@k_b,' черный король',40,-1);end;

// Фигуры -- конец

//------------------------------------------------------------------------------

procedure TForm1.line8;

begin

liner:=turn;

turn:=0;

sharchil.caption:='Выберите новую фигуру';

vibor1.show;

vibor2.show;

vibor3.show;

if game=100 then vibor4.show;

vibor5.show;

case liner of

-1: begin

vibor1.Picture.LoadFromFile('_pic\l_w.ico');

vibor2.Picture.LoadFromFile('_pic\h_w.ico');

vibor3.Picture.LoadFromFile('_pic\e_w.ico');

vibor4.Picture.LoadFromFile('_pic\d_w.ico');

vibor5.Picture.LoadFromFile('_pic\f_w.ico');

end;

1: begin

vibor1.Picture.LoadFromFile('_pic\l_b.ico');

vibor2.Picture.LoadFromFile('_pic\h_b.ico');

vibor3.Picture.LoadFromFile('_pic\e_b.ico');

vibor4.Picture.LoadFromFile('_pic\d_b.ico');

vibor5.Picture.LoadFromFile('_pic\f_b.ico');

end;

end

end;

//------------------------------------------------------------------------------

//загрузка режимов фигуры

procedure TForm1.Fig(img: Pic);

begin

turn:=turn*(-1);

img.top:=t;

img.left:=l;

if (mutant[selection] ='p') and (

((selection in [1..10]) and (game=100) and (img.top=a10.top)) or

((selection in [1..10]) and (game=64) and (img.top=a8.top)) or

((selection in [1..10]) and (game=25) and (img.top=a5.top)) or

((selection in [11..20]) and (img.top=a1.top))) then line8;

fgname[selection].Picture.LoadFromFile(fgico[selection]+'.ico');

if turn<>0 then selection:=0;

flag:=false;

end;

//------------------------------------------------------------------------------

// Сообщение о очередности ходов(справо)

procedure TForm1.prSquare;

begin

if rule_square(fgname[selection].top,fgname[selection].left,t,l) then Fig(fgname[selection]);

case turn of

1: begin

lab_turn.caption:='Ход белых';

end;

-1: begin

lab_turn.caption:='Ход черных';

end;

end;

turn_prohod:=turn_prohod+1;

if turn_prohod>30000 then turn_prohod:=2;

end;

//------------------------------------------------------------------------------

procedure TForm1.N12Click(Sender: TObject);

begin

chess64;

end;

//Изменение цвета фигуры при ее выделении

procedure TForm1.end_vibor(ch:char);

begin

case liner of

-1: begin

mutant[selection]:=ch;

fgico[selection]:='_pic\'+ch+'_w';

end;

1: begin

mutant[selection]:=ch;

fgico[selection]:='_pic\'+ch+'_b';

end;end;

fgname[selection].Picture.LoadFromFile(fgico[selection]+'.ico');

turn:=liner;

vibor1.hide;

vibor2.hide;

vibor3.hide;

vibor4.hide;

vibor5.hide;

end;

procedure TForm1.vibor_l(Sender: TObject);

begin end_vibor('l'); end;

procedure TForm1.vibor_h(Sender: TObject);

begin end_vibor('h'); end;

procedure TForm1.vibor_e(Sender: TObject);

begin end_vibor('e'); end;

procedure TForm1.vibor_d(Sender: TObject);

begin end_vibor('d'); end;

procedure TForm1.vibor_f(Sender: TObject);

begin end_vibor('f'); end;

end.

Размещено на Allbest.ru

...