SRL Archive - General Botting Help

I am trying to make a simple woodcutter. I have never made a script before and followed tutorials and guides to get where I am. I have tried looking and couldn't figure it out. This is what I have.
This is for RSPS Soulsplit.

program New;
{$i srl/srl.simba}

procedure ChopTree;
var x, y: integer;
begin
LoadFont(SSFont, True);
repeat
if FindObj(x, y, 'een', 4690048, 15) then
begin
Mouse(x, y, 0, 0, False);
ChooseOption('een');
end;
repeat
wait(400+random(250));
Until (InvFull);
until(InvFull);
end;

begin
SetUpSRL;
ChopTree;
end.

I read that I needed to include my Fonts so I added [LoadFont(SSFont, True);].
In my Font folder I have
[ATTACH=CONFIG]20963[/ATTACH] [ATTACH=CONFIG]20964[/ATTACH]
I got the letters from [ATTACH=CONFIG]20966[/ATTACH]
Is the script not reading the uptext? Is the untext wrong? Is the LoadFont(SSFont, True); not working?
Right now all it does is hover over the trees and doesn't click them.

Try this

procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'hop', 1785912, 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('vergreen') or (InvFull);
until(InvFull);
end;

its from a Guide, however it wont let me post links becouse rated to low :S.

Its called: Script down your first rs tree!
if you wish to find it yourself