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

{==============================================================================]
[                     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.