AutoBuy blank skroll'ов.

[DollaR911]

Пишу скрипт для Инскрипта, возникла такая проблема:

Code: Select all

const
night=$0F88;//(не менять)тип рега "паслен"
blank=$0EF3;//(не менять)тип чистого скрола
vendor=$000034C0;//(указать) АйДи вендора (у кого будем покупать чистые свитки, перья, реги, и продавать написаные свитки

=====

while (FindType(night,backpack)=0) do //проверяем есть ли "паслен", если нет покупаем.
  begin
  AutoBuy(night,$0000,20);
  SetContextMenuHook(vendor,1);    
  RequestContextMenu(vendor);  
  Wait(4000);
  AutoBuy(night,$0000,0);
  end;
//Здесь без проблем покупает 20 паслена (NS)


  while (FindType(blank,backpack)=0) do //проверяем есть ли чистый скролл, если нет покупаем.
  begin
  AutoBuy(blank,$0000,20);
  SetContextMenuHook(vendor,1);
  RequestContextMenu(vendor);
  wait(4000);
  AutoBuy(blank,$0000,0);
  end;
// а здесь "кукиш", бланк скролы у вендора в продаже есть.

В чем проблема, кто знает?

[Fenix]

Скрипт зависает на скупке бланк-скролов?

[DollaR911]

Нет, повторяется цикл, вызывает меню покупки, но покупка не происходит.

[Vizit0r]

не происходит, потому что тип бланков в листе продажи отличается от типов бланков в паке.

Смотреть типы покупаемых айтемов тоьлко через GetShopList!

Code: Select all

Program test;
var a : TStringList;
begin
a := TStringList.Create;
  SetContextMenuHook($000034C0,1); 
  RequestContextMenu($000034C0);
GetShopList(a);
SetSilentMode(False);
a.free;
end.