{ Desenvolvido por Giovani Da Cruz - showdelphi.com.br }
 
program Robo;
 
{$mode objfpc}{$H+}
 
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
cthreads, {$ENDIF} {$ENDIF}
Classes,
SysUtils,
Console,
windows,
CustApp { you can add units after this };
 
type
 
TDirection = (drTop, drBotton, drLeft, drRight);
 
{ TRobo }
 
TRobo = class(TCustomApplication)
private
FXPosition: integer;
FYPosition: integer;
FDirection: TDirection;
function GetCharDirection: char;
protected
procedure DoRun; override;
public
property Direction: char read GetCharDirection;
property XPosition: integer read FXPosition;
property YPosition: integer read FYPosition;
constructor Create(AOwner: TComponent); override; overload;
constructor Create(AOwner: TComponent; X, Y : Integer; aDirection: TDirection); overload;
procedure DrawScreen;
procedure SetDirection(aDirection: TDirection);
procedure MovRobo();
procedure GiraRobo(Lado: char);
end;
 
const
TAM_LARGURA = 20;
TAM_AUTURA = 16;
 
{ TMyApplication }
 
function TRobo.GetCharDirection: char;
begin
case FDirection of
drBotton: Result := 'V';
drTop: Result := '^';
drLeft: Result := '<';
drRight: Result := '>';
end;
end;
 
procedure TRobo.DoRun;
var
ErrorMsg: string;
begin
 
{ futuramente colocar a parte inicial aqui }
 
 
Terminate;
end;
 
constructor TRobo.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Self.FXPosition := 3;
Self.FYPosition := 8;
SetDirection(drBotton);
end;
 
constructor TRobo.Create(AOwner: TComponent; X, Y: Integer; aDirection: TDirection);
begin
Self.Create(AOwner);
FYPosition:= y;
FXPosition:= x;
SetDirection(aDirection);
end;
 
procedure TRobo.DrawScreen;
var
I, L: integer;
begin
ClrScr;
 
WriteLn('Bem vindo ao jogo do roboWarriors, desenvolvido por Giovani Da Cruz');
 
WriteLn('Comandos:');
WriteLn('R ->faz o robo girar 90 graus para a direita');
WriteLn('L ->faz o robo girar 90 graus para a esquerda');
WriteLn('F ->faz o robo andar para frente');
WriteLn('S ->Termina o programa');
 
{ Montando o cenario }
for I := 0 to TAM_LARGURA do
begin
Write('_');
end;
 
for L := 1 to 5 do
begin
WriteLn('');
 
for I := 0 to TAM_LARGURA do
begin
if I mod 4 = 0 then
Write('|')
else
Write(' ');
end;
 
WriteLn('');
 
for I := 0 to TAM_LARGURA do
begin
if I mod 4 = 0 then
Write('|')
else
Write('_');
end;
end;
 
{ Desenhando o robo }
GotoXY(Self.XPosition, Self.YPosition);
Write(Self.Direction);
 
GotoXY(1, 19);
Write('Esperando o proximo comando: ');
end;
 
procedure TRobo.SetDirection(aDirection: TDirection);
begin
FDirection := aDirection;
end;
 
procedure TRobo.MovRobo;
var
AuxX, AuxY : Integer;
begin
AuxX := FXPosition;
AuxY := FYPosition;
 
case FDirection of
drBotton: AuxY := AuxY + 2;
drTop: AuxY := AuxY - 2;
drLeft: AuxX := AuxX - 4;
drRight: AuxX := AuxX + 4;
end;
 
if (AuxY > TAM_AUTURA) or (AuxX > TAM_LARGURA) or (AuxY < 8) or (AuxX < 3) then
begin
{ Robo batendo na parede }
Beep(850, 500);
end
else
begin
FXPosition := AuxX;
FYPosition := AuxY;
end;
end;
 
procedure TRobo.GiraRobo(Lado: char);
begin
if Lado = 'L' then
begin
case FDirection of
drBotton: SetDirection(drRight);
drTop: SetDirection(drLeft);
drLeft: SetDirection(drBotton);
drRight: SetDirection(drTop);
end;
end;
 
if Lado = 'R' then
begin
case FDirection of
drBotton: SetDirection(drLeft);
drTop: SetDirection(drRight);
drLeft: SetDirection(drTop);
drRight: SetDirection(drBotton);
end;
end;
end;
 
var
Application: TRobo;
Command: char;
x, y : Integer;
posicaoIni : string;
aDirection: TDirection;
begin
{ Lendo X }
repeat
Write('Informe a posicao X [1..5]: ');
Readln(x);
 
if ((x < 1) or (x > 5)) then
begin
WriteLn('X e invalido!');
Write('Enter para informar novamente!');
ReadLn;
end;
until ((x >= 1) and (x <= 5));
 
x := 3 + (x-1)*4;
 
{ Lendo Y }
repeat
Write('Informe a posicao Y [1..5]: ');
Readln(y);
 
if ((y < 1) or (y > 5)) then
begin
WriteLn('Y e invalido!');
Write('Enter para informar novamente!');
ReadLn;
end;
until ((y >= 1) and (y <= 5));
 
y := 8 + (y-1)*2;
 
{ Lendo a posicao inicial do robo }
repeat
Write('Informe a posicao inicial do robo ("cim", "bax", "dir" ou "esq"): ');
ReadLn(posicaoIni);
posicaoIni:= LowerCase(posicaoIni);
 
if ((posicaoIni <> 'cim') and (posicaoIni <> 'bax') and (posicaoIni <> 'dir') and (posicaoIni <> 'esq')) then
begin
WriteLn('Posicao e invalida!');
Write('Enter para informar novamente!');
ReadLn;
end;
until (posicaoIni = 'cim') or (posicaoIni = 'bax') or (posicaoIni = 'dir') or (posicaoIni = 'esq');
 
if (posicaoIni = 'cim') then
aDirection:= drTop;
 
if (posicaoIni = 'bax') then
aDirection:= drBotton;
 
if (posicaoIni = 'dir') then
aDirection:= drRight;
 
if (posicaoIni = 'esq') then
aDirection:= drLeft;
 
{ Iniciando o jogo }
Application := TRobo.Create(nil, x, y, aDirection);
Application.Title := 'Meu Robo - showdelphi.com.br';
Application.Run;
 
Application.DrawScreen;
 
repeat
Command := UpCase(ReadKey);
 
case Command of
'L' : Application.GiraRobo(Command);
'R' : Application.GiraRobo(Command);
'F' : Application.MovRobo();
else
begin
{ Verificar a necessidade de informar comando invalido }
end;
end;
 
Application.DrawScreen;
until Command = 'S';
 
Application.Free;
end.