WillowRapist BANKING EDITION

[[[ UPDATED REGULARLY ]]]



WOO NEW BANKING WillowRapist
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~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!!

v2.5 = Adding RunTime (not working atm)

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.

Code:

///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
//      ConJacKed's Willow Rapist 1.44      \\
//     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 := 'you smell of';
 Players[0].Pass := 'poo';
 Players[0].Nick := 'ell';     //3 LOWER CASE letters of your name (example, your name is sythepwns, your nick could be yth)
 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 Bank;
begin
  RunAway('S',true,2,2000+Random(1000));
  RunAway('S',false,2,2000+Random(1000));
  RunAway('E',true,2,2000+Random(1000));
  Wait(2500+Random(500));
  repeat
    if(FindSymbol(x,y,'bank')) then Mouse(x,y,1,1,true);
    if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
    begin
      Mouse(x,y,1,1,false);
      Wait(1000+Random(1000));
      ChooseOption('se-q');
      Wait(5500+Random(500));
      Deposit(2,28,true);
      Wait(2000+Random(500));
      Mouse(482,37,1,1,true);
      Wait(4000+Random(500));
    end;
  until(InvFull = False);
  if(FindSymbol(x,y,'bank')) then Mouse(x,y,1,1,true);
  RunAway('W',true,2,2000+Random(1000));
  RunAway('N',false,2,2000+Random(1000));
  RunAway('N',true,2,2000+Random(1000));
end;

Procedure Runner;
  begin
    RunAway('W',true,2,2000+Random(1000));
    RunAway('N',false,2,2000+Random(1000));
    RunAway('N',true,2,2000+Random(1000));
    Wait(2500+Random(500));
  end;



procedure Report;
begin
ClearDebug;
writeln('~~~~~~~~~~~~~~~~~~~~~~~');
writeln('WillowRaping Report');
writeln('Run Time : COMING SOON');
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 Bank;
 logs  := logs + 27;
 loads := loads + 1;
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,





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

 

update:

http://freddy1990.com/scar.php

Your Link was Dead have a nice day

 

Thanks

 

Also I had tried that program couldn't get it to work but the script worked fine in RsBot.

 

Glad it works for you now

 

Glad it works for you now

 

i dont see how i make it run. can you please inform me on how to go about getting it started

 

This is old and untested, i would be suprised if it still works

 

Yeap , doesn't work for me neither

 

noone uses scar anymorr anyway, RSBot is WAYYY better but its fucked atm xD

 

Rsbot is better

 

Best line ever IMO.

 

Wow looks good does it still work?

 

Doubt it, SCAR is shite and ive never tested this script anyway. The original WillowRapist was pretty sick really. Then everyone found RSBot lol

 

Looking amazing!! keep up the good work!!