| | 3 | :fishingsub !//fishing sub[[BR]]for #y -6 6 1 !// !!!воот тут, если копаете с берега, а не с моста,[[BR]]for #x -6 6 1 !// !!!надо подправить макс координаты по X и Y.[[BR]]:fishing //подпрограмма вылова рыбы[[BR]]set lasttargetx charposx + #x[[BR]]set lasttargety charposy + #y[[BR]]set lasttargetkind 2[[BR]]send F5 1000 !// !LastObject, !WaitForTarget, !LastTarget[[BR]]set timer 0[[BR]]while_not (lastmsg pull) or (lastmsg fail) or (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (timer > 6000)[[BR]]end_while[[BR]]if (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (lastmsg fail)[[BR]]wait 1500 !// задержка после неудачного использования на удочке.[[BR]]end_if[[BR]][[BR]]if lastmsg destroer !//сломалась удочка[[BR]]send f6 500 !//!!! в ассисте - target type на удочку[[BR]]double_left 870, 153 !//!!! координаты удочки в руке. Надежнее, чем брать из пака.[[BR]]wait 500[[BR]]end_if[[BR]]if_not (lastmsg are no fish) or (lastmsg Try) or (lastmsg pull) [[BR]]!//!!! последний or - ловля будет продолжаться только один раз вместо ловли до no fish[[BR]]!//если длина берега достаточная, это ускоряет процесс ловли и прокачки. [[BR]]!//Если скилл меньше 60, то имеет смысл поставить // перед or (lastmsg pull) [[BR]]goto fishing // процедура вылова рыбы.[[BR]]end_if[[BR]]end_for[[BR]]end_for[[BR]]return fishing |
