Stealth Client Forum

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;
// а здесь "кукиш", бланк скролы у вендора в продаже есть.

Code: Select all

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