Скрипт на автокрафт барахла

[Intervence 51]

Выкладываю свой скрипт. Основное преимущество - крфт сосок, не надо каждый раз высчитывать порядковый номер крафта.

Как пользоваться: перед первым запуском в переменных необходимо присвоить ваши порядковые номера в блоке //soulshots и //spiritshots

В переменную craft вставляем либо название соски, либо номер в книге крафта. Бот сам подбежит к бафферу и начнет крафтить, пока не кончатся soul/spirit ore

const
ssd = 1; ssc = 2; ssb = 3; ssa = 4; sss = 5; //soulshots
bssd = 25; bssc = 26; bssb = 27; bssa = 28; bsss = 29; //spiritshots

//define what to craft (name or receipt number)
craft = bssa;
//====================

function ItemCount(id: integer): int64;  overload;    
var i: integer;
begin
  result:= 0;                                          
  for i:= 0 to Inventory.User.Count-1 do begin         
    if (Inventory.User.Items(i).ID = id) then          
      Inc(result, Inventory.User.Items(i).Count);
  end; 
end;

begin
    engine.SetTarget(35639);
    delay(100);        
    engine.dlgOpen();
 while true do begin
  engine.Delay(350); 
  engine.makeitem(craft);
  while user.curMP<600 do 
    begin 
      engine.DlgSel('CP HP MP');
    end;
      if ((craft = ssd) or (craft = ssc) or (craft = ssb) or (craft = ssa)
       or (craft = sss)) and (ItemCount(1785) < 60) then begin
      print('Not enough Soul Ore');
      exit;
      end;

      if ((craft = bssd) or (craft = bssc) or (craft = bssb) or (craft = bssa)
       or (craft = bsss)) and (ItemCount(3031) < 70) then begin
      print('Not enough Spirit Ore');
      exit;
      end;
 end;
end.