Цитата:
Сообщение от Sanchoz
Ребят, ну помогите пожалуйсто с ламбером,все тутошние скрипты перепробовал ни 1ин у меня не раотает,клиент и пилот качал с фвуо. очу чтоб появлялся таргет я им тыкал на дерево и чар выруывал это дерево полностью и снова появлялся таргет я им снова на дерево и тд... Подоные макры наодил в этой теме но у меня не 1ин не раотает, помогите пожалуйсто!!!
|
ЛОВИ! Макрос позволяет ходить , рубить , любить! (ОСТОРОЖНО , ВОЗМОЖНА ВЫЛАЗКА ЗА ГЗ , где ты можешь вырубить гвардов)
F8 у меня Last object, wait for target, last target
На топор два клика и на дерево , потом запускаешь макрос.
В чате должно быть пусто (!!!)
set #tau 0
set #squareside 18
gosub getxy
set #startx #x
set #starty #y
:start
for #ddy 0 #squareside 2
for #ddx 0 #squareside 2
set #rr (#ddy / 4) * 4
if #rr = #ddy
set #targetx #startx + #ddx
else
set #targetx #startx + #squareside - #ddx
end_if
set #targety #starty + #ddy
gosub goxy
gosub lumber
end_for
end_for
goto start
:goxy
gosub getxy
if #x < #targetx
set #dir 2
set #steps #targetx - #x
set #steps #steps * 4
gosub walkdir
end_if
if #x > #targetx
set #dir 6
set #steps #x - #targetx
set #steps #steps * 4
gosub walkdir
end_if
if #y < #targety
set #dir 4
set #steps #targety - #y
set #steps #steps * 3
gosub walkdir
end_if
if #y > #targety
set #dir 0
set #steps #y - #targety
set #steps #steps * 3
gosub walkdir
end_if
gosub getxy
if (#x = #targetx) and (#y = #targety)
return
else
set #dir random (8)
set #steps 1
gosub walkdir
end_if
goto goxy
:getxy
set #x charposx
set #y charposy
set #x (#x / 4)
set #y (#y / 3)
return
:walkdir
set #tau 25
if #dir <> chardir
set #steps #steps + 1
end_if
if #dir = 0
repeat #steps
send PageUp #tau
end_repeat
end_if
if #dir = 1
repeat #steps
send Right #tau
end_repeat
end_if
if #dir = 2
repeat #steps
send PageDown #tau
end_repeat
end_if
if #dir = 3
repeat #steps
send Down #tau
end_repeat
end_if
if #dir = 4
repeat #steps
send End #tau
end_repeat
end_if
if #dir = 5
repeat #steps
send Left #tau
end_repeat
end_if
if #dir = 6
repeat #steps
send Home #tau
end_repeat
end_if
if #dir = 7
repeat #steps
send Up #tau
end_repeat
end_if
return
:lumber
//set #cnt 0
//send F8 3000
for #dx 0 4 4
for #dy 0 3 3
set #x charposx
set #y charposy
set #x (#x / 4) * 4 + #dx
set #y (#y / 3) * 3 + #dy
set lasttargetx #x
set lasttargety #y
gosub work
end_for
end_for
return
:work
set #tau 230
send F8 #tau
set timer 0
:loop
if (lastmsg you put) or (lastmsg you can) or (lastmsg changed) or (lastmsg you hack) or (lastmsg increased) or (lastmsg yourself well)
send F8 #tau
set timer 0
end_if
if (lastmsg no logs left here) or (lastmsg try chopping a tree) or (lastmsg too far) or (timer > 5000)
wait #tau
return
end_if
goto loop