Ajuda com o madificado de script

[celsokayran 0]

to usando esse codigo no dephil 7

 

if not CopyFile(PChar('Stage/fight_stg.kom'), PChar(edit1.text+'/Stage/fight_stg.kom'), false then

begin

ShowMessage('Erro ao Ativar,Tente Novamente!') end

else

ShowMessage('One hit Ativado com Sucesseso!');

 

so que da uns erros

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

se alguem pode me ajuda fico agradecido

[Surfistinha£ 25]

Aonde ta ali

 

if FileExists(File2+'1.txt') then

 

Muda pra

 

 

if FileExists(File2+'Edit1.txt') then

 

e no edit1 vc renomeia para o local apenas isso

 

C:\Level Up! Games\Grand Chase Season 2

 

e no code File retire C:\Level Up! Games\Grand Chase Season 2 e coloque apenas /Stage/fight_stg.kom

[celsokayran 0]

cara ainda continua dando erro esse edit.txt que eu tenho que renomea onde é?

olha a ss ai como esta.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Ryokusei 28]

Verifique sua sintaxe.

 

if not (CopyFile(PChar('Stage/fight_stg.kom'), PChar(edit1.text+'/Stage/fight_stg.kom'), False)) then

begin

ShowMessage('Erro ao Ativar,Tente Novamente!') end

else

ShowMessage('One hit Ativado com Sucesseso!');

[Surfistinha£ 25]

procedure TForm1.Button1Click(Sender: TObject);

begin

var

 

Retire o Primeiro begin

procedure TForm1.Button1Click(Sender: TObject);

var File1,File2 : string;

begin

 

Agr deu pra entender

[celsokayran 0]

eu entendi so que agora deu esse erro =/

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Surfistinha£ 25]

var

File1 : string;

File2 : string;

begin

File 1 :='Seu Documento'

File 2 :='Sua pasta do gc'

[celsokayran 0]

n mudo em nada

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Surfistinha£ 25]

Malz nao e junto

 

var

File 1 : string;

File 2 : string;

begin

File 1 :='Seu Documento'

File 2 :='Sua pasta do gc'

[celsokayran 0]

deu o mesmo erro sera que é melhor usar essa comando?

 

If FileExists(Edit1.text + '\main.exe') then

begin

CopyFile(PChar('fight_stg.kom'), PChar(Edit1.text + '\Stage\fight_stg.kom'), false);

ShowMessage('Arquivo alterado com sucesso');

end else

begin

ShowMessage('A pasta do grand chase esta incorreta!');

 

essa usei so que da erro no end

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Ryokusei 28]

Cara só tem erro de sintaxe aí, estuda sobre a sintaxe do Delphi senão nunca vai dar certo.

Eu corrigi o código:

 

var

File1, File2: string;

begin

File1:='C:\Documents and Settings\Administrador\Meus Documentos\Nova Pasta\fight_stg.kom';

File2:='C:\Level Up! Games\Grand Chase Season 2\Stage\stage\fight_stg.kon';

CopyFile(PChar(File1), PChar(File2), True);

If FileExists(File2+Edit1.Text) then

Showmessage('Erro ao ativar, tente novamente!')

else

Showmessage('Script MarcLan ativado com sucesso!');

 

A maioria dos seus erros são de sintaxe, não esqueça dos ";".

 

var

File1, File2: string;

begin

File1:='C:\Documents and Settings\Administrador\Meus Documentos\Nova Pasta\fight_stg.kom';

File2:='C:\Level Up! Games\Grand Chase Season 2\Stage\stage\fight_stg.kon';

CopyFile(PChar(File1), PChar(File2), True);

If FileExists(File2+Edit1.Text) then

Showmessage('Erro ao ativar, tente novamente!')

else

Showmessage('Script MarcLan ativado com sucesso!');

[Surfistinha£ 25]

Apaga o end.

 

e coloca o

 

end;

end;

 

end.

 

Assim como ta

 

Pronto acho que resouvi

[Niik 4]

@Surfistinha...

 

Cara tô meio ~~> @_@...

 

Pq na sua video aula não tem esse comando de Injetor???

 

Dah Uma Luuz @_@

[Surfistinha£ 25]

@xxNikxx

 

Na video aula e injhector ess e copyFile

 

na video aula e .Res

[celsokayran 0]

Apaga o end.

 

e coloca o

 

 

Citação:

end;

end;

 

end.

 

obrigado resolveu so que agora quando clico em ativar hack ele diz que o apasta do grand chase esta incorreta, cendo que a pasta do grand chase esta no lugar certo "C:\Level Up! Games\Grand Chase Season 2\Stage" eu tenho que bota algum codigo na label onde ue botei C:\Level Up! Games\Grand Chase Season 2\Stage ?

[Surfistinha£ 25]

C:\Level Up! Games\Grand Chase Season 2\Stages\O hack Script

 

 

Mostra um prewiu ou o code todo