Вот созрел извращенный вариант:
delphi Код:
procedure ScrollBase(ChosenScroll: integer, var BuyLID, BuyEID: integer, InBaseID: boolean);
//Base
if ChosenScroll=730 then begin
BuyLID:=559
BuyEID:=15
InBaseID:=true;
end;
if ChosenScroll=6757 then begin
BuyLID:=559
BuyEID:=35
InBaseID:=true;
end;
//тут не знаю как выдать если ничего не нашли...
else
InBaseID:=false;
end;
procedure BuyItem(BuyLID, BuyEID, BuyDelay, ItemCount: integer);
begin
for Cnt:=1 to ItemCount do begin
RequestMultiSellItem(BuyLID, BuyEID, 1);
delay(BuyDelay);
end;
end;
//..................................... код ...............................................
EnchantItem;
//запрос в базу перед покупкой
ScrollBase(ChosenScroll, BuyLID, BuyEID, IDKnown);
if InBaseID BuyItem(BuyLID, BuyEID, BuyDelay, ItemCount) else типа пишем - не найден в базе
timer.enable:=false;
ChosenScroll, BuyDelay, Count соотвественно берутся из формы.