Код:
set $not there is
set $try try mining
set $can't you can't see
set $noline you have no
set $far too far
set $put you put the
set $loos you loosen
set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2
for #ii 1 5 1
for #i 1 5 1
set lasttargetx #x
set lasttargety #y
:re
send f2 // LastObject - WaitForTarget - LastTarget (pickaxe)
waitfortarget 10000
wait 1000
if_not lastmsg = $not
wait 3000
else
wait 150
end_if
set timer
while_not lastmsg = $not or lastmsg = $try or lastmsg = $can't or lastmsg = $noline or lastmsg = $far
if lastmsg = $put or lastmsg = $loos
gosub re
end_if
if timer > 8000
gosub re
end_if
end_while
set #x #x
set #y #y - 1
set timer
end_for
set #x #x + 1
set #y #y + 5
set timer
end_for
alarm
end_script