Fazendo um Modificador de Scripts Avançado

[Surfistinha£ 20]

Fazendo um Modificador de Scripts Avançado

 

 

O que vamos precisar:

 

- 4 TSpeedButtons

- 1 TEdit

- 1 TGrouBox

- 1 TPanel

- 1 XPManifest (Opcional, somente para dar um visual melhor ao programa)

- 2 TLabel (1 é opcional, somente para colocar os créditos)

 

Usando os componentes citados acima, faça uma interface parecida com esta:

 

Vamos começar então...

 

Primeiro altere a propriedade Enabled do Edit1 para False como mostra a foto abaixo:

 

 

agora de 2 cliques no botão "Alterar / Salvar Diretório" e adicione o seguinte código:

 

if Edit1.Enabled=False then

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

 

depois de 2 cliques no botão "Verificar se o diretório existe" e adicione o seguinte código:

 

if DirectoryExists(Edit1.Text) then

ShowMessage('Diretório existente!')

else

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

 

agora de 2 cliques no botão "Executar o Grand Chase" e adicione o seguinte código:

 

if DirectoryExists(Edit1.Text) then

WinExec(PChar(Edit1.Text+'\main.exe" __kogstudios_original_service__'),SW_SHOW)

else

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

 

depois de 2 cliques no botão "Ativar o Novo Script" e adicione o seguinte código:

 

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

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

ScriptFile:='Script.kom';

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

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#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 adicione ShellAPI na uses como mostra a foto abaixo:

Imagem

 

depois de 2 cliques no label "www.webcheats.com.br" e adicione o seguinte código:

 

ShellExecute(Handle,'open','www.webcheats.com.br','',nil,0);

 

agora vá no menu "Project" no delphi depois clique em "Options" e clique na aba "Application", agora coloque o nome do seu

 

programa no edit "Title" e escolha seu icone :P

 

Feito tudo isso compile seu projeto, o resultado devera ficar parecido com este:

 

Créditos: J-Ripper

[קђ๏єภเא 14]

Muito bom!

Isso que eu tava procurando, valeu mesmo!!!

[iur5 1]

mano eu queria saber se no edit eu tenho que colocar algum codigo pro script pegar?

[Surfistinha£ 20]

nao apenas no botao

[anonimo555 2]

Muito bom parabéns !

[Surfistinha£ 20]

Olha o resutado

 

Quem quizer a soucer se nao consegui fazer e so fala

[mdn 0]

Surfistinha£

 

trainer para gunbound é o msm esquema?se nao, tem tutorial para tal ;x?

[Surfistinha£ 20]

Surfistinha£

 

trainer para gunbound é o msm esquema?se nao, tem tutorial para tal ;x?

 

n de gb e totalmente diferente

[Niik 3]

@Surfistinha....

 

Olha Tenho Duvidas...

 

1° - Kero saber se para criar um Modificados de Scripts, eu uso Scripts Originais ou Scripts Já Modificados ???

 

2° - Se no caso for usar Scripts Originais como eu vou saber qual foi essa modificação??

Por exemplo eu crio um modificador com o script ai.kom...Blz Mas como eu vou saber si foi modificado para Auto-Kill ou Skill Cash???

 

3° - Se for usar um Script Já Modificado, ou seja, um script já com auto kill por exemplo...Como eu "Crio" esse script!

 

Essas são minhas duvidas!! Ajuda Nisso Plzzz!!!!!! @_@

[Surfistinha£ 20]

1 Scripts Já Modificados

3 ai eu vo fazer outro turtorial sobre isso

[Niik 3]

@Surfistinha£

 

Vlw!! Vou esperar esse Tuto *-*

[MRs.Romanha 5]

esse tuto ñ e exatamente um modificador avançado...

ele somente usa o copyfile e adiciona uns botões a mais..

se realmente fosse avançado ensinaria a por os scripts em um RES.

se eu tivesse tempo eu faria um tuto pra vcs

[Surfistinha£ 20]

esse tuto ñ e exatamente um modificador avançado...

ele somente usa o copyfile e adiciona uns botões a mais..

se realmente fosse avançado ensinaria a por os scripts em um RES.

se eu tivesse tempo eu faria um tuto pra vcs

Turial nao meu tambem nao achei avançado

CopyFile e o mas mole

=D Ok sem que ta sem tempo =)

[XxXedugunzXxX 0]

mano no button de executar o gc eu colokei o código mais quando eu cliko pra abrir o gc num abre nada ajuda ae plizz:confused:

[Surfistinha£ 20]

mano no button de executar o gc eu colokei o código mais quando eu cliko pra abrir o gc num abre nada ajuda ae plizz

 

me mostre como que estar ele de o ctrl c ctrl v nele

[XxXedugunzXxX 0]

tipo eu tbm baixei seu source e executei o seu script v6 e num abriu o gc tbm será que é meu pc?

[Surfistinha£ 20]

tipo eu tbm baixei seu source e executei o seu script v6 e num abriu o gc tbm será que é meu pc?

 

e seu pc

[Niik 3]

Outra Pergunta >.<...

Como eu injeto 2 ou mais scripts em só Um Button?

[Surfistinha£ 20]

procedure TForm1.Button1Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

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

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

ScriptFile:='Script.kom';

ScriptFile:='Outro.kom';

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

ShowMessage('Arquivo copiado com sucesso')

else

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

[Niik 3]

se for 4 Então ficaria

 

(...)

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

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

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

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

ScriptFile:='Script.kom';

ScriptFile:='Outro.kom';

ScriptFile:='Outro.kom';

ScriptFile:='Outro.kom';

(...)

 

Certo?!

[Surfistinha£ 20]

LOL aqui foi

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

[-allucard!. 0]

aew mano deu um erro em uma var oq devo fazer?

[Surfistinha£ 20]

do seu botao

[Sz ' 0]

se for 4 Então ficaria

 

(...)

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

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

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

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

ScriptFile:='Script.kom';

ScriptFile:='Outro.kom';

ScriptFile:='Outro.kom';

ScriptFile:='Outro.kom';

(...)

 

Certo?!

Exatamente, se quser adicionar mais e so por mais!

[Surfistinha£ 20]

se for 4 Então ficaria

 

(...)

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

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

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

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

ScriptFile:='Script.kom';

ScriptFile:='Outro.kom';

ScriptFile:='Outro.kom';

ScriptFile:='Outro.kom';

(...)

 

Certo?!

 

nao vc tem que mudar o nome

 

e como o Sz 'Exatamente, se quser adicionar mais e so por mais!