JOGO DE XADREZ EM DELPHI: CAPÍTULO 3 - MOVIMENTO DO BISPO E DA TORRE

Adicionado em 29/01/2023

Compartilhar em:

Bem vindo ao terceiro capítulo do tutorial que ensina como criar um jogo de xadrez em Delphi.

Nessa terceira parte, ensinaremos como mover o bispo e a torre no tabuleiro de xadrez.

Vamos continuar utilizando o nosso tabuleiro desenvolvido na primeira parte desse tutorial (Tutorial 1).

MOVIMENTO DO BISPO

O conceito geral para o movimento de peças continua sendo o mesmo mostrado no Capítulo 2 desse tutorial (Tutorial 2).

Como havíamos feito para o cavalo, temos que criar uma função verdadeiro ou falso (booleana) que irá validar o movimento. Nesse caso, temos que verificar se o movimento do bispo é em diagonal.

Para isso declaramos a função CheckMovBispo(NCol, NLinha): Boolean.

Pressionamos Ctrl+Shift+C para declarar a função no corpo do código. Agora, adicionamos o seguinte código a nossa função:

function TForm1.checkMovBispo(NCol, NLinha: Integer): Boolean; var B : String; I : Integer; begin Result := True; if (Tabuleiro.Cells[Coluna,Linha] = 'b') and (Tabuleiro.Cells[NCol,NLinha][1] in ['p','c','b','t','d','r']) then begin Result := False; Exit; end else if (Tabuleiro.Cells[Coluna,Linha] = 'B') and (Tabuleiro.Cells[NCol,NLinha][1] in ['P','C','B','T','D','R']) then begin Result := False; Exit; end; if abs(NCol-Coluna) = abs(NLinha - Linha) then begin for I := 1 to abs(NCol-Coluna)-1 do if (NCol > Coluna) and (NLinha > Linha) then begin if Tabuleiro.Cells[Coluna+I,Linha+I][1] <> ' ' then begin Result := False; Break; end; end else if (NCol < Coluna) and (NLinha > Linha) then begin if Tabuleiro.Cells[Coluna-I,Linha+I][1] <> ' ' then begin Result := False; Break; end; end else if (NCol > Coluna) and (NLinha < Linha) then begin if Tabuleiro.Cells[Coluna+I,Linha-I][1] <> ' ' then begin Result := False; Break; end; end else if (NCol < Coluna) and (NLinha < Linha) then begin if Tabuleiro.Cells[Coluna-I,Linha-I][1] <> ' ' then begin Result := False; Break; end; end; end else Result := False; end;

Muito do que está escrito nessa função remete aos mesmos conceitos explicados no tutorial anterior para o movimento do cavalo. Dessa forma, explicaremos de forma breve o que foi feito.

Iniciamos a nossa função com um resultado verdadeiro (True) e fazemos uma verificação de movimentos falsos. Caso um movimento seja falso, o que é verificado pelos condicionais, o resultado será falso (False).

A principal diferença que temos aqui em relação ao movimento do cavalo é que o bispo não pode pular peças e o movimento é em diagonal. O movimento diagonal é verificado com o condicional de variação de linha e coluna. Caso a quantidade de linhas que variou no movimento seja igual ao de colunas, então o movimento é diagonal, do contrario, o movimento do bispo não é validado

A segunda parte é verificar se o bispo não pulou outras peças no movimento diagnoal. Para isso fazemos um loop entre a posição inicial e a posição final do bispo e verificar se existe alguma peça entre essas posições. Se houver, o bispo não pode realizar o movimento.

Para fazer essa verificação, utilizamos o loop FOR. Utilizamos quatro condicionais que nos dirão se o movimento está sendo realizado a sudeste, sudoeste, nordeste e noroeste.

Agora, temos que ativar a validação do movimento. Para isso vamos para nosso procedimento TabuleiroMouseUp. Veja detalhes em: Tutorial 2.

Agora, vamos utilizar o condicional Case para encontrar a peça sendo movida (nesse caso o bispo) e verificar o movimento através da função que acabamos de criar. O código deve ficar assim:

case LowerCase(Tabuleiro.Cells[Coluna,Linha])[1] of 'c': PodeMover := checkMovCavalo(NovaColuna,NovaLinha); 'b': PodeMover := checkMovBispo(NovaColuna,NovaLinha); 't': PodeMover := True; 'd': PodeMover := True; 'r': PodeMover := True; 'p': PodeMover := True; end;

Note que a única coisa que modificamos em relação ao capítulo dois é mudar a variável PodeMover de True para nossa função CheckMovBispo.

Nesse momento, se você executar seu código através do botão Run (ou pressionando F9), você verá que o bispo só se moverá nas diagonais e não pulará peças. Como ainda não introduzimos a opção de comer peças, essa opção ainda está desabilitada.

MOVENDO DA TORRE

O movimento da torre, diferente do bispo, é totalmente horizontal ou vertical. Ou seja, se a torre mudar de linha a coluna não pode mudar, e caso mude de coluna, a linha não pode mudar.

Primeiramente, declaramos a função CheckMovBispo(NCol, NLinha: Integer): Boolean logo abaixo da função que declaramos para o bispo, e pressionamos Ctrl+Shift+C para declarar o código.

Agora, adicionamos o seguinte código a função:

function TForm1.checkMovTorre(NCol, NLinha: Integer): Boolean; var I : Integer; begin Result := True; if (Tabuleiro.Cells[Coluna,Linha] = 't') and (Tabuleiro.Cells[NCol,NLinha][1] in ['p','c','b','t','d','r']) then begin Result := False; Exit; end else if (Tabuleiro.Cells[Coluna,Linha] = 'T') and (Tabuleiro.Cells[NCol,NLinha][1] in ['P','C','B','T','D','R']) then begin Result := False; Exit; end; if (((NCol - Coluna) <> 0) and ((NLinha - Linha) = 0)) or (((NCol - Coluna) = 0) and ((NLinha - Linha) <> 0)) then begin if (NCol - Coluna) <> 0 then begin for I := 1 to abs(NCol - Coluna)-1 do if NCol < Coluna then begin if Tabuleiro.Cells[Coluna-I,Linha][1] <> ' ' then begin Result := False; Break; end end else if NCol > Coluna then begin if Tabuleiro.Cells[Coluna+I,Linha][1] <> ' ' then begin Result := False; Break; end; end; end else if (NLinha - Linha) <> 0 then begin for I := 1 to abs(NLinha - Linha)-1 do if NLinha < Linha then begin if Tabuleiro.Cells[Coluna,Linha-I][1] <> ' ' then begin Result := False; Break; end end else if NLinha > Linha then if Tabuleiro.Cells[Coluna,Linha+I][1] <> ' ' then begin Result := False; Break; end; end; end else Result := False; end;

Agora, vamos novamente ao procedimento TabuleiroMouseUp e adicionamos a função a variável PodeMover da Torre, assim como havíamos feito com o Bispo.

Diferente do Bispo, verificamos se a coluna mudou e a linha não e vice-versa. Além disso, novamente adicionamos o loop para verificar se a Torre pulou alguma peça.

Ao executar novamente o software, você poderá ver que a Torre se movimenta tanto na vertical quanto na horizontal e que não pula peças.

No entanto, além de não comer peças, também não adicionamos a condição de que, se a Torre se moveu, não será mais possível realizar Roque. Esse tópico será abordado no movimento do Rei.

O código final desse capítulo deve estar assim:

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, System.ImageList, Vcl.ImgList; type TForm1 = class(TForm) Tabuleiro: TStringGrid; ImageList1: TImageList; procedure TabuleiroDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); procedure PuxarPecas; procedure FormCreate(Sender: TObject); procedure TabuleiroMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TabuleiroMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure TabuleiroMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); //-----MOVIMENTOS DAS PEÇAS function checkMovCavalo(NCol, NLinha: Integer): Boolean; function checkMovBispo(NCol, NLinha: Integer): Boolean; function checkMovTorre(NCol, NLinha: Integer): Boolean; private { Private declarations } public { Public declarations } end; var Form1: TForm1; N,Linha,Coluna : Integer; ComPeca : Boolean; _brancas : Boolean; const DefTab: Array[0..63] of Char = ('t','c','b','d','r','b','c','t','p','p','p','p','p','p','p','p',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','P','P','P','P','P','P','P','P','T','C','B','D','R','B','C','T'); implementation {$R *.dfm} function TForm1.checkMovBispo(NCol, NLinha: Integer): Boolean; var B : String; I : Integer; begin Result := True; if (Tabuleiro.Cells[Coluna,Linha] = 'b') and (Tabuleiro.Cells[NCol,NLinha][1] in ['p','c','b','t','d','r']) then begin Result := False; Exit; end else if (Tabuleiro.Cells[Coluna,Linha] = 'B') and (Tabuleiro.Cells[NCol,NLinha][1] in ['P','C','B','T','D','R']) then begin Result := False; Exit; end; if abs(NCol-Coluna) = abs(NLinha - Linha) then begin for I := 1 to abs(NCol-Coluna)-1 do if (NCol > Coluna) and (NLinha > Linha) then begin if Tabuleiro.Cells[Coluna+I,Linha+I][1] <> ' ' then begin Result := False; Break; end; end else if (NCol < Coluna) and (NLinha > Linha) then begin if Tabuleiro.Cells[Coluna-I,Linha+I][1] <> ' ' then begin Result := False; Break; end; end else if (NCol > Coluna) and (NLinha < Linha) then begin if Tabuleiro.Cells[Coluna+I,Linha-I][1] <> ' ' then begin Result := False; Break; end; end else if (NCol < Coluna) and (NLinha < Linha) then begin if Tabuleiro.Cells[Coluna-I,Linha-I][1] <> ' ' then begin Result := False; Break; end; end; end else Result := False; end; function TForm1.checkMovCavalo(NCol, NLinha: Integer): Boolean; begin Result := False; if (Tabuleiro.Cells[Coluna,Linha] = 'c') and (Tabuleiro.Cells[NCol,NLinha][1] in ['p','c','b','t','d','r']) then Exit else if (Tabuleiro.Cells[Coluna,Linha] = 'C') and (Tabuleiro.Cells[NCol,NLinha][1] in ['P','C','B','T','D','R']) then Exit; if (NCol = Coluna) or (NLinha = Linha) then Exit; if ((abs(NCol-Coluna) = 1) and (abs(NLinha-Linha) = 2)) or ((abs(NCol-Coluna) = 2) and (abs(NLinha-Linha) = 1)) then Result := True; end; function TForm1.checkMovTorre(NCol, NLinha: Integer): Boolean; var I : Integer; begin Result := True; if (Tabuleiro.Cells[Coluna,Linha] = 't') and (Tabuleiro.Cells[NCol,NLinha][1] in ['p','c','b','t','d','r']) then begin Result := False; Exit; end else if (Tabuleiro.Cells[Coluna,Linha] = 'T') and (Tabuleiro.Cells[NCol,NLinha][1] in ['P','C','B','T','D','R']) then begin Result := False; Exit; end; if (((NCol - Coluna) <> 0) and ((NLinha - Linha) = 0)) or (((NCol - Coluna) = 0) and ((NLinha - Linha) <> 0)) then begin if (NCol - Coluna) <> 0 then begin for I := 1 to abs(NCol - Coluna)-1 do if NCol < Coluna then begin if Tabuleiro.Cells[Coluna-I,Linha][1] <> ' ' then begin Result := False; Break; end end else if NCol > Coluna then begin if Tabuleiro.Cells[Coluna+I,Linha][1] <> ' ' then begin Result := False; Break; end; end; end else if (NLinha - Linha) <> 0 then begin for I := 1 to abs(NLinha - Linha)-1 do if NLinha < Linha then begin if Tabuleiro.Cells[Coluna,Linha-I][1] <> ' ' then begin Result := False; Break; end end else if NLinha > Linha then if Tabuleiro.Cells[Coluna,Linha+I][1] <> ' ' then begin Result := False; Break; end; end; end else Result := False; end; procedure TForm1.FormCreate(Sender: TObject); begin PuxarPecas; TabuleiroMouseUp(Sender,mbLeft,[],0,0); _brancas := true; end; procedure TForm1.PuxarPecas; var X,Y : Integer; begin for Y := 0 to 7 do for X := 0 to 7 do Tabuleiro.Cells[X,Y] := DefTab[(Y * 8) + X]; end; procedure TForm1.TabuleiroDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (((ARow mod 2 = 0) and (ACol mod 2 <> 0)) or ((ARow mod 2 <> 0) and (ACol mod 2 = 0))) then begin Tabuleiro.Canvas.Pen.Color := clBlack; Tabuleiro.Canvas.Brush.Color := clGray; end else begin Tabuleiro.Canvas.Pen.Color := clBlack; Tabuleiro.Canvas.Brush.Color := clWhite; end; Tabuleiro.Canvas.FillRect(Rect); case Tabuleiro.Cells[ACol,ARow][1] of 't' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,0,dsTransparent,itImage); 'c' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,1,dsTransparent,itImage); 'b' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,2,dsTransparent,itImage); 'd' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,3,dsTransparent,itImage); 'r' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,4,dsTransparent,itImage); 'p' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,5,dsTransparent,itImage); 'T' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,6,dsTransparent,itImage); 'C' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,7,dsTransparent,itImage); 'B' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,8,dsTransparent,itImage); 'D' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,9,dsTransparent,itImage); 'R' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,10,dsTransparent,itImage); 'P' : ImageList1.Draw(Tabuleiro.Canvas,Rect.Left,Rect.Top,11,dsTransparent,itImage); end; end; procedure TForm1.TabuleiroMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Coluna := X div 41; Linha := Y div 41; N := 12; case Tabuleiro.Cells[Coluna,Linha][1] of 't' : N := 0; 'c' : N := 1; 'b' : N := 2; 'd' : N := 3; 'r' : N := 4; 'p' : N := 5; 'T' : N := 6; 'C' : N := 7; 'B' : N := 8; 'D' : N := 9; 'R' : N := 10; 'P' : N := 11; ' ' : ComPeca := False; end; if ComPeca then begin ImageList1.SetDragImage(N,0,0); ImageList1.BeginDrag(Handle,X,Y); end; end; procedure TForm1.TabuleiroMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ImageList1.DragMove(X,Y); end; procedure TForm1.TabuleiroMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var NovaLinha,NovaColuna,i : Integer; PodeMover: Boolean; newpiece : String; begin NovaColuna := X div 41; NovaLinha := Y div 41; case LowerCase(Tabuleiro.Cells[Coluna,Linha])[1] of 'c': PodeMover := checkMovCavalo(NovaColuna,NovaLinha); 'b': PodeMover := checkMovBispo(NovaColuna,NovaLinha); 't': PodeMover := checkMovTorre(NovaColuna,NovaLinha); 'd': PodeMover := True; 'r': PodeMover := True; 'p': PodeMover := True; end; if (_brancas and (Tabuleiro.Cells[Coluna,Linha][1] in ['P','D','R','B','C','T'])) or (not(_brancas) and (Tabuleiro.Cells[Coluna,Linha][1] in ['p','d','r','b','c','t'])) then if (Tabuleiro.Cells[NovaColuna,NovaLinha] = ' ') and PodeMover then begin Tabuleiro.Cells[NovaColuna,NovaLinha] := Tabuleiro.Cells[Coluna,Linha]; Tabuleiro.Cells[Coluna,Linha] := ' '; _brancas := not _brancas; end; ImageList1.EndDrag; ComPeca := True; Tabuleiro.Repaint; end; end.

É importante ressaltar que esse código foi desenvolvido pelos adminstradores desse site, e a utilização desse código para fins comerciais dependerá da autorização prévia dos autores do código.

Por enquanto é isso pessoal. Em nosso próximo tutorial mostraremos como realizar o movimento da rainha e iniciaremos com o movimento do peão. Espero que vocês tenham e gostado, e se tiverem qualquer dúvida, por favor, entrem em contato.

< Capítulo 2 - Capítulo 4 >