Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Criando Script Grand Chase


OtakuThug
 Compartilhar

Posts Recomendados

Bom dia hoje vou ensinar como criar um Script para grand chase (nescessita de Unloack ou Kernel).

 

Requisitos

 

Arquivos KOM ja editados

Ser um programador meio avançado

Ter o Delphi 7 instalado

 

Adicione

 

4buttons (aba Standard)

1 Edit (aba Standard)

2 label (aba Standard)

 

Mudando os nomes

 

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

 

Vamos criar o script

 

Button 1:

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Enabled=False then

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

end;

 

Button 2:

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;

 

Button 3:

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;

 

Button 4:

procedure TForm1.Button4Click(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;

 

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

Agradeça n Custa Cash :coracao:

Link para o comentário
Compartilhar em outros sites

Isso apenas mostra como copiar arquivos de um local a outro, aconselho a usar resources para isso(Evita Rippers), caso queira aprender, clique no link abaixo de minha signature Resource Maker.

b34c171261.png

Link para o comentário
Compartilhar em outros sites

Engraçado............uhaushuhauss. .... vc tem a mesma linha de pensamento do Surfistinha nesse Post:http://www.webcheats.com.br/forum/delphi-vb/346816-fazendo-um-modificador-de-scripts-avancado.html .. Pelo Menos copia Direito né.

Link para o comentário
Compartilhar em outros sites

[ironia]

 

Boa heim cara, ótimo tutorial, vai ajudar muitos iniciantes assim como eu...

Gostei dos códigos, nunca tinha visto antes na internet.

 

Aguardo mais tutoriais legais como esse.

 

[/ironia]

 

Flw, abraços

Link para o comentário
Compartilhar em outros sites

Eu não sei se o topico e ou não é ja existente, so sei que me ajudo, e agradeço muito

iniciando em delhpi, obrigada!

"Queridos Edward e Jacob,

Adoro vocês dois, mas vou passar o fim de semana com Jace."

 

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.