[Tutorial] Criar AutoKill para GrandChase sem Resource. [delphi]

[~ Heatlex. 11]

Bom Galera , o que é criar cheat de gc sem resource ?

.

Só você poderará usar. Uma outra pessoa pode usar se você passar os arquivos KOM para a pasta do cheat.

 

Let's Go Girls .

 

Primeiramente , Adicione os seguintes components :

 

4buttons (aba Standard)

 

1 Edit (aba Standard)

 

2 label (aba Standard)

 

 

Agora Mude o Capition Dos Buttons:

 

Button 1 = Alterar/Salvar Diretório

Button 2 = Verificar Diretório

Button 3 = Ativar Autokill (Ou Somente [Autokill])

Button 4 = Desativar

 

Agora apague tudo que estiver na opção ' text ' do Edit 1 e mude - o para :

 

Label1 = Diretório

 

Códigos :

 

Entre o ' begin ' e o ' end; ' do button1 , adicione :

 

ifEdit1.Enabled=Falsethen

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

 

Button2 , entre o ' begin ' e o ' end; ' adicione :

 

ifDirectoryExists(Edit1.Text)then

ShowMessage('Diretório existente!')

else

Application.MessageBox('Diretório do GrandChase não existe!','ERROR',MB_IConerror);

 

Button3 , esse código tem ' var ' então ' var ' não pode ficar junto com ' begin ' apague o ' begin ' e o ' end; ' e adicione :

 

var

DirFile,ScriptFile:String;

begin

ifEdit1.Enabled=Falsethenbegin

DeleteFile(Edit1.Text+ScriptFile);

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

ScriptFile:='ai.kom';

ifCopyFile(PChar(ScriptFile),PChar(DirFile),false)then

ShowMessage('AutoKill Ativado com Sucesso')

else

Application.MessageBox('O arquivo não foi Encontrado!'+#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;

 

Button4 , esse código tem ' var ' então ' var ' não pode ficar junto com ' begin ' apague o ' begin ' e o ' end; ' e adicione :

 

var

DirFile,ScriptFile:String;

begin

ifEdit1.Enabled=Falsethenbegin

DeleteFile(Edit1.Text+'ai.kom');

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

ScriptFile:='aioff.kom';

ifCopyFile(PChar(ScriptFile),PChar(DirFile),false)then

ShowMessage('Desativado com Sucesso')

else

Application.MessageBox('O arquivo não foi Encontrado!'+#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;

 

Seu AutoKill está pronto (;

 

Agora os Arquivos .kom , crie uma pasta com o nome do seu cheat exemplo : ' Advanced Scripts '

 

KOM do Autokill (o editado) coloque como ' ai '

KOM do Grand Chase (o original ) coloque como ' aioff '

 

Pronto Agora seu Cheat está feito .

 

Creditos : Hurley / HRL .