eclip
17.01.2012, 16:09
Доброго времени суток, форумчане!
Может ли кто нибудь помочь переделать данный скрипт под high five, работоспособность его предназначена для Interlude хроник, скрипт на самом деле полезный, достаточно вписать айди предмета который захламил инвентарь и в пати чат нажать букву S, он же в свою очередь продавал весь гамуз, упрощая тем нудное кликание по предметам.
Буду очень признателен, если кто-то его переделает.
Заранее благодарен.
/// 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:= id; // --- указываем id предмета который будем продавать
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]=#$37) 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.
Может ли кто нибудь помочь переделать данный скрипт под high five, работоспособность его предназначена для Interlude хроник, скрипт на самом деле полезный, достаточно вписать айди предмета который захламил инвентарь и в пати чат нажать букву S, он же в свою очередь продавал весь гамуз, упрощая тем нудное кликание по предметам.
Буду очень признателен, если кто-то его переделает.
Заранее благодарен.
/// 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:= id; // --- указываем id предмета который будем продавать
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]=#$37) 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.