[QUOTE=Edgeeawaits;995335]Thanks 
now another problem :/ The mouse goes to the tree and doesnt say anything when it gets there and moves arround the tree randomly,
Code:
Program PowerChopper;
//{$DEFINE SMART}
{$i srl/srl.simba}
Const
SRLStats_Username = '';
SRLStats_Passworld = '';
BreakEvery = '600';
BreakFor = '5';
Version = '1.0';
NumbOfPlayers = 1;
StartPlayer = 0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Woodcutting;
Active := True;
end;
end;
Procedure StatGuise(wat: String);
Begin
Status(wat);
Disguise(wat);
End;
procedure Antiban;
begin
case Random(60)of
10: RandomRClick;
20: HoverSkill('Strength', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
end;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
TerminateScript;
End;
Function ChopDown: Boolean;
Var
x, y: Integer;
Begin
//FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
If FindObjCustom(x, y, ['Chop','down', 'p d'], [1715243, 1252891, 2307895, 1252891], 3) Then
Writeln('Hooray, we found a tree!');
End;
Begin
ClearDebug;
SetupSRL;
DeclarePlayers;
Repeat
ChopDown
Until(false);
End.
Dont you need something like this, its not the code but an example ok.
Simba Code:
Procedure WalkToTree;
Var
ToTrees:TPointArray;
Begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
Writeln('Attempting To Walk To Trees...')
SetupSRL;
SPS_Areas := ['10_9'];
ToTrees:= [Point(4209, 3686), Point(4190, 3735)];
SPS_WalkPath(ToTrees);
Writeln('Found the trees');
Wait(5354+random(254));
End;
......Sorry but this is a really bad example....