set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2
:repeat
send F12 400
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2000)
end_while
if wght >= 620
repeat 5
alarm
end_repeat
pause_script
end_if
goto repeat
end_while
end_for
end_for
set #walk random 5
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if

while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2000)    
end_while