Change Gold OTserv

[ferlations 153]

Mais um script gente, mas este é especial, rs.

Mas o que ele faz?

Bem, esse sript faz com que você transforme seus 100 gold, em sua bag, em uma platinum coin automaticamente, mas, como todos sabem, no global não tem como transformar clicando nela, então esse script pega somente em OTservers.

Como usar esse script?

Bem, pela primeira vez irei por aqui como usa um script, mas somente porque esse é especial saduashd, enfim, tu vai na opção Tools ~ Scripter, e põe seu script naquela caixa grande, e aperta em executar. Pronto, estará tudo funcionando. Testado e aprovado

-- created by Luis F. Lima and others --


procedure StackItems;

 var

 T: array of integer;

 x, y, z: integer;

 Temp: integer;

 begin

 UpdateWorld;

 T := VarArrayCreate([0, 19] , 3)

 Temp := -1;

 for x := 0 to Self.Containers.Count - 1 do

 begin

 if x >= Self.Containers.Count then Break;

 for z := 0 to Self.Containers.Container[x].Count - 1 do

 begin

 T[z] := Self.Containers.Container[x].Item[z].ID;

 end;

 for y := 0 to Self.Containers.Container[x].Count - 1 do

 begin

 if y >= Self.Containers.Container[x].Count then Break;

 if Self.Containers.Container[x].Item[y].Properties.Pilable then

 begin

 if Self.Containers.Container[x].Item[y].Amount < 100 then

 begin

 for z := y + 1 to Self.Containers.Container[x].Count - 1 do

 begin

 if T[z] = Self.Containers.Container[x].Item[y].ID then

 begin

 if Self.Containers.Container[x].Item[z].Amount < 100 then

 begin

 Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0)

 end;

 end;

 end;

 end;

 end;

 end;

 end;

 end;


 while not Terminated do

 begin

 UpdateWorld;

 StackItems;

 for x := 0 to Self.Containers.Count - 1 do

 begin

 for y := 0 to Self.Containers.Container[x].Count - 1 do

 begin

 if Self.Containers.Container[x].Item[y].ID = 3031 then

 begin

 if Self.Containers.Container[x].Item[y].Amount = 100 then

 begin

 Self.Containers.Container[x].Item[y].Use;

 Break;

 end;

 end;

 end;

 end;

 Sleep(1000)

 end;

Scan - VirusTotal 0/43

Change Gold OTserv - TibiaKing.com.rar

Explicação

• Não tem nenhuma explicação, agora é só copiar e colar o script lá. Bom jogo.

Gente, troquei ai viu o script e o scan, tinha posto os dois errados, rs. Espero que joguem avontade agora.

Editado Maio 29, 2011 por Luis F. Lima (veja o histórico de edições)

[Private Sub Teste 353]

Título: Change Gold OTserv

Download: Fazendo Enchanted Spears - TibiaKing.com.rar

Parte do Script: Self.ChangeOutfit

Você testou? To querendo usar ele mas ta confuso

WTF? I'm very very confused :S

[ferlations 153]

uahsduhasduh puis o download errado, vou ageitar kk

~Edited

Pronto, ageitei, testado e aprovado

Editado Maio 29, 2011 por Luis F. Lima (veja o histórico de edições)