[LanceR]

/ / Parrying with the waste-approach
set $ hb f11 / / heal button in assist
set # hw 3000 / / heal wait
set $ othodbtn End / / walk + to move away
set $ podhodbtn PageUp / / walk + to fit
set # minhp 80 / / Level hp, which depart in the direction

: start

if hits <str / / rate limiting, xn put on your own
while hits <str
gosub saver
send $ hb
wait # hw / / delay on the Hill
end_while
end_if

goto start

: saver
if hits <# minhp
repeat 10
send $ othodbtn
end_repeat
set timer
while_not (hits = str) or (timer> 200000)
send $ hb
wait # hw
end_while
if timer> 200 000
repeat 10
say bandage trouble
alarm
wait 1s
end_repeat
stop_script
end_if
repeat 10
send $ podhodbtn
end_repeat
end_if
return






Добавлено через 2 минуты
--------------------------------------
: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 F5 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 destroer //сломалась удочка
send f6 500 //!!! в ассисте - target type на удочку
double_left 870, 153 //!!! координаты удочки в руке. Надежнее, чем брать из пака.
wait 500
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