Criar quot;cheatquot; para jogo em Delphi

Delphi

10/11/2003

Fala pessoal....

tou com um grande problema...

Estou elaborando um jogo de cartas em Delphi 4.0, mas como todo jogo só fica legal quando tem um código SUPERSECRETO obtido no final para poder jogar com sossego da próxima vez, eu preciso que vocês dêem uma idéia de, quando eu digitar este código na tela do jogo (independente do que esteja acontacendo nela), apareça no TMainMenu(dentro do submenu ´arquivo´) a opção ´não seguir regras´ (a qual eu já elaborei o código :) .....

isto é um trabalho de programação em Delphi... e é para esta sexta.... :( e só falta isto para eu terminar.....

me dêem uma mão Por favor!!!!!!!!!!!!


Pocket

Pocket

Curtidas 0

Respostas

Beppe

Beppe

10/11/2003

const
  Chave = ´SUACHAVESECRETA´; // em maíusculas
var
  Nivel: Integer;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Chave[Nivel + 1] = UpCase(Key) then
  begin
    Inc(Nivel);
    if Nivel = Length(Chave) then NaoSeguirRegras1.Visible := True;
  end else
    Nivel := 0;
end;


Ataliba


GOSTEI 0
Pocket

Pocket

10/11/2003

VALEU MESMO CARA!!!


GOSTEI 0
POSTAR