I could use some help 
Simba Code:
program PowerChopper;
//{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
Const
SRLStats_Username = '';
SRLStats_Password = '';
BreakEvery = 120;
BreaFor = 50;
Verson = '1.0';
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Woodcutting;
Active := True;
end;
end;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Function CheckAndClick(Uptext, Option:String; X,Y:Integer; RClick:Boolean) :Boolean;
Begin
MMouse(x, y, 5, 5)
If WaitUptext(UpText, 5000) Then
Begin
Result:=True;
GetMousePos(x, y);
If RClick Then
Begin
Mouse(X, Y, 0, 0, False);
Result:= WaitOption(Option, 5000);
If Result Then FFlag(0);
End Else
Begin
Mouse(x, y, 0, 0, True);
Wait(100+Random(100));
FFlag(0);
End;
End;
End;
Procedure Antiban;
Begin
Case Random(250) of
0: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(29) End;
1: Begin StatsGuise('Antiban') SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('Antiban') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
3: Begin StatsGuise('Antiban') RandomAngle(1); End;
4: Begin StatsGuise('Antiban') GameTab(Tab_Stats); Wait(3000+Random(500)); GameTab(28); End;
5: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
End;
End;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Function ChopDown:Boolean;
Var
aX, aY, PlusOne, TreeCounter: Integer;
Begin
PlusOne:= InvCount + 1;
If FindObjCustom(aX, aY, ['Chop', 'down', 'p d'], [1384483, 1582376], 8) Then
Writeln('Tree found, chopping it down');
Wait(500);
Begin
StatsGuise('Tree found, chopping it down');
GetMousePos(aX, aY);
Case Random(2) Of
0: Mouse(aX, aY, 5, 5, True);
1: Begin
Mouse(aX, aY, 5, 5, False);
Wait(500+Random(100));
ChooseOption('Chop');
End;
End;
Repeat
MarkTime(TreeCounter);
Antiban;
Wait(500);
If InvCount=PlusOne Then
Writeln('Chopped down, searching for another tree.');
Until (InvCount=PlusOne) or (TimeFromMark(TreeCounter) > 7000)
End;
End;
begin
SetupSRL;
DeclarePlayers;
Repeat
ChopDown;
Until(false);
end.
^That's what I've made so far. It compiles just fine. But every time it goes to cut the trees I get this error message:
Code:
[Hint] (80:10): Variable 'Result' never used at line 79
Compiled successfully in 593 ms.
SRL Compiled in 0 msec
Tree found, chopping it down
Exception: Range check error at line 286
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
When it left clicks it'll begin cutting the tree, and then this error appear. When it right clicks I will get the error message before it can select to 'Chop down'.
EDIT: Went back a few pages, saw that others were having the same problem as well. Although the only answer I could find was:

Originally Posted by
Mr. Freeweed
These are in the srl5 antirandoms. Most likely you stopped the scripted before they were freed.
GoodLuck
But I never stopped the script so I'm a little lost.
EDIT 2: Been playing around with it for the past two weeks and STILL can't get anything to work. It just gives me the same error.