[KDbled]

Алхимия без тормозов. Лессер поизон на нсе. Можно запускать с любой точки последовательности.

set $v You put the Lesser Poison potion in your pack.
set $r CharName: You lack reagents to make this potion. (3 Nightshade)    //Charname - Your Charname

set $l You lack empty bottles to make this potion.
set $m Macro halted.

Move 364, 241  // Reagents on floor
drag 364, 241 827, 236 5000 // Drag Reagents to backpack

:Varka
send f2 200 // Varka Assist
wait 1s
if lastmsg = $m
wait 500
goto Varka
end_if
if lastmsg = $l
wait 500
goto Sliv
end_if
set timer
while_not lastmsg = $v
if timer > 30000
goto Varka
end_if
if lastmsg = $r
msg Реги кончились
pause_script
end_if
wait 100
end_while

:Sliv
send f3 200 // Potion to Kega
wait 500
if lastmsg = $m
wait 1s
goto Sliv
end_if
goto Varka

Добавлено через 47 минут
Camping. Кемпинг. Разброс киндлов вокруг чара и сжигание.
Работает мышью. Чара лучше сделать курицей через ассист.

wait 3s
set #x 187        //First Kindle X
set #y 247       //First Kindle Y
set #bx 1360    // Kindling in Backpack X
set #by 151     // Kindling in Backpack Y
set #s 22
set #m 7
repeat #m
set #x1 #x
set #y1 #y
repeat #m
move #bx #by
drag #bx #by #x1 #y1 1
set #x1 #x1 + #s
set #y1 #y1 - #s
end_repeat
set #x #x + #s
set #y #y + #s
end_repeat

set #x 187        //First Kindle X
set #y 247       //First Kindle Y
set #bx 1360    // Kindling in Backpack X
set #by 151     // Kindling in Backpack Y
set #m 7
repeat #m
set #x1 #x
set #y1 #y
repeat #m
move #x1 #y1
double_left #x1 #y1
set #x1 #x1 + #s
set #y1 #y1 - #s
end_repeat
set #x #x + #s
set #y #y + #s
end_repeat
if wght < 60
pause_script
end_if

Картинка пояснение прилагается.
[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]

Добавлено через 1 час 5 минут
Передвижение чара в нужную точку.
Используется как вспомогательная процедура.

Скрипт выкладывается исключительно в целях изучения написания макросов на пилоте, использование его в игре является нарушением правил шарда!

set #TargetX lasttargetX // Lasttargetx - Goal Coord X 
set #TargetY lasttargetY // Lasttargety - Goal Coord Y
gosub char_go


:Char_Go
set #dx 1
set #dy 1
while_not ( #dX = 0 ) and ( #dY = 0 )
set #dx #TargetX - charposx
set #dy #TargetY - charposy
set #posX0 charposx
set #posY0 charposy
if #dx > 0
if #dy > 0
send Down 200
end_if
if #dy < 0
send Right 200
end_if
if #dy = 0
send PageDown 200
end_if
end_if
if #dx = 0
if #dy > 0
send End 200
end_if
if #dy < 0
send PageUp 200
end_if
end_if
if #dx < 0
if #dy > 0
send Left 200
end_if
if #dy = 0
send Home 200
end_if
if #dy < 0
send Up 200
end_if
end_if
end_while
return

Если чар не идет в нужную точку, проверьте горячие клавише в ассисте, по умолчанию часть клавиш зарезервировано.