Ultima Online Antares

:very_begin
:first1
repeat 3
send down
wait 1000
end_repeat
end_if

:begin
set $not there is
set $try try mining in rock
set $can't you can't see
set $noline you have no

set $put you put the
set $loos you loosen

//i?aaonoaiiaea eii?aeiao eanooaee
set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2

//iniiaiay ?anou
for #ii 1 5 1
for #i 1 5 1
set lasttargetx #x
set lasttargety #y
:re1
send F6

waitfortarget 5000
set timer
while_not ( lastmsg $not ) or ( lastmsg $try ) or ( lastmsg $can't ) or ( lastmsg $noline )
if ( lastmsg $put ) or ( lastmsg $loos )
gosub re1
end_if
if timer > 5000 or ( lastmsg sight )
gosub change1

end_if
end_while
:change1
set #x #x
set #y #y - 1

set timer
end_for
set #x #x + 1
set #y #y + 5

set timer
end_for
repeat 3
send up
wait 1000

end_repeat

:first2

repeat 3
send up
wait 1000
end_repeat

:begin2
set $not there is
set $try try mining in rock
set $can't you can't see
set $noline you have no

set $put you put the
set $loos you loosen

//i?aaonoaiiaea eii?aeiao eanooaee
set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2

//iniiaiay ?anou
for #ii 1 5 1
for #i 1 5 1
set lasttargetx #x
set lasttargety #y
:re2
send F6

waitfortarget 5000
set timer
while_not ( lastmsg $not ) or ( lastmsg $try ) or ( lastmsg $can't ) or ( lastmsg $noline )

if ( lastmsg $put ) or ( lastmsg $loos )
gosub re2

end_if
if timer > 5000 or ( lastmsg sight )
gosub change2

end_if
end_while
:change2
set #x #x
set #y #y - 1
set timer

end_for
set #x #x + 1
set #y #y + 5
set timer
end_for

repeat 3
send down
wait 1000

end_repeat

end_if

goto very_begin
__
Описание скрипта: ходит сверху вниз,есть проверки сообщений,
типо "тут нечего копать"
F6 Lastobj WFT LastTarg