Aqui estou eu para mostrar para você como criar um hack de grand chase de unlock ou kernel detect.
Indice
Requisitos minimos
Tutorial Interface
Turorial Auto-kill
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
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)
Agora vamos aos CODIGOS:
Apague Tudo e Ponha:
Button1:
- Spoiler:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Enabled=False then
Edit1.Enabled:=True
else
Edit1.Enabled:=False;
end;
Button2:
- Spoiler:
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:
- Spoiler:
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:
- Spoiler:
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;
Agora vamos colocar o auto kill
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';
Obs: lembra do kernel detecte ou unlock
