Descição: Ao executar o script, permite que em servidores OpenTibia, OTServ, que ao juntar 100 gold coins ele de use e transforme em 1 platinum coin.

Caso tenha dúvidas, consulte esse tópico [Tutorial] Como usar o Tibiabot NG.

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;

Creditos:SkolFsN

Editado Fevereiro 24, 2012 13 anos por gpedro (veja o histórico de edições)

Como disse no outro tópico...

Coloque informações sobre o "script" no tópico, se não pessoas que não conhecem direito a linguagem não irá saber nem o pra que desse Script'

Mas valeu por compartilhar'

Abraços

Como disse no outro tópico...

Coloque informações sobre o "script" no tópico, se não pessoas que não conhecem direito a linguagem não irá saber nem o pra que desse Script'

Mas valeu por compartilhar'

Abraços

O script está na seção TibiaBOT NG > Scripts, o a funcionalidade do sistema está escrito no próprio titulo, poupe-me desses comentários desnecessário, na próxima será alertado.

SkolfSn, favor colocar os créditos do verdadeiro dono. E nas suas próximas postagens, adicione a descrição e como ele funciona.

E adicionar um link de como adicionar o mesmo.

O script está na seção TibiaBOT NG > Scripts, o a funcionalidade do sistema está escrito no próprio titulo, poupe-me desses comentários desnecessário, na próxima será alertado.

SkolfSn, favor colocar os créditos do verdadeiro dono. E nas suas próximas postagens, adicione a descrição e como ele funciona.

E adicionar um link de como adicionar o mesmo.

Correto, mas na verdade eu pedi mesmo mais informações sobre o Script...

E você veio me falar sobre o meu comentário e no final do seu Post ainda acaba solicitando informações do mesmo Script?

Vai entender né...

Mas valeu'

Editado Fevereiro 24, 2012 13 anos por Adriano SwaTT (veja o histórico de edições)