Alguém me ajuda a criar este jogo?

Delphi

12/05/2004

Ao se abrir a janela Jogo a janela principal deve ser ocultada
A janela Jogo deverá apresentar um jogo de corrida com as seguintes características:
a. Os competidores dessa corrida receberão os nomes de cada um dos componentes do grupo (esses nomes devem ser apresentados em Labels).
b. Vence a corrida o competidor que obtiver o valor acumulado igual (ou superior) a 25 (vinte e cinco) em primeiro lugar. Deverá então ser apresentado o nome do competidor vencedor e o número de tentativas até a obtenção da vitória.
c. Cada competidor começa com o valor 0 (zero) armazenado para si. As tentativas acontecem através da geração de números aleatórios (de 1 a 10) para cada um dos competidores. Conforme o número obtido aleatoriamente, utilizar a tabela abaixo:

1 até 3 - Volta uma posição (subtrair um do valor acumulado pelo competidor)

4 até 6 - Não se movimenta (não alterar o valor acumulado pelo competidor)

7 até 9 - Avançar uma posição (adicionar um ao valor acumulado pelo competidor)

10 - Avançar duas posições (adicionar dois ao valor acumulado pelo competidor)

d. As tentativas devem parar quando algum dos competidores obtiver a vitória.

e. Ao se fechar a janela Jogo ela deve ser encerrada (não somente ocultada) e a janela principal aparecer novamente.

Alguem pode me ajudar?


Wgm8

Wgm8

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

12/05/2004

Isso me parece um trabalho de faculdade..

Te ajudar eu posso sim, qual a dúvida??


GOSTEI 0
Wgm8

Wgm8

12/05/2004

Todas possiveis...
Infelismente


GOSTEI 0
Beppe

Beppe

12/05/2004

Eu fiz um ´jogo´ parecido estes dias:

// armadilha por Beppe
// (c) André Felipe Werlang

program armadilha;

var
  T: Integer;
  J, Q, V: Integer;
  Jogs: array[0..10] of Integer;
  D1, D2: Integer;
  T1, T2, T3: Integer;
  Trapped: array[0..10] of Boolean;

function NaArmadilha(P: Integer): Boolean;
begin
  NaArmadilha := (P = T1) or (P = T2) or (P = T3);
end;

procedure Joga(P, D: Integer);
begin
  Inc(Jogs[P], D);
  Trapped[P] := NaArmadilha(Jogs[P]);
end;

function ProxJogador(V: Integer): Integer;
var
  T: Boolean;
begin
  repeat
    V := (V + 1) mod J;
    if V = 0 then
      V := J;
    T := Trapped[V];
    if T then
      Trapped[V] := False;
  until not T;
  ProxJogador := V;
end;

begin
  T := 0;
  Readln(J, Q);
  while J > 0 do
  begin
    T := T + 1;
    FillChar(Jogs, SizeOf(Jogs), 0);
    FillChar(Trapped, SizeOf(Trapped), 0);
    Readln(T1, T2, T3);

    V := J;
    repeat
      V := ProxJogador(V);
      Readln(D1, D2);
      Joga(V, D1 + D2);
    until Jogs[V] > Q;

    Writeln(´Teste ´, T);
    Writeln(V);
    Writeln;
    Readln(J, Q);
  end;
end.


Ele lê a sequência de jogadas do console...no seru caso, vc usa Random(10) + 1, q retornará de 1 até 10. O repeat de dentro faz a jogada do jogador atual, e checa se ele ganhou.


GOSTEI 0
POSTAR