Ghost's Willow Banker

Updated On 11/25/09 Verison 1.2

Status: Broken (Thanks to RS update Dec 3,2009)

I have added:

1) A Few More Failsafes

2) MultiPlayer

3) A Few other things to help the script find those symbols

4) Now Should bank better



I still need feedback on how it works and if there are any bugs



This is just a beta right now Enjoy!



Start At Draynor's Willow Tree Spot By Draynor Bank



I'll Be Adding More Stuff To It In The Next Few Days

Please Post Report And Any Bugs You Find, Thanks

This Is The Smart Verison Of It

Need Help Or Just Want To Say Good Job MSN Message Me At [email protected]




Progress Report:

Code:

+++++++++Ghosts WillowKiller+++++++++
+++++++++++++++++++++++++++++++++++++
Script Ran For: 15 Minutes and 3 Seconds
Logs Banked: 108
Exp Gained: 7236
+++++++++++++++++++++++++++++++++++++

Code:

{==============================================================================]
[                     Draynor Willow Banker Made By Ghostman                   ]
[                               SRL And SCAR                                   ]
[                                                                              ]
[                  Please Don't Post Anywhere Else Without Asking Me First     ]
[                                                                              ]
[                                                                              ]
[==============================================================================]
[                              Description.                                    ]
[==============================================================================]
[  This script cut willow in the back of Draynor bank and banks them.          ]
[  Thats it for the description lol. I'll add more to ir later.                ]
[==============================================================================]
[                             Instructions.                                    ]
[==============================================================================]
[ 1. Start By The Willows At The Back of Draynor Bank.                         ]
[                                                                              ]
[ 2. You Can Have Your Axe Equiped Or Not                                      ]
[                                                                              ]
[ 3. Setup Player Information Up On Lines 41-45.                               ]
[                                                                              ]
[ 4. Hit Run And Enjoy The Script.                                             ]
[==============================================================================]
[                                Extras.                                       ]
[                                                                              ]
[                                                                              ]
[ If You Have Anyideas For The Script Post Them On The Thread Or MSN Message Me]
[                                                                              ]
[ Remember To Post Those Progress Report Of The Script On My Thread.           ]
[                                                                              ]
[ If You Find Any Bugs Please Let Me Know.                                     ]
[==============================================================================}
program GhostsTreeKiller;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
Var
x,y,Logs,Loads,Exp,LoadsFin,LoadsUntilSwitch:integer;


Const
 SmartWorld = 171;//World to load
 Members = False;//Members?
 SignedClient = True;//Used signed client?
 HighDetail = False;//Use high detail?

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

  With Players[0] do
  begin
    Name        :='';//Username
    Pass        :='';//Password
    Nick        :=''//3-4 Letters of your username, no caps or first letter
    Active      := True;// Active or Not
    Pin         :='';//Leave blank if there is no bank pin
    Integers[0] := 100;
  end;

  With Players[1] do
  begin
    Name        :='';//Username
    Pass        :='';//Password
    Nick        :=''//3-4 Letters of your username, no caps or first letter
    Active      :=False;// Active or Not
    Pin         :='';//Leave blank if there is no bank pin
    Integers[0] :=100;
  end;
end;


/////Don't touch anything past this///////////////
Procedure Antiban;
begin
 if(not(LoggedIn))then Exit;
 case random(600) of
     0..10: BoredHuman;
  100..110: HoverSkill('Woodcutting',False);
  200..210: RandomMovement;
  300..310:begin
            Gametab(21+Random(16));
             Wait(1400+Random(1600));
            Gametab(Tab_inv);
           end;
  400..410: PickUpMouse;
  500..510: begin
      SetAngle(False);
       Wait(Random(150+Random(400)));
        MakeCompass('E');
         Wait(Random(200+Random(325)));
          MakeCompass('W');
          Wait(Random(400+Random(500)));
         SetAngle(True);
        MakeCompass('N');
       Wait(152+(Random(100)));
      MakeCompass('S');
     end;
  end;
end;


Function FindRandom: Boolean;
begin
 If(Not(LoggedIn)) then Exit;
   Result := FindNormalRandoms;
   If FindFight Then
   begin
    RunAway('N',True,1,15000);
  end;
 exit;
end;


Function WalkToTree: Boolean;
begin
 if (not(LoggedIn)) then
  LoginPlayer;
  MakeCompass('S');
  SetAngle(True);
  begin
    SymbolAccuracy:=0.1;
      Wait(450+(Random(100)));
     If FindSymbol(x,y,'fish') then
  begin
   SetRun(True);
    Mouse(x,y,4,4,True);
     FFlag(10);
      result := True;
       Writeln('Walking To Trees');
      end else
       begin
         WriteLn('Cant Find Symbol');
         Players[CurrentPlayer].Active := False;
         Players[CurrentPlayer].Loc :='Walking To Trees';
        LogOut;
        NextPlayer(False);
      Exit;
    end;
  end;
end;


procedure Choptree;
Var
 MarkedTime: integer;
begin
 if(not(LoggedIn)) then Exit;
  MarkTime(MarkedTime);
  begin
   Repeat
    If (not(LoggedIn)) then Break;
     Wait(3000+Random(500));
    If FindObjTPA(x,y,3165781,13,-1,10,15,15,['Willow']) then
  begin
   If (IsUpText('Chop down Willow')) then
    Wait(1000+Random(450));
     begin
      FindRandom;
       Mouse(x,y,0,0,false);
        Wait(1500+(Random(100)));
      ChooseOption('hop')
    Wait(2000+(Random(250)));
   end;
  end;
  Until((InvFull) or (TimeFromMark(MarkedTime)>=15000));
 end;
end;


Function WalkToBank: Boolean;
begin
 if (not(LoggedIn)) then Exit;
  if(InvFull) then
  begin
   SetRun(True);
    SymbolAccuracy:=0.2;
     WriteLn('Walking To Bank');
    if findSymbol(x,y,'bank') then
   begin
    Mouse(x,y,4,4,true)
     FFlag(10);
     Result:=True;
   end else
   begin
    WriteLn('Cant Find Bank');
    Players[CurrentPLayer].Active := False;
    PLayers[CurrentPlayer].Loc := 'Walking To Bank';
    LogOut;
    NextPlayer(False);
   Exit;
  end;
 end;
end;
    

Function Bankit: Boolean;
Var
Willow:integer;
begin
 if (not(LoggedIn)) then Exit;
 if (InvFull) then
  begin
   Willow := DTMFromString('78DA63DCCBC4C050CDC80002CC0C1060AA2FC' +
       '02007A441A2FF8180F114504D3DAA1A060626B81A10603C065453' +
       '4A40CD11A09A7C026A7601D5143132A00226881C4CCD26841A9CE' +
       '66C00AAA924A0660D11FEDA0254D34A40CD3EA09A16026A8E03D5' +
       '34E25703009A29135C');
   If OpenBank('db',True,True)then
  end;
  begin
  Wait(500+Random(400));
   FixBank;
   If PinScreen then InPin(Players[CurrentPlayer].Pin);
    If (FindDTM(Willow,x,y,MIX1,MIY1,MIX2,MIY2)) then
    begin
     Mouse(x,y,4,4,False);
      Wait(250+Random(100));
      ChooseOption('All');
      Result:=True;
      Logs:=logs+27;
       Exp:=Exp+27;
        LoadsFin:=1;
        CloseBank;
        FreeDTM(Willow);
        WalkToTree;
     end;
   end;
 end;
 

Procedure ProgressReport;
begin
 ClearDebug;
 WriteLn('+++++++++Ghostmans WillowKiller+++++++++');
 WriteLn('++++++++++++++++++++++++++++++++++++++++');
 WriteLn('Script Ran For: ' + TimeRunning);
 WriteLn('Logs Banked: ' + IntToStr(Logs));
 WriteLn('Exp Gained: ' + IntToStr(Exp*67));
 WriteLn('Loads Finished: ' + IntToStr(LoadsFin));
 WriteLn('++++++++++++++++++++++++++++++++++++++++');
 WriteLn('++++++++++++++++++++++++++++++++++++++++');
 end;


procedure MainLoop;
begin
 If(Not(LoggedIn)) then LoginPlayer;
   begin
    WalkToTree;
     Repeat
      Repeat
       LoadsUntilSwitch := Players[CurrentPlayer].Integers[0];
      FindRandom;
     Antiban;
    ChopTree;
   if Invfull then
 begin;
  WalkToBank;
  Bankit;
 end;
 ProgressReport;
  Until(LoadsFin >= LoadsUntilSwitch) or (Not(LoggedIn));
   If LoadsFin = LoadsUntilSwitch then
   WriteLn('Finished Loads, Loading Other Account');
   Players[CurrentPlayer].Active := False;
   If PlayersActive > 0 then NextPlayer(False);
   Until AllPlayersInactive;
   Logout;
  TerminateScript;
  WriteLn('All Players Are Inactive');
  ProgressReport;
  end;
 end;




begin
 Smart_Server := 171;//World to load?
 Smart_Members := False;//Members?
 Smart_Signed := True;//Signed client?
 Smart_SuperDetail := False;//SMART high detail?
  SetupSRL;
   ClearDebug;
    DeclarePlayers;
     ActivateClient;
    LogInPlayer;
   Repeat
  MainLoop;
 Until (False)
end.

 

Easier way to remove SMART is to just change:
{.include SRL/SRL/Misc/Smart.scar}
to
{ include SRL/SRL/Misc/Smart.scar}
that breaks the concection with SRL SMART within the script.
(means no one will fiddle with the script and delete the wrong things overall making it harder for you to fix there problems)

Many Thanks
-Sgt Soul-

 

True, thanks for clearing that up for everyone =)

 

Anytime, if you need any other help don't be affraid to ask

 

I update my script so everything should be working 100% if any bugs please post them.

 

Can't run it..

Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Misc\Smart.scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL.scar does not exist.
Failed when compiling



What could i do about that?

 

http://www.villavu.com/forum/showthread.php?t=47714&highlight=guide

Here a link to a guide on how to update your SRL

 

New client targeted
Successfully compiled (5441 ms)
Line 37: [Hint] (21176:1): Variable 'LOADS' never used in script
SRL Compiled in 15 msec
SMART Initialized.
Loaded: Server 171, Members: False, Signed: True, Super Detail: False.
Invalid world number or corrupted world list. Please review your settings
Successfully executed


Whats could i do ?

 

change the smart world under const


try putting in 1

 

allmost the same thing again.. >.<


New client targeted
Successfully compiled (5380 ms)
Line 37: [Hint] (21176:1): Variable 'LOADS' never used in script
SRL Compiled in 10030 msec
SMART Initialized.
Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
Invalid world number or corrupted world list. Please review your settings
Successfully executed

 

there is no means to target anything smart should load runescape by itself

that maybe the problem

I will check as soon as I can