WillowRapist1.0Draynor Willow Cutter + Dropper

FUCK SCAR - RSBOT IS WAYYYY BETTER

GET IT FROM http://updater.powerbot.org/RSBot.jar

[[[ UPDATED REGULARLY ]]]

NEWS: I want your proggys!!! After using WillowRapist, I will love you to post the proggy after to show people this is an actual working script! btw the proggy is the thing in the debug box at the bottom. it'll say something like logschopped: xpgained: blah blah blah.
Also keep posting (not spam of course ) so this script does not die! It is a great script that works perfectly so it would be a shame for everyone to forget about it!

I Had an idea... If you see someone botting and think its with my script... Post a screenie of them then if they see it they'll be like WTF?!? I'll be taking part too! If you see me botting (skill3dg3) screenie it and post it and i will lol so hard Just a bit of fun lol

FOR SOME REASON THE SCRIPT ISN'T WORKING ATM.. TRYING TO FIX =D
Help would be appreciated, not really a good scripter

This was last checked on February the 16th and is NOT working.
Reason: It dosnt click trees for some reason... im working on it now

THANKS FOR OVER 3K VEIWS
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~DOES NOT WORK WITH GOOGLE CHROME OR VISTA SO DONT ASK WHY IT DONT WORK JUST CUZ U HAVNT READ THIS!!~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~AS FAR IS I KNOW IT WORKS WITH EVERYTHING ELSE!!~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~IF IT DOSNT WORK WITH WHATEVER YOUR USING PLEASE POST IT~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~TY~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

I GIVE SOME CREDIT TO HARRROCKS, SINCE HE FIXED A MINOR ERROR​

YOU NEED SCAR TO RUN THIS SCRIPT!! YOU CAN GET IT HERE IF YOU ALREADY HAVE SCAR THEN Well done! Look at you thinking ahead! Lol. Also. if you see part of your script here please post it so i can give you credit!!

So many of these scripts for Woodcutting + Dropping are rubbish. So instead of searching for one, I just took working parts from nn-working scripts, tweaked them, and voila! Out pops the WillowRapist

The auto responder may not work, so you might have to tweak it or use a different one, will have this fixed soon

Ignore the bit where it says Draynor Willow Cutter + Dropper, you can do any tree's. Just change the colours

!!Updates!!

v1.0 = REALEASE!
v1.1 = Added the BoredCutter (speaks randomly, you can change what is being said if you want) // currently screwed!!
v1.2 = Added EntDetection
v1.2.1 = Very small update
v1.4.1 = Added auto respender (Credits 99% SmartCracker, 1% me. I fixed it cuz it didn't work ) // also currently screwed
v1.4.2 = Fixed the script so it works again!!
v1.4.3 = Cleaned it up a bit
v1.4.4 = fixed again
v2.4.4 = added the second script (a banking one!)

!!Coming Soon!!

v3 = Getting SMART!!!!! (that means that it opens a seperate window and does it there, allowing you full access to your pc while botting!)

You dont have to put your name and password if you dont want, it just makes it more accurate, You can put your name and a random password. I use the script exactly, with my name (of my skiller) and ****** as the pass. Use mine if you want. Unless your using SMART, then youll have to put your name and pass cuz it logs you in itself, you cant

Here is the DROPPING script

Code:

///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
//      ConJacKed's Willow Rapist 2.4.4      \\
//     This will cut any tree ANYWHERE      \\
///////////////STUFF IT DOES\\\\\\\\\\\\\\\\\\
//    Cuts down any willow, any location    \\
//      Drops when full inventory           \\
//   Dosnt drop slot 1 (put axe there)      \\
//              Good antiban                \\
//                                          \\
//        !Make sure you near willows!      \\
///////////////////////\\\\\\\\\\\\\\\\\\\\\\\



program WillowRapist;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\WoodCutting.scar}


var
x, y, willowcolor1, willowcolor2, willowcolor3, FindTalk, timerun, loads, Chat, logs, wxp, loadstodo, fail, retries, levelgain: integer;
rundirec: string;

procedure DeclarePlayers;
begin
writeln('Setting up players..');
 HowManyPlayers := 1;
 CurrentPlayer := 0;
 NumberOfPlayers(HowManyPlayers);

 Players[0].Name := 'I Love Bananas';
 Players[0].Pass := 'Yummybananas';
 Players[0].Nick := 'ove';     //3 LOWER CASE LETTERS
 Players[0].Skill := 'woodcutting'; // Skill for genie lamp (coming soon)
 Players[0].Active := True; // Leave this!!
                            //Make More If you Need to
writeln('Players set up!!');
end;

procedure SetUp;
begin
writeln('Lookin for your wc lvl..');
 loadstodo    := 10000; // How Many Invs You Wanna Do
 rundirec     := 'E'  // Direction To Run If Being Attacked (N, E, S, W)
 ActivateClient;
 SetupSRL;
 if not LoggedIn then LogInPlayer;
 willowcolor1 := 3891280; // Change if needed!
 willowcolor2 := 2042403; // Change if needed!
 willowcolor3 := 8430479; // Change if needed!
 loads        := 0;
 logs         := 0;
 wxp          := 0;
 fail         := 0;
 levelgain    := 0;
 retries      := 10;
 wait(1000);
 ClearDebug;
 writeln('//////ConJacKed`s Willow Rapist V1.4.4\\\\\\');
 Players[CurrentPlayer].integers[1] := GetSkillInfo('woodcutting', False);
 writeln('Your Woodcutting level is ' + IntToStr(Players[CurrentPlayer].integers[1]) + '.');
end;


Procedure BoredCutter;
begin
  case random(300) of
    0: TypeSend('wc lvls');
    1: TypeSend('woodcutting lvls');
    2: TypeSend('im soo bored');
    3: TypeSend('i love woodcutting');
    4: TypeSend('*yawn*');
    5: TypeSend('runescape rocks'); // not really
    6: TypeSend('wc lvls??');
    7: TypeSend('wc lvls? mines 54 :)');
    8: TypeSend('brb, i gotta pee :P ');
    9: TypeSend('willows r soo easy to chopp');
    10:TypeSend('*bored*');
    11:TypeSend('I hate noobs...');
  end;
end;


procedure WCRandoms;
var
posx, posy: integer;
begin
 getmousepos(posx,posy);
 FindEnt(posx,posy,true);
 if FindFight then RunAway(rundirec, True, 1, 7000+random(3000));
 if FindNPCChatText('lations', Nothing) then
  begin
  writeln('Omg. WC level up! :D');
  ClickContinue(True, True);
  levelgain := levelgain + 1;
  end;
 if (FindBlackChatMessage('ou do not')) then
  begin
  writeln('Oh no! Our axe is broken, or something went wrong.');
  LogOut;
  end;
end;

procedure SmartDrop;
var
  i: integer;
begin
  for i:= 2 to 28 do
  begin
    DropItem(i);
    FindNormalRandoms;
    if FindFight then RunAway(rundirec, False, 1, 6000+random(3000));
  end;
  loads := loads + 1;
  logs  := logs + 27;
end;


procedure Report;
begin
ClearDebug;
writeln('~~~~~~~~~~~~~~~~~~~~~~~');
writeln('WillowRaping Report');
writeln('Run Time : ' + TimeRunning);
writeln('Loads Done: ' + IntToStr(loads));
writeln('Logs Cut: ' + IntToStr(logs));
writeln('XP Gained: ' + IntToStr(logs * 75));
writeln('Levels Gained: ' + IntToStr(levelgain));
writeln('Note: the number of logs and xp may vary,');
writeln('because of random event rewards.');
writeln('~~~~~~~~~~~~~~~~~~~~~~~');
writeln('Thanks for using WillowRapist');
if loads=loadstodo then
 begin
 writeln('You have cut all your Loads! Well Done!');
 LogOut;
 end;
end;

procedure Runtime;
begin
wait(6000);
timerun := timerun + 1;
end;


procedure RespondToPlayers;
var
  TheOldMessage, CurrentMessage, I: Byte;
  Levels, Macro: TStringArray;
begin
  Levels := ['vl', 'evel', 'Wc', 'wc', 'oodcutting', 'oodcut'];
  Macro := ['acro', 'Macro', 'Bot', 'bot', 'Auto', 'auto'];
  for I := 0 to 5 do
  begin
    begin
      CurrentMessage := 0;
      if (CurrentMessage = TheOldMessage) then
        Exit;
      case (Random(5)) of
        1: TypeSend('Mine is ' + IntToStr(Players[CurrentPlayer].Integers[2]) + '.');
        2: TypeSend(IntToStr(Players[CurrentPlayer].Integers[2]) + ', you?');
        3: TypeSend(IntToStr(Players[CurrentPlayer].Integers[2]));
        4: TypeSend('I have ' + IntToStr(Players[CurrentPlayer].Integers[2]) + ' Woodcutting.');
        5: TypeSend('1, jokes! ' + IntToStr(Players[CurrentPlayer].Integers[2]) + '.');
      end;
      TheOldMessage := CurrentMessage;
      WriteLn('Responded [Levels]');
      ReportVars[7] := ReportVars[7] + 1;
      Exit;
    end;
    Wait(150 + Random(50));
    begin
      CurrentMessage := 1;
      if (CurrentMessage = TheOldMessage) then
        Exit;
      case (Random(5)) of
        1: TypeSend('?');
        2: TypeSend('Im too busy');
        3: TypeSend('What?');
        4: TypeSend('...');
        5: TypeSend('   ');
      end;
      TheOldMessage := CurrentMessage;
      WriteLn('Responded [Players Nick]');
      ReportVars[7] := ReportVars[7] + 1;
      Exit;
    end;
    Wait(150 + Random(50));
    begin
      CurrentMessage := 2;
      if (CurrentMessage = TheOldMessage) then
        Exit;
      case (Random(5)) of
        1: TypeSend('Leave me alone, just how I roll ;p');
        2: TypeSend('... Go away much?');
        3: TypeSend('No I am not, beep! ;p');
        4: TypeSend('Autos arent real, theyre asIans who play too much.');
        5: TypeSend('Rofl, autos arent real, theyre virus.');
      end;
      TheOldMessage := CurrentMessage;
      WriteLn('Responded [Macro]');
      ReportVars[7] := ReportVars[7] + 1;
      Exit;
    end;
  end;
  Exit;
end;

procedure FindBrokenAxe;
var
  baxe: integer;
begin
  if not (LoggedIn) then
    Exit;
  if TimeFromMark(baxe) < 1500 then
    Exit;
  FindNormalRandoms;
  MarkTime(baxe);
  if (FindBlackChatMessage('ou do not')) then
  begin
    Writeln('Axe has been broken');
    LogOut;
    Players[CurrentPlayer].Active := False;
    NextPlayer(Players[CurrentPlayer].Active);
  end;
end;

procedure MainTree;
begin
 repeat
 if fail = 5 then
  begin
  Report;
  writeln('Cant find any willows :(');
  LogOut;
  TerminateScript;
  end;
 SetRun(true);
 FindNormalRandoms;
 if FindObjCustom(x, y, ['illow'], [willowcolor1, willowcolor2, willowcolor3], 3) then
   begin
   fail := 0;
   retries := 5;
   Mouse(x, y, 15, 15, true);
   WCRandoms;
   FindNormalRandoms;
   FindNormalRandoms;
   if FindFight then RunAway(rundirec, True, 1, 7000+random(3000));
   wait(6873+random(1127));
   end else
   fail    := fail + 1;
   retries := retries - 1;
   writeln('Willowfinder failed... trying again ' + IntToStr(retries) + ' times.');
   SendArrowWait(1,500+random(1000));
   until(InvFull);
 if InvFull then SmartDrop;
HoverSkill('Woodcutting', False);
HoverSkill('Firemaking', False);
 Report;
end;

begin
 DeclarePlayers;
 SetUp;
  repeat
  Report;
  MainTree;
  until(false);
Report;
end.

If there are any major problems, just say and i will try and fix. I am EXTREMELY new to this and this is my 1st script, so dont be harsh

Advice will be muchly appreciated

Thanks,





If you are looking for the best places with barely any people to do this auto... here are the best for Willows and Yews

WILLOWS -- A little place i call Willow Lake (max people on a world with not many people is about 1-3)



YEWS -- Great because there is 4 next to eachother =D (only ever a few people there)



Also... just to clear things up... I DID NOT MAKE THIS SCRIPT!!!!! ITS A LITTLE BIT FROM A FEW PEOPLES!!! I took a non working script, Looked for the bits that didnt work, and just swapped it for part of another script. It was pretty much trial and error. So Scipt making people... If you see part of you script... Please post it so i can give you credit. thats the only thing i forgot to do wilst making the script. And if anyone asks me to make them i script i will Rofl since i cant make scripts cuz im very very noobish at this. Just cuz i have a working script dosnt mean i cam make them

 

I will try and get SCAR to work and try it. Thanks.

 

script works great dude thanks

 

Glad you like it

Did the EntDetection work OK? I havn't come across an Ent so I don't know if it works

 

If anyone has a Banking script or AutoResponce script, please leave as comment, i need them

 

It doesnt work, it doesnt run

 

It does work, because I can use it

Does it just not run or does it say [ERROR] in the debug??

Please be more specific so I can actually help or post a screenshot that would be better

 

Is there any particular reason why it checks the achievement diaries?

 

Antiban

 

hey conjacked its messing up like it says the woodcutting.scar arent working
if u add [email protected] in msn i can talk there

 

Line 47: [Error] (47:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.21\includes\SRL\SRL\Core\Math.scar

Thats an error i get, ima noob with this, so I probably did something wrong, i just copypasted it into scar.

 

Ahh, That happend to me on my laptop.

i have no idea how to fix it since its saying there is a problem with 'Math' in the SRL Core files. I have asked freddy1990 how to fix it and i am awaiting his reply, i will let you know how to fix it when i know

 

do you have vista on your laptop, and something else on your pc?

 

Ahh that might be the problem because i do. Well spotted

You may have to find an older version of the SRL files, either that or scar isnt compatible with Vista

 

If it's for antiban why couldn't it be something that makes more sense like friendslist or stats?

 

Ok, I have changed it so it checks quests and after it drops it goes to stats and sees how much xp you need in woodcutting and firemaking

 

It doesnt work.

I click run and the mouse just goes to the far end of the screen and I cant move it....

 

You need to select the RS window

At the top of scar there is a black circle on the toolbar at the far right. Click and drag that onto the RS window then it should work fine

 

..I'm not a noob at this, I've selected it. I run it it says compiled and run, and then it just goes to the black on the window.

Im using Google Chrome, would that be a problem?

Edit: WORKS PERFECT ON Internet Explorer.

It is not compatible with Google Chrome.

Thanks dude, great script.

 

so thats something else it dosnt work with :S

oh well

Glad it works for you now