Fórum Criar quot;cheatquot; para jogo em Delphi #194123
10/11/2003
0
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!!!!!!!!!!!!
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!!!!!!!!!!!!
Curtir tópico
+ 0
Responder
Posts
11/11/2003
Beppe
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
Responder
Gostei + 0
11/11/2003
VALEU MESMO CARA!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)