This is something I made for months ago to my old yew cutter script:
Code:
Function FindSymbolIn(var X,Y : integer; Symbol:string; xs, ys, xe, ye : Integer) : Boolean;
var Symbola:integer;
begin
Symbola:=GetSymbolColor(x,y,Symbol)
if(FindColor(x,y,Symbola,xs,ys,xe,ye))then
Result :=True;
end;
procedure ChangeToNTree;
begin
if(FindSymbolIn(x, y,'Rare trees', 630, 25, 660, 60))
then begin
writeln('Changing to north tree')
Mouse(x+9,y+9,2,2,True)
Flag;
end;
end;
procedure ChangeToSTree;
begin
if(not(FindSymbolIn(x, y, 'rare trees', 630, 25, 660, 60)))
then begin
if(FindSymbolIn(x, y, 'rare trees', 630, 110, 660, 140))
then begin
writeln('Changing to South tree')
Mouse(x+9,y+2,2,2,True)
Flag
end;
end;
end;