Скрипт ламбер на изи

set %msg1 There's_not_enough_wood_here_to_harvest.
set %msg2 You_can't_use_an_axe_on_that.
set %msg3 Target_cannot_be_seen.
set %msg4 That_is_too_far_away.
set %maxtry 5
begin:
event sysmessage << SELECT TREE >>
while #TARGCURS <> 1
gosub useaxe
while #TARGCURS = 1
sleep 100
set %try 0
chop:
gosub useaxe
target 5
event macro 22 0
wait 1s
for %i 1 4
{
if #SYSMSG = %msg . %i
{
goto end
}
}
wait 3s
if %try > %maxtry
{
goto end
}
set %try %try + 1
goto chop
end:
goto begin
sub useaxe
{
finditem FSF C
if #FINDCNT < 1
{
event macro 8 1
wait 1s
}
while #FINDCNT < 1
{
event macro 8 1
finditem FSF C
event sysmessage No a hatchet found.
wait 2s
}
set #LOBJECTID #FINDID
event macro 17
return
}