Ekarma
03-10-2013, 08:37 AM
Program TreeCutter;
{$define SMART}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Procedure Camera;
begin;
If (Not P07_LoggedIn) Then
terminatescript;
KeyDown(38);
Wait(RandomRange(1800,2000));
KeyUp(38);
P07_MakeCompassDegree(50);
End;
Procedure AntiBan;
begin
wait(randomrange(250,750));
if not(P07_loggedin)then
Exit;
case Random(6) of
0: P07_MakeCompassSouth;
1: P07_MakeCompassNorth;
2: P07_MakeCameraAngleLow;
3: P07_MakeCameraAngleHigh;
4: P07_MakeCompassEast;
5: P07_MakeCompassWest;
6: P07_HoverSkill('woodcutting',RandomRange(2500,3500 ));
end;
end;
Procedure Fletch;
Begin;
Mouse(576, 277, 2, 2, true);
Mouse(619, 231, 2, 2, true);
Mouse(68, 402, 2, 2, false);
Mouse(54, 457, 1, 1, true);
antiban;
wait(4000+random(2000));
End;
Procedure CutTree;
var x, y: Integer;
begin;
If (Not P07_LoggedIn) Then
terminatescript;
Writeln( 'Bot Status: Looking for trees...')
Camera;
repeat
If (Not P07_LoggedIn) Then
exit;
wait(2500+random(750));
If P07_FindObjCustom(x, y, ['Chop Down', 'Tree'], [1456433, 1649191], 25) Then
begin;
Mouse(x, y, 4, 4, true);
antiban;
wait(randomrange(2750,4500));
end;
until(P07_invfull);
If P07_invfull then
fletch;
end;
Procedure StartScript;
begin;
SetupSRL;
SetupP07Include;
ActivateClient;
end;
Begin
StartScript;
ClearDebug;
Repeat
CutTree;
Until(false);
end.
Please note, this script is VERY basic.
Also, this script only cuts NORMAL LOGS.
http://i46.tinypic.com/359hkqs.jpg
{$define SMART}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Procedure Camera;
begin;
If (Not P07_LoggedIn) Then
terminatescript;
KeyDown(38);
Wait(RandomRange(1800,2000));
KeyUp(38);
P07_MakeCompassDegree(50);
End;
Procedure AntiBan;
begin
wait(randomrange(250,750));
if not(P07_loggedin)then
Exit;
case Random(6) of
0: P07_MakeCompassSouth;
1: P07_MakeCompassNorth;
2: P07_MakeCameraAngleLow;
3: P07_MakeCameraAngleHigh;
4: P07_MakeCompassEast;
5: P07_MakeCompassWest;
6: P07_HoverSkill('woodcutting',RandomRange(2500,3500 ));
end;
end;
Procedure Fletch;
Begin;
Mouse(576, 277, 2, 2, true);
Mouse(619, 231, 2, 2, true);
Mouse(68, 402, 2, 2, false);
Mouse(54, 457, 1, 1, true);
antiban;
wait(4000+random(2000));
End;
Procedure CutTree;
var x, y: Integer;
begin;
If (Not P07_LoggedIn) Then
terminatescript;
Writeln( 'Bot Status: Looking for trees...')
Camera;
repeat
If (Not P07_LoggedIn) Then
exit;
wait(2500+random(750));
If P07_FindObjCustom(x, y, ['Chop Down', 'Tree'], [1456433, 1649191], 25) Then
begin;
Mouse(x, y, 4, 4, true);
antiban;
wait(randomrange(2750,4500));
end;
until(P07_invfull);
If P07_invfull then
fletch;
end;
Procedure StartScript;
begin;
SetupSRL;
SetupP07Include;
ActivateClient;
end;
Begin
StartScript;
ClearDebug;
Repeat
CutTree;
Until(false);
end.
Please note, this script is VERY basic.
Also, this script only cuts NORMAL LOGS.
http://i46.tinypic.com/359hkqs.jpg