[Tutorial]Crie seu haker de GRAD CHASE [Sem Resourse]

[rocha1001 0]

Olá, Vim mostrar para vocês da WEB cheats como criar seu proprio haker de Grand Chase SEM RESOURSE....

 

Mas Pq sem resourse?

Pq aki em casa não funfa a resourse e eu tive que fazer sem

Qual a diferença?

Soh vc poderar usar... soh dá pra outra pessoa usar se vc por os seus KOMs na pasta do haker e mandar, mas assim vc vai estar dando todo o seu trabalho que são os KOMs!

 

Vamos começar:

 

Abra o Delphi e ponha:

Obrigatório:

4buttons (aba Standard)

1 Edit (aba Standard)

2 label (aba Standard)

 

Opcional:

Xp Manifest (aba Win 32)

1 Image (aba Additional

Organize para ficar mais ou menos assim:

 

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 tiver dentro ta parte TEXT do Edit 1 e mude os label para:

Label1 = Diretório

 

Opicional:

Label2 = Creditos (os Seus Pq eh vc que vai fazer o haker eu sou vou ensinar)

 

Ficará assim :

 

 

Agora vamos aos CODIGOS:

 

Apague Tudo e Ponha:

 

Button1:

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Enabled=False then

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

end;

 

Button2:

procedure TForm1.Button2Click(Sender: TObject);

begin

if DirectoryExists(Edit1.Text) then

ShowMessage('Diretório existente!')

else

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

end;

 

Button3:

procedure TForm1.Button3Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

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

ScriptFile:='ai.kom';

if CopyFile(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:

procedure TForm1.Button4Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

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

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

ScriptFile:='aioff.kom';

if CopyFile(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;

 

PRONTO =)

 

Agora os KOMS:

Oque eu fasso com eles ?

Ponha os Koms na pasta do Haker Assim:

 

KOM do Autokill (o editado) ponha como o nome 'ai' (sem as aspas[''])

KOM do Grand Chase (o SEM editado) ponha como o nome 'aioff' (sem as aspas[''])

 

 

Se Eu quizer Faser com outros hakers alem de Autokill?

Fassa assim :

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

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

ScriptFile:='ai.kom';

 

Nessas tres linha vc irá mecher^^

Na primeira Mude a parte entre aspas para o nome do arquivo que vc vai substiruir na pasta do Grand Chase Ex:

Quero Haker de Hpfull:

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

 

Na segunda Vc vai por o lugar que o script ta na pasta do Grand chase EX:

Quero Haker de Hpfull:

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

 

Na Terceira Vc Vai por o Nome do arquivo que está na pasta do seu Haker EX:

Quero Haker de Hpfull:

ScriptFile:='playertemplate.kom';

 

 

PRONTO QUALQUER ERRO ME FALA =)

 

LEMBRE-SE EH NECESSÁRIO O KERNEL OU UNLOCK !!!

 

Creditos Por Tudo:

Rocha1001

[marlinhoxd 0]

vc nao consegue fazer sem unlocker e kernel e que estou tentando criar sem os dois pq e muito ruim

[rocha1001 0]

vc nao consegue fazer sem unlocker e kernel e que estou tentando criar sem os dois pq e muito ruim

explica direito que eu não entendi nada

[DragonBoss 8]

Conteudo já existente --'

[x] Tópico fechado.