SRL Archive - RS3 Outdated / Broken Scripts

Hey,

I am using the "Draynor Oak Banker Final" script.
that cuts Oaks for you and banks it

{   CHARMZ AUTO RESPONDER IS IN HERE (GoF's Edit) ...  NOT mine.
            ----------------------------------------------------
                                Instructions
                   1. Fill out DeclarePlayers lines 40 +
                   2. Make sure your player is in Draynor
                      bank and that you have Vbright setting
                      on.
                   3. Make sure you have axe wielded or in 1st
                      inventory spot.
            -----------------------------------------------------
This script will chop oaks in Draynor and bank them.


Note : If it doesn't walk to bank or trees... get the number.
       'Found #3' is an example.
}
Program DraynorOakBanker;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
{.include SRL\SRL\Extended\XBank.SCAR}

Var
  LoadNumber : Integer;
  LogDTM, BrokenAxeDTM, AxeHandleDTM, RegularAxeDTM, CloserTo, WalkToBit, WalkToBit3 : Integer;
  StartXP, EndXP, TotalXP, ExactTree, TotalLogs, BankTrips, WalkBank, WalkToBit2 : Integer;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Button1 : TButton;
  TheTreeName : String;
  AmmountOfLoads, FResponds : Integer;
  TreeColor   : Integer;
  LX, LY, BankedLoggs : Integer;

//->Declare Players<-//
Procedure DeclarePlayers;
begin
  Status('Loading Players')

  HowManyPlayers  := 4;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := 0;

     Players[0].Name      := 'zertoyah';
     Players[0].Pass      := '';
     Players[0].Nick      := 'Nickname'; // 2-4 letters of username
     Players[0].Active    := True;

     Players[1].Name      := 'zertoyah';
     Players[1].Pass      := '';
     Players[1].Nick      := 'Nickname'; // 2-4 letters of username
     Players[1].Active    := True;

     Players[2].Name      := 'zertoyah';
     Players[2].Pass      := '';
     Players[2].Nick      := 'Nickname'; // 2-4 letters of username
     Players[2].Active    := True;

     Players[3].Name      := 'zertoyah';
     Players[3].Pass      := '';
     Players[3].Nick      := 'Nickname'; // 2-4 letters of username
     Players[3].Active    := True;
end;

Const
  AutoResp   = True;
  WantedL    = 3; // Loads you want to do? (Random Loads are added.)
//-----------------------\\
  VersionNum = '1.2 Final';

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

Procedure InitForm;
Begin
Status('Form Is Up')
frmDesign := CreateForm;
frmDesign.Left := 306;
frmDesign.Top := 367;
frmDesign.Width := 428;
frmDesign.Height := 207;
frmDesign.Caption := 'Setup';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 3;
Label1.Top := 20;
Label1.Width := 258;
Label1.Height := 20;
Label1.Caption := 'Loads For Player Before Logging Off';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -17;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 3;
Label2.Top := 50;
Label2.Width := 78;
Label2.Height := 20;
Label2.Caption := 'Tree Name';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -17;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 3;
Label3.Top := 80;
Label3.Width := 73;
Label3.Height := 20;
Label3.Caption := 'Tree Color';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -17;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 269;
Edit1.Top := 20;
Edit1.Width := 24;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := IntToStr(WantedL);
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 87;
Edit2.Top := 50;
Edit2.Width := 58;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := 'Oak';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 87;
Edit3.Top := 79;
Edit3.Width := 69;
Edit3.Height := 21;
Edit3.TabOrder := 10;
Edit3.Text := '876624';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 172;
Button1.Top := 133;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'OK GO';
Button1.ModalResult := 1;
Button1.TabOrder := 11;
end;

Procedure Convert2;
Begin
TheTreeName    := Edit2.text
AmmountOfLoads := StrToInt(Edit1.text)
TreeColor      := StrToInt(Edit3.text)
end;


//->Load Dtm's<-//
Procedure LoadDTMs;

begin
  Status('Loading DTM''s')

  LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '22604E23500D0F0135C94035DCF8D50000507909F5');

  BrokenAxeDTM := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
       '990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
       'C41050B31FA8A698809AB384CD0100CBBD0D20');

  AxeHandleDTM := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
       '990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
       'F81350F316A8C685809A97403541F8D50000D0090D3C');

  RegularAxeDTM := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
       '448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
       '2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
       'E0099720B7E');

  WalkToBit  := DTMFromString('78DA638C676260506740012A0CEC0C5C409A1' +
       '188FF030123488D1AAA9A2C3B690611A81A10608CC13407434D22' +
       '116AE2806A34F0AB01006D340A3E');
       
  WalkToBit2 := DTMFromString('78DA636464666098CC80024C1938195280342' +
       '310FF0702C67F4C186AE2D5381934A06A4080919999B01A06A09A' +
       '4944A899825F0D0030C20B70');

  WalkToBit3 := DTMFromString('78DA636C626260306040010ECCEC0C1C409A1' +
       '188FF0301633DA69A440B760611A81A10606C25420DC82E4322D4' +
       'E8E3570300B6030AAD');

  WalkBank   := DTMFromString('78DA63DCC6C4C0A0C980027881425C409A118' +
       '8FF030123488D1AAA9A78356E0639A81A1000ABD126A0663BA65D' +
       '186AB612560300E9920B3C');
       
  CloserTo  := DTMFromString('78DA6364606660D8CC800292A2A3C1342394C' +
       'F0852B30D55CD9F3F4CA86AFE03F9BB08A80199B30EBF1A00F5B3' +
       '0AEA');

  ExactTree  := DTMFromString('78DA63EC63626088604001828E0C0C5C409A1' +
       '188FF03016313A61AA91046B81A10606C03AA71C5AF06001F4407' +
       'E2');
end;

//->Walk Back To Trees<-//
Var
  CC, YY : Integer;
Procedure WalkBackTree;
Begin
  MakeCompass('N')
  If FindDtm(WalkToBit3, CC, YY, MMX1, MMY1, MMX2, MMY2) then
  Begin
    WriteLn('Found # 3')
    Mouse(CC + 46, YY + 44, 0, 0, True)
    flag;
  end else
  If FindDtm(WalkToBit, CC, YY, MMX1, MMY1, MMX2, MMY2) then
  Begin
    WriteLn('Found # 1')
    Mouse(CC + 46, YY + 44, 0, 0, True)
    flag;
  end else
  If FindDtm(WalkToBit2, CC, YY, MMX1, MMY1, MMX2, MMY2) then
  Begin
    WriteLn('Found # 2')
    Mouse(CC + 46, YY + 44, 0, 0, True)
    flag;
  end else
  Begin
    WriteLn('Could not find anything to locate tree area.')
    LogOut;
    Wait(60000 + Random (60000))
    NextPlayer(False)
    Exit;
  end;
  MakeCompass('S')
  Wait(10)
  MakeCompass('N')
  If FindDtm(ExactTree, CC, YY, MMX1, MMY1, MMX2, MMY2) then
  Begin
    WriteLn('Found the exact tree.')
    Mouse(CC - 3, YY + 3, 0, 0, True)
    flag;
  end else
  WriteLn('Couldn''t find exact tree.')
end;

//->Walk To Bank<-//

Procedure WalkToBank;
Var
  CCX, YYY : Integer;
Begin
  MakeCompass('N')
  If FindSymbol(CCX, YYY, 'Bank') then
  Begin
    WriteLn('Found Bank Symbol.')
    Mouse(CCX, YYY, 4, 4, True)
    flag;
  end else
  If FindDtm(WalkToBit3, CCX, YYY, MMX1, MMY1, MMX2, MMY2) then
  Begin
    WriteLn('Found # 3')
    Mouse(CCX + 2, YYY + 40, 0, 0, True)
    flag;
  end else
  If FindDtm(WalkToBit, CCX, YYY, MMX1, MMY1, MMX2, MMY2) then
  Begin
    WriteLn('Found # 1')
    Mouse(CCX + 2, YYY + 40, 0, 0, True)
    flag;
  end else
  If FindDtm(WalkToBit2, CCX, YYY, MMX1, MMY1, MMX2, MMY2) then
  Begin
    WriteLn('Found # 2')
    Mouse(CCX + 2, YYY + 40, 0, 0, True)
    flag;
  end else
  Begin
    WriteLn('Could not find anything to locate the bank.')
    LogOut;
    Wait(60000 + Random (60000))
    NextPlayer(False)
    Exit;
  end;
end;

//->In Lumby?<-//
Procedure InLumby;
Begin
  If FindSymbol(x, y, 'Tutorial') or
     FindSymbol(x, y, 'Water')    then
  begin
    Status('In Lumby')
    LogOut;
    Wait(60000+Random(60000))
    NextPlayer(False)
    exit;
  end;
end;


//->Setup<-//
Procedure MySetupScript;
Begin
  Status('Set-Up')
  SetupSRL;
  DeclarePlayers;
  LoadDTMs;
end;


//->GetRandomLoad-//
Var
  RandomLoad : Integer;

Procedure GetRandomLoad;
Begin
  RandomLoad := (AmmountOfLoads + Random (3))
end;


//->Anti Randoms<-//
Procedure TheAntiRandoms;
Begin
  Status('Random Check')
  FindNormalRandoms;
  wait(10)
  FindTalk;
  wait(10)
  if (FindFight) then
  begin
    Status('Running From a fight.')
    RunAwayDirection('W');
    Wait(8500 + random(3500));
    RunBack;
    Wait(1000+Random(100))
    WalkBackTree;
  end;
  Wait(10);
  FindTalk;
end;

Procedure StoreStuff;
Begin
  If InventoryCount > 1 then
  Begin
    Repeat
     ClickItemColorTol(65536, 10, False)
     Wait(10)
     ChooseOption(x, y, 'All')
     Wait(1000 + Random(1000))
    Until InventoryCount = 0
    Wait(1000 + Random (1000))
    Repeat
     If FindDtm(RegularAxeDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
     Begin
       Mouse(X, Y, 1, 1, True)
       Wait(1000 + Random(1000))
     end;
    Until InventoryCount = 1
  end;
end;

//--CHARMZ AUTO RESPONDER--//

Function GetChatMessage(Text: String): Boolean;
Var
TX, TY: Integer;
Chat: String;
Begin

  If(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
   Begin
    Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));

     If(Pos(Text, Chat) <> 0)then
      Begin
       Result:= True;
      End

   End

End;

Function GetChatName(Name: String): Boolean;
Var
I : Integer;
ChatName : String;
Begin

  ChatName := Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));

  I:= Pos(':', ChatName);
  If(I <> 0)then
   Begin
     Delete(ChatName, I, I);
   End

  If(Pos(Name, ChatName) <> 0)then
   Begin
     Result:= True;
   End

End;

Function AutoRespond: Boolean;
Var
Responce, Lvl: String;
RandomReply: Integer;
Chat,Name,ChatName: String;
Begin

if(AutoResp=False)then
 begin
 Exit;
end;

if(AutoResp)then
begin

  OldLine:= TheLine;
  TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
  NewLine:= TheLine;

 If(GetChatName(Players[CurrentPlayer].Name))then
  Begin
   Exit;
  End

 If(OldLine=NewLine)then
  Begin
   Exit;
  End

  If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
   Begin
     WriteLn(''+ChatName+': '+Chat);
     RandomReply:= Random(10)+1;
    Case (RandomReply) of
      0 : Responce:= ('?');
      1 : Responce:= ('what');
      2 : Responce:= ('yes');
      3 : Responce:= ('no');
      4 : Responce:= ('what do you want');
      5 : Responce:= ('me?');
      6 : Responce:= ('Yah?');
      7 : Responce:= ('who?');
      8 : Responce:= ('wha?');
      9 : Responce:= ('?');
      10 : Responce:= ('???');
    End
   TypeSend(Responce+' '+Name);
   Result:= True;
   FResponds := FResponds + 1
  End

  If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(24)+1;
    Case (RandomReply) of
     0 : Responce:= ('heh');
     1 : Responce:= ('loll');
     2 : Responce:= ('lol');
     3 : Responce:= ('haha');
     4 : Responce:= ('hihi');
     5 : Responce:= ('ehe');
     6 : Responce:= ('lmao');
     7 : Responce:= ('lmfao');
     8 : Responce:= ('rofls');
     9 : Responce:= ('fun');
     10 : Responce:= ('nice');
     11 : Responce:= ('lolz');
     12 : Responce:= ('yep');
     13 : Responce:= ('hola');
     14 : Responce:= ('wow');
     15 : Responce:= ('i bet');
     16 : Responce:= ('rofl');
     17 : Responce:= ('ghehehghehighhe');
     18 : Responce:= ('cool');
     19 : Responce:= ('...');
     20 : Responce:= ('???');
     21 : Responce:= ('wow');
     22 : Responce:= ('grr..');
     23 : Responce:= ('rowr');
     24 : Responce:= ('lolololololol');
     25 : Responce:= ('ha ha ha!!!');
    End
   TypeSend(Responce);
   Result:= True;
   FResponds := FResponds + 1
  End


  If(GetChatMessage('wc')) or (GetChatMessage('woodcutting')) or (GetChatMessage('woodcuttin')) And
    (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Lvl:= IntToStr(GetSkillLevel('woodcutting'));
    RandomReply:= Random(5)+1;
     Case (RandomReply) of
      0 : Responce:= ('i''m lvl '+Lvl+' woodcuttin');
      1 : Responce:= ('level '+Lvl+' wc');
      2 : Responce:= ('lvl '+Lvl+' woodcut!');
      3 : Responce:= (+Lvl);
      4 : Responce:= ('i''m level '+lvl);
      5 : Responce:= (+Lvl+' here :P');
     End
    TypeSend(Responce);
    Result:= True;
    FResponds := FResponds + 1
   End

  If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= Random(9)+1;
    Case RandomReply of
     0 : Responce:= ('not much');
     1 : Responce:= ('nothing');
     2 : Responce:= ('bored');
     3 : Responce:= ('aye?');
     4 : Responce:= ('emmm..nothin');
     5 : Responce:= ('nope');
     6 : Responce:= ('booo');
     7 : Responce:= ('no ty');
     8 : Responce:= ('what');
     9 : Responce:= ('....');
     10 : Responce:= ('nothin');
    End;
   TypeSend(Responce);
   Result:= True;
   FResponds := FResponds + 1
  End;

  If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= random(9)+1;
    Case RandomReply of
      0 : Responce:= ('hello');
      1 : Responce:= ('wassup');
      2 : Responce:= ('yo');
      3 : Responce:= ('whats up everyone');
      4 : Responce:= ('whats up');
      5 : Responce:= ('welcome');
      6 : Responce:= ('hello hello');
      7 : Responce:= ('wat up');
      8 : Responce:= ('yo');
      9 : Responce:= ('sup?');
      10 : Responce:= ('whats up');
    end
   TypeSend(Responce);
   Result:= True;
   FResponds := FResponds + 1
  end
 end;
end;


//->Get Axe Colors<-//
Procedure GetAxeColors;
Begin
  Wait(100)
  MakeCompass('S')
  GameTab(4)
  FindAxeHeadColor;
  MakeCompass('N')
end;


//->Check for Broken Axe<-//
Var
  BX, BY, NX, NY : integer;

Procedure IsAxeBroken;
Begin
  Status('Checking for broken axe')
  GameTab(4)
  Wait(400 + Random (100))
  If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
  Begin
    Status('Axe Not Broken')
    Exit;
  end;
  Begin
    If (FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) or
       (FindDTM(AxeHandleDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) and
       (Not(FindDTM(RegularAxeDTM, NX, NY, MIX1, MIY1, MIX2, MIY2))) then
       Begin
         WalkToBank;
         Wait(1000 + Random(1000))
         MakeCompass('E')
         Wait(10)
         OpenBank3;
         Wait(2000 + Random(1000))
         QuickFixBank;
         end else
         Begin
           LogOut;
           NextPlayer(False)
         end;
           StoreStuff;
           CloseBank;
           MakeCompass('N')
           WalkBackTree;
           HighestAngle;
       end;
      LoadNumber := Loadnumber + 1
      BankTrips  := BankTrips  + 1
    end;


//->Axe Head Finder<-//
Procedure TheFindAxe;
Begin
  FindHead;
end;

//->Everything Put Together2<-//
Procedure CompleteFix2;
Begin
  TheAntiRandoms;
  Wait(10)
  TheFindAxe;
  Wait(10)
  AutoRespond;
end;

//->Ent Finder<-// Yohojo8
Var
  EX, EY : integer;
  FX, FY : integer;
  SafeEntWait : LongInt;
Procedure EntChecker;
Begin
  Status('Checking For Ent')
  If (FindObjMultiText(EX, EY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
  Begin
    MMouse(EX, EY, 0, 0)
    If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
    Begin
      Status('Ent Found');
      MouseFindFlag(645, 83, 2, 2);
      MarkTime(SafeEntWait)
      Repeat
        CompleteFix2;
        Wait(10)
        If Random(100) = 80 then
        Begin
          RandomRClick;
        end;
      Until TimeFromMark(SafeEntWait) > 18000 + Random(10000)
      EntsAvoided := EntsAvoided + 1
    end;
  end;
end;

//->Everything Put Together<-//
Procedure CompleteFix;
Begin
  TheAntiRandoms;
  Wait(10)
  //InLumby;
  Wait(10)
  EntChecker;
  Wait(10)
  TheFindAxe;
  Wait(10)
  AutoRespond;
end;

//->Start Chopping<-//
Var
  TX, TY : Integer;
  TreeTime, SafeWaiting : LongInt;
  

Procedure StartChopping;
Begin
  MakeCompass('N')
  MarkTime(TreeTime)
  If ( Not (LoggedIn) ) Then
  Begin
    NextPlayer (False)
    Exit;
  end;
  Repeat
  Begin
    IsAxeBroken;
    Status('Looking for ' + TheTreeName)
    If (InvFull) then
    Begin
      Exit;
    end;
    EntChecker;
    MakeCompass('W')
    If (FindObjMultiText(TX, TY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
    Begin
      Mouse(TX, TY, 1, 1, True)
      Wait( 1400 + Random (200))
      MarkTime(SafeWaiting)
      Repeat
        CompleteFix;
        If InvFull then
        Begin
          Exit;
        end;
        Wait(10)
      Until (TimeFromMark(SafeWaiting) > 5000 + Random(1000))
    end;
  end;
 Until (InvFull) or (TimeFromMark(TreeTime)>60000 * 7)
end;


//->Bank Procedure<-//
Var
  BankMark : LongInt;

Procedure StartBanking;
  Begin
    If (InvFull) or
    (TimeFromMark(TreeTime)>60000 * 7) then
    Begin
      If ( Not (LoggedIn) ) Then
      Begin
        NextPlayer (False)
        Exit;
      end;
      MakeCompass('W')
      HighestAngle;
      Wait(100+Random(100))
      GameTab(4)
    end;
    WalkToBank;
    MarkTime(BankMark)
    MakeCompass('W')
    HighestAngle;
    Wait(10)
    HighestAngle;
    Repeat
     OpenBank3;
    Until (BankScreen) or (TimeFromMark(BankMark)>60000 + Random(60000))
    Wait(2000+Random(1000))
    QuickFixBank;
    If (TimeFromMark(BankMark)>60000) then
    Begin
      WriteLn('Couldn''t do banking.')
      LogOut;
      NextPlayer(False)
      Exit;
    end;
    Repeat
     If FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2) then
     Begin
       BankedLoggs := CountItemDtm(LogDTM) + 6
       Mouse(LX, LY, 6, 6, False)
       ChooseOption(x, y, 'All')
       Wait(1000+Random(1000))
     end;
    Until (Not(FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)))
    Wait(100+Random(100))
    StoreStuff;
    CloseBank;
    BankTrips  := BankTrips + 1
    LoadNumber := LoadNumber + 1
    WalkBackTree;
end;

//->Progress<-//
Procedure FProgress;
Begin
  WriteLn('|Fours Draynor Oak Banker  v ' + VersionNum + '|')
  WriteLn('------------------------------------------------')
  WriteLn('>Time Running : ' + TimeRunning                  )
  WriteLn('>Logs Banked  : ' + IntToStr(TotalLogs)          )
  WriteLn('>Total Banks  : ' + IntToStr(BankTrips)          )
  WriteLn('>XP Gained    : ' + IntToStr(TotalXp)            )
  If EntsAvoided > 0 then
  Begin
    WriteLn('>Ents Avoided : ' + IntToStr(EntsAvoided)      )
  end;
  If FResponds > 0 then
  Begin
    WriteLn('>Talk Backs   : ' + IntToStr(FResponds)        )
  end;
  WriteLn('------------------------------------------------')
end;

//->Main Stuff<-//
Begin
  wait(1200)
  MySetupScript;
  UseSandwichSolver := True;
  UseBoxSolver := True;
  SafeInitForm;
  SafeShowFormModal;
  Convert2;
  ClearDebug;
  WriteLn('Starting Script')
  Wait(3000)
  ClearDebug;
  Begin
    If (Not(LoggedIn)) then
    Begin
      Status('Logging In')
      Loginplayer;
    end;
  end;
  GetRandomLoad;
  HighestAngle;
  MakeCompass('N')
  Repeat
   Repeat
    StartXP := GetXp('Woodcutting')
   Until StartXP > 0
   GetAxeColors;
   WalkBackTree;
   Repeat
    If ( Not (LoggedIn) ) Then
    Begin
      NextPlayer (False)
      Exit;
    end;
    DisguiseScar('[' + IntToStr(LoadNumber) + '/' +IntToStr(RandomLoad) + '] ' +(Players[CurrentPlayer].name) + '')
    StartChopping;
    StartBanking;
    Repeat
     EndXP := GetXp('Woodcutting')
    Until EndXP > 0
    TotalLogs := TotalLogs + BankedLoggs
    TotalXP := (EndXP - StartXP) + (TotalXP)
    FProgress;
    GetAxeColors;
   Until (LoadNumber >= RandomLoad)
   LogOut;
   NextPlayer(True);
   LoadNumber := 0
   GetRandomLoad;
   HighestAngle;
   MakeCompass('S')
  Until False;
End. 

Could somebody edit this script so it has a auto responder.
And that it logs in and out every 15 minuts, and maybe more anti ban tricks.

And some basic anti random things.

Logging out for 1/2minuts when a random encounterd.
Something like this?

If this could be made then this script should be able to run for more then 12 hours right?.

Thanks in advance.

You can. It's not that difficult to figure out, just give it a whirl ;)

I am sorry I am really a noob at this kind of scripting. But do you agree that this would be a great woodcutting script :D ?

** I was reading on forums about anti-ban (http://www.sythe.org) and somebody posted that he got banned using a script hat had a anti ban :S Somebody said that it perhaps was a older anti ban :S what do you think about this?

I think you should use Fours Oak Banker ;)

http://www.villavu.com/forum/showthread.php?t=5934

I think it's the same but mine is just a later version, both no anti random and anti ban :(

Then get the newer version?

No antiban is true, 100% perfection; some are better than others, yes, but its really just personal preference. In my opinion, a good autoresponder is about the best antiban you can get…

PS: Please use

 tags next time

yes thanks for the tip (

) But could somebody edit this script so it has a good autorespond and that it logs in and out every 15 minuts? some anti ban tricks like that. and maybe some anti random? like logging out for 1 minut when a random pops up?

From: zertoyah
yes thanks for the tip (

) But could somebody edit this script so it has a good autorespond and that it logs in and out every 15 minuts? some anti ban tricks like that. and maybe some anti random? like logging out for 1 minut when a random pops up?

logging out wont lose the random 0,o

and do you know how obvious it is to jagex if you log out every 15 mins?

oke true about the logging out every <..> minuts.
cant that be set to random between 10 and 40 or something?

Oke maybe a running script for losing randoms that atack. But what about those nsaty randoms that want to talk >_> ?

if its from SRL and has SRL stuff in it ,, there is most likely anti random in it, so leave that, it would have antiban if its any good, so leave that too, if thats not good enough, do it urself

I cant script… I would try but I dont understand a thing. And it doesnt respond when my name is being said. it doesnt say a word in a whole hour. it makes the same moves over and over.. so not a good anti ban if it's inplented

From: zertoyah
I cant script… I would try but I dont understand a thing. And it doesnt respond when my name is being said. it doesnt say a word in a whole hour. it makes the same moves over and over.. so not a good anti ban if it's inplented

strange…. i guess you didnt set up SRL correctly