procedure SellTrash;
var
i_OID: integer;
i:integer;
item:TL2item;
begin
for i:= 0 to Inventory.User.Count-1 do begin
if inventory.user.byOID(i_OID, item) and (not (Item.Equipped)) then begin
if not (Inventory.User.Items(i).Name = 'Earring (Novice)') and
not (Inventory.User.Items(i).Name = 'Spiritshot (No-grade) (Novice)') and
not (Inventory.User.Items(i).Name = 'Tunic of Devotion') and
not (Inventory.User.Items(i).Name = 'Stockings of Devotion') and
not (Inventory.User.Items(i).Name = 'Leather Helmet') and
not (Inventory.User.Items(i).Name = 'Wand of Adept (Novice)') and
not (Inventory.User.Items(i).Name = 'Ring (Novice)') and
not (Inventory.User.Items(i).Name = 'Necklace (Novice)') and
not (Inventory.User.Items(i).Name = 'Healing Potion') and
not (Inventory.User.Items(i).Name = 'Healing Potion (Novice)') and
not (Inventory.User.Items(i).Name = 'Adventurer’s Potion - Casting Spd.') and
not (Inventory.User.Items(i).Name = 'Corroded Thread') and
not (Inventory.User.Items(i).Name = 'Corroded Charcoal') and
not (Inventory.User.Items(i).Name = 'Corroded Stem') and
not (Inventory.User.Items(i).Name = 'Corroded Animal Skin') and
not (Inventory.User.Items(i).Name = 'Corroded Iron Ore') and
not (Inventory.User.Items(i).Name = 'Corroded Suede') and
not (Inventory.User.Items(i).Name = 'Spiritshot (No-grade)') then begin
Engine.NPCTrade(true,[Inventory.User.Items(i).ID,99999]); // Sell Trash
delay(1000);
end;
end;
end;
end;
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)