Не понял как он у тебя вообще работать может. Если вырубаешь дерево то... что?

Вот что вышло у меня:

:consts
set $s1 there are no
set $s2 you can't
set $s3 that is
set $s4 you hack
goto main

:main
send F3 1000 //F3 - LastObject,Waitfortarget,LastTarget
goto start

:start
while_not lastmsg you put
if (lastmsg $s2) or (lastmsg $s3 ) or (lastmsg $s4 )
goto main
end_if
if (lastmsg $s1)
send f1 //F1 - LastObject,Waitfortarget
wait 10000 //Даст время на выбор нового дерева...!
end_if
end_while
send F3 1000