Ultima Online Antares

// F6 у меня Last object, wait for target, last target
// На топор два клика и на дерево , потом запускаешь макрос.
//z - низ лево
//x - низ
//c - низ право
//a - лево
//s - --
//d - право
//q - верх лево
//w - верх
//e - верх право

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
send217 c #tau //низ право
end_repeat
end_if
if #dir = 1
repeat #steps
send217 d #tau //право
end_repeat
end_if
if #dir = 2
repeat #steps
send217 z #tau //низ лево
end_repeat
end_if
if #dir = 3
repeat #steps
send217 x #tau //низ
end_repeat
end_if
if #dir = 4
repeat #steps
send217 e #tau //верх право
end_repeat
end_if
if #dir = 5
repeat #steps
send217 a #tau //лево
end_repeat
end_if
if #dir = 6
repeat #steps
send217 q #tau //лево верх
end_repeat
end_if
if #dir = 7
repeat #steps
send217 w #tau //верх
end_repeat
end_if
return

:lumber
//set #cnt 0 //не понятно,зачем эти две строки
//закоменчены и зачем они нужны
//send F6 3000 //last object-wait for target-last target
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 F6 #tau //last object-wait for target-last target
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 F6 #tau //last object-wait for target-last target
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