butthole
2010-08-18 00:54:22
I needed a bot to get me from 1-30 woodcutting and I couldn't find anything on here that still worked so I decided to give my first script a go.
I borrowed the antibans from the al kharid smelter and modified them a tad.
It cuts and drops evergreen trees. If it clicks to cut an evergreen it will wait 1200+random(250) 10 times before attempting another tree or until a log enters your inventory.
I probably overdid it with how many times i check for random events but I haven't gotten one yet so I'm not sure how that works.
So far its gotten me 1-40 Woodcutting and I'm gonna leave it on overnight so i'll post an update on how far it gets tomorrow.
I borrowed the antibans from the al kharid smelter and modified them a tad.
It cuts and drops evergreen trees. If it clicks to cut an evergreen it will wait 1200+random(250) 10 times before attempting another tree or until a log enters your inventory.
I probably overdid it with how many times i check for random events but I haven't gotten one yet so I'm not sure how that works.
So far its gotten me 1-40 Woodcutting and I'm gonna leave it on overnight so i'll post an update on how far it gets tomorrow.
{$DEFINE SMART}
{$i SRL/SRL.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;//You may change that for any number of players.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Don't touch
With Players[0] do
begin
Name := '';//RS nickname
Pass := '';//RS password
Nick := '';//3-4 lowercase letters from your nickname
Pin := '';//RS bank pin
Active:= True;
BoxRewards := ['xp', 'lamp', 'imy', 'oins', 'apphire', 'ssence'];//In what order you’d like to get rewards from random events. I chose xp first, then xp lamps, then grimy herbs, you get the idea.
end;
end;
Procedure Antibans;
begin
case Random(60) of
0: wait(1000+random(10000));
1: begin
RandomMovement;
SetAngle(true);
end;
2,4: HoverSkill('woodcutting' ,false);
3: PickUpMouse;
5: if random(20) = 1 then
Wait(RandomRange(29000, 59000));//29-59secs
end;end;
procedure ChopTree;
var rnum, x, y, lognum, times: integer;
begin
lognum:=InvCount;
repeat
FindNormalRandoms;
Antibans;
times:=0;
//Writeln(lognum);
if not LoggedIn then LoginPlayer;
if FindObjCustom(x, y, ['ver','green'], [3564376,3828833,2771522], 7) then
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
repeat
FindNormalRandoms;
wait(1200+random(250));
times:=times+1;
// Writeln(times);
if not LoggedIn then LoginPlayer;
if(times>=10)then lognum:=lognum-1;
Until ExistsItem(lognum);
lognum:=lognum+1;
until InvFull;
end;
Begin
Smart_Server := 1;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
if not LoggedIn then LoginPlayer;
wait(4000+random(2500));
SetAngle(true);
MakeCompass('n');
wait(3000+random(3000));
repeat
ChopTree;
FindNormalRandoms;
DropAllExcept([1]);
FindNormalRandoms;
until 1=2 // run forever.
End.