Simba Code:
program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
{$DEFINE SMART}
{$i srl/srl.scar}
{$i sps/sps.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
End;
program new;
VarPts: TPointArray;
begin
smart_server := 1;
smart_members := false;
smart_signed := true;
smart_superDetail := false;
ClearDebug;SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['0_2']);
pts := [Point(4710, 3764), Point(4809, 3735), Point(4724, 3703), Point(4578, 3704), Point(4523, 3696), Point(4380, 3700), Point(4206, 3715), Point(4160, 3705)];
SPS_Continue := true;
end.
Procedure ChopTree;
Var
x,y: Integer;
Begin;
Repeat
If FindObj(x,y,'hop',1785912, 35)Then
Begin
Mouse(x,y,0,0, true);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('willow')or InvFull
Wait(3000)
Repeat
Wait(3000+random(250));
Until not IsUpText('willow')or InvFull
end;
Until(False);
End;
Var
x,y,I:Integer;
Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
If(FindColorTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
end;
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
Start;
end.