ChArM's ~Edited~ Yew Raper

Magic Johnson · Apr 5, 2007

I just want to say that I DID NOT MAKE THIS SCRIPT, I just edited ChArM's Willow Raper to cut yews, I have fixed the banking/walking procedure errors from before. Remember to post your progress reports here. Kthxbai.

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, counter: Integer;
 LogMask, AxeHeadMask, BrokenAxeHeadMask, AxeMask: Integer;
 AxeHeadColor1, AxeHeadColor2, AxeHeadColor3: Integer;
 AxesBroke, M, 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 := 4;
     CurrentPlayer:= 0;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].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     := '';
     Players[1].Pass     := '';
     Players[1].Nick     := '';
     Players[1].Integer1 := 1000;
     Players[1].Boolean1 := True;
     Players[1].Active   := True;

     Players[2].Name     := '';
     Players[2].Pass     := '';
     Players[2].Nick     := '';
     Players[2].Integer1 := 1000;
     Players[2].Boolean1 := True;
     Players[2].Active   := True;
     
     Players[3].Name     := '';
     Players[3].Pass     := '';
     Players[3].Nick     := '';
     Players[3].Integer1 := 1000;
     Players[3].Boolean1 := True;
     Players[3].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;

//----------------------------------------------------------------------------//
//---> 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;

 FindSymbol(x, y, 'dungeon');
 if FindSymbol(x, y, 'dungeon') then
 begin
 Players[CurrentPlayer].Loc:= 'Yews';
 end else

 //HighestAngle;
 //PerfectNorth;
 MakeCompass('N');
 
 Status('Bank->Yews');

 Players[CurrentPlayer].Loc:= 'Bank';
 
 SymbolAccuracy:= 0.4;
 
 LinearRoadWalk(roadcolor, 180, 40, 4, 4);
 
 If(not(FindSymbol(DX, DY, 'tree')))then
 Begin
 If(FindColorSpiralTolerance(DX, DY, 101140, 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, 'tree'))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;

 MakeCompass('N');
 
 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
      if not LoggedIn then
      begin
      NextPlayer(True);
      end
    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

              if (counter mod 10 = 0) then
              begin
              TypeSend(' ');
              end
              counter := counter + 1

              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 else
            AntiBan;
         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;

  M := 0;

  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
 counter := 0;
 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.

opoweroil · Apr 5, 2007

did you get a better axe head finder procedure because the one from charmz didn't work

just tried it, didn't detect axe head color

ronny.m.p · Apr 10, 2007

axe finding is horrible but charmz ent finding is AMAZEING!

kellyjing · Apr 12, 2007

i have tried, please help to improve on trees finding, the rest is good . keep up the good work

doomslayer2021 · Apr 13, 2007

nicez..

neG · Apr 16, 2007

The BMP you made for the Yew Tree is redicuously big.
The biggest a bitmap shud be is 20x20, yours is bigger than 100x100.

Other than that, nice conversion

klietuvis · Jun 7, 2007

Ah, ok, something is not working out. I've been having trouble with a lot of scar scripts so far, and I have a teh newest things instaled, but i am just realy confused. Line 280: error:Identifier expected. ... PLEASE HELP!?!?!?

Town · Jun 7, 2007

Use Scar 2.03 from www.freddy1990.com and SRL 3.6b which can be found in version 1.0 of PowerSkills.

omegaangelz · Aug 3, 2007

great script, already cut me 1k yews, nice editing it to yews i used his willow raper to get to 60

Town · Aug 3, 2007

Gravedug. I doubt this still works.

Log in or Sign up

ChArM's ~Edited~ Yew Raper

Magic Johnson Forum Addict

opoweroil Forum Addict

ronny.m.p Active Member

kellyjing Guest

doomslayer2021 Guest

neG Guest

klietuvis Guest

Town Grand Master

omegaangelz Guest

Town Grand Master

Log in or Sign up

ChArM's ~Edited~ Yew Raper

Thread Tools

Magic Johnson Forum Addict

opoweroil Forum Addict

ronny.m.p Active Member

kellyjing Guest

doomslayer2021 Guest

neG Guest

klietuvis Guest

Town Grand Master

omegaangelz Guest

Town Grand Master