Очень удобный скрипт при использовании Дюпа Д, чтобы не тыкать по каждому тарбару, можно продать все, отправив S в пати-чат. Скрипт можно поменять под продажу других предметов заменой SelledItemID.
Код:
/// Autoseller by Johnson
Var
I,j,k,l,ItemCount,ItemType1,ItemOID,ItemID,ItCount,SelledItemID:integer;
N_Items:Array[0..500,0..1] of Integer;
procedure Init;
begin
SelledItemID:= 158; // Tarbar
l:=0;
end;
begin
if FromClient and (pck=#$38#$53#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=#$0F;
SendToServer;
l:=1;
end;
if FromServer and (pck[1]=#$1B) and (l=1) then
begin
j:=6;
k:=0;
ItemCount:=ReadH(4);
For I:=0 to ItemCount - 1 do
begin
ItemType1:=ReadH(j);
ItemOID:=ReadD(j);
ItemID:=ReadD(j);
ItCount:=ReadD(j);
j:=j+22;
if ItemID = SelledItemID then
begin
N_Items[k,0]:=ItemID; ///ID
N_Items[k,1]:=ItemOID; ///OID
k:=k+1;
end;
end;
buf:=#$1E;
WriteD(0);
WriteD(k+1);
For I:=0 to k do
begin
WriteD(N_Items[i,1]); ///OID
WriteD(SelledItemID); ///ID
WriteD(1); ///Count
end;
l:=0;
SendToServer;
end;
end.
скрипт не мой все права принадлежат Johnson с coderx.ru
Данный скрипт продаст все Тарбары которые лежат у тебя в инвентаре, так же может продавать любой другой предмет если поменять SelledItemID на нужный тебе. Продажа осуществляется отправкой S в патичат. К примеру у тебя в инвентаре 150 тарбаров, тыкать по каждому из них при продаже очень утомительно, особенно если это не первые 150 тарбаров у тебя за этот день, а скрипт продаёт их за пару секунд.
вот народ так чесна говоря и не нашёл на сайте "Дюп Д грейда" находит много но не по теме. может кто-нить объяснисть , как дюпать? или создать специально тему... или мб я кривой и вы найдете , но я ничего не нашёл.