Dropping supports hatchet in first inventory slot; should have less miss-clicks.
program Sams_PowerChopper;
{$DEFINE SMART}
{$i srl\srl.simba}
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True
End;
End;
const
SRLStats_Username = '';
SRLStats_Password = '';
LoadCount = 50;
var
x,y,LoadsDone,Count:integer;
Procedure Report;
begin
ClearDebug;
WriteLn('========================================= ============================');
WriteLn(Padr('|| LoadsDone:'+ IntToStr(LoadsDone), 67) + '||');
WriteLn('========================================= ============================');
stats_IncVariable('Willow Logs Chopped', 1);
end;
Procedure PlayerSetup;
begin
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
FindNormalRandoms;
SetRun(True);
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
end;
end;
end;
procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x,y,'hop',3227711,1) or FindObj(x,y,'own',3227711,1) or FindObj(x,y,'illow',3227711,20) or WaitupText('hop Down', 545) then
begin
Mouse(x,y,0,0,true);
ChooseOption('Chop Down');
end;
repeat
wait(4000+random(2000));
Until not IsUpText('illow') or (InvFull);
until(InvFull);
end;
Procedure DropLogs;
var
i: Integer;
begin
FindNormalRandoms;
Writeln('Dropping');
for I:=2 to 28 do
begin
if FindNormalRandoms or (not LoggedIn) then
Exit;
InvMouse(I,mouse_right);
Wait(RandomRange(50,80));
if ChooseOption('rop') then
Wait(RandomRange(50,70));
if ExistsItem(I) then
begin
InvMouse(I,2);
wait(RandomRange(100,200));
if ChooseOption('rop') then
begin
writeln('dropping again');
Wait(500+Random(800));
end;
inc(LoadsDone);
end;
end;
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
PlayerSetup;
repeat
SetAngle(SRL_ANGLE_HIGH);
ChopTree;
Antiban;
DropLogs;
inc(count);
Until(count=loadcount);
end.
