Script anti trap parcel 100%

[afke 2]

Como a moda agora é matar bot (nego não tem mais o que fazer) esse script é de grande utilidade.

Tem uns itens, parecidos com uma parcel (indoor plant kit) que o bot (pelo menos o NG) não consegue passar.

Esse script tem a finalidade de empurrar esse tipo de item, e muitos outros pra fora do caminho, para que o cavebot continue funcionando normalmente.

 

Sem mais explicações e papo furado ta ai:

 

var

Items: array of string;

Dim: integer;

ItemID: string;

Tile: TTile;

 

 

procedure MoveItem(a,b:integer);

begin

Items:=['6114','2804','2797','2790','2789','2806','7864','2469','6372','834','2796','2785','2793','6114','833','2807','2801',

 

'6371','2803','2791','2805','2802','2811','2808','2776','831','2804','6115','2794','2792','2799','2798','2784','2779','2782',

 

'2783','2800','2778','832','2777'];// you can edit id's here so it will move other items like chest or anything

Dim:=40;// here you put the number of items in the IDlist above

for j:=1 to Screen.Tile[a,b].Count do

begin

if j>=Screen.Tile[a,b].Count then Break;

ItemID:=Screen.Tile[a,b].Item[screen.Tile[a,b].Count-j].ID;

for i:=0 to Dim - 1 do

begin

if i>=Dim then Break;

if ItemID=Items then

begin

for h:=1 to Screen.Tile[a,b].Count do

begin

if h>=Screen.Tile[a,b].Count then Break;

Screen.Tile[a,b].Item[screen.Tile[a,b].Count-h].MoveToGround((Self.X)+(Random(0,2) * 2), (Self.Y)+(Random(0,2) * 2), Self.Z,

 

0)

end;

end;

end;

end;

 

end;

 

begin

While not Terminated do

begin

UpdateWorld;

MoveItem(6,4);

MoveItem(7,4);

MoveItem(8,4);

MoveItem(6,5);

MoveItem(8,5);

MoveItem(6,6);

MoveItem(7,6);

MoveItem(8,6);

Sleep(200);

end;

end;

 

Você pode adicionar mais itens se desejar. Porém creio que esses sejam suficientes.

Gostou ?? Ajudou ?? Agradeça ;)

 

Créditos: não tenho nem idéia, sei que não fui eu.

[felippialves 0]

Da erro

[Exception] Untitled(23): Invalid variant type conversion when evaluating instruction OperEqual ($0,$0,$0,$0,''). Stack content is: [integer:4,Integer:7,Null:,Null:...].

[asassinho 0]

nao funfo aki aparece uma mensagem de falha ;x