Well, im not sure, but if you set 'all' then it never call anything, since it's named to 'any' in mainloop, also seems like it doesn't find the willows?
You don't got if tryed = 50 then ... in chopanylogs, atm i'm in hurry... If i don't forget it I look it again if im bakc online.
Edit:
Lmao. 
SCAR Code:
if (not (FindObjCustom(x, y, ['Map', 'apl', 'ple'], [24459, 9273, 24976], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
you have forgot begin and end;
It still adds 1 to tries every time it goes trough loop.
I recommend you to try to debugg(using writeln command) to see how far it goes and what it does.
and instead of this monstrum
SCAR Code:
if FindObjCustom(x, y, ['Mag', 'ic', 'agic'], [11919079, 530456, 11399151], 7) or
FindObjCustom(x, y, ['Yew', 'Ye', 'ew'], [3230274, 3756618, 2703938], 7) or
FindObjCustom(x, y, ['Tree', 'Tre', 'ree'], [2122071, 3367516, 3166539], 7) or
FindObjCustom(x, y, ['Oak', 'ak'], [2124898, 1381047, 2242203], 7) or
FindObjCustom(x, y, ['Map', 'apl', 'ple'], [24459, 9273, 24976], 7) or
FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7) then
to something like
if FindObjCustom(x, y, ['hop', 'own'], [11919079, 530456, 11399151], 7) then