[MODO]

Я этим качал

set $de Destroyed
set $bl Blank
set $tr Trembling
set $ex Exhausted

:write
set $msg 0
send217 f3
wait 500
set timer 0
while_not (lastmsg put) or (lastmsg skill) or (lastmsg trembling) or (timer > 5000)
if lastmsg world
wait 25000
end_if
end_while
set $msg lastmsg
if_not ($msg <= $bl) or ($msg <= $tr) or ($msg <= $ex)
send217 f4
wait 500
set $msg lastmsg
end_if
if ($msg <= $de) or ($msg <= $ex)
say
move 763,488
drag 763,488 937,222 1
wait 500
else
say
say .where
goto write
end_if