ChArM's Willow Raper, edited by me ot cut yews

Magic Johnson · Mar 16, 2007

ChArM of Villu-Reborn created this script that will cut a full load of willows and bank them in Draynor. After looking around for a decent script that works well and doesn't cost much, I decided to edit the willow raper to cut and bank yews in Edgeville. I DID NOT MAKE THIS SCRIPT! I only edited it to cut yews.

Code:

{=========================================================================]
[                       ~ChArM's Willow Raper~                            ]
[                 ~Edited by Magic Johnson to cut Yews~                   ]
[                           ~Version: 2.1~                                ]
[=========================================================================]
|~Description:                                                            |
|   A macro that chops a full load of yews in edgeville,                  |
|   then banks it.                                                        |
|~Instructions:                                                           |
|   1. Set the Runescape brightness to V-bright, and your computer's      |
|       resolution to 32bit resolution.                                   |
|   2. Need SCAR version 2.0.3.                                           |
|   3. Need SRL version 3.5.                                              |
|   5. Setup Lines 60-64, and 70+                                         |
|   6. Start script in edgeville bank Bank.                               |
|   7. Start with a axe in your first inventory slot or wielded.          |
|   8. Recomended to have extra axes near top of bank.                    |
|~Features:                                                               |
|  AutoResponder                                                          |
|  AntiBan                                                                |
|  Randoms (UpToDate With SRL)                                            |
|  AutoColor                                                              |
|  Multiple Players                                                       |
|  Awsome Ent and Axe Head Finding                                        |
[=========================================================================]
|~Version Info:                                                           |
|  v1.0 - First Release                                                   |
|  v1.1 - Updated Walking, and fixed little things.                       |
|  v1.2 - Fixed Lag                                                       |
|  v1.5 - Added Forms, Little Bug Fixes, Better Walking                   |
|  v2.0 - Completely rewrote script, removed powerchopping and forms      |
|         UPDATED EVERYTHING!                                             |
|  v2.1 - Fixed running from fights and Progress report, new ent finding, |
|         improved tree finding(2 ways), walking, and banking             |
[=========================================================================}

Program CharmYewRaper;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Woodcutting.Scar}

Const Ver= 'v2.1'; //Version #, DONT TOUCH!

//----------------------------------------------------------------------------//
//---> Variables                                                              //
//----------------------------------------------------------------------------//

Var
 BankDot1, BankDot2, BankDot3, AxeHandleDTM: Integer;
 LogMask, AxeHeadMask, BrokenAxeHeadMask, AxeMask: Integer;
 AxeHeadColor1, AxeHeadColor2, AxeHeadColor3: Integer;
 AxesBroke, HeadsFound: Integer;
 Chat, Name, ChatName: String;
 NoAxe, NoAxes: Boolean;
 ChopMark, CallibrateTime: LongInt;
 Loads, TotalYews, TotalExp: Integer;

//----------------------------------------------------------------------------//
//---> Setup                                                                  //
//----------------------------------------------------------------------------//

Const WaitTime = 15;           // Second to wait before clicking tree again used as a failsafe random extra 5 seconds is added on
Const DebugMode = 2;           // See lines 105-113
Const RunDirection = 'S';      // Direction To Run Incase of a Fight?
Const UseAutoResponder = True; // Enable The Auto Responder?
Const MaxLoadTime = 15;        // Max Time 1 Load Can Take In Minutes

//----------------------------------------------------------------------------//
//---> Setup Players                                                          //
//----------------------------------------------------------------------------//

Procedure DeclarePlayers;
Begin

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

     Players[0].Name :='user';
     Players[0].Pass :='pass';
     Players[0].Nick :='nick';     // 3 Lowercase Letters of your username
     Players[0].Integer1 := 1000;  // Loads For Player
     Players[0].Boolean1 := True;  // Equip Axe?
     Players[0].Active   := True;  // Use the player?

     Players[1].Name     := 'user';
     Players[1].Pass     := 'pass';
     Players[1].Nick     := 'nick';
     Players[1].Integer1 := 1000;
     Players[1].Boolean1 := True;
     Players[1].Active   := True;

     Players[2].Name     := 'user';
     Players[2].Pass     := 'pass';
     Players[2].Nick     := 'nick';
     Players[2].Integer1 := 1000;
     Players[0].Boolean1 := True;
     Players[0].Active   := True;

End;

//----------------------------------------------------------------------------//
//---> Debug Procedure                                                        //
//----------------------------------------------------------------------------//

Procedure CharmDebug(Reason: String);
Begin
  Case (DebugMode) of
    1 : Status(Reason);
    2 : WriteLn(Reason);
    3 : DisguiseScar(Reason);
    4 : Exit;
  End;
End;

//----------------------------------------------------------------------------//
//---> Load DTMs                                                              //
//----------------------------------------------------------------------------//

Procedure LoadDTMs;
Begin

  BankDot1 := DTMFromString('78DA636C67626008664001FFFFFF67F80FA41' +  //By FT-Fwaki
       '921ECFF8CB54035DEA86AFEFC61621081AA0101C63A4C73B0AA09' +
       'C7AF06000153117B');

  BankDot2 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA41' +
       '921ECFF8C3540353EA86AFEFC61621081AA0101C63AA09A1022D4' +
       '44E057030001B5117D');

  BankDot3 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA41' +
       '921ECFF8CF540359EA86AFEFC61621081AA0101C63AA09A40026A' +
       '6A816A42F1AB010000781176');
       
  AxeHandleDTM := DTMFromString('78DA637465626078C48002CA2379191E02694' + //Stole From SRL
       '620FE0F048C0E40352F19D000231209A4ED806A3E1150E30454F3' +
       '86801A2FA09AEB04D47800D5DC23A0C616A8E61D01358E4035EF0' +
       '9A80185CF03FC6A00E1CD105C');

End;

//----------------------------------------------------------------------------//
//---> Load Bitmaps                                                           //
//----------------------------------------------------------------------------//

Procedure LoadBitmaps;
Begin

  LogMask := BitmapFromString(13, 10, 'z78DA33301805E40037BC8' +
       '0BAB6D0C2E5F451494998D02E5471010034299979');

  AxeMask := BitmapFromString(10, 10, 'z78DA7373230D18500028316' +
       '130E825353470A921DE3DE499409EDB480D25FCE10000B72C7CE1' +
       '');

  AxeHeadMask := BitmapFromString(12, 8, 'z78DA3330200CDC3080018900' +
       '972E62CC24D55E4C9594BB993C13C8733FB5DCE3860310AF92185' +
       'B008E3078E5');

  BrokenAxeHeadMask := BitmapFromString(9, 10, 'z78DA7373230D1890' +
       '05C8D34BAA2EE2D5E3F21131FEC56FCBE091A53C34007F307225');

End;

//----------------------------------------------------------------------------//
//---> Color Finding Functions                                                //
//----------------------------------------------------------------------------//

{Function FindMMWaterColor: Integer;
Var
Tol, WX, WY, MMWater: Integer;
Begin

  MMWater := BitmapFromString(4, 4, 'z78DA3377B53474B234A7190' +
       '9002EDC1611');

 Repeat
  Begin
   If(not(LoggedIn))then Break;
   Tol:= Tol + 5;
    If(FindBitmapToleranceIn(MMWater, WX, WY, MMX1, MMY1, MMX2, MMY2, Tol))then
     Begin
      WaterColor:= GetColor(WX, WY);
      Result:= WaterColor;
     End
    End
 Until(Result > 0) or (Tol > 75);

  If(Result= 0)then
   Begin
    WriteLn('Could NOT Find MMWater Color, Please Restart Script!');
    Logout;
    //TerminateScript;
   End else
   Begin
    WriteLn('MMWaterColor - '+IntToStr(Result));
   End

 FreeBitmap(MMWater);

End;  }

//----------------------------------------------------------------------------//
//---> AntiBan                                                                //
//----------------------------------------------------------------------------//

Procedure RCExamine;
Begin
 MMouse(Random(MSX1), Random(MSY1), 3, 5);
  If(IsUpText('hop down')) or (IsUpText('alk here'))then
   Begin
    GetMousePos(x, y);
    Mouse(x, y, 2, 1, False);
    If(ChooseOption(x, y, 'Examine'))then
     Begin
      Exit;
     End else
    ChooseOption(x, y, 'Cancel');
   End
End;

//----------------------------------------------------------------------------//

Procedure WoodcuttingAntiBan;
Var
X: Integer;
Begin
  If(InvFull)then Exit;
  If(TimeFromMark(ChopMark) > 1000+Random(4000))then
   Begin
    Status('AntiBan');
    X:= Random(9)+1;
    ActivateClient;
    Case X of
      0 : RCExamine;
      1 : SleepAndMoveMouse(750+Random(2000));
      2 : SendArrowSilentWait(((Random(2)*2)), 1000+Random(200));
      3 : SendArrowSilentWait(((Random(2)*2) + 1), 200+Random(200));
      4 : SendArrowSilentWait(((Random(2)*2)), 200+Random(200));
      5 : SendArrowSilentWait(((Random(2)*2) + 1), 20+Random(20));
      6 : SendArrowSilentWait(((Random(2)*2)), 20+Random(20));
      7 : IdleTime(500, 500, 1.0);
      8 : begin GameTab(1+Random(7)) Wait(Random(300)) GameTab(4) end;
      9 : IdleTime(300, 200, 2.0);
    End
   //MarkTime(ChopMark);
   FindTalk;
   SendArrowSilentWait(0, 750+Random(500));
  End
End;

//----------------------------------------------------------------------------//
//---> GetChatMessage Function                                                //
//----------------------------------------------------------------------------//

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;

//----------------------------------------------------------------------------//
//---> GetChatName Function                                                   //
//----------------------------------------------------------------------------//

Function GetChatName(Name: String): Boolean;
Var
I: Integer;
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;

//----------------------------------------------------------------------------//
//---> AutoRespond Function                                                   //
//----------------------------------------------------------------------------//

Function AutoRespond: Boolean;
Var
Responce, Lvl: String;
RandomReply: Integer;
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;
  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:= ('hehe');
     1 : Responce:= ('lolol');
     2 : Responce:= ('lol');
     3 : Responce:= ('haha');
     4 : Responce:= ('hihi');
     5 : Responce:= ('ghehe');
     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:= ('wowzers');
     22 : Responce:= ('grrr...');
     23 : Responce:= ('rowr');
     24 : Responce:= ('lolololololol');
     25 : Responce:= ('ha ha ha!!!');
    End
   TypeSend(Responce);
   Result:= True;
  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;
   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;
  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:= ('ello');
      1 : Responce:= ('sup');
      2 : Responce:= ('yo');
      3 : Responce:= ('whats up everyone');
      4 : Responce:= ('whats up');
      5 : Responce:= ('allo allo');
      6 : Responce:= ('wat up');
      7 : Responce:= ('y0o');
      8 : Responce:= ('=P');
      9 : Responce:= ('what is up');
    End
   TypeSend(Responce);
   Result:= True;
  End

End;

//----------------------------------------------------------------------------//
//---> FindAxeHead Colors Function                                            //
//----------------------------------------------------------------------------//

Function CharmFindAxeHeadColors: Boolean;
Var
AX, AY: Integer;
Begin

 If(not(LoggedIn))then Exit;

 GameTab(4);

   If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
    Begin
     AxeHeadColor1:= GetColor(AX + 5, AY + 3);
     AxeHeadColor2:= GetColor(AX + 7, AY + 2);
     AxeHeadColor3:= GetColor(AX, AY + 3);
     EquipAxe:= False;
     Result:= True;

    End else

   Begin

    GameTab(5);
    Wait(100+Random(75));

      If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
       Begin
        AxeHeadColor1:= GetColor(AX + 5, AY + 3);
        AxeHeadColor2:= GetColor(AX + 7, AY + 2);
        AxeHeadColor3:= GetColor(AX, AY + 3);
        EquipAxe:= True;
        Result:= True;
       End
      GameTab(4);
     End

  If(Result= True)then
   Begin
    NoAxe:= False;
    WriteLn('Axe head colors - '+IntToStr(AxeHeadColor1)+', '+IntToStr(AxeHeadColor2)+ ', and '+IntToStr(AxeHeadColor3));
  End else
   Begin
    WriteLn('Could NOT Find Axe Colors!, Logging Out!');
    Players[CurrentPlayer].Loc:= 'No Axe';
    Logout;
 End

End;

//----------------------------------------------------------------------------//
//---> AttachHeadToHandle Function                                            //
//----------------------------------------------------------------------------//

Function CharmAttachHeadToHandle: Boolean;
Var
AX, AY: Integer;
Begin

 If(InvFull)then
   Begin
    If(FindBitmapMaskTolerance(LogMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 20, 25))then
     Begin
      Mouse(AX, AY, 2, 3, False);
      ChooseOption(x, y, 'rop');
      Wait(500+Random(250));
     End
    End

 If(EquipAxe= True)then
  Begin
   GameTab(5);
   Wait(150+Random(75));
     If(FindDTM(AxeHandleDTM, AX, AY, MIX1, MIY1, MIX2, MIY2))then
      Begin
       Mouse(AX, AY, 3, 3, True);
       Wait(250+Random(175));
      End
   End

 GameTab(4);
 Wait(250+Random(175));

  If(FindBitmapMaskTolerance(AxeHeadMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 20, 25))then
   Begin
    Mouse(AX, AY, 2, 3, True);
    Result:= True;
   End

  If(FindDTM(AxeHandleDTM, AX, AY, MIX1, MIY1, MIX2, MIY2))then
   Begin
    Mouse(AX, AY, 2, 3, True);
   End

  If(EquipAxe= True)then
   Begin
    Wait(Random(1000));
    If(FindBitmapMaskTolerance(AxeHeadMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 20, 25))then
     Begin
      Mouse(AX, AY, 2, 3, True);
     End
   End

End;

//----------------------------------------------------------------------------//
//---> HandleFight                                                            //
//----------------------------------------------------------------------------//

Procedure HandleFight;
Begin

  RunAwayDirection(RunDirection);
  Wait(10000+Random(2000));
  RunBack;
  
End;

//----------------------------------------------------------------------------//
//---> Axe Finding Function                                                   //
//----------------------------------------------------------------------------//

Function CharmFindAxeHead: Boolean;
Var
C, XH, YH, Chat, AxeHeadTxt: Integer;
Start: Boolean;
Begin

 If(not(LoggedIn))then Exit;
 
 AxeHeadTxt := BitmapFromString(30, 10, 'z78DA7373B334303170' +
       '0393A62EA62626E6839374437227320901A36E1E75333124A9265' +
       '04B3DA9EE84005C2663AAA4AE7A5CBAF0BB16530D729A21559C98' +
       '10C36F0E316E26DE6DF87D4DBC1B28B197BCF0C404F8639972715' +
       'AC435A9B98954F3013DD58547');

  {Chat:= CreateBitmapMaskFromText('ou do not have an axe', SmallChars);

  If(FindBitmapMaskTolerance(Chat, x, y, MCX1, MCY1, MCX2, MCY2, 10, 85))or
     (GetChatMessage('do not')) or (GetChatMessage('have axe'))then}

    If(EquipAxe= False)then
     Begin
      GameTab(4);
      Wait(50+Random(50));
      If(not(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)))then Start:= True;
     End
     
    If(EquipAxe= True)then
     Begin
      GameTab(5);
      Wait(50+Random(50));
      If(not(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)))then Start:= True;
     End

  If(Start= True)then
   Begin

 CharmDebug('Lost Axe Head, Finding..');
 HighestAngle;

   // If(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10))then Exit;

    If(FindBitmapMaskTolerance(BrokenAxeHeadMask, XH, YH, MIX1, MIY1, MIX2, MIY2, 20, 25))then
     Begin
      AxesBroke:= AxesBroke + 1;
      CharmDebug('ENT Got Us, Broken Axe!');
      Players[CurrentPlayer].Loc:= 'Broken Axe';
      NoAxe:= True;
      Result:= False;
      Exit;
     End

  GameTab(4);
  Wait(2000+Random(100));

   If(InvFull)then
    Begin
     If(FindBitmapMaskTolerance(LogMask, XH, YH, MIX1, MIY1, MIX2, MIY2, 20, 25))then
      Begin
       Mouse(XH, YH, 0, 0, False);
       ChooseOption(x, y, 'rop');
      End
    End

    Repeat
     If(not(LoggedIn))then Break;
       C:= C + 1;
       XH:= Random(510) + 5;
       YH:= Random(330) + 5;
       If(FindObjectMulti(XH, YH, 'ake', 'Take', 'Tak', AxeHeadColor1, AxeHeadColor2, AxeHeadColor3, 5, 5, True, True))then
          Begin
            MMouse(XH, YH, 0, 0);
            Wait(100+Random(100));
            If(IsUpTextMulti('ake', 'Take', 'Tak'))then
             Begin
              GetMousePos(XH, YH);
              Mouse(XH, YH, 1, 1, False);
              Wait(Random(50));
              If(FindBitmapToleranceIn(AxeHeadTxt, x, y, MSX1, MSY1, MSX2, MSY2, 20))then
               Begin
                Mouse(x, y, 2, 2, True);
               End else
               Begin
                If(not(ChooseOption(x, y, 'axe head')))then ChooseOption(x, y, 'Take');
               End
             End
            Flag;
           Wait(750+Random(250));
          End
    Until(FindBitmapMaskTolerance(AxeHeadMask, XH, YH, MIX1, MIY1, MIX2, MIY2, 20, 25)) or (FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)) or (C= 15);

    GameTab(4);
    
    If(not(FindBitmapMaskTolerance(AxeHeadMask, XH, YH, MIX1, MIY1, MIX2, MIY2, 20, 25))) or (not(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)))then
     Begin
      CharmDebug('Could NOT Find Head!');
      Players[CurrentPlayer].Loc:= 'Lost AxeHead';
      NoAxe:= True;
      Result:= False;
      Exit;
     End

    CharmDebug('Found Head!');
    HeadsFound:= HeadsFound + 1;

    CharmDebug('Attaching Head To Handle.');
    CharmAttachHeadToHandle;

    NoAxe:= False;
    Result:= True;
    
  End

 FreeBitmap(Chat);
 FreeBitmap(AxeHeadTxt);

End;

//----------------------------------------------------------------------------//
//---> Walking Procedures                                                     //
//----------------------------------------------------------------------------//

Procedure EdgevilleBankToYewTrees;
Var
DX, DY: Integer;
Begin

 If(not(LoggedIn))then Exit;

 HighestAngle;
 PerfectNorth;
 
 Status('Bank->Yews');

 Players[CurrentPlayer].Loc:= 'Bank';
 
 SymbolAccuracy:= 0.4;
 
 LinearRoadWalk(roadcolor, 0, 40, 4, 4);
 LinearRoadWalk(roadcolor, 0, 40, 4, 4);
 
 If(not(FindSymbol(DX, DY, 'bank')))then
 Begin
 If(FindColorSpiralTolerance(DX, DY, WaterColor, MMX1, MMY1, MMX2, MMY2, 5))then
  Begin
   Mouse(DX + 25+Random(8), DY + 25+Random(20), 5, 8, True);
   Flag;
  End
 End else
 Begin
 If(FindSymbol(DX, DY, 'bank'))then
 Begin
  Mouse(DX - 30+Random(10), DY + 34+Random(7), 5, 8, True);
  Flag;
 End else
 Begin
  Players[CurrentPlayer].Loc:= 'Lost';
  Logout;
  Exit;
 End
 End
  
 SymbolAccuracy:= 0.6;

  If(FindSymbol(DX, DY, 'tree'))then
   Begin
    If(Distance(MMCX, DX, MMCY, DY) > 250)then
     Begin
      Mouse(DX + 5+Random(6), DY - 15+Random(15), 2, 3, True);
      Flag;
     End
   End

  Players[CurrentPlayer].Loc:= 'Yews';
  
 SymbolAccuracy:= 0.8;

End;

//----------------------------------------------------------------------------//

Procedure YewTreesToEdgevilleBank;
Var
DX, DY, F: Integer;
See: Boolean;
Begin

 If(not(LoggedIn))then Exit;

 PerfectNorth;
 
 Status('Yews->Bank');

 Players[CurrentPlayer].Loc := 'Yews';
 
 SymbolAccuracy:= 0.4;

 If(not(FindSymbol(DX, DY, 'bank')))then
  Begin
   If(FindSymbol(DX, DY, 'tree'))then
    Begin
     Mouse(DX + 10, DY - 30+Random(6), 4, 5, True);
     FFlag(10);
    End
  End
    
  Repeat
    If(not(DTM3Flag(BankDot1, BankDot2, BankDot3, True)))then
     Begin
      If(not(FindSymbol(x, y, 'bank')))then
       Begin
        F:= F + 1;
       End else
       Begin
        See:= True;
        MouseFlag(x, y, 2, 4);
        DTM3Flag(BankDot1, BankDot2, BankDot3, True);
        Flag;
        Players[CurrentPlayer].Loc:= 'Bank';
      end
    End else
    Begin
      See:= True;
      Wait(500+Random(1000));
      Flag;
      Players[CurrentPlayer].Loc:= 'Bank';
    End
  Until(See= True) or (F > 3);

  If(F > 3)then
   Begin
    Players[CurrentPlayer].Loc:= 'Lost';
    Logout;
    Exit;
   End

  Players[CurrentPlayer].Loc := 'Bank';
  
 SymbolAccuracy:= 0.8;

End;

//----------------------------------------------------------------------------//
//---> Ent Handleing Function                                                 //
//----------------------------------------------------------------------------//

Function CharmEnt(ex, ey: Integer): Boolean;
Var
Xe, Ye: Integer;
Begin

 Status('FindEnt');

 If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
  Begin
   MMouse(Xe, Ye, 5, 5);
   Wait(100+Random(50));
  End else
  Begin
   Exit;
  End

 If(IsUpTextMulti('hop down Ye', 'down Yew', 'own Y')) or (IsUpTextMulti('ew', 'Ye', 'ew'))then
   Begin
    If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
       (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
        (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
      Begin
        EntsAvoided:= EntsAvoided + 1;
        Result:= True;
      End else
        Result:= False;
        Exit;

  End

End;

//----------------------------------------------------------------------------//
//---> CharmFindObjYew Function                                            //
//----------------------------------------------------------------------------//

Function CharmFindObjYew(var cx, cy: Integer; color1, color2, color3, tolerance: Integer): Boolean;
Var
  x, y, a, c, i, x1, y1, x2, y2 : Integer;
Begin
  if (FindMSColorTol(x, y, color1, tolerance)) or
    (FindMSColorTol(x, y, color2, tolerance)) or
    (FindMSColorTol(x, y, color3, tolerance)) then
 Begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    Repeat
      If (not (Loggedin)) Then
        break;
      a := a + 1;
      If (a = 1) Then
        c := c + 1;
      If (a = 3) Then
        c := c + 1;
      for i := 1 to c do
      Begin
        If (a = 1) Then
        Begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        End;
        If (a = 2) Then
        Begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        End;
        If (a = 3) Then
        Begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        End;
        If (a = 4) Then
        Begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        End;
        If (x1 = 485) and (x2 = 517) Then
          x2 := x2 - 2;
        If (y1 = 325) and (y2 = 345) Then
          y2 := y2 - 7;
        If (x2 > 515) Then
          Break;
        if (FindColorTolerance(x, y, color1, x1, y1, x2, y2, tolerance)) or
          (FindColorTolerance(x, y, color2, x1, y1, x2, y2, tolerance)) or
          (FindColorTolerance(x, y, color3, x1, y1, x2, y2, tolerance)) then
            Begin
              MMouse(x, y, 5, 5);
              GetMousePos(x, y);
              cx:= x;
              cy:= y;
              Wait(100+Random(50));
              If(IsUpTextMulti('hop down Ye', 'down Yew', 'own Ye')) or (IsUpTextMulti('ew', 'Ye', 'ew')) Then
                Begin
                 If(FindColorTolerance(X, Y, 55769, 85, 15, 115, 15, 20))then
                  Begin
                   CharmDebug('Found Ent!');
                   Mouse(MMCX, MMCY, 5, 5, True);
                   Wait(10000+Random(5000));
                   FindNormalRandoms;
                   EntsAvoided:= EntsAvoided + 1;
                   Break;
                   Result:= False;
                  End else
                  Begin
                  Result := True;
                  Break;
                 End
                End;
            End;
         End;
      If (a = 4) Then
        a := 0;
    Until (x2 > 515) or (Result= True);
  End;
End;

//----------------------------------------------------------------------------//
//---> FindYewDeformed Function                                            //
//----------------------------------------------------------------------------//
       
Function FindYewDeformed(Var ObjX, ObjY: Integer): Boolean;
Var
Acc, Ref: Extended;
TX, TY, Times, Tol, YewTree: Integer;
Begin

 YewTree := BitmapFromString(101, 112, 'z78DAED5D69721BCD0E' +
       'BB52CFA2D1E8A7ACE5FE477AD30448A2D51E458E63275F5E2A555' +
       'D2A45D636101710248FC7E375B81D5F3F4FC7F543E7F57879EF5C' +
       'CBF13E0E1F38E7757AF73CAECB38BD739ED7D3C7CFA9CC65580EE' +
       '5B08EB7C3BA94E9386FF74CC3B88E97619DE669FB44BBAFF8FAB9' +
       'F75976CEBDEFF0C3E7F32B7538CEEF9EE371182EFDB9DC96EB8FC' +
       'EE357A3EBD762EFA318DB39A732ADA3A1A8DEDA6E6F485ACA38CF' +
       'EBA18CB78AA8F136AC632965FBFF321E37409471BB775EC753FD8' +
       'B61F93A2CF59FFA17A3E8ABD1F5B69CFDFCCDE8FA32FBB694E386' +
       '820D33EB3C6F20590BB071AE382997B93E6899CBA10CB051CBB26' +
       'E8F3C0D652865A9166C345C6DFF6B8F19CBB821CA903656D40DF3' +
       'B06EFF663CBEDEDE5EE2E7B0F402C6BE095D5F80B10FE06A3E9E9' +
       'EBCFAEBE70731F61C7BE3667D360BB35D9272AD9667B20B3C8E1B' +
       '66B6737BCC7A78338BC4FBEBE387334EF3836FFD3DB069F09587C' +
       'DA6556BB5E16DC66D43E3D92CD8B9DE331E2B02B77BD6E932DCED' +
       'FDDC3E6FAF7E1BBA7E29C67E80A5FEFC3CBA7E0A637BDF3C9063B' +
       '688F8396E889AAF76DDC77A0E57B363236CD7613D6E66C6B077DB' +
       'FE768BA78E9B619B8FCFBD5B7D952D1EABB8A257B5D735DFBAC56' +
       '3970D7BCBBCF9D571DEFEAD83617E180C6FE7CF63EC37A0EB1761' +
       '6C3ADA6FFF3F75D6A067B896EA954ABD8E6301962AAEC652B1349' +
       'F71FBB0E167BA3AEA56C3614514FD63F57A667FB66F0C187B1ACB' +
       '553F3B59A4563DE6F68A173CDBF67CF330187A2FC3659C81AB710' +
       '1BAB6ACE0325E71FF47ADD637A1EBA396E17574DD36E35F7EF3F9' +
       '32AE8096E3BA6EF91BACD6B26E218F45DA63218AE27FCB1538AC9' +
       '66A32EC6D595F8D9D10AB17A00BD157FDABF907BF357B861B6C63' +
       'C5F0586F97E96E9EF468D9C19B616FAACF5910D72D88DF703F328' +
       '22D03ADEF76EFB5CA78F6F307E8FA6A1BF5E99CF18F40D70B272C' +
       '4C62A3AC88B5E0F5809F7A7BC3528D820EB054A7722E0778B47BB' +
       'D6743823DB22261B0087FBC0027CF5F7D43697DCCF67858AD1AA1' +
       'D5776251D6C5A2FA0D2F5BB47F449C5FDFC3780596803ACB404FC' +
       '09BFD2EDEAA35DB3288FA9CC37FD183BC72CEF374FEB3CFE3766D' +
       'EB15B548C96227E480760547F847628C0C83475FD37DBBE8ABC5E' +
       '1F48C86AE0D17FA6C448E600976CC6C54B5579B1501B6F148E69B' +
       '9B15AD166FCB1AD6FAF8C3C99E6DD1EC4072D5051981FDED54515' +
       '9CE88D0E031CDB79EFE2BBFF48FD884D97EF5DB7579C3D9DCB35D' +
       '8BF9887BE6CA0C8DB8ADE7F60D97C3BD7FBC9EB8BF7F7E20A77F6' +
       '663002E887060191C0FD597E1AA55866A9EE02BE12561A310C903' +
       '7BD5334E73445CA56691A7ED95E10D2B5A860B7909D846B34EE03' +
       '1D43AF19E6A852E7CCF1671A94D33CB79AB51D8F69E2B6351F03E' +
       '819C1AEF971B7E2FF6B9C07E300BA88F2F7C3C31F9C7FFEA5F3AE' +
       'DCABE722AC65E79CC1EC6F41EFEEDF68B1E187BD72B584E886D80' +
       '2EE3362DD307DE2A5BB5F9BEB5E2645EE0E93C73047EC042D4E7D' +
       'CAC4A418C345C11FFE3F9E1551135250F3620A62AC036EEC73B01' +
       '96C08C01EDF08FC4DE86B1FADB0CA42DF69E8FE0C1C0920133128' +
       '32D162B9E3C4EAB15017FCC8C68AD4668E66D9F7FB7FA9BC5FFBE' +
       '6219F431FD75516B83FF7DE719BABF6DFEAA3BDFC1032C8C59A7E' +
       '6B4DF2FCEE673898D6A6E77EF167178444A76E56B6402FB40AB62' +
       'D714E8823F4A26013CE774008A10C37B4C559183DB60C3C877D92' +
       'BFA3DF5AF1E63B689CC46DA4067C93C4E83ED3ABA875DFC349623' +
       'BCE7E6EDAAEF3B217A37940E60FB81B4B8BD566B695119A2B5FAC' +
       'DD8BB1DE66A514778DB09DE1371DAEBD6E0153BF0CE2FFD297A7B' +
       'BFF31C99FDF3F7AFD5E3BC47CEF377EE6745518D52466712EC3A2' +
       '68730237A3F0351F53ACE57D80732EAE67D602B6097E007116501' +
       '21EE311772A716A1D5E84B3C26F0C6BFB2ACD32CCF281E96F15B6' +
       '4A311CF03DB6027E031FD7BB6A8CC7CB759DA059523FBEC675821' +
       'D8AEDEB23123B07B34F207A701C6C33E0B7284A5FFCEF7AEDD2BF' +
       '7BCF2C8E768FC5568EF31F6D2DF9213A87135AE1AB88275DDBCDB' +
       '091C02D924BB8E5AA9F1DF38EEB758DAE2288FA92A42C81254D45' +
       'DC3FE90B19F024BDBABCF40206EF39D38AED67156AE2319FE72CD' +
       'D86FA24F04DAC19B81A980D54ABF39A2DE34B5D1FE544664048B3' +
       'D5BAD60AE158D9B2F7E33ECD1ABC276993D5FF0CDA73F1DF09CC6' +
       '244F43EF191B3FF2824DD8F5891A27EF78A2E798F48C4C6C5DFF9' +
       'CCFCF9DD7C2FF82657A88B7CD9258D46D56CBA2A96B1B21238AAE' +
       '8C414588B107D5931A7E68A3CCE600B1F12A9E2DCEC825F12A88B' +
       '5D403F29DE05D3987C608CD18B36A15C1C45AA4575FB772F16EB5' +
       '3CE647B688880B8FF158F150101F2233AD16AF228D3CBFDD835A1' +
       '2D01527F308C7186345B378620F077B5727683694BF7DC7E37451' +
       'CA2BDEEAF3E71E2A3E6FFD1C99FE9D7B5E86683C7FD7C335EB38C' +
       'E53A9A5C223DD6E648496BE6F223F0F9BA3B1167088DBB054CE7A' +
       '555B579F19B159E60295BB48FB862A12E3AE9231393958326F8CF' +
       '62DE2B2E739474CB88E165B96333006AB95E8726B86DB88F0512B' +
       '073386782CFCA9DD3F90DF980C5D95C7A8F9293066DF58F5A165B' +
       '86F16F432FCC032FCDC35DD8B973E9309FE24BAC2D38DACB9A45D' +
       '1A9B981CA860BD18BFE812BF5356F4CEEB793D4EF69D9BFF9A272' +
       '024ADD97C267EE8678FB04E2B98FC1295C703510476625EC2CF6E' +
       'CFA37E16592A108E13D522E00A1A0CFA47FB45E0F3E231C837ABF' +
       'D71CFCE1C134C8BE508882A61B5F0D9A9F9B18AB97E767C1B862E' +
       'D3020D133C66E60BC3E299E6DCD837467DBB397B6F5598AFF5791' +
       'C7827C1927A3ABDA7CFF8F67284FEF1CDD96791DD7B40049E99E0' +
       '48AFD1677C76750E666D9ADFBBC7EA152DD5C2CC2BAD8AC5DBAC5' +
       '98B4FD4CC31AA8AEB98DA895259D6CA5AE0766A2A3C3E94A889FC' +
       '032C5858E07560053C6A072B50542E40142C76C3AB98DDC6F7809' +
       'C057117EF8F5FD364D6A91CE95557AF84D62C6044CDABC02A8E27' +
       'C3E1BDFE85216D8BC1900B44D670198AF16927A81F3F9A4B7A6C9' +
       '3B9E15E36D15B336532F79EB9C7DB7306E33D2ECBAFC5E6DD1099' +
       '30AFB7AAB173E995772212A635622DBB2EE4CCCD5EA56DB1186CC' +
       '312788CB0815EF563C6E7D1D7C228BD725CAB4480F5044A25EF98' +
       '852B207E80317C16A04859AF44179460C51F6F160C396F608CBCD' +
       '900BB7706BA3C36ABD17E3269C319F6CAE3FC6A91E03D35F2B713' +
       '35F453C466F38645D3024D55DE3643C501E506BCE79E35E8EF7F2' +
       '5525254A8FDD9B36C9FF78C642683EB1E2EF0267AED8896F4658C' +
       '8DFDD7CD387F751584F018C563FB9A7B2A9705AB956A2EAF6E2B4' +
       'FEB4C572A28703B2C58E549D257CE7866F0FCF92A35FEAF9520D5' +
       '5DE053C3F7D13FFAEF8B281ACFF8A4EA738161E5D0D4CED76B341' +
       'FFCFA469CE6FA1F8FE88AD79B10F33BD22ABF81DB88DF0CC9131E' +
       '63B66E687DCDB3686DAFFED2FBBBBDAC533D669F45EED9BAE7D11' +
       '7BF4389C1707A8C8D58C8AE0BA21A305A764FFCDEADEAB4520B01' +
       'FC94F4895B0C8367CB0C740A8EE2509CFB7296ACFA65FC6FFA44F' +
       '78FA9EA81CA02E8322F5C66D728DAAB686C00AB85DB607DA3BABD' +
       '329ABA04AF62BAD98CDC5899B26C9499A9B0674014EC58E52EE03' +
       '70767394CB90D1F4A666305FF6C8C99E96C3D3B7016B79C92D318' +
       '07CB41AECFFDD147B9D9E77CECDE633E9E99DA7718592478868C5' +
       'E1077CD617F1C33B024AC21AECCC72FE4B2128D57670F9688AC84' +
       '115DD49AE131F09591A5AE53733BB3488FF484D1450D7AF48CD2F' +
       'CAF7949E2CA7E89AC1292AF9B9D3BBD1351F60DD046990774ABBE' +
       '586C97119DD73D93B560ED9B889A4D7D31DB3D155111A94606CAE' +
       'B458C55CE16BA20600C88824DD37AF15E54AF166C3702DF89C67B' +
       '6E64CFBEBD9465ECBC43FFAB03EC52699901E46EEAD198A3191AC' +
       '951086715DC546488AA1244B61895A3C483659DC80E128D5637CF' +
       'F84D14ADE07B3303CD4A93E1BF7E03273C12CF005BE751963F9BF' +
       '31BC19F14AF5DBA1DAB180B95D15A189702A5C834ED5C4DD5BFDA' +
       '6721EAE037E931859B456713D085DBB45D9675DA353DA1EF099FC' +
       '2AED1807CA73FEB35AD797A7D24EE396DEF70B93C3FDFA97EEEB1' +
       'A37BEC2ED0B8578B6CEEA99E0E51873393F5AA2176228B1536C42' +
       '337A031D0E54AAD99DE4D6B858894CC7BE2F4EAA133B7233D9ADB' +
       'BA8A34D54E3BCF9FF118D092AAB071F667A88F51956C452CD438A' +
       'ECA1085FF4D158C786FCC4C594377BD59E69E8788CD245F3837DE' +
       '3072CCCA5D6CBFD3236FD7738675021E58C1B42CA0471D908393A' +
       '8C35F75A722B07F3C6EEB3DEFD40E9EB2647D16B0C709BFA3BA41' +
       'FD1AB91834091E05491D70A1152A57E52DC38E65AC6E57D9E37CB' +
       'BD6B4308FD7BDE1D6EC36FE4AEF412E099B866F0F58553623EB02' +
       '1EE3258BEB5C0770E5183BD2AE323789BC35ABA2C88E5B956CCD1' +
       '4549BED2C19FD2C2AFE1BD2C0544484BF65A050FED3BED96DBDE2' +
       '4017AC0AF8FF3D9B43FC1896F0B77A5BCFDEA6E191387B74EDF9D' +
       'C8FC6697BFA10EDF342DCCBAB4936BEFACAE01FC87E7B46063582' +
       'DA1C671B2A4E80198FE76B9D4863F5F44DA8244E639EC1AC46148' +
       '7C7972BEE67FC86C810EA0E43EF238ADC3F2A7F5BF5B1CB01EFD9' +
       '6B4FF5F9DDE74AED525416C9C64C3755F2832503A701F695F788A' +
       'FCC671B8F6A79F6BC5EE3013BFFF8DC9AF5566BCF76EDA9835EC9' +
       '0D7F90594896842C3BB8476784C85FB19A1C5199C7BDC15EAED4C' +
       '04FCC0DED9AE236AE23390AB315DB155C0F03AE29AEBBEA34545B' +
       'E84CDA1A115A3EB3557C048DA6DE41BE69F88185C4496FF89023B' +
       '8BDCD5F903F837262401AF217ED10C95A006C206AE80339D8FA29' +
       'E60BAB4EEA2B9DEDB78AF9A3B551BF466BF382677C0551CD63BA5' +
       'CA08FAF762BEF3BDAADE78C2B7F8FA22E08D67DB31BC6299DBC17' +
       'CCB407C10E0D67A0C2D50B660DEC4A694C1E55C80D51C09BE36A7' +
       '1AF34473EB8BAB6D07B881E71A8AC856203AFEE19E881714E7DFC' +
       '1AEFC4990D56ED03B1C1AE849DCC2AC07851C591F35D1EB991A34' +
       '0D5E9803A51A82FC0C716E0AAD09A312F36D4C1577E001B4F31A9' +
       'F7EF3D4FC3C93F5541B408113EB6CF5277AA548DB7353B061BA5B' +
       '59ED479DAFF5AE49AD9BDC6EAC400D9AA860B0DD6426B8BD47119' +
       '5A5023D06BDDE8C4842BF3182955D6CC0E8C9B658618FD238E3D5' +
       '55FA892477B9AB2428A5CC3FD20FC23E231208D0C24F1E64A5AC4' +
       '06E830F29E5F60CC631E8BD0EC7E8F8E2AFB8AF81FD87B2532EF7' +
       '1F81C99CF3DE3EBBAB2DD586B4FA5D3E030230A8D7FBC47CCAE42' +
       'E4986330DB624FA48EC3BAB6B11088BD614FB2EF4C955DAEB1F15' +
       'CF5987E8A5C19D88685F1392AE663720EE113D5A78712235911E6' +
       '0B9675C2C64A64A8DAC5D37A5E97032D58EAFCCFAEA524A75ABCC' +
       '6C16F635D30E382BE729ABC37A47A434751BD27B1E7355CB0AFA9' +
       '0B2A778DE7FB085F6FF7317F9F0B48CCD668C95ED12DEFC5F97D8' +
       'D69974963FE98FC27F50FBC16601B1015D40E1D3096E439C5B6B0' +
       '0B032A7A321579DD1DA5A988E85114FD44C5397F8FFF5D8D339F1' +
       '9C55946498E026AEDD5555EF3C44A93735925EDA1A3CE75B35433' +
       '2223102D997314074594D59268BDAD975C15D740D421BC1EEA954' +
       '01DA27AFB74A9A95B914B0E50690ED0EAB0FE68F56E685F5FCF25' +
       '9B6C11DE732767FC6877C673ABD5E4B3DDEB2672CC4784A7006BE' +
       '4D7057F657DAC968FE3370E1C6A9D51B3B6F456AAD1F2882B752F' +
       '23B3B6C825797F6875A86B9D23DFE4BB1A0F37AF22E93BD12C43A' +
       'B99A9EBF0682D7018BF238FFF675168784D7F605D12912A7957CB' +
       '9D5139B2A87E4024068F89DBB8EEE87D6B958A35738035C355D8F' +
       'E771E8E1BBA2EDBD35CB67FB3F5282DB0697BBEF295C8FFD7EAFF' +
       '77FEF78907AFDF3F7B5A851D559609915876E8B86626B45E65BE7' +
       'A0F887D5771C5E7731B3B1DC3D31103A1730E0C48F4EE56286B55' +
       'CA8F39FB7A28A1600CA674622D409563B08DE92B67EA8E54A71D4' +
       'CCB5A56FCA6BC8EB68446D7E3FC7ABF679AEAA98DA537DB153523' +
       'C31BF82EA8166BA512554B701A9B5F9887037EF5B86D9EC2F4DE4' +
       '3E96333CD31FB7CB3C1E14EDCBE57FDD1B3AF37ED74219D9ACC57' +
       'DE4FE8ACD676A2089557A814BBEAA680D31EE786DB379FA25A08F' +
       '24BF2B78196EDBA438588D7426CA6DDB5CE94AE0F31397B8EC0C4' +
       '5AF475DAFCEC326B150011143F91B076C9DF96E2796ED623D2764' +
       'D59BB2CD4AD15572D1A1A9D27A4F2903ADB1B7BE8A02372AB5BF5' +
       '3988BE1EB43D53C9DE1347A06189368ADFE4F6AD30BAB8C2A635E' +
       '8EA390DE154FBA8FEB9CA7AEF7FF73AE33A3DD84BCC89FF2E567A' +
       '43B700C173869A2B73BD469F3C2AE7DFCC91106BD3B26A6BF4D80' +
       '2AB6D1D1CB15056BAB3CBC37D6553618C9EB5985C217E5F753BCA' +
       'EE66C5BCAD404946C34F9A59B633CC523B28CEF2A15B3354134B6' +
       '049F8558FD3C6233515F3742937ED0AE76D53885515E2E6252FF3' +
       'ECB927ECC34B5773875578AECC791EED77FF7B7A8EF0F6FDD418D' +
       '83B61EBB7ADE84A8DDFC80899B3471EE2A5A889472C345CF5F995' +
       'F572BED4B1375C9BDE6DE3639DD15A028DAE97A8EFC14FCB3DE53' +
       '6F5455E610C3FDBAA6457CB49E64063B0BBD466B8B231F958D589' +
       'D16F8ED9B3C9EF812A1D7621D934454468D45740158618CCFAC1A' +
       '130E41432EAF3AD8F12E8B2FB81B1E7AC85FAA6DE223DF789CFD5' +
       'AA3B6783AEBD0A7BD683BCDA2BB99B574F2C43CCCE0BEFDC173F3' +
       '87BDC859A78E28DD62622B159980A67A8106B3599A3D4C4B5D396' +
       '732A222F183C4F04660C937C1EED3CF2393CE2C5D4FFCEE8C2DBF' +
       'E563DAFF67ECA6767F4054C36D977C6F04B32AE456C1775D485DD' +
       '22F57F4FDE27EECAFC6132CB36C5C495DA97B479C90225DBFD7BA' +
       '2FA97FB8F76338E26B7B5EB85E8C8AF1D6C0E75869B8F8B0A5D81' +
       '0F1D4BAA17C6E2FE4EF855741B497E07FF9B5AE871CC2EDA921DB' +
       '5EC10191B44653CEF91987B34D3F6E03D1BAFEE76720DBE059E0E' +
       'D618EF1659B0B270C9F47A55145983B31C8D970FCD1BAA066E93B' +
       '76F66A61651A235D5FD42870305B5CC1698A0AC96499ED4F323DA' +
       'AF0C46B922AFB45EA46B134B77E70F74FB7BBD93FD0480A7DD1CC' +
       'F95B1F0A7F89E192177D587BEDE9A589AA0CD63EEA96A2E55CEE0' +
       'BA3B639399A34EBF4CFEDCBBB673E2DC7025E7094C0612E63594A' +
       'B3556B457C9B90453C3C1126F54E020A23B04D7A1BF116766928F' +
       '55BF99E89ADE105941B5A8BDBAC828F94E2ADE06CF34C7503EA75' +
       'A35FB8942ABCF0E91AA2C2BF7D4A56C2619AC45E5CA16BD461A95' +
       '79963A7DA84EBD87BDBEC3E8150FAB277ED13D8FD1E88B343B163' +
       'D6AB25BC3556B40C286DD1BACD22AA6FE599566E97367CC16B8EA' +
       'E45544CECC1C0D6F6A51E7DB741F279C78067DAD50A6451D4AFBB' +
       'EDB18D21F33881F1FAEAAE5C8F9513E91CC590B5827EBC3925E06' +
       'B366F8DD9DA1D281F2303AC4A3B7173C86455F6F4017A22F68597' +
       '10FFA73A1A9EED954A2AB6AD9A71E27CA2AE83DBD12EC75054EFF' +
       'FCFD7C95575832B7421E83CD57BD3ACED22FABEA575BC6C6E3A24' +
       '7E641155CCA5D68269B799F33F3CCF8B6CBB15D234197F6E1E279' +
       'F80B7AF7DDB63A5B893FEF1971CDD7EC0E665479C13DDDCCD88BF' +
       '634B18F8F9547AB4B9A420C513D2231F63719AE74DE45CEBEA6F6' +
       '9E5A4422CDE6AB80BBE8390AA0CB5E73EE31B3DF8BF1638DFD733' +
       'E7F8F2BD3C7F4317FFA35F01507E72BEC2AC033A64D28C121745C' +
       '8D5D9D7CBCE8BBEC7F9729308C4917F70DAB676052A765922B381' +
       'CA6F1B6F9E42DC36FD0050B8667006E23DE5324072387DE13E131' +
       '9C93B10A54E0CDBD2A23049FE719DD289C56673ED126A5BF217F8' +
       'C0AE3EA9DC83AD7223A8CC24BE6DC9EE18639EAB054DA218E081F' +
       'A759B3D2799C5A23AB5D96F5D9DE705BEFD1FBA5FB697A7D5A45A' +
       'F65DD53E93F5AD1F714B9B8CA6E7F96D527DE843EE189D56AD574' +
       'AC3C9AC538C433F37FAFC779332D762A365A5558BD9FE83ACDE7F' +
       '10C0B8653278CE1317C453CDE2C122CA46A3F187FCAC48CACC833' +
       '272D9AFF5235D44C56E704ECE2B524CCA3A3FA226DD4C5FB4A427' +
       '177CAAE49F6A3BDF98C3EA22BBA29C1B2D657285083DFC15AA84D' +
       '2066AA07C6B75AD96F7BCF72DAFD8A343EF2E9F4895774384DBF4' +
       '93729654FEFD12B72C9EF515D2FD34BBAEA407BAE314FD51F837B' +
       '2C363B6F5FE08013B68BE76119A6231F69B78996EB7CF1CE38465' +
       'CAAF301F6BAD3EDB0C778FE8B689049CBB60A9B7754661EFD29C5' +
       '271804D7E77138A2BEB7E85142353CB2C8CC02A2F37165DF50B55' +
       'AF47D351770162B3B737D366C640797A6CB43F0A356ABB75D8A31' +
       'FEEF734BB59751EEF0B73B9EF4B4C7BE7EA4AEBA782F332B1AE90' +
       '7BD3A899A8847BCB63B630F5DE637FB1318A3FEC47D68093658A6' +
       '4B657532B9D635185A8DFFBD733CBADBAE8F787B4765414E55E7E' +
       'C9183CDB9079C1C1B1D70318107130338C5CE990A67F827CC74CA' +
       '8D36E5CE08DF2A47BDC65EED558F289CB06CEF9F0F91FFCEC4A7B' +
       'E0A108C0A6B6403CFCEDBBEA38DD4B345606A039C39743FE2276A' +
       'BE8EC6ECC3CA6EFA96F3598FCB7DB3514FD1B57DAAED932CE37CD' +
       'FAE979D9977CC0BA23B282B9AD3351250AC656F9A5927FC15993D' +
       'EA5DB3B615BE327A9484C91F8309590B3BB0D0F3E2DECA67C5C44' +
       'C15F6891F38AD7AE25E2476DD6292804D4494594F47CC42C48458' +
       'CCAFEB9973E20799E98EEDCA286B3EA8ADA335FBA082021B76F84' +
       'B8167B7FA429D5B3B9CB8A5C2EE510B9655FE72EC77AF807946EE' +
       '23112CE35874956A4E24F3D90E500B008D984509EE1A53E881AEC' +
       'DE86DEF12BFE51E5DF3BCF9C4959ED14E7ECF9B9FDC7E657222F2' +
       'D75D339EE5253B173AA2423EF69EE86A2BE68D928D2C8AF569D27' +
       '6CDC1A3B2BB2AAC167B273DFA8AF918ECB13D317A273396B13D7F' +
       '77862E4EABC0B46A8BB87AAFA15862F4D5C55DC015ED156EA3433' +
       '32CDB83325F6E877AA1A0A6301D7DD3D3E4DD64C7C87CC36EC032' +
       '47A73F677ABB2633F54ECCBBD75005D0BB8D0D02F1DB8CF97E9CF' +
       '000DD14B908E43ED9F5B05D59FCADA20BEFB3C195FD3A96FB96B9' +
       'CD1A4DC14B6A2E89D3FDB2C463E550449768DFB6572ADBC9C38DA' +
       '6DA1936AB81E6AC57CE4088DE252A5D43E39AFA4332B1D2151ECA' +
       '7C9F18BCF88481E83C3AE83C28FCA63037CCCEFB7B3D4169BBFA0' +
       'CB1B763EA19338B6C75A7DAF794738C7D562A7E23AEF2F559DC31' +
       'D312F3977C2E16E739F85C714EFF30BCC55C9AE27D343AAB993B7' +
       'DEC9DA07B54AC5974CA8432CA7DA247AAC57FCB39039039F8A4E8' +
       '4234423DA1F944624932479C8D022A14D7AE8BC89AFBE813EA384' +
       '9C3B9FD8CF3B3075CA347E02DD547390FAAF2123AC92711350F32' +
       'ADE2C61D82DE4F14DC85C7158C3DCA3C8A5A6C7AAE913084A0F6F' +
       '4B6C74B3C3FDD0FA6BA3BE6986DD6C03717C4E4CFB35FC18818A9' +
       '314614E1969FDAE6883182C98CE90A69C77C9A07BEABCCBBD9E93' +
       'CB323C67D8168837D169377D3209E8767F4096C87879D7AB45AB8' +
       'DF2604227E23BA3A5C6D11C7A9BE1FC947A8C5CD69C0A9D809062' +
       '62B479C36E635262A37B6DBCD341E517D8B06638116517BBADB29' +
       '16C79C97828E48D3DE23424B0D8F736BBD4AB067239B6A9DA00B7' +
       'E90E83A4FE7727B7E72EE31AE29F38E293A5972EE8D77EA3DCC81' +
       'F1798C1322319FF326534C9B6E8BE3EAFDD7ECC8F6BED4424E8F3' +
       '158B0CDE10131292B7DA573D4FE5753A808D865636C0F908693BF' +
       '11F6CBCF9C8B3BCCBA1B087E9F88DA1EB07D463B9F67B59E15BEA' +
       '295CA47F6552AE76CA1DD358D6B7887917F1593E8D6BC3F270CB3' +
       '8BADE8240ADF4B321D9FE7EC7B797D832EF0124F11E5B5D1C3EAF' +
       '14F56B20A67B9E3919CBC173D2C5054B6D3AB9095C0BFA0B2AF73' +
       '15584193E96DAE90CF6E7A9D10AE733F384F26BBFF56723E986B1' +
       'ABFEB41E28A79A412983D5C1EA78D4B76DC5051F09679966F3AE6' +
       '6C99FAEBB893AB1FAA2AEFF573FBDE8EEF9DCFFF2A990D5785E9C' +
       '6C039B7975E74B343B30B0038B467C3B5907926CB473F45F389AC' +
       '068499EA7B56CBB5EE9C27C6CE1D574089BEEE22FB261C8DF6B9D' +
       '83526F1E42397325E7D4E2367CCAE636A808BCCF8AA9A3AF6C65A' +
       'AD27B99D39342A5EC5BEE42C1A4C372D17D1FD367B1674869B4F7' +
       '65D6CFA1FE215F3F5983F8959A6A69E8235D30C05F5B8F93C5DB6' +
       '2CFE13D7E5F5537B4F745B4DCEDCF01905AA43D3D9D79C7EF00E3' +
       '62CAFFF0CBACC76015DB8DDA04B72679DD8909A64F3D50F6854FB' +
       'ECF1D2640AC829E73FCB8C175C5F7C4B3A0950662F14ED29D37E7' +
       'C30D50DDBE31DB2D0AF7ACFF298C8A1CD39CB8E8CB3CFA3E6BC1D' +
       'DB58863A6FCEC84D15B4F33388E73187D9B7AED4DB88B5BE075D6' +
       '2C166DD39A23369638259712BA73D32AC7EF6CF8CBD0C9F796FC5' +
       'F344AF653F5A2DF54195AB5CE4CA1A063A74657578B8EA660DFC2' +
       'F37FFDA5573AEC96AF4CD469543689BD1DD037B458D9CF4F264F6' +
       '5D98CBA7CA7DB8B6BD8DDE19C10ED32527978E37EFEDF2891FAEE' +
       '16CE6C95BC4ABFB8E99518AD6AEBE0AF2E3CDBA7E23BA8831992E' +
       '9B538BAB62BC99B6575AA5EEDEB3A1F3F1F3E8A2ED1274C94E8A7' +
       'BF43E70E25FECD0E97045D5A528A05405877B60137C461F74B9DE' +
       '27359D9505D27923FA1E54C7D2F63B47DF68515D814FADF738307' +
       'A0957CCFD985667146562614626987D6AD3A7813DF63B97D13D23' +
       'F1E44CEC4006E3FBD1F568CDA042F46F2335E4CE7EB0D7B8C7153' +
       'EE3A7DFC354F70D5CCC762DB80D3B10935EE807BD42AADDA3EF44' +
       'FED135339F5321FCA0F9341B82F819BC4AF4B090831A47D7031FE' +
       '1A122730F0DB0EB91384929F5C6536A08A3930B91614CB3F18EEF' +
       '7BF6448C6333AB2D3632B8D7E6F4C898212F3A28ABB8E56CD283B' +
       '3E2608FB778F277A14BACC1ACDBB874EE3AB7D87CD97B7044E939' +
       '85523D7A4E57571F6557CBC39433EF71A89A49B031818AF9CC099' +
       '6D219ADF10C98B164DA61C1B4C3D155EEA9B11947DDBEC16E0BDD' +
       '59AC6A9640F5287D37D1BB1D1DD39CC07093E9F4E7E478E9076FE' +
       'C86481EDB37C6E6646F56814D5BF503FF884D195F872EFA0B9F48' +
       '0C5D6EADB08B6FFA427455640FC055F58BBE5D42BEE751FB499BC' +
       '993764DD97D1FBCC1386A77AAE671FD8E27D90BB0EA842E57EA1E' +
       '636A967A58EDB26F7AF063334270E0A1262DFC75082FC4D94DA8E' +
       '3F0D44D58B12174CCDD0788F3B3FF9439A3E7BFBA75D175E9AF5C' +
       '05466E36C301FD5F9FBFB279155CFFF6FDF6537185DB9E5571924' +
       'F28469A1DC131D3AF9DA596F3614A3713DE3711E84C6665569151' +
       'C6D4EED5599AD895102CB4ECF4B96BA78CF79DC946EC786FFEEBA' +
       '0EF5644C9A90A55F6188A6E90BF0E63FEC1545039809D3E0F3508' +
       '4E40F539A54F2CCC78F5BDED6099EAD63C54EE6A357F1C7E0E6FD' +
       'E1B4E6D7F658D7E13BAA68BD5EA9205E56E689FC99CB921F521A2' +
       '9F4C353866C594876D89C7A8ECBB52CE7A704A4EA0650D313B0B6' +
       '654C1504F647D4DD429F92AB3CC592A578DA93C9AAD7F4B85BCA9' +
       '17F0182A5B0C51CC5C443FA379047BB8A22E031F4DBDDCAC5DCF3' +
       'AAB4D95C6E4317E64BB10B339D258BFE01E16EC67C44E64E85EB0' +
       '09F4390FA6BB777F577E51A64BED85348C497C9E7BBB4AAB0FB15' +
       'F84CC0FB9267EA6CCFD8BCF75D45C18589559494D55A2AF2BC137' +
       '697D2D5528C35577A973569BCC9F89AE0AD67F0F6BD64DA6D8C96' +
       'EF514D82E53C8CCC76A2A3C06F3FDB3AD4E26D53E3ED32FFA52A9' +
       '4EA7DE437A22584F39E0F99B33759EDCFEE92A17EF0BDBCE1A9B3' +
       '5336AD025617D3A77DC5F6BF8DB7B9067A605EE5FF11B4F8DBBFA' +
       '1AA24E516057B24F808CB84BFD8ECF0EF54D22C912E7A40EE5571' +
       'F662FE4B470E93B8EC8213AB2750FACE2CDFDA6F7274E8D0E2A27' +
       'CCF8EB52D3EEDD13B9F5406AE2BA6F31942AEC8C1E8F92392ED01' +
       '850E38ACA11A72E1BA7F4CE373FA3A669D570AF53347BF46C5720' +
       '77A8919733D45DD14B88DED5542CBB52D46CDD11136CFE4C74116' +
       '3A25550865CF5DB884F740A8D6FB89EC5B6E4EE9EE48A65AFAB68' +
       '51C04A714359BBDB6ED6296DFA0CD9AD5C7452C79CDB5886ABB2A' +
       'FB2837BD6EC128FCF5A794C358FDDA39CF47E0E4625A647260356' +
       'F5AB1BC28FB057C7CB96F39CF53B47B528D5B98E286EF03136437' +
       '70872FAAE5542516D87D5C2B399F7BCE8C42D63865153BBD0CA55' +
       '9F3A0DE366FB4EDF8F2E46F51DBAB47A15BB991E3617E8FC52EF3' +
       '17435C87675B68F5D6E5A07A4CDB1FBB58B396BD36311055DEE23' +
       '2831D39EDAE03A6941FBFE9A79A7DA7BD83221ABF31B593F1D67A' +
       'D9E04432B15E1AC05A3DA9ED34A4B33AD287D2567483A57A6DFFC' +
       'EAB56FE405E3A28F0C75072BB675F6AF2B34BCEB90739ED1D35A4' +
       'CD95E27BC5DD4879AD6F7CD268D14DC834EEAEF4417708513575C' +
       'CFDCDD33C654C6E831BF3A6B7A882D9CAE58F089C7C5771684357' +
       '3BCE17F792A271338F15E159DC9C0EEFBD8B73E8E8F73C57D927C' +
       'D37528D390B427CB67E91C23EBD45E428F39EBDFF679076345EB1' +
       '6C4D5F79D77964B1263962B5954461CCA378FBF4DF6AC5ABF3AE9' +
       '54FD605F2FC3FFE68C11AA8C2699EA76673C669DD44014663E80F' +
       '1F873D085D858E702B98ADB6B8EE59A3B32DC4AF81CBF664E88FD' +
       '9D57097DFE83EEB0EE67B9B3A74636B32B2A64AAD5D8ED879D75F' +
       'B804ECD7AAC39BA97570B49265F6C32B9AC35375CCB0C196E1F03' +
       '369ABD8A2BBBA8D68CC1A2D7BEF8B6D356E7331E4563BCC494249' +
       'D69E3DD2E67B572A17EACFDF854C54F750BED6665CB9BF9CDAB65' +
       '9AD76FF58CC2D22BAE728B44CE60CCDA9FCEAA8DFFE51683B9613' +
       '57DD3DCCAC942CE7A656CEFAA1EDDF5A3FD7D3EE1EA90BB2AA227' +
       '4BD1E5B900AB57CA48076732B6BB0CA46F22ED95F44D78B4B6EA1' +
       'EB198E657F42A7B8748A025372FCB166C6C9242AC2EFA8D5BCECB' +
       'B509CCDCB4083DCFC43DCEACCCC6E641741CB84212EFC7F569D54' +
       'E8EB47ADBBFC932CD89182BC35CDEBE095D60BA2CFA5274C954AB' +
       'D2CCD60B9B36369B505C59047DEC5118F2F5619E73DF05E3938B0' +
       'E32C11B9C3CFA5E7D0BC63443372EFB7722137C9CAEA6BBD7DBC9' +
       '72DCBBC7AE6A67F89BB9496D9704B51351EF563D9EF5D4E7B6BB7' +
       '16D765BDBD56F7C65CCF4F6AD8BDA9D14D54C6AE18695BE35A788' +
       'C45E4BDBD0EABD3CAE37935CC375C2F85FCB31678BBE80B1B7EF8' +
       'CEA7B9F4814C58C0E671DB51EEAB3A40E6143B27E3D5CF591B8CA' +
       'B943C735398FFB02DCB678FCB306AA75B3465ABF5098888FD65D9' +
       'F647EDA8D6365CA991E658EFD05C9C831BBB42A76A86AD7B9E856' +
       '2C51ECACD0468231F32E954977A994F1A6557BEFCC5D1ACB835A9' +
       '87555ACAE3DF319F5A218A7326D899D68D1E75B264717E7D5636A' +
       '44F5D76127574C4CFA5ECFF80C5DE17D10F984ED9A6202BC77D68' +
       'FED5E4E993FA99B057457856EA3F6E75C57D755FAFC6D4E1C8A09' +
       '6FCDBC23C93B747288CEC0F7082ABB957D13F16AD7D2E3B4D8619' +
       '7B31762031454D3A671B5C7C4750C663EE273EF1C39CBCE44F159' +
       '033D69628CBCD905D649B69BDD445F7DEE678CC78617EBC2887AD' +
       'C15196576E179BDC076AF8383BD8237FB1ECFB887AE8C439CC5F2' +
       '6D1189A85445361B09654B85C739BA9D53E7B3C5ACFEB0878FF34' +
       '6BCBFD8F5635A555FD4521D862606036BE1FBF20E326D158FB10A' +
       '974C8776EB37C70E32FC5272871D6616A1D38D13CE59E3465E495' +
       'D77548846F6B5A13B49E7C9331A6767A54D9E6715EC109D863125' +
       '75CB4F735395CDA82FACC02EB9A16F70751095FF914D9CC983997' +
       '2A389F0370FB921E1CBCEE7E8CA5952399DA0ED9BC09C64CFDC73' +
       '7690ABBC1E79AA29F66C7A1F994F1C526E3FF382569B11BD69F2F' +
       'C98DC5BAD90CEB075FE3F6BE89995B8DEA9CD1F97DC432AFD863A' +
       'BD41B676E6BE51CF3497DC4D365CC0A8F87C0CDFD436DE725AC87' +
       '8271A0D1B0F5D549CD07538B12286AA594CAD19EF0F1DAFB1E15D' +
       'F58D9A63C6368DDAED5ED9D72330F67BD195DBC15A3655F75334F' +
       '3CD842BC8EE095774FBA6C29C37A5934863827769B66D060B91D1' +
       '78CEB6759CD36AB132C56D29986C4F4FB13D8FC799C1EBEA74FA4' +
       '6BD131B4847E966F54A7D3B7F5E26E49B47A3AE23F6FB0033F3D0' +
       '5B39ED8F866640A274D66175FF94F7028BC7CCF90F97ECD9F7ED2' +
       'D405ADDE20E9BC989CDF08FABF9C7036E7F21BA9EC65D8D323036' +
       'DA8F32BFC5376CEAFDAE6AC809937E15945D4FE468AF4AAAF8A84' +
       '0609E8857C978C9F762280FE656EBF060459BF85FEC61EA6AA23A' +
       '108CD9E8B5F892F30363336CEC82D1AEC0DC96EEEA38650FBCB7D' +
       'A7565BEF1935B0F10C95BEE19557EDF2138C784D5D0B3E9FEAC50' +
       '28ADE173F52ADB0454E81839C1034ADACBB479C69ACE7DA505FB0' +
       '1BA90EBB1DE33C6AC0CCE319079B6AC273ABB553CAA4FD5B1F3F9' +
       '5A45F2E9E298A69B9CAD32AE5AB5D4E982B0248CCCC58B695D49E' +
       '7A7B51C08BBE9A323D2392E9F07A2BB5D421312D98DCF18CFFD89' +
       '33272DA79D211FF2C6E95871CF70518CC152A182C98ECEC81F6DA' +
       '7DB4314AAB361B526EB3ADE0E5D384D87C68E124EE8E2D4D3F92B' +
       '6DD71E4BAFE86A764C0847DA6C83F29D9BA1634F9D15AA2263893' +
       '839B703C3DA985F7B88CA1A6DD8C36C34D82BFC95ECB9164DCEAC' +
       '35A0507FC97615C98525C35576453356DDC398F3C043231D5A477' +
       '6DDCEB98D65F2EE4ED9A80ED4E1F1A2905CC4BB39AB06D64EBE79' +
       'AF842EA209C98D249C8C817D677295A9E8903996505050536155A' +
       '4EFB75DCA3E25179A4A98AC353B379EFB2FDEDDD31ABB0072AFB4' +
       '69900E43B3E12EB558BE8F982A2F7B647F06071BF6303B92E6D53' +
       '9AE29BC2DA77F9BDD7BE8C00A3585F6456A6C19CF10B54ED5E9C9' +
       '46B39BEF36C5A42CECFD39D86ED39824AF1B1845A36B7154B5C33' +
       '2E92B36D552853B16FFF52DEC470EB4EF5D71A838AC2E60EFE762' +
       'BC3DFB4DBE045DDBD51EA7BDABC60D86323123F4123ED5A7E4D45' +
       '99DF93F5C7DAE2CA7E646ACC2EF0D1BC47A9C702E47466E3AFB71' +
       'EF7D6E9FE56D883DE659AFC4671486FF2E7AE639F581DE31AA5DB' +
       'A9A11E87BE0E437CC2434EB0414E11E9FA4641BAECD3A65B78BEC' +
       'BD45BF52E81E75128EEED7E6A41D6CDA92B9F7B96D107DBDCE0E7' +
       '95545FC233418761B7117E75941E773D9FCE3050A8A2FF18F6AA9' +
       'DE4157C6D2BDB29DDB46C4F2B45B806DE38F4FD08D597C783CAB7' +
       'E3BE86ADE0370B287ABF61C87669793BE1FAD21BAFFE5E694FAEB' +
       'F0AD8BF28B584BEC6AB1E739ADC7ED7D9CB63C6033CC3AF7D2145' +
       'C984098BF8EC3DA6049761F28C7FBD0FF1BDB3D743747F27EF3B9' +
       'E7A8B3EBD3D5B0A8A1A36F14BB81448D36F8C4E63926CFD382994' +
       'EEC0BD1F514638F3B0D9D3FD7476AD7C30F7C5987229CDC67F1F2' +
       'E39B5707920DF9BA8B27D9D4D230B47C9F36F98DF327654E2FFDE' +
       'C61B94EB7D3727C9B0F7AEA44689C3A7B50590B9DAF12BAA09893' +
       '9F96C72BFB4094EA461EB659654D3678C571F41DD993AB6717C51' +
       'BB95CAB11702E597D8681F3FA108319C636548C860DE3DBA7DB27' +
       'CFBD88ABBB6A79954395FA41E4FCDAB3F7956E37A85C8D1D04D9F' +
       '9EEE8229F00153DAC10E6A3DA0C67DD95D0E0AAB35A38A9CC97BE' +
       '0FDD9CA5F58BD60B3F6EEEC32F4B2379D5D0AA87551D9AF63AE51' +
       'E84B65AC42919AC605A457EAE9D477836CC3EC5DCDA065D9F3F5F' +
       '40D7EB27B9972FC6557FE6A4AFF7E69192F180660F9EB1AB88113' +
       '9B47E165F19DE703FFFF77EAC6BC77A74C91C4B3D759F82560794' +
       'F1C33B4764C848D8B004DBA53A34651DFB59BED983ECD941CE75F' +
       '419539A3B0087E82D22A7CABE42D3F9FC91E8FAED273B7A0EABB3' +
       'FAE9719ED75BE1DD880ACC4A0596F4841FC4FFC2D6215A032723D' +
       '37795A7D57947AAF9696AEB111F7AADAD573F369B49459D825F13' +
       'D0C819B33E1774752E2EEBEF547D107BE86503C6B00314F7FC43D' +
       '71EBA7EEEE45470A00B76E90574C127C2A335BD93C2474917DE5D' +
       '599DEC28F7893DED86B59CC1AB5AD95EA7A4568E73656337E8789' +
       '3C9A8548521938DE9F4AB4FA737A5F46A4AB0AFF78CFF4DD4FD0C' +
       'AEBAB9DF7DC4CE13A8B3389FB379BB29F4CACFB4D5F68CBB18C9B' +
       '7FD7AB1D140FB5072D78C6F81D78A55D32F60964ABB4475321E2A' +
       'EC3A4D45E66C739314FBCA677482D709E1FFD0F51974B1175BB0F' +
       '10374C16A015DD8E7D29FCE63307B25977B576505AA4B51D38CCE' +
       '23DD54ABDD4F89439F18F3D8233072F7012BE08D360CBAEB2A1B8' +
       'EED78ECEA45B7EF18FD92E80B1857DB1DB0FE12FFF87F89AE1E15' +
       '9C23A1364A3C60832B63B7DED9B8812D1B32374CF590BA8754FBA' +
       'A42B9947B6F036F6D6E1273608AEFD40BDE6C2DD4CAEADC75AA64' +
       '7D3A596CD3CEDD078E40EA73EC8CDD19E59B6DD75F1477112138C' +
       '142F41E504FC31598B1E66FFBFD2C3875BF55F605DC9569248A52' +
       '2176EF782DF62829A7AA7D4C39E767C616898BEE968D393351BBC' +
       'C79B0B36ABD30156AE25EF58ABA011B3470FE43D7EBE86AB0813D' +
       '8C1AC3EFA10BA7A16BEFEC19094C7EC68CF1AA0F7526FC7182966' +
       'BE77C9F544E51509EFF5135374837CA107B01527F88482C35F9E5' +
       'E27B1B737789E49285D117E68FC566C6F1F80F5D1F4017364919B' +
       'A1AE6A18FAFF4DC41548355D483901D5806CA9D083B5BF3341ECB' +
       '0D53AE16481FAA31D834EAD6EFA8483673C69CD1E28EF5D0B5968' +
       'B2A3A3C97345FF9860E8B986CBC42ABC3F9D5FFD0F502BA88076C' +
       '8915E49029DD43177C6277F6B8523F8B13156DF592BDC6927354B' +
       'C37AA4E7FC26C28E8E282D318590DCF2E95727DEC9199182925B7' +
       'A6F315A566B4721FF192F3F99B1E70D977C30906CB3745F57F36E' +
       'A7E88AE1E57EFA06BCF82F5DBF4FAADA0127D35F64AB6D06A653C' +
       '6AFDC1E76BBF1E227FA80592E9F2EE9556A1EDB376BD9A19AF527' +
       '25702F4DB8BF75AB22E899903391BB6C42E4B63E430B5FE1FBA9E' +
       'A3ABC3C96E557AC75ED16ABD8E2EDDA9A74C3E1E2335CDD40EC56' +
       'E594E2D9B23D3944956733B3B680955B06A3CA272B4593657F026' +
       '6F8FBD27C18C99F6B27650B296F4C6593D55996F1B91FECFD1F56' +
       '2B688286B17571A653DF78C3B1B66F7D0458C8161030EC59FC2B6' +
       'A8C6A38FEA7352816A1473FF142B8FC17234D37E32336507257AB' +
       'D75DA0915ADAE0723BAB003C5B7D5FC43D72B27955A766A9EA8B6' +
       'E8F31853D504B513C0151EA3AFD5B1649CA6CECE239F0115F3161' +
       '8A1595FC39B57E7733AF7FA303D2F3BE2DD7671BB9969B0739B92' +
       '65B5E36FAC04FD15E86A74117BFBAFBBF8FFF5089F9A9C1DEDC49' +
       'ED6EE1D960CCA70BD5EA1D3F6D82CA6ACC42C05E26DCD797AA1A8' +
       'AC11573ECF229A46CEDBF987AE5F5BBF86ED7A27FBEB31F63A2F0' +
       '174A1326EE74F683BE31A714736A6BF8AF25F95DBA9BC1D7C27D7' +
       '9B288EB8E788F36C83C5F2F912B506F48B71F5ABD0F5FD7833157' +
       'D73FE1CAE04338D5FEBD0B2C77DED45F8CDA4DF9F550E3F5C299D' +
       'A0AE1D76D1F91B75F09C78E61A24D416D99DFD1528FA9BD0F58B6' +
       'CD76E3DFA658C3D47D7EB583A94FA1BD153BDA476CDE8FC9FA613' +
       '303A98AC5FE31193DF89A8FF7B743551D35EADB08BD57B4EE32BF' +
       'A687CB38CE9BABBEBA52C594E0ACAAE2253DD3FA06B1CFFA1EB5B' +
       'D125CA52D5DEF4E757CFF178DD333A4BB004DB9F6C7C445FBF0B4' +
       '5FFE22E451732C4CE5EBD92D9FD5E746967A56F82B3DECC3F0D57' +
       'FF75DBF519744907507F7E3F96FAB8EB0F45CBFF9B67FC2974FD3' +
       '9B8DAC3D83F74FD07E2AE3DDEF20FC3558FB17FE8FAA350F73174' +
       '4926F8E7E0EA95B8EB1FBAFE2BE8FA6371F5D7A06B3A4F47DB0AF' +
       '4D3E72FDBE5F75146F4CFC6C63F74FD04BA7E1B96F631F6D79C5B' +
       'C475F4F32F41D7611ACBE93F6DAFC67FE7DF85AE9FC4D8AFB3577' +
       'F0DBAD45EFD4D560BE7FF00B16734F5');

 Ref:= 0.9;
 Tol:= 0;

  For Times := 1 to 20 do
   Begin
    FindTalk;
    Wait(50+Random(100));
    Try
     FindDeformedBitmapToleranceIn(YewTree, TX, TY, MSX1 + 50, MSY1 + 50, MSX2 - 50, MSY2 - 50, Tol, 2, True, Acc);
    except
      Result:= False;
    End
    If(Acc >= Ref)then
     Begin
      MMouse(TX + Random(10), TY, 3, 3);
      If(IsUpTextMulti('hop down Ye', 'down Yew', 'own Ye')) or (IsUpTextMulti('ew', 'Ye', 'ew'))then
       Begin
        If(FindColorTolerance(X, Y, 55769, 85, 15, 115, 15, 20))then
         Begin
          CharmDebug('Found Ent!');
          Result:= False;
          Mouse(MMCX, MMCY, 5, 5, True);
          Wait(Random(5000));
          FindNormalRandoms;
          EntsAvoided:= EntsAvoided + 1;
          Exit;
         End
        ObjX:= TX;
        ObjY:= TY;
        Result:= True;
        Exit;
       End
     End
  //If Times mod 2 = 0 then //5
   //Begin
    Ref:= Ref - 0.1; //Ref:= Ref - 0.05;
    Tol:= Tol + 10; //Tol:= Tol + 7;
    Wait(Random(50));
   //End
  //Wait(1);
 End
 //Wait(1);
 FreeBitmap(YewTree);
End;

//----------------------------------------------------------------------------//
//---> Chop Yews Function                                                  //
//----------------------------------------------------------------------------//

Function ChopYews: Boolean;
Var
CX, CY, TempColor: Integer;
Begin

 If(not(LoggedIn))then Exit;
 
 Status('Chopping');

  //If(FindYewDeformed(CX, CY))then
  If(CharmFindObjYew(CX, CY, 5535856, 6328448, 3301456, 15))then
   Begin
   
   TempColor:= GetColor(CX, CY);
   
    //If(not(CharmEnt(CX, CY)))then
    If(IsUpTextMulti('hop down Ye', 'down Yew', 'own Ye')) or (IsUpTextMulti('ew', 'Ye', 'ew'))then
      Begin
       If(Random(20) < 15)then
         Begin
           Mouse(CX, CY, 2, 2, True);
           Result:= True;
         End
        Else
         Begin
           Mouse(CX, CY, 2, 3, False);
           If(ChooseOption(x, y, 'hop down'))then
           Result:= True;
         End
      End

    If(FlagPresent)then
     Begin
      Flag;
     End

   Wait(200-Random(50));

   Status('CheckAxe');
   CharmFindAxeHead;

   If(Result= True)then
   Begin
   
   MarkTime(ChopMark);
    Repeat

     If(not(LoggedIn))then Break;
     
     Status('FindRandoms->Nest->Axe');
     CharmFindAxeHead;
     FindNormalRandoms;
     Wait(Random(50));
     FindBirdsNest;

     If(NoAxe)then Break;
     If(InvFull)then Break;

     WoodcuttingAntiban;
     
     If(UseAutoResponder)then Status('AutoRespond') AutoRespond;

      If(CharmEnt(CX, CY))then
       Begin
        CharmDebug('Found Ent!');
        Mouse(MMCX, MMCY, 5, 5, True);
        FindTalk;
        Wait(10000+Random(5000));
        FindNormalRandoms;
        Exit;
       End

      Status('FindFight');
      If(FindFight)then
       Begin
        Status('Found Fight');
        HandleFight;
        Exit;
       End

     Status('FindRandoms');
     FindTalk;

    Until(TimeFromMark(ChopMark) >= (WaitTime*1000+Random(5000))) or (not(FindColor(CX, CY, TempColor, CX - 10, CY - 10, CX + 10, CY + 10)));
    
  End

 End

End;

//----------------------------------------------------------------------------//
//---> OpenBank Function                                                      //
//----------------------------------------------------------------------------//

Function CharmOpenBank: Boolean;
Var
BX, BY, Tries: Integer;
Begin

 Repeat

  If(FindObjectMulti(BX, BY, 'e Bank', 'Use Ba', 'ooth', 2842230, 3421241, 605778, 10, 5, True, True))then

    MMouse(BX, BY, 2, 2);

   If(IsUpTextMulti('e Bank', 'Use Ba', 'ooth'))then
     Begin
      Mouse(BX, BY, 4, 7, False);
      Wait(10+Random(50));
      If(ChooseOption(x, y, 'uickly'))then
      Begin
       MarkTime(Mark);
        Repeat
          Wait(10+Random(5));
          If(TimeFromMark(Mark) > 20000)then
           Begin
            Result:= False;
            Exit;
           End
        Until(BankScreen);
       If(BankScreen)then
        Begin
         Result:= True;
         Exit;
        End
      End
     End
    Else
    Begin
     Wait(1);
     Tries:= Tries + 1;
    End;
  Until(Tries > 10);

End;

//----------------------------------------------------------------------------//
//---> CountLogs Procedure                                                    //
//----------------------------------------------------------------------------//

Procedure CountLogs;
Var
YewCount, YewExp: Integer;
Begin

 GameTab(4);

 YewCount:= CountItemBmpMaskTol(LogMask, 20, 10);
 TotalYews:= TotalYews + YewCount;

 Players[CurrentPlayer].Integer2:= Players[CurrentPlayer].Integer2 + YewCount;
 
 YewExp:= (YewCount*175);

 Players[CurrentPlayer].Integer3:= Players[CurrentPlayer].Integer3 + YewExp;

 TotalExp:= TotalExp + YewExp;

End;

//----------------------------------------------------------------------------//
//---> Banking Procedure                                                      //
//----------------------------------------------------------------------------//

Procedure BankYews;
Begin

 If(not(LoggedIn))then Exit;
 
 Status('Banking');

 CountLogs;
 
 If(FlagPresent)then Wait(500+Random(2000));
 
 HighestAngle;
 
 MarkTime(Mark);
 Repeat

  If(CharmOpenBank)then Break;
  If(OpenBankQuiet('db'))then Break;
 
 Until(BankScreen) or (TimeFromMark(Mark) > 90000);
 
 If(TimeFromMark(Mark) > 90000)then
  Begin
   Players[CurrentPlayer].Loc:= 'Lost';
   Logout;
   Exit;
  End

 If(BankScreen)then
  Begin
   If(NoAxe= True)then
     Begin
      ClickAllItemsColorWait('All', 65536, 500+Random(100));
      FixBank;
      Wait(Random(250)+300);
      
     If(FindBitmapMaskTolerance(AxeMask, x, y, MSX1, MSY1, MSX2, MSY2, 20, 10))then
       Begin
        Mouse(x, y, 1, 1, True);
       End else
       Begin
        Players[CurrentPlayer].Loc:= 'No Axes';
        NoAxes:= True;
       End

     Wait(Random(250)+50);
       
     End else
     Begin
       If(EquipAxe= False)then
        Begin
         Deposit(2, 28, 2);
         Wait(100+Random(50));
         Deposit(3, 28, 2);
        End else
       If(EquipAxe= True)then
        Begin
         ClickAllItemsColorWait('All', 65536, 500+Random(100));
         Wait(Random(250)+300);
        End
     End

     Repeat
      If(not(LoggedIn))then Break;
      CloseBank;
     Until(not(BankScreen));

     If(NoAxe= True)then
      Begin
       CharmFindAxeHeadColors;
       Wait(Random(300)+250);
      If(EquipAxe= True)then
       GameTab(4);
       If(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10))then
        Begin
         Mouse(x, y, 5, 5, True);
        End
       NoAxe:= False;
      End
      
     Loads:= Loads + 1;
     Banks:= Banks + 1;
     Players[CurrentPlayer].Banked:= Players[CurrentPlayer].Banked + 1;

   End

End;

//----------------------------------------------------------------------------//
//---> Progress Report                                                        //
//----------------------------------------------------------------------------//

Procedure PlayerStats;
Var
Active: String;
I: Integer;
Begin

  If(Players[CurrentPlayer].Active= True)then
   Begin
    Active:= 'True';
   End else
   Begin
    Active:= 'False';
   End

  WriteLn('|-----------------------------------------------------|');
  Writeln('  Name         : '+Players[CurrentPlayer].Name);
  Writeln('  Number       : '+IntToStr(CurrentPlayer));
  Writeln('  Active       : '+Active);
  Writeln('  Location     : '+Players[CurrentPlayer].Loc);
  Writeln('  Chopped      : '+IntToStr(Players[CurrentPlayer].Integer2)+' Yew[s].');
  Writeln('  Gained       : '+IntToStr(Players[CurrentPlayer].Integer3)+' exp.');
  Writeln('  Worked       : '+IntToStr(Players[CurrentPlayer].Worked)+' mins.');
  WriteLn('|-----------------------------------------------------|');

  For I:= 0 to HowManyPlayers - 1 do
   Begin

    If(Players[I].Active= True)then Active:= 'T' else Active:= 'F';

    WriteLn(' '+IntToStr(I)+' : '+Players[I].Name+' = '+Active+' - '
    +'B '+IntToStr(Players[I].Banked)+' time[s], '
    +'C '+IntToStr(Players[I].Integer2)+' log[s], '
    +'G '+IntToStr(Players[I].Integer3)+' exp., '
    +'L '+Players[I].Loc);
   End

  WriteLn('\<--------------------------------------------------->/');

End;

//----------------------------------------------------------------------------//

Procedure ProgressReport;
Begin
  ClearDebug;
  WriteLn('/<--------------------------------------------------->\');
  WriteLn('| -> Yew Raper '+Ver+' > Prog Report < By - ChArMz <- |');
  Writeln('\<--------------------------------------------------->/');
  WriteLn('  Worked for '+TimeRunning+'.');
  WriteLn('  Banked '+IntToStr(Banks)+' Total Load[s].');
  WriteLn('  Chopped '+IntToStr(TotalYews)+' Total Yew[s].');
  WriteLn('  Gained '+IntToStr(TotalExp)+' Total Exp.');
  If(HeadsFound > 0)then
    WriteLn('  Found Axe Head '+IntToStr(HeadsFound)+' Time[s].');
  If(AxesBroke > 0)then
    WriteLn('  Broke '+IntToStr(AxesBroke)+' Axe[s].');
  SRLRandomsReport;
  PlayerStats;
End;

//----------------------------------------------------------------------------//
//--->  Callibration Procedure                                                //
//----------------------------------------------------------------------------//

Procedure Callibrate;
Var
CX, CY: Integer;
Begin

 If(not(LoggedIn))then Exit;
 
 Status('Callibrating');

   If(FindSymbol(CX, CY, 'tree'))then
     Begin
      If(Distance(MMCX, CX, MMCY, CY) > 45)then
       Begin
        Mouse(CX +Random(5), CY - 10+Random(10), 4, 6, True);
        Flag;
        CharmDebug('Callibrated by Tree Symbol.');
       End
     End

  If (WeAreDead) or (FindSymbol(CX, CY, 'water source'))then
   Begin
    Players[CurrentPlayer].Loc:= 'Lumbridge';
    Logout;
   End

End;

//----------------------------------------------------------------------------//
//---> Setup Procedure                                                        //
//----------------------------------------------------------------------------//

Procedure Setup;
Begin

  SetupSRL;
  LoadBitmaps;
  LoadDTMs;
  DeclarePlayers;

  MouseSpeed:= 10-Random(5);

  ActivateClient;

 If(not(LoggedIn))then LoginPlayer;

 If(LoggedIn)then
  Begin
   EquipAxe:= Players[CurrentPlayer].Boolean1;
   NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
   CharmFindAxeHeadColors;
   FindTalk;
  End

End;

//----------------------------------------------------------------------------//
//---> Main Loop                                                              //
//----------------------------------------------------------------------------//

Begin

 Setup;

 Repeat

   SetRun(True);
   
   FindRoadColor;
   roadcolor := FindRoadColor;
   
   EdgevilleBankToYewTrees;

   MarkTime(CallibrateTime);
   MarkTime(Mark);
    Repeat
     If(not(LoggedIn))then Break;
     If(TimeFromMark(CallibrateTime) >= (240000+Random(60000)))then
      Begin
       Callibrate;
       MarkTime(CallibrateTime);
      End
      Wait(Random(50));
     ChopYews;
     FindNormalRandoms;
    Until(InvFull) or (InvCount= 28) or (NoAxe) or (TimeFromMark(Mark) >= MaxLoadTime*60000);
    
   Wait(Random(50));

   SetRun(False);

   YewTreesToEdgevilleBank;

   BankYews;
   Wait(Random(50));
   ProgressReport;

  If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1) or (NoAxes)then
   Begin
    Logout;
     If(Random(5)= 1)then
      Begin
       Wait(1 * 60000 +Random(5 * 60000));
       End else
      Begin
       Wait(1 * 60000 +Random(2 * 60000));
      End
      NextPlayer(True);
      EquipAxe:= Players[CurrentPlayer].Boolean1;
      NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      CharmFindAxeHeadColors;
      FindTalk;
      Loads:= 0;
    End
  If(not(LoggedIn))then
   Begin
    If(Random(5)= 1)then
      Begin
       Wait(1 * 60000 +Random(5 * 60000));
       End else
      Begin
       Wait(1 * 60000 +Random(2 * 60000));
      End
      NextPlayer(False);
      EquipAxe:= Players[CurrentPlayer].Boolean1;
      NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      CharmFindAxeHeadColors;
      FindTalk;
      Loads:= 0;
   End

  Until(False);

End.

pure pk l t · Mar 16, 2007

i got a problem: he runs to north now to south

vash999389 · Mar 17, 2007

Its looks like a really good script, ofcourse charms willow raper was orignally a good script, but when i tried it out he just went north to the culvasac thing and then got lost, either that or went to market and then north to the manor, if you could fix this im sure it would be a good script

Zeh Maul · Mar 18, 2007

Hmm, ive gotta tries this out..Looks pro.

Magic Johnson · Mar 18, 2007

K, no one download this script until I fix the errors (I will edit the first post to say that the errors are fixed.

Young_Buck · Mar 23, 2007

looks good mite try it

nate o · Mar 23, 2007

ehe... why does it say:" failed when compiling, line 84" i have the SRl and everything..

Gofez0r · Mar 24, 2007

I like this otherwise.. But that HUGE bitmap there.. What do u use that for?

Town · Mar 24, 2007

YewTree := BitmapFromString , waste of time. 2248776, that color is always on the Yew Tree.

pker overkil · Mar 24, 2007

wont work for me

Log in or Sign up

ChArM's Willow Raper, edited by me ot cut yews

Magic Johnson Forum Addict

pure pk l t Member

vash999389 Guest

Zeh Maul Guest

Magic Johnson Forum Addict

Young_Buck Active Member

nate o Forum Addict

Gofez0r Guru

Town Grand Master

pker overkil Forum Addict

Log in or Sign up

ChArM's Willow Raper, edited by me ot cut yews

Thread Tools

Magic Johnson Forum Addict

pure pk l t Member

vash999389 Guest

Zeh Maul Guest

Magic Johnson Forum Addict

Young_Buck Active Member

nate o Forum Addict

Gofez0r Guru

Town Grand Master

pker overkil Forum Addict