[Johnson]

если нужно продавать однотипные вещи - воспользуйся моим скриптом...
в данном случае он продаёт Тарбары (если я прально понял, зачем тебе такой скрипт)

/// 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; 
procedure SendMsg(msg:string); 
begin 
buf:=#$4A; 
WriteD(0); 
WriteD(10); 
WriteS(''); 
WriteS(msg); 
SendToClient; 
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.

скрипт запускается латинской буквой S в ПАТИ-чат, сначала нужно выделить непися-продавца