[DÚVIDA] Modificador de Scripts com Maaaais de um Button ¬¬'

[Niik 3]

Putz...

Tenho Duvida...To criando um Modificador com esse code:

 

var

Arq: TResourceStream;

begin

begin

Arq:= TResourceStream.Create(HInstance, 'fight_stg', 'KOMFILE');

try

Arq.SaveToFile(Edit1.Text+'\Stage\fight_stg.KOM');

finally

Arq.Free;

end;

end;

ShowMessage('Ativado com sucesso.');

end;

Funfa se eu fizer um arquivo RES com um script!

 

Mas eu kero fazer um modificador com combinações diferentes de Hacks

e esses hacks diefrentes tem o mesmo nome de script os dois usam o figth_stg.kom e estão em buttons diferentes!

 

Kero saber qual é o procedimento EXPLICADO!!! ¬¬ para fazer isso

 

- Como vai ficar o arquivos RES???

- Ond Vai Fik???

- Se eu for injetar mais outro Hack com outro script o que eu faço?

- Por favor explike com exemplo!

 

o RES tah me confundindo!

 

ME AJUDAAAAAAAAAAAAAA !!

 

Alguém que tenha o conhecimento pra fazer Modificador de Scripts pode me adicionar no MSN pra me ajudar a fazer o meu modificador??? (creditos lógico)

 

POr favor kem tiver disponibilidade de me SOCORRER me add por favor [email protected]

 

Obrigado

[oinetooi 1]

Cara esse seu code ta certo... ?

var

Arq: TResourceStream;

begin

begin

Arq:= TResourceStream.Create(HInstance, 'fight_stg', 'KOMFILE');

try

Arq.SaveToFile(Edit1.Text+'\Stage\fight_stg.KOM');

finally

Arq.Free;

end;

end; Tira um né...

ShowMessage('Ativado com sucesso.');

end;

[Niik 3]

Deixa Pra lah...

Mas Funfou assim ;D

[Surfistinha£ 20]

no lugar de end; e else

 

procedure TForm1.Button19Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\fight_stg.KOM';

ScriptFile:='One Hit\fight_stg.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;

 

procedure TForm1.Button8Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\fight_stg.KOM';

ScriptFile:='One Hit + Monstros Passivos\fight_stg.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;