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.
За ранее благодарен!