Criar Script/Hack (Modificador de Script ) no Delphi para Grand Chase Season Chaos

[Jυмρ 1]

Bom tutorial simples mais ultil:

 

[video=youtube;1zrVlm8MNJ4]

 

Funciono?Gostou?

Agradeça.

 

Codigos:

Códigos :

 

 

Button 1 - Ativar Auto Kill :

 

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\ai.kom';

ScriptFile:='ai.kom';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Script Ativado com sucesso')

else

Application.MessageBox('Script Não Ativado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

 

ATENÇÃO : APAGUE O BEGIN

 

Button 2 -Desativar Auto Kill :

 

deletefile('C:\Level Up Games\Grand Chase\Stage\AI\ai.kom ');

deletefile('C:\Level Up Games\Grand Chase Season 2\AI\ai.kom ');

deletefile('C:\Level Up Games\Grand Chase Season 3\AI\ai.kom ');

deletefile('C:\Level Up Games\Grand Chase Season Chaos\AI\ai.kom ');

 

Button 3 - Salvar/Editar :

 

if Edit1.Enabled=False then

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

[BlackLook 6]

Reportado, a área certa seria

Delphi / VB

Mas mesmo assim já existe um tutorial destes lá. Abraços.

[raizen12 9]

Tópico em área errada.

 

Fechado.