Сложный скрипт на ламбер из двух частей.
Часть 1-я. Создаем массив деревьев.
Запуск скрипта пишет координату ласттаргета и координату чара в массив.
Бежать от дерева до дерева в первый раз самостоятельно. Бежать нужно как можно прямее.
Чтобы замарчить дерево рядом, отбегать не надо, нулевое смещение чара учитывается.
Обязательно закруглите свой путь. Первое и последнее дерево должны быть рядом или в зоне досягаемости при почти прямом беге. Не бегайте на краю гвардзоны, Вас легко подстрелят ПК.
Чем больше деревьев в массиве, тем меньше нужно стоять и ждать респа логов. Не советую делать массив меньше чем из 200 деревьев, стоять придется по 15 минут.
Скрипт:
Код:
// Write Targets Coords
set #n #n + 1
set #n1 #n + 1
set %AllCoords [#n 1] #n
set %AllCoords [#n 2] charposx
set %AllCoords [#n 3] charposy
set %AllCoords [#n 4] lasttargetx
set %AllCoords [#n 5] lasttargety
set %AllCoords [#n1 1] #n1
set %AllCoords [#n1 2] 0
set $AllCoords C:\AllCoords.txt
Save_array %AllCoords $AllCoords
set lasttargetx 0
set lasttargety 0
pause_script
Часть 2. Сам лабмер.
Сделав круг, запускаем второй скрипт стоя недалеко от первого дерева из массива.
Скрипт оповещает о нападении, перевесе, отсутствии логов и подобном. Можете прикрутить реколл по руне для безопасности.
У меня в скрипте для ламбера используется F12 (LO WFT LT).
Первые пару кругов отслеживайте движения героя, он может застревать. Если застрял, перепишите координату в файле куда пишется массив. По первости можете кинуть при беге кричалку координат и номера дерева, чтоб легче было искать. Также для теста можно временно вырубить в скрипте полную вырубку дерева, а оставить один удар и бежать дальше.
Скрипт:
Код:
set #ms 0
set #x 0
Set #tx 37
set $AllCoords C:\AllCoords.txt
Load_array %AllCoords $AllCoords
wait 3s
While #tx > 0
set #ms #ms + 1
set #tx %AllCoords [#ms 2]
end_while
set #ms #ms - 1
:repeat
if #x = #ms
set #x 0
msg Круг!
pause_script
end_if
set #x #x + 1
set #TargetX %AllCoords [#x 2]
set #TargetY %AllCoords [#x 3]
set #TreeX %AllCoords [#x 4]
set #TreeY %AllCoords [#x 5]
Gosub Char_go
if_not (#TreeX = 0) and (#TreeY = 0)
Gosub LumberJack
end_if
goto repeat
:Char_Go
set #dx 1
set #dy 1
while_not ( #dX = 0 ) and ( #dY = 0 )
set #dx #TargetX - charposx
set #dy #TargetY - charposy
if #dx > 0
if #dy > 0
send Down
end_if
if #dy < 0
send Right
end_if
if #dy = 0
send PageDown
end_if
end_if
if #dx = 0
if #dy > 0
send End
end_if
if #dy < 0
send PageUp
end_if
end_if
if #dx < 0
if #dy > 0
send Left
end_if
if #dy = 0
send Home
end_if
if #dy < 0
send Up
end_if
end_if
end_while
return
:LumberJack
set $l1 There are no logs left here to chop.
set $s5 Targeting Cancelled
set lasttargetkind 3
set lasttargetx #TreeX
set lasttargety #TreeY
set timer
:Lumber
send f12 200 /lo wft lt
if wght > 500
msg Перевес!
pause_script
end_if
if lastmsg = $s5
msg Капча
pause_script
end_if
if hits < str
say guards
msg Бьют!
pause_script all
end_if
while_not (lastmsg = $l1) or (timer > 50000)
goto Lumber
end_while
return
Скрипт сложный, но кому надо вникнете.
Добавлено через 1 минуту
Цитата:
Сообщение от The Egoist
Почему-то не работает проверка хп. Просто постоянно хилиться пытается. Не знает кто, что не так?
|
Так строка провки закомментена. Уберите // перед строкой.