JAD Willow - edgevil willow cutter + banker.

Update: April 12th. fixed a lot of walking problems, should run more smoothly now (hopefully)

Update: April 7th or something like that lol. Fixed script to make it more reliable to do more loads (I got a proggy of 45 minutes!!) Made willow clicking on tree when it re spawns much faster. Made better banking procedure for more speed and less weird mouse movements for less detectability

OK, this is my first fully functioning script, Hope you like it Please post feed back! Bugs/enhancements/compliments and Proggies!! Start Script with current player LOGGED IN!

Future updates:
More anti ban.
Auto responder.
Forms (probably)
Axe head finding/attaching.

Happy autoing

Code:

{//-----------------------------------------------------------------------------\\
   This script will chop willows at edgevil bank. Start ALL active players
at edgevil farthest east bank slot. Axes weilded or un weilded. This script
does NOT feature axe head finding, Will add soon. Do setup and do setup for
DeclarePlayers on lines 28-68. Please remember to post proggies where you
got this script :) Happy autoing!
//------------------------------------------------------------------------------\\}

program JADWillow;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//------------------------------------------------------------------------------\\
//-------------------------------> Setup <--------------------------------------\\
//------------------------------------------------------------------------------\\

  DirTorun = 'N';
  Loads = 10; //Loads to do before switching players.

//------------------------------------------------------------------------------\\
//----> Auto Colors Only set these if the script is not finding the Willow <----\\
//------------------------------------------------------------------------------\\

  WillowColor  = 5398624; //Color of willow tree on Main Screen
  WillowColorB = 3174496; //another color of willow on Main Screen
  WillowColorC = 4293865; //another color of willow on Main Screen

//------------------------------> End Setup <-----------------------------------\\

                   // DO NOT TOUCH THESE! \\
var GrassColor, GrassBMP, BankBMP, GBankColor, Tries, Willow: Integer;
  EntCount, LoadsNum, LoadsNumB, BushWater, BushWaterColor: Integer;
  DidRandomHappen: Boolean;
                   //                     \\
{**************************************************************************

                ----------> Setup Players here <----------

**************************************************************************}

procedure DeclarePlayers;
begin
  HowManyPlayers := 6; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

    //set all user names, passwords and nicks correctly please.

  Players[0].Name := 'Jadseven';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'dsev';
  Players[0].Active := True;
  Players[0].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := '3-4 letters of UserName';
  Players[1].Active := False;
  Players[1].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;
  Players[2].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := '3-4 letters of UserName';
  Players[3].Active := False;
  Players[3].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := '3-4 letters of UserName';
  Players[4].Active := False;
  Players[4].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := '3-4 letters of UserName';
  Players[5].Active := False;
  Players[5].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
    { don't touch below unless you know what your doing! }

procedure Signature;
begin
  ClearDebug;
  writeln(' JAD willow chopper by yours truely:');
  writeln('   __________   /\       ______     ');
  writeln('  |__________| /  \     | ____ \    ');
  writeln('      |  |    / /\ \    | |   \ \   ');
  writeln('  ___ |  |   / /__\ \   | |    \ \  ');
  writeln('  \  \|  |  / /____\ \  | |    / /  ');
  writeln('   \     | / /      \ \ | |___/ /   ');
  writeln('    \____|/ /        \ \|______/    ');
  wait(3000 + random(750));
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

              ----------> Random Finding <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
  if (Result = true) then
    DidRandomHappen := true;
end;

///////////////////////////////////////////////////////////////////////////

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  if (FindNormalRandoms) then
    DidRandomHappen := true;
  if (FindEnt(WillowColor)) then
  begin
    RunAwayDirection(DirToRun);
    Flag;
    Wait(5000 + random(1500));
    RunBack;
    DidRandomHappen := true;
    EntCount := EntCount + 1;
  end;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

                ----------> JAD Proggy <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure JADProggy;
begin
  ClearDebug;
  Writeln('  Please Check out + register on me and pwnaz0rs forums at: ');
  Writeln('              Uberbroproductions.net/forums                 ');
  Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-            ');
  Writeln('||  JAD Progress report. Please remember to post            ');
  Writeln('||  proggies/bugs wherever you got this script :)           ');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=            ');
  Writeln('||  Worked For : ' + ScriptTime2(2));
  Writeln('||  Did ' + IntToStr(LoadsNum) + ' Loads                    ');
  Writeln('||  Avoided ' + IntToStr(EntCount) + ' ents                 ');
  Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-            ');
  Writeln('||Thanks for using JAD Willow, happy autoing :)             ');
  SRLRandomsReport;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

             ----------> Walking to Willow <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure WalkToWillow;
begin
  MakeCompass('N');
  GrassBMP := BitmapFromString(8, 10, 'z78DA33333177357433A' +
         '335E9483439D8D4E3275D2D0CD1C841A61E006F046F69');
  BushWater := BitmapFromString(3, 6, 'z78DA33753237363434763' +
       '1333632C0244D2DCC0D8D5C4CDC4C8C0D2D90C52122C8E266C6E6' +
       'E68E66F84900E0D7170F');

  BushWaterColor := AutoColorThis(BushWater, 50, MMX1, MMY1, MMX2, MMY2);
  RadialWalk(BushWaterColor, 75, 105, 70, 2, 2);
  wait(6000 + random(1500));
  Flag;
  Wait(200 + random(100));
  Tries := 0;
  repeat
    if(Tries = 40)then
    begin
      Writeln('Could not find willow... :( terminating script..');
      TerminateScript;
    end;
    wait(300 + random(150));
    Tries := Tries + 1;
  until (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3)) or
  (FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)) or
  (FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3));
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

              ----------> Walking to Bank <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure WalkToBank;
begin
  if (InvFull) then
  begin
    MakeCompass('N');
    BankBMP := BitmapFromString(5, 6, 'z78DA33773273337373' +
    '3375757435C724CD91644DDD4CCD4D4D9149F264DD5CDD5C0D8D9' +
    '1D5405582C5DD9CDD9C0D8C90C5A1B260710809000FFE2A8E');
    if(FindSymbol(x,y,'bank'))then
    begin
      Mouse(x,y,2,2,true);
      Flag;
      Exit;
    end;
    if (not (FindBitmap(BankBMP, x, y))) then
    begin
      Mouse(627, 88, 8, 8, true);
      Flag;
    end;
    GBankColor := AutoColorThis(BankBMP, 50, MMX1, MMY1, MMX2, MMY2);
    RadialWalk(GBankColor, 270, 290, 68, 2, 2);
    Flag;
    wait(200 + random(100));
  end;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

             ----------> Willow Chopping <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

function ChopIt: Boolean;
begin
  repeat
    if (not (LoggedIn)) then
      Exit;
    if (FindColorTolerance(x, y, WillowColor, 160, 97, 516, 209, 3)) or
      (FindColorTolerance(x, y, WillowColorB, 160, 97, 516, 209, 3)) or
      (FindColorTolerance(x, y, WillowColorC, 160, 97, 516, 209, 3)) then
    begin
      MMouse(x, y, 3, 3);
      if (IsUpText('illow')) then
      begin
        Mouse(x, y, 2, 2, true);
        repeat
          if (InvFull) or (PopUp('ontinue')) then
            Exit;
            if(DidRandomHappen = true) then
            begin
              DidRandomHappen:=False;
              Mouse(x, y, 2, 2, true);
            end;
          FindRandoms;
          SleepAndMoveMouse(9671 + random(1709));
          FindRandoms;
        until (not (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3))) or
          (not (FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)))or
          (not (FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3)));
        repeat
          if (InvFull) or (PopUp('ontinue')) then
            Exit;
            if(DidRandomHappen = true) then
            begin
              DidRandomHappen:=False;
              Mouse(x, y, 2, 2, true);
            end;
          wait(750+random(250));
          FindRandoms;
        until (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3)) or
          (FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)) or
          (FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3));
        Result := True;
      end;
    end;
  until (InvFull);
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

              ----------> Banking Willows <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

function BankIt: Boolean;
begin
  if (InvFull) then
  begin
    Willow := DTMFromString('78DA63FCC4C4C0D0C9C8800A1819FE8349068' +
      '6FF40C0C8C08C550D8204D2AC40355308A86104AA994940CD37A0' +
      '7BE61050F31AA8A68F0835B3F0AB010040990CF0');
    MakeCompass('S');
    wait(250 + random(167));
    OpenBankQuiet('eb');
    Flag;
    wait(500 + random(267));
    FixBank;
    if (FindDTM(Willow, x, y, 568, 209, 742, 460)) then
    begin
      Mouse(x, y, 3, 3, false);
      ChooseOption(x, y, 'All');
      Result := True;
      if (Result = True) then
      begin
        LoadsNum := LoadsNum + 1;
        LoadsNumB := LoadsNum + 1;
      end;
    end;
    CloseBank;
    wait(127 + random(278));
    MakeCompass('N');
  end;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

                ----------> Main loop <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure SetupScript;
begin
  Signature;
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
end;

///////////////////////////////////////////////////////////////////////////

begin
  SetupScript;
  repeat
    WalkToWillow;
    ChopIt;
    WalkToBank;
    BankIt;
    if(LoadsNumB=Loads)then
    begin
      NextPlayer(True);
      LoadsNumB:=0;
      HighestAngle;
      MakeCompass('N');
      Writeln('Switched players successfully :)');
    end;
    JADProggy;
  until (False);
end.

 

can any "experienced" scripter verify if it's a keylogger or not? lol

 

hey it didnt work for me

 

but im not very good.. and it aint a keylogger im pretty sure

 

Key logger? lol.. no And why didn't it work? run time error? it didn't do anything when you ran the script? Please explain so I can possibly fix it.

 

Buddy... Learn what you're talking about before you assume it is a keylogger.

A text file like this really cannot (as far as I know) be a keylogger.
It would have to look pretty fishy, and it would probably be easily found.

----------
That script looks incredibly organized!
I'll be sure to try it and post a proggy bud!

 

you guys argue about the weirdest things, but this isnt a very good script

 

And how would this not be a very good script?? first complete script I have ever made.. So yeah, if your going to tell somebody there script isn't good, you should at least tell them why you leacher

 

Willows in edgeville?

 

They're on the river bank.....

 

I think something is wrong when it first starts, this is what it said

SRL Compiled in 704msec.
0
Error detecting Compass Angle.
Color NOT found.


I did the crosshair and did the username and pass part of the script, do you know what I did wrong?

 

Why so many players.Why not just auto in one account.Senseless for too many

 

Incase one gets lost or dies etc. Then you can just log onto a diff 1 and continue choppin

 

IDK if the bitmaps died again.. I'll check if it works on my comp.

 

I can verify thats not a keylogger I would be amused if he could make a keylogger with SCAR (that sends the pass to u).

A decent willow cutter. Im way too lazy to think about testing it anytime soon..

 

Lol thanks gofez0r BTW, are you GoF on SRL forums?

 

yeh it keeps on choping regular trees. and when ever i try to get over the bridge it like freezes or somethin...

 

Lol, what bridge? It shouldn't be going over any bridge unless the walking was screwed up. anyways, walking should be fixed mostly now in new version! Everybody check it out

 

okeyy..

 

nice scrip i got 100 logs then it got all crazy and went into the wildy