Макрос для прокачки картографии

Предыдущая тема Следующая тема Перейти вниз

Макрос для прокачки картографии

Сообщение  Mazunchik в Сб Май 15, 2010 1:41 am

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

AutoMenu ('Draw Map', '(5)'Wink

Код:
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', '(2)');
AutoMenu ('Miscellaneous', '(2)');
WaitTargetObject(finditem);
UseType($0F9D, $FFFF);
Wait(3200);
end;
while FindType($14ED, backpack) <> 0 do
begin
AddToSystemJournal('Рисуем карты');
UOSay(Chr(39) + 'craftcreate 0');
AutoMenu ('Draw Map', '(5)');
UseSkill('Cartography');
Wait(3000);
end;
AddToSystemJournal('---');
Wait(500);
end;
END.
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения