Показать сообщение отдельно
Старый 09.08.2008, 00:23   #38
Новичок
 
Аватар для Shadow
 
Регистрация: 06.08.2008
Сообщений: 27
Сказал Спасибо: 8
Имеет 11 спасибок в 7 сообщенях
Shadow пока неопределено
Лампочка

Вот созрел извращенный вариант:
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 соотвественно берутся из формы.
__________________
Shadows anywhere...
Shadow вне форума   Ответить с цитированием