Modificador de Scriptz

por **Shadow~** Dom Nov 27 2011, 22:09

Bom ja ensinei como fazer um auto kill agora vamos fazer um modificador de script pra ficar completinho xD [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
1º Abra o Delphi - [Tens de ter uma conta e sessão iniciada para poderes visualizar este link] (Sem Scan por causa do tamanho, mas é o delphi lol)

2º Renomeie sua form para o nome do seu script (No meu caso "Dark's Scriptz"), editando a parte "Caption"
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

3º Deixe sua form igual ao da imagem abaixo, adicione 3 Buttons e 1 Edit (Organize como na imagem), no meu caso não vou por imagem porque é apenas um tutorial simples.(Ignorem a label foi só pra dar um charme xD)
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Edite a propriedade "Caption" dos buttons e a propriedade "Text" do edit

Button1 - Ativar Autokill
Button2- Desativar Autokill
Button3- Salvar/Editar Diretório
Edit1 (Editar a propriedade "Text") - Digite Aqui o Diretório do seu Grand Chase

O seu projeto deve estar parecido com este (Menos a label)
↓
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Agora vamos para a parte dos códigos ^^

1º Clique duas vezes no "Ativar Autokill", apague o "Begin" e cole este código;
Código:
var DirFile,ScriptFile: String; begin if Edit1.Enabled=False then begin DeleteFile(Edit1.Text+ScriptFile); DirFile:=Edit1.Text+'\Stage\ai.kom'; ScriptFile:='ai.kom'; if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then ShowMessage('Script Ativado com sucesso') else Application.MessageBox('Script Não Ativado!'+#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;

2º Clique duas vezes no "Desativar Autokill" e cole isso;
Código:
deletefile('C:\Level Up Games\Grand Chase\Stage\AI\ai.kom '); deletefile('C:\Level Up Games\Grand Chase Season 2\AI\ai.kom '); deletefile('C:\Level Up Games\Grand Chase Season 3\AI\ai.kom '); deletefile('C:\Level Up Games\Grand Chase Season Chaos\AI\ai.kom ');

3º Clique duas vezes no "Editar/Salvar Diretório" e cole este código;
Código:
if Edit1.Enabled=False then Edit1.Enabled:=True else Edit1.Enabled:=False;

Aperte F9 e veja se esta tudo certo.
PS: Vai aparecer um erro, apague o "end" que estiver destacado em vermelho e pronto.

Meu Resultado ↓
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Créditos : Eol >.<