Тема: МАКРОСЫ
Показать сообщение отдельно
Re: МАКРОСЫ
Старый 29.09.2012, 17:24   #427
sskrd
The Hero
 
Аватар для sskrd
 
Регистрация: 11.01.2011
Адрес: 23 RuS
Возраст: 39
Сообщений: 827
Репутация: 145 [+/-]
имеет отличную репутацию (от 126 до 175)
sskrd имеет отличную репутацию (от 126 до 175)sskrd имеет отличную репутацию (от 126 до 175)
Чар: sskrd
Гильдия: 23 RuS
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от ~shadow~ Посмотреть сообщение
Народ, подскажите как в пилоте прописать сбор рыбы из-под чара при ловле.
//-----------FISHING-------------
gosub fishingsub //вылов рыбы
//13 тайлов по мосту
repeat 13
send PageDown 200 //направление движения. Изменить на нужное
end_repeat
end_repeat
//идем по берегу на исходную точку 7 тайл.
repeat 27 //один тайл на разворот.
send home 200
end_repeat
send PageDown 200 //разворот.
// сколько циклов сделали за ночь (для оптимистов и статистиков)
set #counter #counter +1
:fishingsub //fishing sub
// энта часть заимствована у кого-то, но оптимизирована и доработана до слабой узнаваемости.
for #y -6 6 1 // !!!воот тут, если копаете с берега, а не с моста,
for #x -6 6 1 // !!!надо подправить макс координаты по X и Y.
:fishing //подпрограмма вылова рыбы
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F1 1000 // LastObject, WaitForTarget, LastTarget
set timer 0
while_not (lastmsg pull) or (lastmsg fail) or (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (timer > 6000)
end_while
if (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (lastmsg fail)
wait 1500 // задержка после неудачного использования на удочке.
end_if

if (lastmsg pull) and (wght < 620) //!!! если цель просто прокачка, это можно отключить для экономии времени.
drag 406, 298 404, 254 all // перетаскивание рыбы на себя.
drag 406, 298 404, 254 all // перетаскивание рыбы на себя.
wait 500
end_if

if lastmsg destroer //сломалась удочка
send f3 500 //!!! в ассисте - target type на удочку
double_left 810, 68 //!!! координаты удочки в руке. Надежнее, чем брать из пака.
wait 500
send f2 1000
end_if
if_not (lastmsg are no fish) or (lastmsg Try) or (lastmsg pull)
//!!! последний or - ловля будет продолжаться только один раз вместо ловли до no fish
//если длина берега достаточная, это ускоряет процесс ловли и прокачки.
//Если скилл меньше 60, то имеет смысл поставить // перед or (lastmsg pull)
goto fishing // процедура вылова рыбы.
end_if
end_for
end_for
return //fishing


хороший макрос для ловли с пирса, здесь он поднимает рыбу
если ловить с плота, то она сама падает в пак
sskrd вне форума   Ответить с цитированием