Guild Allianse

Надо найти где респится много всяких тварей с которых режется кожа, например змеи или лизардмены, положить немного бинтов, чернила для записи карты, ножницы, и много катан в пак, так как они очень часто ломаются и запустить макрос.
В макросе вам нада будет заменять токо в етой строчке номер карты для крафта в зависимости сока у вас картографии:
AutoMenu ('Draw Map', '(5)'

Код: Выделить всё

VAR
Corpse: Cardinal;
KojaID: Cardinal;

BEGIN
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.');
while true do
begin
FindDistance := 1;
if FindType($2006, ground) <> 0 then
begin
AddToSystemJournal('Найден труп ' + IntToStr(finditem));
Corpse := finditem;
If FindType($13FF, backpack) <> -1 then
begin
AddToSystemJournal('Режем труп');
WaittargetObject(Corpse);
Wait(1000);
UseObject(finditem);
Wait(3500);
end;
UseObject(Corpse);
Wait(1000);
Ignore(Corpse);
if FindType($1078, Corpse) <> 0 then
begin
DragItem(finditem, 0);
Wait(1000);
DropItem(backpack,0,0,0);
Wait(1000);
end;
AddToSystemJournal('Закончили с трупом.');
end;
If FindType($13FF, self) = 0 then
begin
AddToSystemJournal('Одеваем катану...');
Wait(3500);
UseObject(Backpack);
Wait(1000);
FindType($13FF, backpack)
Equip(1, finditem);
end;
FindType($1081, backpack);
if FindQuantity < 4 then
begin
if FindType($1078, backpack) <> 0 then
begin
while FindType($1078, backpack) <> 0 do
begin
AddToSystemJournal('Режем кожу');
KojaID := finditem;
FindType($0F9E, backpack);
WaitTargetObject(KojaID);
UseObject(finditem);
Wait(3200);
end;
end;
end;
while Life < 100 do
begin
UoSay(Chr(39)+'pc heal self');
Wait(9200);
end;
If FindType($1081, backpack) <> 0 then
begin
AddToSystemJournal('Крафтим пустые карты');
UOSay(Chr(39)+'craftcreate 1');
AutoMenu ('Leather Working', 'Misc.');
wait(100);
AutoMenu ('Miscellaneous', 'Blank Map');
wait(100);
WaitTargetObject(finditem);
UseType($0F9D, $FFFF);
Wait(3200);
end;
while FindType($14ED, backpack) <> 0 do
begin
AddToSystemJournal('Рисуем карты');
UOSay(Chr(39) + 'craftcreate 0');
AutoMenu ('Draw Map', '(2)');
UseSkill('Cartography');
Wait(3000);
end;
AddToSystemJournal('---');
Wait(500);
end;
END.