SRL Archive - Jr. Member General Help and Discussion

my basic woodcutterneed help with dropping inv so i can start again

program mikeswc;
{$DEFINE SMART8}
{$i SRL-OSR/Srl.simba}

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;

procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
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
if FindObj(x, y, 'hop',2583407, 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;

begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.

I left some feedback on your script thread.

And I believe the function to drop all the logs is dropall; ?

so you'll just have to do

repeat
  ChopTree;
  DropAll;
Until(false);

That's the basic script for it.

//declare "i_AxePos" in global variables

function GetAxePos() as TIntegerArray;
begin
return;
end;

procedure dropInv;
begin
DropAllExcept(i_AxePos);
end;

// Include something like in your initializing sequence
if WieldAxe then
i_AxePos = [];
else
i_AxePos = GetAxePos();