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 F2 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 411, 304 405, 265 all // перетаскивание рыбы на себя. wait 500 end_if if lastmsg destroer //сломалась удочка send f6 500 //!!! в ассисте - target type на удочку double_left 870, 153 //!!! координаты удочки в руке. Надежнее, чем брать из пака. 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 |