Change Gold OTserv

Postado Maio 29, 2011 14 anos

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 14 anos por Luis F. Lima (veja o histórico de edições)

what_does_the_fox_say____by_rai_doo-d6p8