Трекинг на ходу. Запоминает, где уже искал на карте живку и не ищет в этом месте:
Код:
//set $m Macro halted.
set #si 60 // Шаг проверки внутри поля step inside
set #so 60 // Шаг проверки вне поля step outside
set #n 1
set #n1 #n + 1
send f5 200
wait 1s
set #x charposx
set #y charposy
set %Track [#n 1] #x
set %Track [#n 2] #y
set %Track [#n1 1] 0
//while lastmsg = $m
//wait 1s
//send f5 200
//wait 1s
//end_while
:begin
set #cx charposx - #x
set #xc #x - charposx
set #cy charposy - #y
set #yc #y - charposy
if #cx > #si or #xc > #si or #cy > #si or #yc > #si
set #cp 1
set #ms 1
Set #tx 1
While #tx > 0
set #mx %Track [#ms 1]
set #my %Track [#ms 2]
set #cx charposx - #mx
set #xc #mx - charposx
set #cy charposy - #my
set #yc #my - charposy
set #ms #ms + 1
set #tx %Track [#ms 1]
if #cx > #so or #xc > #so or #cy > #so or #yc > #so
set #cp #cp +1
end_if
end_while
if #cp = #ms
send f5 200
set #x charposx
set #y charposy
//while lastmsg = $m
//wait 1s
//send f5 200
//end_while
set #n #n + 1
set #n1 #n + 1
set %Track [#n 1] #x
set %Track [#n 2] #y
set %Track [#n1 1] 0
set $Track D:\TrackK.txt
Save_array %Track $Track
//exec D:\KD\Distr\uo\Pilot\ftp.bat
end_if
end_if
goto begin
Добавлено через 4 минуты
Качаем кемпинг:
Скрипт разбрасывает вокруг себя киндлы и поджигает их:
Код:
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