Re: Фишинг
качал вот таким, все работало.
gosub fishingsub //вылов рыбы
//13 тайлов по мосту
repeat 13
send l 200 //направление движения. Изменить на нужное
end_repeat
//идем по берегу на исходную точку 7 тайл.
repeat 27 //один тайл на разворот.
send o 200
end_repeat
send o 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 F12 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 504,376 512,347 all // перетаскивание рыбы на себя.
drag 500,383 512,347 all // перетаскивание рыбы на себя.
wait 500
end_if
if lastmsg destroer //сломалась удочка
send f6 500 //!!! в ассисте - target type на удочку
wait 500
double_left 1074, 79
wait 500
send f12 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
|