Code: Select all
Program AlchemyCraft;
CONST 
  Item = $0f0e; {Тип Бутылок. Не изминять!} 
  Tool = $0e9b; {Тип Ступки. Не изминять!} 
  Total = $0f0b; {Тип Тоталл Рефреша. Не изминять!}
  Sumka = $53fef4a6; {ID Сумки куда крафтить!}
BEGIN
 Cancelmenu;
 
 AutoMenu('Alchemy', 'Refresh Potions');
 AutoMenu('Refresh Potions', 'Total refresh potion');
SetARStatus(true);
  
  AddToSystemJournal('Скрипт написал Metall (Age of Power)');
  UOSay(Chr(39)+'craftcreate 1'); 
  Wait(1000);
while true do
  begin 
    WaitTargetObject(findType(Item,backpack));
    UseObject(findType(Tool,backpack));
   wait(3100);
    findType(Total,backpack);
   MoveItem(findItem,0,Sumka,0,0,0);
   wait(5000);
end;
END.За ранее благодарен!


