View difference between Paste ID: t51wFbAw and uxVKf3Bn

-{$DEFINE SMART}
+//{$DEFINE SMART}
 {$i srl/srl.simba}
 {$i ObjectDTM/ObjDTMInclude.simba}
 
 var
 
   //Stores the previous bank slot logs were found in, to speed up banking
   LogsBankSlot : TPoint;
 
   //Proggy stuff, and fail counter, and bank method...
   Prog_PlanksMade,FailCount : Integer;
   BankWithChest : Boolean;
 
   //stats stuff
   commitTime : LongInt;
   logsPlanked : Integer;
 
   WarnTime : LongInt;
 
 const
   DEBUG_LEVEL = 5;
   ENABLE_WALKING = True; //If true, your character will walk to the
                           // edgeville bank, if it cannot identify a bank nearby
 
   MAX_FAILS = 3; //player will log out if the script fails this many times in a row
                  //^ I recomend you do not change
 
   SRLStats_Username = '';//If you do not have a stats account, please leave
   SRLStats_Password = '';//these blank, and register an account when prompted
 
 procedure DeclarePlayers;
 begin
   HowManyPlayers := 1;
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer := 0;
   with Players[0] do
   begin
     Name := '';
     Pass := '';
     Pin := '';
     Active := true;
     Member := true
                       //Log Type
     Integers[0] := 3; //0-3 for normal, oak, teak, or mahogany logs respectively
     Booleans[0] := True; //Use soulwars bankchest?
   end;
 end;
 
 function replicate(str : String; count : Integer):String;
 var
   I : Integer;
 begin
   Result := '';//make sure result is empty if function was previously called;
 
   for I := 0 to count-1 do
     Result := Result + str;
 end;
 
 procedure DebugStr(Level : Integer; Text : String);
 begin
   if (DEBUG_LEVEL >= Level) then
     writeln(replicate(':: ',Level) + Text);
 end;
 
 function GetLogDTM(Log : Integer):Integer;
 begin
   case Log of
     0: Result := DTMFromString('mlwAAAHicY2dgYDjEzMCwE4iPA/EFID4NxCeA+AAQczEy' +
                                'MPBBMScQswDxT6CeP0Ac5azO0JRhCWQxYWBWIIkLM+LBU' +
                                'AAAb7UJyg==');
     1: Result := DTMFromString('mlwAAAHicY2dgYDjMzMCwE4gPAfFpJAzi6zEyMBgAsQIU' +
                                'awCxIRCbAHFdvDnD7JowoAlMGJgVSOLCjHgwFAAAS4YJZQ==');
 
     2: Result := DTMFromString('mggAAAHicY2NgYDjKzMCwE4gPA/EFID4BxKeAOIiRgSEM' +
                                'iJ2BOBDK9gHi5T2xDE1JlkCdTCiYFUhiw4w4MAQAAKTJCXk=');
 
     3: Result := DTMFromString('mlwAAAHicY2dgYDjDyMBwCIgPM0LYF4D4KhBfBmIVINYB' +
                                'YkMg1gNiXShfGYhb870YAvS4gSYwYWBWIAnD6LKMeDAUA' +
                                'AAftgjF');
   end;
 end;
 
 function GetBankLogDTM(Log : Integer):Integer;
 begin
   case Log of
     0: Result := DTMFromString('mlwAAAHicY2dgYDjAyMCwnRFCnwLiE0B8DogPA/F8oPwy' +
                                'IJ4CxFOBeA4QLwbi5UAcZKfK0JptDWQxYWAOIAnC2AAjH' +
                                'gwFAFSxC74=');
     1: Result := DTMFromString('mlwAAAHicY2dgYHjNyMDwGIg/APE3IP4CxL+B+DMQzwPK' +
                                'LwXiSUA8FYjnAPEiIF4GxFkB+gyLm2OALCYMzAEkQRgbY' +
                                'MSDoQAAKDMNfw==');
     2: Result := DTMFromString('mlwAAAHicY2dgYJjEyMDQDcTTgXgeEM8B4kVAPAPEB8ov' +
                                'BakB4mlAPAeIFwDxMiBuzvdiaE+zAbKYMDAHkARhbIARD' +
                                '4YCAN8eCwo=');
     3: Result := DTMFromString('mlwAAAHicY2dgYHjNyMDwBIjfAvEXIP4KxN+A+D0QKwGx' +
                                'BhCLA7ECEIsBsSYQawNxc74XQ5ABD9AEJgzMASRBGBtgx' +
                                'IOhAACFyQl2');
   end;
 end;
 
 function GetMageSortSettingBMP(Setting : Integer; Planking : boolean) : Integer;
 begin
   case Setting of
     0: Result := BitmapFromString(6, 5, 'meJwTUVARUVCRl5c/evOVeUQBkPSN' +
               'TfeKSmZkYABy05dtA8oCuUBBOBfIAHIDErOADCAXqBJI+sZnAhGQD' +
               'UQQBgAtghmf');
     1: If Planking then
          Result := BitmapFromString(6, 6, 'meJzTNzCwsbHJyspiZGDo6uoSFhYG' +
                 'MhwdHYFsICMhIREoIi8vP2ny5ITERKCIvoEBUGTJkiVAEaA4FxcXk' +
                 'BuRWQzUAmQDFQC5AYlZsQVVQDaEC5SNyi1PKW8CAFv6GSo=')
        else
          Result := BitmapFromString(7, 7, 'meJzTNzCwsbHJzs5mZGDo6uoWFhbO' +
                 'buwBsh0dHYFcICMxMREomFHZKi8vP2nyFCAXKKhvYAAUTClvWrJkC' +
                 'VAQKMXFxQUUSSppSCisBuoFcoHKIGqAIkAE5KKJABHQWCAXgoDciM' +
                 'xiIAIAby4rEw==');
     2: Result := BitmapFromString(7, 7, 'meJxrnL2gYsKc0u6ZRR1T8psnZDf2' +
               'AFF9MgNQhMG2GY4yKluDTRhB7Pi9DF0PQQjIsG0CagEJArmLroIQkAE' +
               'WZGRggOltAiIgF2hsZk0HkAFHCYXVQGNTypsgCMiNyCwGIgAMgjOd');
   end;
 end;
 
 function MenuOpen:Boolean;
 var
   MenuBMP,a,b : Integer;
 begin
   DebugStr(3,'Checking whether menu is open...');
   MenuBMP := BitmapFromString(4, 3, 'meJxbtmzZnz9//oHBHzBgZmEBIiDD' +
         'zMyMS1AIiADthRTJ');
   result := FindBitmap(MenuBMP,a,b);
   DebugStr(4,'Menu was open: ' + BoolToStr(Result));
 
   FreeBitmap(MenuBMP);
 end;
 
 procedure mouseAway;
 var
   TP:TPoint;
 begin
   DebugStr(5,'Exiting Menu');
 
   GetMousePos(TP.x,TP.y);
 
   MMouse(TP.x-100-random(50),TP.y-150-random(100),5,5);
 
   wait(540+random(500));
 end;
 
 function PinAndBankTest:Boolean;
 var
   T,Limit : LongInt;
 
 begin
   if not LoggedIn then
     Exit;
   Result := false;
   DebugStr(3,'Waiting for bank and pin screens...');
   Limit := RandomRange(13000,17000);
   MarkTime(T);
   repeat
     wait(50+Random(150));
   until BankScreen or PinScreen or (TimeFromMark(T) > Limit);
   if PinScreen then
   begin
     DebugStr(2,'Entering pin...');
     if Length(Players[CurrentPlayer].Pin) = 0 then
     begin
       DebugStr(2,'You did not set a pin, but we are in the pin screen... ' +
                'Next player...');
       Logout;
       NextPlayer(False);
       Exit;
     end;
     inpin(Players[CurrentPlayer].Pin);
   end;
   DebugStr(3,'Waiting for bank screen...');
   MarkTime(T);
   while not BankScreen and (TimeFromMark(T) < 5000) do
     wait(50+random(50));
 
   wait(RandomRange(600,1200));
   Result := BankScreen;
   if Result then
   begin
     DebugStr(2,'Bank opened succesfully');
     FixBank;
   end else
     DebugStr(2,'Did not find Bank Screen');
 end;
 
 function Open_Bank:Boolean;
 var
   I,TempCTS : Integer;
   TempHM,TempSM : Extended;
   TP : TPoint;
   bankerTPA : TPointArray;
   bankerATPA : T2DPointArray;
 begin
   if not LoggedIn then
     Exit;
   Result := False;
   TempCTS := GetColorToleranceSpeed;
   if TempCTS = 2 then
     GetColorspeed2Modifiers(TempHM,TempSM);
   SetColorToleranceSpeed(2);
   SetColorspeed2Modifiers(0.04,0.50);
   if not (BankScreen or PinScreen) then
   begin
     DebugStr(3,'Not in Bank or Pin Screens');
     DebugStr(3,'Trying OpenBankNPC;...');
     Result := OpenBankNPC;
     if Result then
       DebugStr(3,'SRL OpenBankNPC succesfull')
     else
     begin
       DebugStr(3,'SRL OpenBankNPC failed, finding bankers manually...');
       FindColorsTolerance(bankerTPA,3612967,MSX1,MSY1,MSX2,MSY2,10);
       bankerATPA := TPAtoATPA(bankerTPA,20);
       SortATPASize(bankerATPA,True);
       for I := 0 to length(bankerATPA)-1 do
       begin
         if BankScreen or PinScreen then
           break; //in case we opened succesfully from a previous bank call...
         if Length(bankerATPA[I]) < 100 then
           break;
         writeln(Length(bankerATPA[I]));
         TP := MiddleTPA(bankerATPA[I]);
         MMouse(TP.x,TP.y,4,4);
         DebugStr(4,'Waiting for bankers uptext...');
         if WaitUpTextMulti(['to B','Bank','anke'],1525+random(225)) then
         begin
           DebugStr(3,'Found Banker');
           clickMouse2(mouse_Right);
           if WaitOption('ank B',1500+random(225)) then
           begin
             DebugStr(4,'Found option to bank');
             wait(100+random(125));
             if ChooseOption('ank B') then
             begin
               DebugStr(4,'Clicked open bank succesfully');
               FailCount := Max(0,FailCount-1);
               Result := True;
               wait(750+random(200));
               while IsMoving do
                 wait(50+random(150));
             end else if not FindNormalRandoms then
             begin
               DebugStr(3,'Failed find open bank option, incrememnting FailCount...');
               Inc(FailCount);
               DebugStr(3,'Failed ' + inttostr(FailCount) + ' times so far...');
             end;
             break;
           end;
         end;
       end;
     end;
   end;
   DebugStr(2,'Banking Success: ' + BoolToStr(Result));
   BankWithChest := Result;
   {$IFDEF SMART}
     SMART_ClearCanvasArea(IntToBox(MSX1,MSY1,MSX2,MSY2));
   {$ENDIF}
 end;
 
 procedure depositPlanks;
 begin
   if not BankScreen then
     exit;
   DebugStr(3,'Depositing Planks...');
   Deposit(3,28,True);
 end;
 
 function TestBankSlot(text : TStringArray ; BankPoint : TPoint; ExitMenu : Boolean):Boolean;
 var
   T : LongInt;
   Tries : LongInt;
 begin
   Result := False;
 
   if not BankScreen then
     exit;
 
   DebugStr(4,'RightClick testing bank slot ' + tostr(BankPoint));
 
   MouseBankSlot(BankPointToBankIndex(BankPoint),mouse_move);
 
   for Tries := 0 to 5 do
   begin
     DebugStr(4,'Attempting to test object in bank. Attempt #' + inttostr(Tries));
 
     If MenuOpen then
       mouseAway;
 
     MouseBankSlot(BankPointToBankIndex(BankPoint),mouse_move);
 
     wait(50+random(150));clickmouse2(mouse_Right);
 
     MarkTime(T);
 
     while not MenuOpen and (TimeFromMark(T) < 3000) do
       wait(350+random(250));
 
     DebugStr(5,'Checking Options list for: '+tostr(text));
 
     if OptionsExist(text,false) then
     begin
       Result := true;
 
       break;
     end else if MenuOpen then
       break;
 
   end;
 
   //If not result then we are not in the correct menu anyways...
   if Result and ExitMenu and MenuOpen then
     mouseAway;
 
   DebugStr(4,'Done Testing Bank Slot ' + tostr(BankPoint) + '. Result: ' + booltostr(Result));
 end;
 
 function GetLogsUptext(Log : Integer) : TStringArray;
 begin
   case Log of
     0: Result := ['ll L'];
     1: Result := ['ak l','Oak'];
     2: Result := ['eak l','Teak'];
     3: Result := ['aho','oga', 'any', 'ny lo'];
   end;
 end;
 
 function FindLogs(var LogsSlot:TPoint; withdrawLogs:boolean):Boolean;
 var
   found : Boolean;
   LogDTM : Integer;
   T : LongInt;
   TP : TPoint;
 begin
   if not LoggedIn then
     Exit;
   if not BankScreen then
   begin
     DebugStr(3,'Attempted to find logs, but we were not in the bank window');
     CloseWindow; //In case we got stuck in deposit window...
   end;
   if MenuOpen then
     mouseAway;
   LogDTM := GetBankLogDTM(Players[CurrentPlayer].Integers[0]);
   DebugStr(2,'Beginning search for logs...');
   FindDTM(LogDTM,TP.x,TP.y,MSX1,MSY1,MSX2,MSY2);
   {$IFDEF SMART}
     SMART_DrawCircle(false,TP,5,False,clAqua);
   {$ENDIF}
   found := TestBankSlot(GetLogsUptext(Players[CurrentPlayer].Integers[0]),MSTPointToBankPoint(TP),false);
   if found or (TP.x > 1) then
   begin
     wait(350+random(150));
     LogsSlot := MSTPointToBankPoint(TP);
     DebugStr(4,'Found your logs in bank at slot ' + ToStr(LogsSlot));
     if withdrawLogs then
     begin
       Result := Withdraw(LogsSlot.x,LogsSlot.y,0);
       debugStr(2,'Withdrawing Logs Success: ' + BoolToStr(Result));
       if Result then
         exit;
     end;
   end else if not FindNormalRandoms and LoggedIn then
   begin
     DebugStr(2,'Failed to withdraw logs!! You either ran out of your specified ' +
              'log type, Or did not have your logs visible in the atop of your' +
              ' bank.');
     Logout;
     NextPlayer(False);
   end;
   FreeDTM(LogDTM);
   {$IFDEF SMART}
     SMART_ClearCanvasArea(IntToBox(MSX1,MSY1,MSX2,MSY2));
   {$ENDIF}
 end;
 
 function withdrawLogs:Boolean;
 var
   found : boolean;
 begin
   Result := false;
   FixBank;
   if not BankScreen then
   begin
     DebugStr(3,'Attempted to withdraw, but was not in bank screen...');
     CloseWindow;
     exit;
   end;
   found := TestBankSlot(GetLogsUptext(Players[CurrentPlayer].Integers[0]),LogsBankSlot,false);
   if not found and MenuOpen then
     mouseAway;
 
   if found then
   begin
     DebugStr(3,'Remembered logs Bank Slot, withdrawing');
     Result := Withdraw(LogsBankSlot.x,LogsBankSlot.y,0)
   end else
   begin
     DebugStr(3,'Did not remember logs Bank Slot, finding and withdrawing');
     Result := FindLogs(LogsBankSlot,true);
   end;
 end;
 
 function SortSpells(planking:Boolean):Boolean;
 var
   I,TempBMP : Integer;
   T : LongInt;
   TP : TPoint;
 begin
   Result := False;
 
   if not LoggedIn then
     Exit;
 
   if BankScreen then
     CloseWindow;
   wait(350+random(300));
 
   DebugStr(2,'Sorting the spells in your spellbook');
   gametab(tab_Magic);
 
   MarkTime(T);
   while not (GetCurrentTab = tab_Magic)
     and (TimeFromMark(T) < (RandomRange(16000,20000))) do
     wait(150+random(50));
 
   if not (GetCurrentTab = tab_Magic) and not FindNormalRandoms and LoggedIn then
   begin
     DebugStr(2,'Failed to open magic tab for casting PlankMake');
     Logout;
     NextPlayer(False);
   end;
 
   for I := 0 to 2 do
   begin
     TempBMP := GetMageSortSettingBMP(I,planking);
     if FindBitmapIn(TempBMP,TP.x,TP.y,MIX1,MIY1,MIX2,MIY2) then
     begin
       mouse(TP.x,TP.y,3,3,mouse_Left);
       DebugStr(4,'Mage Sort Setting ' + IntToStr(I+1) + ' Switched');
       Result := True;
     end;
     wait(150+random(75));
     FreeBitmap(TempBMP);
   end;
 end;
 
 function LogInSlot(LogDTM,InvSlot:Integer):Boolean;
 var
   x,y : Integer;
   box : TBox;
 begin
   if not LoggedIn then
     exit;
   box := InvBox(InvSlot);
   Result := FindDTM(LogDTM,x,y,box.X1,box.Y1,box.X2,box.Y2);
 end;
 
 function GetLogArray(LogDTM : Integer) : TBoolArray;
 var
   I : Integer;
   InvArr : TBoolArray;
   DebugLine : String;
 begin
   if not LoggedIn then
     Exit;
 
   SetArrayLength(InvArr,28);
   DebugStr(3,'Finding which inventory slots contain logs..');
   GameTab(tab_Inv);
   wait(1000+random(100));
   DebugStr(3,'');
   DebugStr(3,'Logs Identified in inventory:');
   for I := 0 to 27 do
   begin
     InvArr[I] := LogInSlot(LogDTM,I+1);
     if I Mod 4 = 0 then
     begin
       if length(DebugLine) > 1 then
         DebugStr(3,DebugLine + '|');
 
       DebugLine := '|';
     end;
 
     if InvArr[I] then
       DebugLine := DebugLine + 'L'
     else
       DebugLine := DebugLine + ' ';
   end;
 
   DebugStr(3,DebugLine + '|');
 
   Result := InvArr;
 end;
 
 function ClickLog(LogSlot : Integer) : Boolean;
 var
   T : LongInt;
 begin
   if not LoggedIn then
     exit;
 
   DebugStr(5,'Clicking log at inventory slot ' + ToStr(LogSlot));
 
   MarkTime(T);
 
   while not (GetCurrentTab = tab_Inv) and (TimeFromMark(T) < 4000) do
     wait(150+random(50));
 
   MouseItem(LogSlot,mouse_Left);
 
   MarkTime(T);
   if (length(Players[CurrentPlayer].Pin) > 0) then
   begin
     while not (PinScreen or (GetCurrentTab = tab_Magic)) or (TimeFromMark(T) > 5000+random(1000)) do
       wait(150+random(150));
 
     if PinScreen then
       InPin(Players[CurrentPlayer].Pin);
   end;
 
   MarkTime(T);
   while  (GetCurrentTab = tab_Inv) and (TimeFromMark(T) < 4000) do
     wait(150+random(50));
 
   Result := GetCurrentTab = tab_Magic;
 end;
 
 function ReadyPlankSpell:Boolean;
 var
   PlankMakeDTM : Integer;
   T : LongInt;
   TP : TPoint;
 begin
   Result := False;
 
   if not LoggedIn then
     Exit;
 
   PlankMakeDTM := DTMFromString('mggAAAHicY2NgYPjEBMGvgPglEP8C4i9AXMDIwFANxKVAnAfEuUCcAcRHpicCdTFiYFYgiQ1jqoRgCAAAGecKRg==');
   DebugStr(5,'Selecting the PlankMake spell...');
 
   MarkTime(T);
   while not (GetCurrentTab = tab_Magic) and (TimeFromMark(T) < 4000) do
     wait(150+random(300));
 
   if not (GetCurrentTab = tab_Magic) then
     begin
       DebugStr(2,'Not in magic tab, possible random?');
 
       If FindNormalRandoms then
         DebugStr(2,'Found randoms')
       else
         DebugStr(3,'Did not find randoms');
 
       GameTab(tab_Magic);
     end;
 
   if not FindDTM(PlankMakeDTM,TP.x,TP.y,MIX1,MIY1,MIX2,MIY2) then
   begin
     DebugStr(2,'Failed to find PlankMake spell, attempting to resort spell tab...');
 
     SortSpells(true);
 
     if not FindDTM(PlankMakeDTM,TP.x,TP.y,MIx1,MIY1,MIX2,MIY2)
       and not FindNormalRandoms
       and LoggedIn then
     begin
       DebugStr(3,'Failed find plankmake spell. Either you did not start ' +
                  'with runes in your inventory, or you ran out of runes.');
 
       Logout;
       NextPlayer(False);
       exit;
     end else
       FailCount := Max(0,FailCount-1);
 
   end;
 
   mouse(TP.x,TP.y,3,3,mouse_Left);
   FreeDTM(PlankMakeDTM);
 
   Result := True;
 end;
 
 procedure antiban;
 begin
   DebugStr(3,'Searching for randoms...');
 
   FindNormalRandoms;
 
   if FindMod then
   begin
     DebugStr(1,'Found a mod! Logging out to grab a drink and calm down...');
 
     logout;
 
     wait(20000+random(5000)); //Make it seem like we had to walk away...
 
     SelectWorld(RandomWorld(true,false));
     LogInPlayer;
   end;
 
   DebugStr(4,'Might do antiban...');
 
   case random(750) of //TODO maybe raise it?
     1..5:     begin
                 DebugStr(3,'Performing PickUpMouse...');
                 PickUpMouse;
               end;
 
     6..30:    begin
                 DebugStr(3,'Performing RandomRClick...');
                 RandomRClick;
               end;
 
     31..175:  begin
                 DebugStr(3,'Performing HoverSkill...');
                 HoverSkill(SKILL_MAGIC,false);
               end;
 
     175..350: begin
                 DebugStr(3,'Performing SetScreenMouse...');
                 SetScreenMouse('rand',SRL_ANGLE_HIGH);
               end;
 
   end;
 end;
 
 function hasLogs(var logArr : TBoolArray):Boolean;
 var
   TempDTM,I : Integer;
 begin
   Result := False;
 
   if not LoggedIn then
     exit;
 
   TempDTM := GetLogDTM(Players[CurrentPlayer].Integers[0]);
 
   LogArr := GetLogArray(TempDTM);
 
   for I := 0 to 27 do
     if LogArr[I] then
       Result := true;
 
   DebugStr(3,'Inventory contains logs: ' + BoolToStr(Result));
 
   FreeDTM(TempDTM);
 end;
 
 function CheckOutOfMoney : boolean;
 begin
   SetChat('All',CHAT_GAME);
   Result := FindBlackChatMessage('og into pl');
 
   if Result then
   begin
     DebugStr(1,'You Have run out of money!');
 
     Logout;
     NextPlayer(False);
   end;
 end;
 
 function PlankLog(Log : Integer) : Boolean;
 begin
   Result := False;
   if ReadyPlankSpell then
     if ClickLog(Log) then
     begin
       Result := True;
       logsPlanked := logsPlanked + 1;
       Prog_PlanksMade := Prog_PlanksMade + 1;
     end;
 
   if CheckOutOfMoney then
     Result := False;
 end;
 
 function removeFromIntArray(arr : TIntegerArray; toDelete : Integer) : TIntegerArray;
 var
   newArr: TIntegerArray;
   i:Integer;
   found : Boolean;
 begin
   SetArrayLength(newArr,length(arr)-1);
   for i := 0 to length(newarr)-1 do
   begin
     if not found then
       found := i = toDelete;
     if (found) then
       newArr[i] := arr[i+1]
     else
       newArr[i] := arr[i];
   end;
   result := newArr;
 end;
 
 function InvToInvPoint(I : Integer) : TPoint;
 begin
   Result.x := ((I-1) mod 4)+1;
   Result.y := ((I-1) div 4)+1;
 end;
 
 function InvPointToIndex(Point : TPoint) : Integer;
 begin
   result := (Point.x)+Max(0,(Point.y-1)*4);
 end;
 
 function randNearInvSlot(Slot : Integer; slotArr : TIntegerArray) : Integer;
 var
   x,y,SlotCount,i : Integer;
   actualSlots : TIntegerArray;
   tempPoint,SlotPoint : TPoint;
 begin
   SetArrayLength(actualSlots,8);
   SlotPoint := InvToInvPoint(Slot);
   writeln(SlotPoint);
   for x := -1 to 1 do
     for y := -1 to 1 do
     begin
       if (x = 0) and (y = 0) then
         Continue;
       TempPoint.x := SlotPoint.x+x;
       TempPoint.y := SlotPoint.y+y;
       if (TempPoint.x < 1) or (TempPoint.x > 4) then
         continue;
       if (TempPoint.y < 1) or (TempPoint.y > 7) then
         continue;
 
       writeln(tempPoint);
       writeln(slotArr);
       writeln(InvPointToIndex(TempPoint));
       if InIntArray(slotArr,InvPointToIndex(TempPoint)) then
       begin
         actualSlots[slotCount] := InvPointToIndex(TempPoint);
         Inc(SlotCount);
       end;
     end;
   SetArrayLength(actualSlots,SlotCount);
 
   {$IFDEF SMART}
     for I := 0 to SlotCount-1 do
     begin
       SMART_DrawBoxex(false,InvBox(actualSlots[I]),clYellow);
     end;
   {$ENDIF}
   writeln('-----');
   writeln(actualSlots);
   writeln(SlotCount);
   if SlotCount > 0 then
     result := actualSlots[random(SlotCount)]
   else
     result := slotArr[random(Length(slotArr))];
 end;
 
 function logArrToIntArray(LogArr : TBoolArray) : TIntegerArray;
 var
   I,currLength : Integer;
   intArr : TIntegerArray;
 begin
   setlength(intArr,Length(LogArr));
   for I := 0 to length(LogArr)-1 do
   begin
     if LogArr[I] then
     begin
       intArr[currLength] := I+1;
       Inc(currLength);
     end;
   end;
   SetLength(intArr,currLength);
   Result := intArr;
 end;
 
 function makePlanks : Boolean;
 var
   currIndex : Integer;
   logArr : TBoolArray;
   InvSlots : TIntegerArray;
 begin
   Result := False;
   if not LoggedIn then
     exit;
   if BankScreen or PinScreen then
     exit;
   DebugStr(3,'Getting logs in inventory...');
   if hasLogs(LogArr) then
   begin
     InvSlots := logArrToIntArray(LogArr);
     gametab(tab_Magic);
 
     while Length(InvSlots) > 0 do
     begin
       currIndex := random(Length(InvSlots));
       DebugStr(5,'Planking log at slot ' + IntToStr(InvSlots[currIndex]));
       if not PlankLog(InvSlots[currIndex]) then
         exit;
       InvSlots := removeFromIntArray(InvSlots,currIndex);
     end;
   end;
 
 
   {if hasLogs(LogArr) then
   begin
     Inc(Reps);
     GameTab(tab_Magic);
     writeln(':99999:' + tostr(InvSlots));
     while length(InvSlots) > 0 do
     begin
       writeln('::' + tostr(InvSlots));
       SMART_DrawBoxEx(true,InvBox(currSlot),clBlue);
       currSlot := randNearInvSlot(currSlot,InvSlots);
       if not PlankLog(currSlot) then
         exit;
       if CheckOutOfMoney then
         exit;
         writeln('deleting: ' + inttostr(currslot));
         writeln(InvSlots);
       InvSlots := removeFromIntArray(InvSlots,CurrSlot-1);
         writeln(InvSlots);
     end; {}
 
 end;
 
 function Bank : Boolean;
 begin
 writeln('00000000000000000000000');
   Result := False;
  // ClickNorth(SRL_ANGLE_HIGH); testing disabled
   if not LoggedIn then
     Exit;
   SetAngle(SRL_ANGLE_HIGH);
   DebugStr(2,'Searching for bank, Chest First: ' + BoolToStr(BankWithChest));
   if BankWithChest then
   begin
     if not OpenBankChestEdge(SRL_bank_sw) then
     begin
       BankWithChest := False;
       DebugStr(3,'Failed to find chest');
       if not Open_Bank then
       begin
         BankWithChest := True;
         DebugStr(3,'Failed to find chest');
         exit;
       end;
     end;
   end else
   begin
     if not OpenBankChestEdge(SRL_BANK_SW) then
     begin
     BankWithChest := True;
       DebugStr(3,'Failed to find bank chest');
       if not Open_Bank then
       begin
         BankWithChest := False;
         DebugStr(3,'Failed to find npcs');
         exit;
       end;
     end;
   end;
 writeln('XXXXXXXXXXXXXXXXXXXXXXX');
   DebugStr(3,'Done searching for banks');
   wait(350+random(200));
   while IsMoving do
     wait(50+random(350));
   PinAndBankTest;
   depositPlanks;
   if withdrawLogs then
     Result := true;
   CloseBank;
   //CloseWindow;
 writeln('00000000000000000000000');
 end;
 
 function findLodeSymbol : boolean;
 var
   LodeBMP : Integer;
   TP : TPoint;
   acc : Extended;
 begin
   LodeBMP := BitmapFromString(9, 8, 'meJxbVJs7KSivxDIYgoDsRbW5QHRl' +
         'XtP0Cb2///wGijja2QFJCHtPZxNc5cPHD4GCQBJiApCEGwUUhyCgX' +
         'jSp3VvXvzx/AEjCzYFIAQWBJMQuCBtiF0QWKA5BcC1AF0LcA7cdwg' +
         'aKAxEAIBhsCQ==');
 
 
   FindDeformedBitmapToleranceIn(LodeBMP,TP.x,TP.y,MMX1,MMY1,MMX2,MMY2,6,0,true,acc);
 
   DebugStr(4,'Found lodestone symbol with an accuracy of ' + tostr(acc));
 
   Result := acc > 0.27; //0.277777... was lowest i got by dropping stuff around the
                         // portal on symbol, in case someone tries to make
                         // the bot fail...
 
   FreeBitmap(LodeBMP);
 end;
 
 function InSoulWars : Boolean;
 begin
   SetColorToleranceSpeed(0);
   if FindNormalRandoms then //this will detect in soulwars if in heavily
     Result := False          //wooded random areas, like the pheasant one
   else
     Result := CountColorTolerance(1596969,MMX1,MMY1,MMX2,MMY2,10)
               +CountColorTolerance(2607331,MMX1,MMY1,MMX2,MMY2,22) > 2000;
 end;
 
 function NearBank(Walk : Boolean) : Boolean;
 var
   EdgeBankDTM : String;
   EdgeBackupBankDTM,I : Integer;
   TP : TPoint;
   a : Extended;
 begin
   SymbolAccuracy := 0.22;
   Result := False;
 
   if not LoggedIn then
     Exit;
 
   EdgeBankDTM := '80:79:3:1:7:117:75:1:7:89:44:3:7:123:91';
   EdgeBackupBankDTM := DTMFromString('mbQAAAHicY2WAAHYgVoFiEFsfKq4IxKpAzArE/36' +
                                  'wMKhEiIFxjCEPGOswMjCIMKBioBADExoGAwBZgAWs');
   //SWBankDTM :=
   DebugStr(3,'Searching for bank...');
   If not ObjDTM_Find(EdgeBankDTM,TP.x, TP.y, true) then
   begin
     DebugStr(3,'Failed to find bank on minimap... trying symbols...');
     if not FindSymbol(TP.x,TP.y,'bank') then
       if not FindDTMRotatedAlternating(EdgeBackupBankDTM,TP.x,TP.y,
                MSX1,MSY1,MSX2,MSY2,Radians(-5),Radians(5),Radians(1),a) then
         if not FindNormalRandoms then
           exit;
   end;
   Result := (Walk and (Distance(TP.x,TP.y,MMCX,MMCY) <= 72))
               or (Distance(TP.x,TP.y,MMCX,MMCY) <= 16);
   if Walk then
     Mouse(TP.x,TP.y,3,3,mouse_Left);
 
   FreeDTM(EdgeBackupBankDTM);
 end;
 
 function WalkLodeToBank : Boolean;
 var
   clicks : Integer;
 begin
   Result := false;
 
   if not LoggedIn then
     Exit;
 
   DebugStr(3,'Walking to bank...');
   while (clicks < 8) and not Result do
   begin
     inc(clicks);
     DebugStr(4,'Radial walking once...');
     RadialWalkTolerance(5197908,112,85,53,-1,0,50);
     FFlag(25);
 
     Result := NearBank(True);
   end;
 end;
 
 function TravelBank : Boolean;
 var
   T : Longint;
   HomePort : TPoint;
 begin
   Result := False;
   if not LoggedIn then
     Exit;
 
   ClickNorth(SRL_ANGLE_HIGH);
 
   HomePort := Point(571,229);
 
   GameTab(tab_Magic);
 
   MarkTime(T);
 
   while not (GetCurrentTab = tab_Magic)
     and (TimeFromMark(T) < RandomRange(5000,6000)) do
     wait(RandomRange(150,450));
 
   if not (GetCurrentTab = tab_Magic) then
     DebugStr(2,'Failed to open magic tab... Attempting to switch again and resort your spell book');
 
   SortSpells(false);
 
   Mouse(HomePort.x,HomePort.y,4,4,mouse_right);
 
   while not MenuOpen and (TimeFromMark(T) < RandomRange(5000,6000)) do
     wait(RandomRange(300,500));
 
   wait(RandomRange(350,550));
 
   if not ChooseOption('ele') then
   begin
     DebugStr(2,'Failed to cast home port');
     exit;
   end;
 
 
   MarkTime(T);
 
   while not LodestoneScreen and (timefrommark(T) < RandomRange(5000,6000)) do
     wait(RandomRange(160,1000));
 
   if not LodestoneTeleport('edgeville') then
   begin
     clickmouse2(mouse_Right);
 
     MarkTime(T);
     while not MenuOpen and (TimeFromMark(T) < RandomRange(6000,7000)) do
       wait(RandomRange(150,300));
 
     wait(350+random(150));
 
     if not ChooseOption('ele') then
     begin
       DebugStr(3,'Failed to right click teleport from lodeStone screen');
       exit;
     end;
   end;
 
   while not FindLodeSymbol and (TimeFromMark(T) < 20000) do
     wait(RandomRange(300,600));
 
   wait(RandomRange(5500,6500));
 
   WalkLodeToBank;
 end;
 
 
 
 {$IFDEF SMART}
   procedure PaintProggy;
   var
     TPA : TPointArray;
     BMP,w,h,tw,th,I,II : Integer;
     DebugLines : TStringArray;
   begin
     DebugStr(2,'Painting Proggy');
 
     BMP := BitmapFromString(510, 133, 'meJzsvYdXW0m2PvpPdLuN3c6h' +
         '7baNSSbnnBSQkJCQEEIJlFFEiSQQIueckwETDMbYbme77e6enp65d' +
         '3ryzH2/996f8r6jA0IcsLvvXe/3aL+ltb6lJR3Vqdq1q+rbe9epUz' +
         'Xxu/97IogggvhvYvyH/4vE2Pf/59h3/wsYff9/ACPv/8sP8gr5L5H' +
         'swymPwLt/H42AzP05+4WhILBQf7kHiv5QKR/A8Lf/CoRfnn1hjgQp' +
         'xkE5/3saPlgRSrZH4uNKoGZy8N/A5qOmP1z0Qd1Sb/mwMNQ+ENC4R' +
         '/eEg9cPl3i0AIdk+DXKDyKIIA4jkPPJ8Usw4dt/Dr355+Cbf5DAd1' +
         'wJpEf/QD6Q+PXfP4KBV38LxO71wMz9rBswuv30ss8tftL2lUspmlI' +
         'KpcTuZz/Xr3/nvPeWRP36u65v/qP/5V8GXv6VSECp6QdM1T4XBcj5' +
         'KzVMJcmD5u8XSC/w9oOW6yPt4gdRL1/VDtTuKGYm7yVvJ7+QKQNrT' +
         'QoTWNZub/loH9hHQNfal40U7+0/qThkminG6NgHURBBfFogSWngzb' +
         '+atn6sW/+ubu197eq3BCsuv3Ysv7IvvXKtvOnY+an32c99L/4MeiT' +
         'I8/mfGza+Q7LdlCtv9hK/ROKWrR/wabv7EsAV8guBxReHcSBzH/Ee' +
         '4H8K0e3Zl66nfwJjk+UCEHK3oKOK2C9r+XXbwx9R4gVezeliUwjLC' +
         'ESpWux3X3bu/L7r8R+6v/mP3qd/giSEIfAbpqMoi2CqPSIKjFM+om' +
         'GSKsmK9L78KxQIAwRNBuZ5gAAPkV7fq781bv5ANNDaO2get3d985+' +
         'EwSJt1sF2cd3bbcTa1bcdj/4ADRNKfv7zbu18t+zW0Ue/Pc//Qt67' +
         'e+PevZ2P/7CvELTOngnof/0P9+bv6tYJYfxl+RviI90AF9t3fg/gi' +
         '7/1ARRUt/otAEMM4AsyxGfnkz8GygyBqabZ11uOfRwFEcSnBZKUQP' +
         'vMppli70Kxd54NtJCYw0/DzDc1809bH3zf4aPHnqf/CUIo711jkyk' +
         'DEnNbF7STj7RjWyWt8yzP7K8Bxztvnfumdes7ZN6NMf78Z4xuDG1y' +
         'RPe9/jtBL35jtPKGtC/V048qRx74qNtwCmAbgdMETMCXxaYzHPNZr' +
         'uVcifU8D6i5wLdd5NtiNa3W2cemmUfx+s5r4vrPGdVArLbdOPmwef' +
         'W1Z/1t09ob28Iz6/xT2+Jzwlgcslm7TAXr8PxncBFYiGRCvyd8mPz' +
         '9VrV+43vwdseT/wRjG2efWhZeqCd2XCuvYW6gUmTrurdryEgcID0f' +
         '4+FGskXINlKObRtmHrdt/0jYrCd/RCbIoWp0m9Iu+ukn0HDN/DN8E' +
         'ph/WrPwnKwgTCEYGDeiRrgXKcV964Gonn5iX3jWvv27rkc/QU6idW' +
         'D6ffzfcP/76pmnpDD8ziV+xzKB9iUf7op6VjS+biDsWhZ07qLU91n' +
         'WfQ9/AZXDm5qJHe34NnpX8/139sXn6vEdw+xT/eQOYJh7Kuy6pxx9' +
         'gOsQwLv1vQN+xfJrv5/gVwtpCI59HAURxCeEXXf0u/8Fbz+/biJc2' +
         'Xqebycp0Y+qsW3d6P36xW/cKy9Aj80b3+omd6JUrZRkJIqaphV998' +
         'IVzUf+S+Ik23yaYznLs50vdcRoWnXD63ULT5ruvfTef9fhIyKCVN/' +
         '8o/fFX6yLL5VjD7/kWkPYRgI+qgdOFhk+kv+HEFHp0QytaYfXz3LN' +
         '+PmZD0mGbvXgas3kln5ko2pgTT/1mOtdiFJ5L5XaSTtynme7JW1MN' +
         'vWUtC7oph7rxrehAZIM/aLC/yTJn+L5k1a15eEf9DPfKEa3TfMvtB' +
         'OPQICutffJ5v5sx7B55jFq3br5HhYnRt1KhiEkCurG7HdftD/8kWD' +
         'dJ38EOcPqXRI4/dU5x7MVe2YtM4+b1960IJOt70Dsop5VSq1Nc8+r' +
         'BtfOQHtFhn341CjsXEJ1YO/Ie2G1KfeCh6vHHzQuP/cgzeZ7wjqD/' +
         '1/8GbEGjBetYepDqk7Qdyr6VqA98ieaO/BfCIAWhPzR2vYc54h+ak' +
         'c5tA4YZr9huKeLmmdg5aO1HfHVPbCPquGN2sVvTFMPYSnU4w91E9s' +
         'wEx17aiHMli+WOfahFEQQnxBIagJrwa9WDD+4Lmn8bI8S/aDVTyi6' +
         '5k2DSzXjG67Zh8aJB/rpxydZxsMpTxQZ85zD4va5MLn780P/Honr5' +
         'S555xwyt03er194At+7bfsHkl7q19+ZF15EHDIxKOVLbs2vyZyCiM' +
         'omafu0rGP2isDuFy/N3CfrmJF3zMALhZUJr2r5iO04xTYzGiaqxzY' +
         'bl57BCLY9+B7+NmiHcP5J8j/45JGc4UHkYpp/zmu7m2oZqL//fajc' +
         'c0vWjKJV4LHR+665nbqFx/qxzZA9cxalbq8YuG+9+7J6Ytt97yVYF' +
         '9YBaoG7TjK/v0b0hgkYMufMdu38o4alZ4bJbVHPPYrmTXNPJd2LZz' +
         'mmzxh6SnVuyZsQNehHN3A7BEAM4rcpN2RNqdbB6pknyr5l6xhRBEw' +
         '/0Tq+KiP2gRE8XWz+kKrjdR3i9tnTbMOR3YAsJfD7zYp61eiWvP+e' +
         'dvIxyr2t8ISwTTG6Trj9HM+srPuurGcJ5iDLMWKASLARE9vGyW3L7' +
         'GOYLYgEQ3zsQymIID4V+B3+kff/Vbv6bZp1IFbfBZ//EGE2C5vHpM' +
         '2DqvZxQ9+Cqn+5om+NHLlg4CuiultyT1iVF/HC7coWbstsqXv0tqz' +
         'xVzL/lVKbsHFQ3jSg7Zq2jNyrndsBvWAgtz380TD9RD7ygMzniyIj' +
         'nEBwQqKpF8SIQv8nzK9wl9b1CRr6b0sb/OJlWPuE7iFB02hh7Rhc0' +
         '1/M5FRRdWX3gnV0DUbQvfwcnAznkyD/N/8YefdvytokUrcIXuAhV4' +
         '5ug8rClV6Yj8+IwMfkWHkj6VqAVa3qWazsWQwpqg5UGq1hQj2wYpu' +
         '4j4JgExFwmaZ2LgkcB9LUj+P26t5509BSzdi6dmitrGuFonlQZVnL' +
         'VAhTd2SLlHUtSzrmdL2EDMrRB5Q0uslHFd4JVdu4vnfOMrrqmt1Ba' +
         'Na0/hZBX2bN0EeaOE7bznePnD5Yo48Aye6o2+RD908VW05zrFAOLp' +
         'J+SLy+2zL/3LrwQty3UeSZy3WNintXIxRNvLYFxeC6YXwTykFUcuy' +
         'jKYggPhX4HX74q3CoQljGI8fpFyyDov9eia1dWNMia+yVtk1l2z44' +
         '6tPN3WxHd6K+nZLgFNt0jmc/7KvfqWxmW7w8Y2NFXZe6fQLkDwcY7' +
         'rR98Tm8yjMl1PTwRU992NX8BeaXu4uMTSxzS6JuX7xUQxe3to/XMv' +
         '05Xf9L7KQ/ydCdKdKVN48o28YM/Yv2yU142q2b77uf/LH/5V+G3/4' +
         'z0O3Hl/7X/2jc/AG0D59f2LOKaCWwIvBg2Z4Zfuu8avh+WctkCFN/' +
         'gNXrxqBqTecUrC3U4pja0o1sXAqIVsg05c2jssa+qpYRpKzsnhd2L' +
         'lGZf/oRr37wJENLcbM/ZxqAK2W1qpFNUeNgedNI5fAm5V7txEO+q6' +
         'fM5kW7o3XMwysgf9PUQ8XwZmBddrNlGvaZX+Nl27tPf8DcfAgXBE7' +
         'Yd/9PwqmQNfM7V6TDDy6UOmD9YQvQi+CcAJKBDXHHvKprFg1hHlo+' +
         '9tEURBCfCvaZ/+0/ncuvP8T8AN87R9PW0RWmEmOjwD1yU1L/oZRpx' +
         's4CvZvXPJ5h6s4wE8i09ObXjrO9i4qRbX7XvQNcQdcza4fyK2sKpX' +
         'puda2kvlvXPWObvO9a+EYztpXtOGBf7mjaYwJogYKzPNvXUvfHiSV' +
         'R25pXWVOgdrHcE5/t8Xy4rJFbOxCj8n72S8z/VZmzpGGo2NFdYm4W' +
         'OdoqPUPgZBAy3GAEKb3PDrj9wMCbf1rvvrQsvFCO75T1rPE6lkH1/' +
         'txOsgi3Fgwm7F4VdSyU1A2c55oDybOwblRQ31/ubJe7+8G64DdEW4' +
         'nVnQh8wqu8ZGhWUDvCc3bxTO4yWwu0V9EyIey4e8hv32HVdJyka1D' +
         'BI40mxzNbbO/i2jrl/WuUezVjD5gGN1Np4RnqYZo1HZPGoZWqgdV4' +
         'fVdgyqvl9czmObp7JsTnqwOxqhaa0QPmD9QqmvskTQN8yMhmwhS2z' +
         'PvNPai+rHcdrr514blj5W2KZYC8Dv8BZZV2rZR4poX1/RBM5u479t' +
         'EURBCfCkjmH3n/X6Asx/KrENbRs7JASnVHltSYXlLB0NXJ+1ZOMD5' +
         'IkmmG9tQybRJPkVamSS/XZ8nMDEsbXEcwQ7ZzNFTu8acEjTOcA5ky' +
         'SzyNl84pp8sNAmszfFf4b9Vj95UjDxjNc/ukwah2LL8+wTxQln76K' +
         'Rxa3fgWYJp+FKPrDPw3ydRrmNrRjm0BujEiTXnbTJpQnSmulnXfPb' +
         'dHL6HyZv3Uo3MHgwtQU75jSDm0YZh6pBndKutYyLEPXhI4wJ9fMlR' +
         '0XR1LbRfZW5VeQloEKd7777q/+Y+BV3/zP+oF3Ju/U449ZHrmQthU' +
         'vj3BNIRVeWnuGfvKO93EQ4axhVHtDqFrA/Vf4BxGeMLWOPhmd0VtJ' +
         '8qSd87B+hxI40IaDywyW21DMmHDgKB9kcr849s0g+ckXQ0SBpfGV/' +
         'dQ+P+auE7Rt8wwe6W995Dmiqg2rWZI1LvuXH1nnH6UV2XLKpWjdXj' +
         'GBnj+lZ2ziqGNQHWFV3r4bQv81lnoCqpm1o8lar351u4cles0UxvI' +
         '/Cdp6hylM0thk3YuqEc2I5StFLWEypt0Ezt++5hs6ks2dIm6lkrqB' +
         '2UDa36xEW6cKrZATqiuyNhcpLQWax3HPpqCCOJTgX8ievD13+1LLz' +
         '/C/FdLrZmKmrjCktzKmpKWmY+E8Kn69pgi0bXI+NDknESuNFthozn' +
         '6Txfv+rf+ZBFVLcKWySSB6kZ8elhSVnwhJ7esiqt3wXnT9S6AiBKr' +
         'D3iV8bp2+Nuk4+q/KO27ly61xBaVo8S0CtNVviXw3ziVJ6W8Oooui' +
         'KYLkSCuWBJfXHEnhxlHK8lX12ZbukCGwGWepXrqEcULvaP00E3edL' +
         'E+RaBMKVUm86vAV7Keu8mm3hC6Jl9pL5DoEKRI63v0vXPOmW3P2pu' +
         'uRz/tT/j43kFo3PyB3TIHwNv/4tDcyGe+FS8FDVNcz3SuypWjqAk5' +
         'WLt852ChxpVXrmZWmvgmYjaswjtxiV9z0DoM0TS1OWVVBRUalqoG/' +
         'n9p+wJ1xmZsK09dd5KmIjM/xTbLR7YDgwuA1zLLtLTL+lYpgQ9sH8' +
         'x3Ar0kiy8rUlqEjtZy71SMps1fBEy5ZuR+kaUtR2HNlBizq+yZCls' +
         'ivyqWWRbPkWRUt8bqOi4JXXDjT7FNIXR1fLHk67i0aFppusQs6rxL' +
         'Ke6a0Janc4vbZlPNvVmWHnH7bL6ukekakPetOu99i8iCTBat7Shsm' +
         'OJ3rkB1KDeNU55ZIjn20RREEJ8Kdpn/3b/B/La7+8x/mKY+p+tKm8' +
         'YTMJbF+mR9+0cmRmjOwcgC3oUbYXdofKFnMkHjxb2BCb5gmUo6lq3' +
         'zT9Nl1ssRCUj5dXRSdBY9kydla+ziup6K9llR13IgfZ0oMpR3LoCK' +
         'ScfVfx0Xowr4Z766eebqDXy5wjMF/htb5Q7P456+ch3/opSr4TE34' +
         '1Ij0nLj8lhp3Io8BTHtA+QrHTSj52yxIfDea+W14o65NIkpjl0Ryx' +
         'JH0wWhaflp4mo4qykaT5bEkC2sBNOWO9s0nVO2yftN91527Py+78W' +
         'fiTcR9t4w7X3517q1d7rJndLO5S+5NTH6LsrcOPjQNP9CPbJRZO+B' +
         'iaTULs8+kC0zpxaLYBNZSquwxlPeNEJhflgHmCFQH9xymlTPqWkrb' +
         'ZsPTACGB/NnVzn8yjnJMsmGH3Da7vqJFLglc9sWnhnnX1Bas2pwLY' +
         'lfeSeLlswshXEpsbVT8r9YYmHVdGQJlalCVaa8hl03VN46DYOL1g/' +
         'PoOeo61KqOy+X1ZIVP1mojGaUXQ6PjcjlII2oY4HSkW6LXbDRiXwl' +
         'x9WPBITaU/PQCoy60abtnxCtQGNw9WEuLYuv1BOPJJ1ziC4j0/OjM' +
         'guPfTQFEcSnAj/zD7z6m23xhZ/5QVN5dRPZzjF8+smK5hyI58owuq' +
         '+W1nyE+Qvs/WE5bJBtNEMYJW84nBIEyOtcrp55KumYjWFLLoZGfRU' +
         'RF5VRkM4Vg0vL6vu149s3ZQdm7NPNvQxTS7bcGrLnuO4yf8dCWG7x' +
         'qQtXTl28GpFf4ie3a+J6uIV5NX3heRz8debK1xdvhF+LikdwEZPLT' +
         'CkSwIOFLw2/PV+izRWpClTOKEUjRVTi9V6FO8/WJ2qfF7dNp4j0sA' +
         'KJXHkyT5HA4MNOwRUvs3lV7eM14xvulRcdD3/se/6zn/mJHTDe/rP' +
         '3+c/WhWfivjVB53K6bTAw/0tCZ1x1D6d5KlVsAE8m8ioptcuz96eX' +
         '6+ILudAMWJ1nqBc2Dl7iWQ8wv2MwR25JYvLTYCBESra5hd+6y8znf' +
         'A8+otTturGtDHlNoqbFn7l16U3bN3+K1XcHyqOefGxf+ZbSWJUDa4' +
         'iVbidlxuWzc0SqYkd3hqXvwAx/qQ3WM6NciwguUdt6Weg0zD7Tjj4' +
         'QNI+BuvOt3fqpb5yr78lFU4g7UkTViQI1rEPVwBriPkpxGcZONNn5' +
         'mxGh6bSrEfFXbt9B34gtEsEZYLhnmrZ+J+1Z0Y0/MEzulHXfk/Usp' +
         'oh0NxIy0LLXoxOPfTQFEcSngg8xP3wqtnex4+nPot71W3IPucQuut' +
         'KdrXIJW6YoPvypvYd6JFJ03tCsotOXvoqmC78W2j5iI8IUHm79cHy' +
         'J4npsKtw28FuR2l7qHq4afZDlGIFrt5t/sVnSfTdbakwr04QUKinM' +
         'fzubHXL+8unL16IKqT5/nM/nB+2fvx4Khz80IT0mh5HKLoMLzZAb2' +
         'WobR+fkaB1wp5n6huLGMUq9CCA3H85wrUn6tpLGkQypGU5mAp2XWS' +
         'JhKMD8Laq2sZqxdfcy8Z7pLvP7XunFJ77jCqKbktZ5ae9KkqHrjqb' +
         '9sz3bGqPt0I49KHL0hucUwzDFssoptcu19aUK1ZAZpiq/XA1pBXX9' +
         'VOa3D2ZJjXGFHPjk2aXyImOzn/n90IxuIrwKzDzJ1KMa3lSO7QQmu' +
         '6PpcK69pzJ//z146TdikmPy2IW6Rmb9aEH95AGjbOopqG7KVbnEXX' +
         'fTa4ZKu1dvyJpQUIS0DuaGUiNoGG4/QKj6UMc4xTLwGkdupdPQec5' +
         'du3npVsS1yDiEaZEZhZkyC7dxjOedLTR6kgVEcFFo70VvvJGQefFm' +
         'BIDExz6aggjiU8GHmJ8Y8mM7jVs/JlsGvt57t+tLjsUy9418aDNwt' +
         'N5WeM6XOgKvJGu9tzKYBPMzhDfK7B9fMHOKZSyuH04p00XnFKVzyl' +
         'nGpqqh9QsHXyjIdw7RjZ54Gi8JXvEh5ofPD9o/+xURYlzhmQ8wv7I' +
         'pilYKUr0SFn0zPi06m5HGLssXa9gae6nZXe5sq6jtFLs6wN4lJnex' +
         'vSuzpu9j0tL1Jxj6dGOXuG0GLm6Gj/mFNR5l66h1dK3Rx/z+5T2Bz' +
         'G9ffF41fF/Ws5TrGJINb4MeCe419wva5uEVh2UVXbgVef7r20cyf0' +
         'qpMiqzMJFeAmtFiF3Xd5j5MysMsfnsJAYPgQzT4D6C+Ufup0nMJwM' +
         'yP83QZFU5YMop9VVNPqHUWtG/ApMKxzuJJ5d134VLH3LQ0J9gGtSj' +
         'W6bpxyVti/AQTuw9PgiT1IKfz7OrqSoljekh9cIW5Fs6Y9jSs9dvf' +
         '3n5OsgcnjxijTtZtPiC4mS2qEDbkGXtlXQtpAqIxy5FdSPlbdOQDe' +
         '0L7cG4H/toCiKITwUfYv6wKm9Jx7J+9lmuazxweBrmXlTPPQ+8wm5' +
         'ZCGT+CFWrpGvRz/yhYidBmMzqSyXmr0qtF7lmil99osh4S+ZGLJ/M' +
         'r0wtFsFlzbUPBhLXeZ5N3rucVWGITMtL4EgPM39Efgn8QxBFHFt8i' +
         'PmbY4pEVyNib8SmRGUUEJ6zWMPVu8TO9krPkLp9Qts1remcAnXLGn' +
         'tLXd2VA6vs5ulzXCuVlJiGkyzT7nYTfDvIP09dlymoROAgsDYrvSO' +
         'W0dWGpWdt2z8cYP73/0Uw/4s/e7e+t8w8Ug2sVA1uqMceSAYI06ka' +
         'fyRqnY7M5567dgusdSk0Mr5YQpntAfOD4iB5Io2bI1CwVDX82l4K8' +
         '+fZBzIqqmNyi5AGYQiz2s3zzh3N/AUBzE9TJZSqimsHTxxsjiRzH5' +
         'X5+1YQN127k5Qps3Kap09zqMoJr/IymmdD5Z5LQlfg9dsVrowjmf8' +
         'oQOc0ey9o/8trt9BzwOSg/fCUnLh8Now1Ypk8kYqurS3vmKe5hmEC' +
         'MiUmSc+yoHU2rrjiyu07aP0LN8KOfTQFEcSngg8x/y25BzF71dhOq' +
         'MITOEJFfRs1y28Dr1iX3lB8/sq+FYL5iekXXq65Q9S5CF8xX11HrP' +
         'BU2Mpap8k1+V+wTJeEzstlxJQOxz2RIlQlFwkY+sYvWQfe+ixunim' +
         'ydWVKjIk8RbrUcrLwADdKe1dSRPoIUFN0ciJXdoVHXdsTz5GC9sEh' +
         '8YUckCfxBNnZrmobMw7crRlbt03et01sWEbuabvnJC1jgoZ+rqsXh' +
         'oZZPxYmrf/8AytXTxeb+M0TOTJzoVTPNzUqmgfNQ8v1i8Smc71P/z' +
         'T4+u9+5h9++8/+l3/pevRT8+rrmslNeceMoGlUNbIFIXVjDzJklq/' +
         'j0i7fjkJIcj06MZmY51cf4fNnFCQUcrNK5UVKC9/VQ3nCizQZYn1M' +
         'LhNpMkoqoECuZ/bAE166DkFKitgQyPynaMrw/JJYjjxe7Qks8dSh1' +
         'afy3pWwHDY0LO2cP8Pdf8EZzXeKbbpe0eCfv6LEAlHy+gyZ9TDzR6' +
         'raD6uU1zKbLrNeuH0n5PxlhG9Xw2Pg7cPVz+RJabJqtFpJdR3iMrR' +
         'OTk0/GohW3STrXiywDyTxK2/EJCMkAf8f+2gKIohPBR9i/hM+L1fU' +
         'u05vmg0coZLBLcPCS//Pi3y7df4p3PLANHTnYFgeNyyrKIYpwsBML' +
         '9dlinXJrLK4guKY/OIMiamiY/6a+MDeC3TXECgugcalaVwhvldNL5' +
         'Q6EHcQ+8bMPhV2LIra53me6dLWOUrIkGodyDR3Mx29MQwhTMOVQ6s' +
         '6cREcEp1FT2WXgUNIF900tOSc2YaX7l554V5+DtLWDa8pBtbErVMi' +
         'V1exxQsx8rX15W2zrIaxOE3LqUM7FKUbO7Nl5hyRkqNzSht6Df2Lt' +
         'XM7lCX95JvR+Nnz9D9bN9/XLzwxDt6taB5VDW98UWSU9KykibSQ7W' +
         'Z8WmhCekRaLgg8hLq2pz9FQDA/zBYxk1Nl5jm7rpTaAok9w9wDkxq' +
         'dzQBPEu9E6OpZjROBCb5k6tIqDDEsceBsD6zA7Wz2zbRCbv3QicNP' +
         'NwIg611GVJUkUGdbegNlI7b1C1gXeuGg9QcipHUINM6z9ZR5ftXIJ' +
         'roZJfFlgVPombiZXgiH4eKNcBjrmBwGYcgUJvJdBrm7HxC5h8RdS4' +
         'yGcbati2H2ple3pYt04am50GHwCW8QQfx6fGSeHyjrXTcG8DyQaOy' +
         '9VtHg/5mk9WZW2il+XbLWm8BXMu09xXVD6RJTbAEHlJ7M5CfSS+Ly' +
         'WLE0Xr6uMVJxYOlOsrYVFA3HNa+SWNNOfVlg7zHr0fMGdH2BYyCuW' +
         'JLMr7zKt1KYHxfJZZzwHlmqGnCIrnvGMbVF7rfTtv0DgC+GyW3t5K' +
         'Oq4U2Rd5Lv6mYorZmCyrQyTTK/Kq3CWOaduix0BhYaJqkDUWeUSMD' +
         'G5c42Xde0Y/oBsaT/8R8GXv7Vf76Af6q/Y+f3TauvUK66c1rgHr1e' +
         '7ippmc1RWGPz2SBtVDyRxs2tpK7nB/OnCtVRmYWE91siYciNJfbOr' +
         '8tdgfrJtPTmKB0xUGxuURq3AnxImS47U6SLK664QxcEMv/XwprwPO' +
         '7Zr8PieVUJAWt+jmT+eL5S0Dz+kc3ZjkS0ogGBBpg/0EBAhiylM98' +
         '+cLjETHNXfEnlhVAiAgpLzkaHKZBoyXfHNB2Thr4FmFdN92x563SG' +
         'pRfWk+3ozjS250KHeazItDzY0GMfTUEE8ang48zP71iqWXh+eN7bD' +
         '07jGGjhPPvAOo0sU2eSUHtL5LgqcsFtzlU6M8X61OLyZGYpPP+cKn' +
         't5+1xR84FQIs3QnsCVRabnZ8tMFPb7NaA5B4n1lkf5/P7ZkhyBAv6' +
         '5zN1nHFyqW3jccv9d5yNiw2Gg69FPlllig2JO62JR0zScUq6zF24/' +
         'ZL6TRYvKZeVq6lONBxZA3hA5UoWa5CIB2KnU7Fa2jtaMb/iX9BM79' +
         'u8t6SfdfpTSuvVdw92nltFVSetkvK6twDUC/zyDJ00rFqVzxdmlco' +
         'a+gfIOL7NhPEflggHKrKiGTWToGzmu3sjK5gPWuWcN+sxW2NJFWsQ' +
         'plf33Lh+cbz/L0kE5FOa/zDVFFfDPfnUjLIfNaxz9yBvZysF1GPc0' +
         'Q8d/t1GiZPXJIj36xkXBfjhwsqAqoVQlapm4JaPus/FFkYHnHo3nV' +
         'd6IS9td4qu0ip3toH3z8AqMJsI02+T9qp7FYs+stH+NVz+Ya+ku1L' +
         'iSWUJYdtxy7KMpiCA+FXyc+Zn1Y/l6N2Uq2I+QIoOgaTSmWEph/hR' +
         'da1KZLlxSi4vnSmpY7glZ990CXSN8WnxW9q0oRh58ybUGuoIc90R8' +
         'sQSeXkZF9f+E+V1DxOs/XBnJ/ORU1alic5K2lZgtIdfGiJQ8Q32lZ' +
         'wjc27j8HK4+ubU+0PvsZxg4zcTjHNd4lLr9uri+tGOxanCNZmjOqj' +
         'BkVxKm6pLgwHKjOwo3oom4gmIYFK7epWgaMA8tNyw921/YSR7U5Xs' +
         '/mnzOC/vSsvFt7fwjcFdh7WiyoZNT006XGwslOppUz6w0FVu95EzX' +
         'FVFdmm9LUtvKW8XAmrRnWdq7LOu7p+hfrRq+H7hDBXQIgTneeZ53t' +
         'qLzLr91NlTeTFHOV6VW35towsCH46foKly5eDPiSmR8Snl1ovaDex' +
         'Y57n1bNbRO2TTjM9+GD4na1gS1J0HlSdR4I1Xe/Y7hm/C/JbLDATj' +
         'POtA3wPxhedxoVgW3fviLQ3lGqlrFbdOxRaKYHEZWqZyw1I29xM5I' +
         '0w9gNN0rL6Bh/cgGTHO+awRhSKGjn2lwZ5bKESAgbjr20RREEJ8KP' +
         's78NNdwpryG1TB2JC1EyuqjGKIb6QwK8ydrvUki3f5Kfrr+PN+WpG' +
         '/Ptw/m2AauB0wWkTjDtYpbp2MYwtCEdDiuN0XOI4vzkTmxf68PllP' +
         's/aNVGK6haEYZbMfhJ7xgfvjtSQxefrmab2pUekdqxtZ3nXPfpvqD' +
         'b/4x8PKvtrsvq8YeBm5lCZsVo/Ik69rwSW49EQhm3UgiVx6dTcxFs' +
         '1Q10voeQ/9i/cKT3Ye8b/7hZ35yzoc4ZebZzx0Pf2xefa0dXhf1rF' +
         'wvdwncIzxLM7e6FraDZ2zgu3rIjZT9u9MQk+eBM110PWXLhX18eDY' +
         'M7npsUTn0E8j8ITQVzMHViNhrkcR7UqWeicPPMkg0bP6YYOhBueBz' +
         '2OvzPPsloTNG085vGk8UqMPzOKHZ7AS+khOwAx6Jm2W2xKOYPzSrK' +
         'OTy17Fcebal57DAHPdkhtQcV1iCIIg0qYjRaud2mlZfIUzzrL+tXf' +
         'wGcU2ufbC8fTbPPsC2ePPK1Yib4gs5xz6aggjiU8HHmb/QNZwhswg' +
         '9k0fOBhTY+64l515Pzqcyv86bXF59gbKo48PURKsdhtt5Iz79Znxa' +
         'SmkVp2GkxDvLaZ4GipuIPW3KOhZYDeMwQJymycAnvFmOEcvCS0X/P' +
         'b57NCKPG8euoK7q9DF/dBad3HmAnJaxTWyARjof/Z48SwsOOepuX3' +
         'oVyPwfl/mmtFHcPhPHKo/KKEhjlzGrzGJXR3XfPPz51s33B5jft2N' +
         'n4KNexBqmqYfqsQcnGNUV3csi95DI0Sqyt4qd7cLGwQ9tof8/xpcc' +
         'i7Bl8g6NH8OkMn88R3ozLvVWfFpkJi27yp5h7j6ydRQj2+SeooGIh' +
         'Z9fqj53Izzk/OWT5y7dzmYXN44fZv4EgeYw8yMxbrmVThN5JxFeUX' +
         'KGk0Duqrfr8/tm56BYj+/UsLYH3yNu0o9uMhomalffZVr7S+ydhbL' +
         'qTJ4UYd2xj6YggvhU8HHmL3AOJfGrkoSa2xW1lHENBi6pH7oan3Uz' +
         'jUad7dG3pooNCR+YI6Ig1dxf0T4bTSu9ficBPn9sfnG21JCvchRqi' +
         'B11citrMisMqUJ1YokirrgiTWIKXNUZo+usHFxPEmjCsoouh8fEss' +
         'qP8PmFKuIdWJawUKITWJtV7eO2yfv+R7Hk+a3w/F333iiGt058yKM' +
         'OwCWBHVyaLNSEJmXvMn+lKZD5Qe8U5ifnfMgVnt1P/ti0/lY1tHG1' +
         'zAniKm+dljYPgt+A8ubRX8P8X3JrBN2rV0RUzjwMhCqsOuItuWsxy' +
         'TFM0ZmAbTNP0lTJ/MrwlJzI9HxiFU25tqJj/mzJEQ90/G9SB0LQOh' +
         'Oexz118eqpC1dOX/oqIr/kSJ//qNkeJbGT0uVrF0OjEnhV3IaRw0t' +
         'n0wyduSpXlqCSrbZJ6ruhWNfsQ/IsMARN4H/j5Lagc8m1/n2cppVf' +
         '28uoMucIFClFgmMfTUEE8angF3x+5xD4IbaoPO/Qy61fC2piiqUhl' +
         '64jeKes3EvRt6WIDWUtkwWOwQ/NIZC8hPwlnXPk1ivEqvvU3PiC4j' +
         'SumNhIx7ejTrawMo1THl/IvZNFC0vOBv9f4hzYV03asxxRwDt3PdT' +
         '3JpckUtZAYf60Mk1sPjutWESXG8psLZqOScfU1v4inLc+5n/zj45H' +
         'f9BP7Uj618IrPUdy75dc6xfM6qhKt8AzAdr/Oi6NfCmYnO0BQRn6F' +
         '+sWHh+Y7Qk4n2V3W7w3/+h7/jPCDdP0Tryu8zTHAudf1jZV5R1Rek' +
         'cqvBPhv+IIy0hVm235tX7iQYzKc8R2Ez5cFdWmm7pgoaDb63GpVyN' +
         'ioZzU6o4A5ldDM5A/Lp+dzORn8KQ0QzOj4YDffvhoNhK3pI0wWKFZ' +
         'zDNXvibfoUMPKfFMUXrIjTIbQj+KV3CyUBlVyL9wI+xSaCSivHSJK' +
         'd1EjTVgC/ieyUJ9I1NpLXe2abum7ZObTfdeEsy/8/v27d+ZZh5pJh' +
         '4VeeYS9R2Chn6W2p4nUqGJj300BRHEp4LAvTpdK2/OFPsO6Wbq4Xy' +
         'epGszje0ppVXxLDGnbijEt93KLgqUiVX1GPtfXr4ensO+yFQH/huv' +
         'qI9jV8QwhHDRRa3T4P9wad2lElOYpC5J25pr6wchM2qHy9tmM2XWe' +
         'HZFaHLOzbhU+J8xucxUdhlGMbxotsYOMKvMBRItAn9cTyjkpgnVpw' +
         'uJbc3gspJllTQMRxaUXLl951pUfAJHcoVTHeLbeJlEtKw2Q6RNYvL' +
         'JHYbJ5ZfOme2WjW/hexML78H83/6LJGTP/ffGyYfy3iVhx0Kqoeuq' +
         'wEbu2wx2vcK3FjoHJR1zaRXGGGYZKOtGTDIEhkjEztLVtbtPeO8+J' +
         'V/j3X3CG3gm48E5H9vCs3zXCFRNrxut7JrXdBIHb8nap2+IHNA8oX' +
         'yG9iRdQ9SCpvZX9qSv4jTXsKhtNkNmAW1yGkbSjZ23yh1nWbqTNOW' +
         'XDM01QU2yvo1VOwRRY5mim4mZCKYgLZRzlq4Moe1q5lKxPlOsS2Tw' +
         'oFgoJ79czdDVy3uWUw2diZrWOE3LbbEzUlaPQq/wTImallM01S7oq' +
         'nxrVzxM8O0YcD75fnQSV0Z39BKZ09RoHTQBPm/wjUll2ssszWn8pB' +
         'NViKl0s1wDZHyHFocpT+FXittmr/Ktu9Xcw02Ro7R5nKGrI7ZFah+' +
         'vGVtvXH5Onv8O2Oaf6qceXSq1FUIV7iGuvo4m1WfypMc+moII4lNB' +
         '4P78HTs/Wee+0Q2vy7vmy9xDHGtrgcqRVCQkdgbgShN5ikSuLJ4jj' +
         'Ssmdi2+Q+Nfi04i9j1OyIgvrkgpVaYK1alCDT6JXXMzCsOSsiIzac' +
         'm757PoiNXve8DPNJEW0URUFh3DH4hMzyd2TvbRPrFHgdldZvOKHG3' +
         'CGg/P2AATwJAbwU45Zco8hTVHbsmsMCCHFIESRd9OyQlNSEe8EFvA' +
         'yRRX51bW5CvtQF5lDbHJG7cCbnlBBbFpA/HKVd8C5ZUrgFx7A0pxr' +
         '7ywjG3IO6bhSXKcPYq+Fc3olqRrIbvKjgr6ysol58ZRHARO54rJTd' +
         'vU7RPE44OAVZ1HHMXuX+fz/OfWrR+ss4/1o5vaoVXD0DKk0vfOqbt' +
         'mUDQ8fyi/xNHFNLhRi4yKalTTp3w5AXzhKSBJWGoeLGYss4zcRBpe' +
         'Nz7xnTiDAG3EKiftKQKT20mZkWl5cYVcQjmKPeUorJmlCnB+rkhJk' +
         '1VD5xx9HaemlWVuYegboDo0UxK/EhlG04Xw0iMLeEBUAR/fI/K4X9' +
         '1JJDmftNfJbFGuwkJkW2XLkZlxL7oBIWRaQQyjzHcsAiFVAvoPWxy' +
         'eXgDtEa+eFXJSOeIcuRlNRrSpxJherkezontkSY15ihp6lXl/c4y7' +
         'T9FqUC+xROr+d+bpHe3welX3gqx5CGlg1lGRYx9NQQTxqSDwTC44q' +
         '61b39UvfmMaWlZ4hkrNTXS5Ef52SpEggcaNzWfDBGDA3smigagj0n' +
         'IxfvElOoseV1AM7zGZJSRQJMB3DOr4gmIAN+InvO4kZik+8R1X4go' +
         '5ZG4xOQwgzrfbGMHPEi1H6yCPfMV4V7WN4RPutKS+W2RvhTkAexcp' +
         'rYWy6hyRMr2kAmXFF3LBwCgIOaRzyrOFlfkVmkKpvkCiyxNrkAyEg' +
         'GyJzZ9tLVUtI5aRe4Rn/uB7ck6GeOXq3b/9eyx41t+6Zh9W985LG3' +
         'tLTG5mdWOB2pUtNcTTeP5ag0VRZVQQtF8o0cEwyd395Du8LTAoZCj' +
         'x7b/857AH6nnX7X/5V3J5PwyNa27HNnkfUpmGlowDdwn+75iUNw1A' +
         'CcQkRrkaPjl0RZSelofSSQEAKB+sC6MJYg9NzCCB7zC4uEj862+dP' +
         'BahHK44p6wqX6KF9kjAT4Y9ZSmtiFlAngiIRI5WgdXD0bnwbwZPCt' +
         '1GZRQgW4QM8NIRVZGbIYPwyZeOCc73xVMwrHSFiam04BNFEMssWUL' +
         '0CpQelVmITPCJKpDvrJHNjcbKEVYW7MmDVssWKNK4YrIXkTN+kA16' +
         'ULaOgvnRLb2+VzC6Hv8B/I+oDVcsI6uajsmK2s6S6jqY4GMfTUEE8' +
         'akg8Bxe0u9tWn1ln9zUdc/AQ+abGuFNFRA72CtzBIrsUjmGOSg6rV' +
         'gE/xzA+CX8Rt+BUGASGkG5WjjnuIL0BISV+E78FFbiJ+wIonLkgBu' +
         'JTHwvMZGzDcTWBMYG8sxBEKB5aBnjnaTE6r55bdc0GIC0AmADnqEe' +
         'ZA5nlSyLoPcKDcY+ogPwGP4FFXB0TnLKCPYCsYPM3afvmSVmjFdf7' +
         'R+h8u7fxLNX/x4LvpetrKNr8OHFrg6SAwlGKhYR7yDDivleRsZP1A' +
         'W0CYGl9T3kwcGg8f29On2Pd/20T+p5f2Jtb7YfVOZefg6T4ZjaQsi' +
         'AclFf8L+mcwrWBDKz1bZ8sSazRJLCEoItSQEI0EsI+L4nFHIJOxsA' +
         'XMF1pIfJJqxhqRyZEO8LaB3QDNoUNhSSE+tIidiqBTqHYqF2aLjSM' +
         '1RR14XrpBeNmiIr2A6QNmgcICx1HgsXiWmiUjlsH3kKJEwzbAeaBv' +
         'lD5+gJaHFITjQ0ugoamlOOtkbrQ3WQB41FyGNsEFiaAAiGn7hI9B+' +
         'xBp9kf0BzQxs14xvkMfewzsSbd4//0Lb9A9rRObMNdcGgo2jkcOyj' +
         'KYggPhVQfdEnfwQdEd7U6Cox8+zuI51tECn4k9zNHiMdzhiYASBmC' +
         'bQO/Is08BuBUh+rkGvUifQ65/6NGjuxE36VGQOcLjcAIE/8xHUMW5' +
         'GjDXQHhidf2KxbeAwSBuoXnhDcOP0A3Ii/DH0LEKyyZRiUS8qGe1F' +
         'iqW+CCCQGgwWx8QnSAHuLne34omge1HVNg1pJ15HwzH2Pdw/ssfDi' +
         'z2BjYsX43A7sDiIO5AYe2zUxYg2YME+kIk0MqkNaE9D+Li9tfUfMI' +
         'Pm2bvBP9Ryt6rf/RDIYmo6HP8J3JTYO8tUR4cZuNYeWIS3YGDqBbq' +
         'E0CIByYeb2IdYcgb2/kBjkCQ2jjSAqwcyONugBGoYqkDO+QHh8QpN' +
         'wm2FqjYNLKBdEiiZAGpJLiaKletQaNA4LAuALoQQwc6WJOC/A2gxL' +
         'gUxgK9EuqvZx0nZAOegD6CoQAE0MEL1FaUVb4y5olWisui5IAt4G/' +
         'Dbd36BkzjBGEAkMTzzh3f4BDQfbingNJgDtCLXD5qJLwGyhPxz7aA' +
         'oiiE8Fh31R+MOetTe184/Ak3C2MaKJgemni8ZeklTBigC+4Ar+RRo' +
         'MUgLeEYx9JCZXKvrhv4uYVbC3YowTM/m+dewYs7gFvAHywUAGDZKv' +
         '7ZDrt/Hp9b3Cg4uN8JDnH8EuwDARu7j4NlgG7QAoFwwGHobMoAJ84' +
         'ju5CTO+EDtzjm/AmqBqu+9w7e2lTL5sRTznff13UAr8dhTkmt2Bld' +
         'H66BfmAzwGstplJEsTWBS1hmmADAgiwD+QEI6o/yhG0uE/kvn3Vf3' +
         'iz7AUKI6o3dobMBtMALJC9UF0NWPrqAWIFDr3nSDgRbmwbnwfSn0g' +
         'vGWftd2Hz38mr0NmyAmFQ/mEcjqnoBPoAUoGIDm5Ew5CKjQ0aoEqk' +
         '9YHpgcXUXeSw8mid6u/b2RbIBVyhhKIAG14BerFjRAb5gOxFa5DdW' +
         'hZ8gQEgOgwdV24gruQM6qGZJAH9wIQCfmgBUkrQFoEoksM3CU1TO6' +
         '2Adrvf/kXqA4tRc75wDdAAgiMVj720RREEJ8QKCtPiDH18EcwLcYU' +
         'yQOgWWJ4Di0D5HT0Lm/sUYdl5B7YA6MeIKcsyJR+EGyDu3zPMf2ED' +
         'OALhj8ywS0Yv2BmECDxIO/hjyBSeMUQBp9kgI+BD55EyA+e9JsAEA' +
         '5R4ugqueUyOBMM5gPhPyNPXEQyXAF7oFLIGRn6t9PcXXK/t96edMV' +
         'RCooAA+NeklJAUyAi2Bd8gtPgkJOmhHi39N5L2CaS9klrQpnhD9Rz' +
         'oKphaEjy363X1neoGvmaKvIklY8iIACUBkXBBEMMlL6L9nHCze6YJ' +
         'OBTJvkdF3ev+0we2B45QDmkEqBhAKrzkTwBfCc3RkCVUTQ+YYCQhj' +
         'CvI/fQNKgsciOeufgsO76Q5xrs5jy+ATkRSeGu3Y1PScs1TgRo0BK' +
         'SQX4ShFHuX0RnQM7oV0iG0nEvgBKJzjZ5n+hsvs5DWhNcJGh/41uy' +
         '4YiX717/HcAXImgC+e/NmKGtj30oBRHEJ4TAlSck+4FvQUckx2I4g' +
         '2bJiRdi7gXjdOEJyR4kjeAKsd0xOfB9Yx8/d1MGYuEJbvFzMgmSqJ' +
         'EJimhefU0s23v4I8gQPjnEIMc4CfwknL3nP2O8I9KnuMpk6fDVcQU' +
         'sAYDEkCGuIAERQWx8C2olnManf/LP8/gpmkL+pD+J/HEvyWO7k/Cj' +
         'q/jEd0gOmVFii89IQWDydeDdIGJvSc+Rqt4vy7ealNw1iLBuT/4I8' +
         '4GqkUvWd5XvI1KoyG/F/MBPAPzsVyYB/PRj+gFU7Sd2aANKQKVIkC' +
         'oidOWLrVAiyoV+yNKRAOnRjiQhE48hyHInNkhLSpD23M6uyVh/S+Y' +
         'AtG3/QEi+/pbYY+fuU6KfzJGhxA75hegwC0/I/bGJxkLpm+8pYR3Z' +
         'YYjM/b1i5/e7tP/mH/5XMMiWgsbIF3tx77EPpSCC+LRAZb9XfwPHk' +
         'ptYgtnIEY3xRYLwTn0OKjlmiYvbPyCZH5T0+3dtvic4x0c7fnj3mI' +
         'd8eEdw/qu/Ea/W+lbdQB4C+PLu3+TyS3LI75oA3zIPf7nEwo9HPxH' +
         '8SeLRTySVkQtCkJ7MnEL7B1628lWf8MZ91ce9kI1kFdKo7doXcB1p' +
         'pHzTzqTAv0j7R6iarNGeXSPnMVA0CI1UPhkL7BI1fPK1N2BCgPxOu' +
         'Ogke++BvOK/TuqWaB3fYkhIS+5NumtlfCAvokSUu1v6s5/3I5G9MO' +
         'RA0XuZk69W+aMzcgbe322IRve1eCB2+4yvw/hF8od1pN0hews+8Z3' +
         'YT5VUMvnCtW/7a7JL7LbUiz/7e8Kxj6Mggvi0QGU/nzsKQiPdbGJE' +
         'BwJjPBDPfiZIg+SNPerYTxlwC0YoOcaJ8U7CN+pJ2iEDef/o3p2KC' +
         'QB5ytW+CfARJlkiWTpJnrhIYpdIfSCuv/rb7jJOMnPKYvvAbRZ8+R' +
         'Pmz8cqkJO0IIR9odgRX2BCmJK9RwaUbD+u6t1zu779F+nHolDStAX' +
         'GOCSX+iOCA/BTdwAOXCTV+2xXOYRaXv2NwJ5+/Bojd67bBUr31X03' +
         'GDloKfz5BzYcoVsyNPNlTt7rn6mjwH8jkgWKtDuBH9jBnu2mIV19U' +
         'sn+RzOHO+qxj6Mggvjk8CFG2qejD4NME4gPJvbP3vjG++5PXw5+J/' +
         '9ICg0k50AT4JeQ3IGHfCd3F3t06r8emDnV4T+cue/efRI+aGJI4cn' +
         'M/WLvW6u9DClVOFyX/RL92AtwdgXwMZufGw/Db+mOAKlhUr2Bynl7' +
         'oLGoegso2k/mvyrzPYVTbqTK6W/6vZ5DsXr72Mv8QMc4yhMgczj2Q' +
         'RREEJ8iKFMf5OA6jAM05cOvTEYht/3JnEDaDCDMX5Bwj6gDQWGGI/' +
         '7yk/xB7j1C7IMMfNicHabNwEp9rNDDOBjdUJiNYggCTWeg9aRY4SM' +
         'E2wOF/z+UkmJDAwMTaikH/z1s4g+IGiDw4UwoIgXq83DjUrrTsY+g' +
         'IIL4dHGEa/r/Io6iuCM95P+94h3lNFJc3yMJ8EjupZLbHqdRuOuwi' +
         'fxI9Y8McD7ohx/yog/QaUCNjqxIoIPtF/toK0Ch94A47sh5pI/gaP' +
         'k/rD2qaQ6Qym9wj33sBBHE/w/woZmK/334/0DCgTf/atr6Eeh79bf' +
         'eF3+pX//Oee9t/fq7Lt/6HP9kOIVFe57/pWHju9rVb133vkV65/Jr' +
         'x/Ir+9JL292XtsUXfriWX7f7VqEEzmNT/FsKp31oasvP/wNv/une/' +
         'F3d2nuUfrjowyXuk+pBT7v7+Z9R2V35ffkArpU3HTs/kc9fDuRwSA' +
         'N+S9H19E9Ql3PlDZmDT5jDqnjuh2PpZfP99/j0/XwRCOfyq7btH9s' +
         'e/ggxSEn8c/v+5zLkNKCf3vEFrYa2QF26n/1MmS089iETRBBB/NZA' +
         'Eik4Xzv1xLTwwjT3zDj71DT/TNh9TzW6bb/7op3Y+/0HcBTolGChZ' +
         '/uz+uA6ce+quG+9pG2RQCuwQIKLz7bF0s4lcd9a1cgDzdiWde5J0/' +
         'pb4mD3re8dPkoEMYIeQZKue286fSv/SWbzP84OJH+/tOO+pbYQuHr' +
         '2abF3HuB3LvE7lvntS3u4K+pZIYuzLTyzzj+tWQhg17svQad+u4Dv' +
         '+uknqEIgDDPfaMe3LbNPAOvcNwD00Prgd+RqH4haB3MDkt/jedSie' +
         'vqxce4Z9HaGY7kkcN6QNERUeuJ0namWvhzHCL1xkuOdF3avyAbvq8' +
         'Z3oGEUUTV8n9e2IOxaFnTuotT3Wda9AnUBlcObmokdSFIz/6zl/ne' +
         '7K5Egw7OfO5/8kTA0hHX+rv0x8d04+4154YV6Yse18pqUk3y9C/o8' +
         '9j4WRBBB/Kbgd6FBpKB9unuG5Zlzrb6L1nbEV/dYF1+oRzbr7j4zT' +
         'z8CC6nHH+ontpt9a/XJlaIgUrDc575TGj+O8EpPec891eCac/6Jae' +
         'phjNobwjL4UVA7al941u5b0PjxVaaktP2v/2FaeE5rmPpQcQn6Tu3' +
         'wevXY5hm2b3tt1gGAbHUT202+9fZgde3kI8rttevf1yy9CpW5iXt9' +
         'QD7m6R2P7/UH++Jz3dTjr0S1ISzjHgwniwwZ1gGQOb78GoWcYBrCF' +
         'J4vWEby52mOJfDfkKJq5HOOZ4vWtuc4R/RTO6qhDeitYYV4oQ/Ws3' +
         'bltXZiRzGyBVujGX8IC+tcfZds7s92DJtnHpMrS8klwdDnsXezIII' +
         'I4jcF/2Prrqc/g830009TrYO3FZ4QtilG1ynsXuW2zCp6l+W9y3Av' +
         'sxwjhpknyqH16vEHhslty/Qjw+TDUwfPrPkQiFN02WZR15Kse6Gqb' +
         'ylkjx6j1O0VA/etd19Wj201Lj8nzhbcfP+hN8vG9171bdz8QTf15P' +
         'TesbyHEa/vkHfOKbrmz3JMh1n3lrzJMPNYP3q/dv6RfmwTfjJ5HUx' +
         '7Q9YEDTRs/hij7aBQsXpgxTmz7Zx9pBreSDH3UvK8LHSpx7YVffcO' +
         'KwTKvFpej5qm1wwxmmaFPWuqicc1y2+bH/7hi0PnOfrV9fnB7zcr6' +
         'quGN6v6VuzT28ReFkvPERQgyEq1DNRtfB8q99ySEUfMK8e2db56ka' +
         '8Pk/o89m4WRBBB/Kbg59KG+99X9K2d9p3kfpJN0NF1SSNBodXdloU' +
         'XcP7FfRtFnrlc16i4dzVC0cRrW5APrFX23wMl/voTcr8oMog674pa' +
         'pkKY+gMn2tePV/UuWcfWQa0Nd58esZtEwDPovtd/N809y7QNfaTcO' +
         'G27sGGgzD38oWMcy7pWJJ3zur6Fqp5F5egDSpqG+7+jpIfAktZJdd' +
         'eMrGuB652jpD9VbJb2r0k65mQds6d/nSkktPEB2v+QLbijbtONbyu' +
         '65kxDy9bxjaqBVfnwFgx0uNILq0oc7MU2OVbeSLoWYPKUvYumkVXH' +
         '1Fb9wpNj72ZBBBHEbwrje7vS1a5+m2jojtZ2+KnmiqgObiS/c0U6/' +
         'OBCqeOLIiNswTme/TyfgGRgQ9wxJ2mfvcSz/rfORo+q8pQ2jZ1kHC' +
         'BkWt2Y2DOmbBur7pu3jq6RB4sH7iDn30eINFJVY9sniqjHWX4ecFh' +
         'wnMbLMrdwatpCAgra9c+ZBuBKWa1qZFPkHipvGqkc3qQy/+aPlMxP' +
         'MrS82l5B47BicO3MwWN5cW9R40RZ81hFfY+wcfA069eawvO8o091/' +
         'AjKe5aFjUMVzaPithnd5A6CskA9IGBBXMb2zPBb51XD9yXeCW3nlG' +
         'lo6di7WRBBBPHbgf9pKfzq+vX3pvnn8OrPlNTseqRFxrLedXH/hnX' +
         'huWPlbYplgLz+JbeG7p4p7Vop8UyXukc4nplYffdthWeXIYsM54qN' +
         'Z1jVp+Bs0/WHjynHRfPc07NcayBRF7iGSxxdwpoWWWOvpnOKOHBk4' +
         'cn+rtF7m8jhs+/V30xzTxOquwPZ9Wp5PbN5DlKFsHe96FhVS77STt' +
         'O4Quiaz30++WEW5Xpmix3dXFunvH/tl5mfrimytlcNrkWpWil/pZp' +
         '6Sur6OYYGYs/tmjYK858rqdk9PvIwaJrPKSft0vW+4xfVlOt+pBi7' +
         'SuqHVMMbsoENYc8qr2MZVL8vpC+IgF2GRRB1LPAcXeWONkXTwLH3t' +
         'CCCCOK3g/GAHTK7vvlPw8xj1dh2tmtsl2TM/ammbnH3Mt89Kh9Y95' +
         'MnnMxTxRZQum7iYbGjh1Y3GqFqDa/yXhK6TnOsGZaePG1DWpkmS2G' +
         'raJ81TD5kuKcp9KWefEK5ku8cpOvqGZUmnqFeUt+t2ztbfP+kGPK8' +
         'gPf/1bDxnXpi59yeefrM9+yY37bAb501TD3SjW8x68cStd6Cmh5CB' +
         'pkJzP8ZXQ8rFl/dQ+H/a+I6Rd8K09wq7b33mc9IpdUMiXrXnavvOp' +
         '7+TJEwXNbIrOkobVugnIp+S9ZU2X+Prq3L850CwNA3nGHpA9Pgljx' +
         'tPYRJEShJpAqJQ97TRNpcdd1p5sFz2Glq6C1DZpF0Ek57hJJqZULl' +
         'TZqxhz4bR7VlxCPjKi/NPWNfeYemYRhbCmTEMQTBk1mCCCKIQOwzv' +
         '+/URe/W977FhNtp1oEcx1DlwGqxs5dVPyIfWAMZwq8mGSZa21HYMM' +
         'XvXOF6pukm72mGNpC70gwdyfzKGzEpNxIyYhjCdKmlrIPKltKhBxT' +
         'WyrP3Z8vMGTwpTVbNN7srPUO757YfPB2y9+VfjbNPY3Wdfqc6VOHR' +
         'jG7CG89V1GRKjNlVDjBnsu9o4MiMQhBsCF1Nln6KbZaPbAcGGgCvZ' +
         'ZZp7ZD1rVIkDPT54UKn24cFXSvl3cvG+ReByc5wreLOhQIQO7cihS' +
         'VMKxYVqBwU5kdklFKqvBmXdj06kTyx8VZ8WlhSVnhKThJPkWloj9V' +
         '1wGgi1DrFNp2kqWKKRF/dSYosKEmrMIk671IEu17RwGqcoNeNlrQv' +
         'fXFovusz3xqhgoYpNE2uypVSXJ5RUgF7dOw9LYgggvjtINDnJ8/bb' +
         'Vh6UdV/TzGwKnCPFlu8+TJjgb6R2TDWtP0TfGawExxjEItl8ZV64h' +
         'H80lx17ck9at2d+qhuj2NXXL4ddelWxKXQSPCYtGeJQl9gYApf5dr' +
         '6UoSquEJOFl/GVtsq6rqq++YPnAjve8mrfv27iv71wLmUizwr296Z' +
         'VaZKE6oz5TXsuqHytpk0sSGWWRaanJ3Mr7rCs5Cln2SZZMMPOG13/' +
         'SbM57G7bQvPKHxOYX5m8xzMXNs3f2p++MeynjX/9c/puuKGkexKe0' +
         'x+sf/Q5NzKmrPs6gPM3zyVyJVdi4y7EhZ9NTzmWlQ8cVxvYgZxRHs' +
         'Bp0DflGrovFxWS07XnyxURhXyL4RGhWWzUkTVokNGM0xSnyG3ZlfZ' +
         'Oc1TiLBi9F2U5x1oI9P8C/XwBtPenVAs9p0IXHrsPS2IIIL47SBwn' +
         'n/g5V+7Hv+hZeNb2/SDqu55aWM/V19XINHmKazS7kVm00zT1u+kvf' +
         'd0xHrOnbLue/KeuyDYZIEqhKY6wPz6tmhG2YUbYee/vn0lMj6lvJr' +
         'rmaLQl3HhJZX5rT3xHGlkWl5KkQBuf5nNq+2adkw/gDzkVP/Qm392' +
         'P/8zHP5sx/CBGX6BjaZxZYp1wpbJRG3rZaHTMPtMN/ZA6JmIY5Uj+' +
         'sBFf+nWpTcg8Fh9d2DR6snH9pVvP8L8X7BMdPcM7r0hdZ/ce46Ai4' +
         'zakXSpOSwlLzQhPTw1NzqbkUgvyauynWUb/CVeLnNJ++6Bq2NZ4hh' +
         'mWSyrPL5YkshTpAiUxGyP0kl3DOinnzpX38NX9zG/KlmkS+Ary71T' +
         'VQNrEVUtFMEyjJ1QL2xrSfMkt2UW0Vngv5eEzrjqHk7TZIrYAAtyM' +
         '4E4ej46i37sPS2IIIL4TcG/tmfw9d/9J62bR+6p2sZEjja2xl4grS' +
         '7UN5Y0TfBaZ2kmb2qZNlNhK7T35qjrQtPy49iSkELlgdkeYydBO7R' +
         'SIKVMV942e11cF8hOJ4sMppnHcJgDL+ZYe0CMt+LT4guK88vVAkuT' +
         'qn3cPrnpWXuDSIQ4ouvZz+b557y2xYKGycAb0009tOomhB7irrvpN' +
         'UOl3as3ZE2QJ0JaD08bPv+pgJAkydSrHn2gHNsJzOGOpsO59v4jzP' +
         '+ZbxEOyP8AxwocIu9kZEEJ3Pivo5PCkrLg9sNsFahd54oNgQpBTU/' +
         'SVNDSPvCTpg6hq78s0lP0QCQuVALE9UMPeU+xDPzGUYQD0XRhvqWz' +
         '0OCJ13ij1O3kv19ya2K07dqxLaajF2nOXw+9cvsO4ouItNxj72ZBB' +
         'BHEbwrkhM/I+/8iT1rv2Pl98+pr1+xDQ/9iZcuwyN7K0TnpVRaG2Z' +
         'tl7ZN0L6YK1fBXWfXEqsJYZhk8WArzIzqguYZya3ozTJ1xKs/pYuq' +
         'S9ShFY5bSebKgKvAuMD8sBSgU/JkjrOSbGpWto7aJDQjT+YhY21m3' +
         '9s409+yy0OVfvUPiBNOgHt0yTT8uaVuEQ35ibxo/TFKbyJWD+QNDk' +
         'tNMXb6+KaaqiUKqqkNPnA+v7aGA2zwVz6u6EBp18Ub4taj4sORs2K' +
         'yMkgqGvvE810Rd1UnXHwnU5dzhhZ10/WHOJ41CvqUrliM7fzMiPIf' +
         'NrOlEKJFp7pYOP4DJI+yauV/QOpdUpg3NZJy/EXbu2q0rYdE341Ij' +
         '0/OPvZsFEUQQvykETvUPvPob3P62B9+7V144ph8YB+6CfiX13fDAi' +
         'y1ececizTVcoG/MkpklPcuCttlEniKxREFhfj93EbTGt18tr78la4' +
         '5UtcdV96RaBiKULUxHX4JATWV+S3dUIf/6nYToLHp2qZxnqK9qGak' +
         'Z3yCW9xDHvvxkmHlS2rUCt5bCh+FVXkbzbKjcc0noCrx+u6LW5/NX' +
         'HmB+ujpdYuY2jJw46Gknmfs+xPxnebabsuYEQ29e3QSvc1kx+tBy9' +
         '3Xzw59E7fOxXPnZr8PgWoP5I9PykpmleSIV2+I9zzX/yvX87Jb5I5' +
         'j/KJzjWmn23hi29My10NOXvrocHhOZx0ngSIXeycrBtYr++4T9Gn+' +
         'EMCQ8p/jMla/PfnXj0q2I69GJ4am5cfnsY+9mQQQRxG8K/ql+0u3v' +
         'f/mX7id/bN36DuQPz98yuqrvmVV6Ryrqe3j1gzm2fnnfCt3okfXcL' +
         'XAMpJVpEAJQ5vl35yXY5tMcC4lTxWZYgS9Yps+ZhiRda2KpKqKAf7' +
         'LwCOYHhd7JomWVyrnVtYg4rKNrjcvPYYkcSy/N88/PBKzkRG6n2Kb' +
         'rFQ13NLtzHZRYIEpeT8yowzAFiHeKro7nSJOEmnhNS2Dppw6tkPxF' +
         'n/8Es5pu64lhS0DCIFgYrHSumC43cO0dF0ssgczvm+1Rk3M4BGgq/' +
         'LxZ7sp3DCkGNwKXp5KAlTxcHK9lNl1mvXD7zsnzl0HsYHXER5EZha' +
         'kCZZ66rnJgDdXRjD1IExu+upN48WbEldt3kCAiLTe+kINI5Ni7WRB' +
         'BBPFbg3/rnpF3//aTf9v2D561Nw13nzpnti0j98D/Eu+4uGuJ0TDO' +
         'dnQzLW3p1e3ZMlNmhSGEpj5yduLwZEWcpqXMMxGWww7P41KZ3zfbA' +
         '58fzJ/Jk3J0TkXTgHl4hdh8ZvW1buJhQd1EIJ2e59sD12deKHVQio' +
         'uQ1ceyxOD5wJAEViC2qDwij1vSSHX7fw3zBy4K+sw3686uHUzkK0O' +
         'TsmJymTBYLKWV7+y+xLOGsM0x2g5u+5J16Y1l7kmWwhZXXEHI43u8' +
         'C4sJveXIzIXVTec5RspDAdXIZgjLQCn6ssAp9EzcTC88dfEqooyvI' +
         'uJuJ2XG5DASGbxsqUHWs/RFkQGtk8yvuhmfRq4disooSKSXQCqG3H' +
         'jsfSyIIIL4rSFwJzSS/Ade/pXYi/gRccw6yf+O6QeGwWVx20yGtU8' +
         '1vMFx9maZOgpUzrzKmrOso+el99mMoQ+X1tNtvSnl1ZEFJXCSowp4' +
         'Jw/OEYH5o+lCuKkE85dI2Bq7tKHX0L+IuMM09VA7sXOaY/1IEYcRX' +
         'dmIDEG2gcx/o8yOK1cj4+H2Jxx0+3+R+T+n6co6FvAZePEc11LqmY' +
         'CnHU/jZYP5VTX82l7KdhaijkWEHl9FxJNLOm/Fp0Wm58fmsRLoJSD' +
         '/8xxDoAk7WajKVtXm2wcOy5Zp7orjVl64FQmHH9wORSUzS7P4slyx' +
         'lmn2Xhc5SjzTmRIjzAECkLg8VgpLmFtWBWMksDYfex8LIoggfoM4Q' +
         'P7v/2v4LXHMLnnMOsn/TauvaucfKfuWOZ5Zaf86v3Ekt6aHaXDTNL' +
         'XkS7J+grot9+Ta+nNregudg+yGsbL2eZF3GpwfTRdcj00B+125fSe' +
         'GKaI+F64bTaswJXBlaSJtXpWNbfYIGwZk7dOq/uXK/tVsx8c2ZzsS' +
         'UfL6yAIeyD+woCs8M3xvCAADxGscPcH4ZeZHcJFiGRD1rst6lpPFx' +
         'niVh8LJ10S1FR3zOVX2bGEV8cKss+sS/wDzc5unfMxPrOe/FhkHnz' +
         'wyLS82tyiRxkXQBOa/KNgPWGAQkwQaUcvELZmbIhK8ep57NJ5XeS0' +
         '6OSwpK6GQC3+eJqsGt7Mt3jiNt8A5XKhxpXHFacUixE35Yg0MaJnN' +
         'W+kZOvYOFkQQQfw2EXjQMOn8+/m/+5v/6Hj4o2f9rWHsvmp0K981I' +
         'vRM0JwDHGsryJ/C/OnGzlSxAawbkV8SUcCLopWCZsH5cHfJN1hBfY' +
         'm83en3K6K6NOtgoqnXtvxG3ndP0rMk7VmW9d1TDKxVDm1UDW8aZ5/' +
         'qJh+dKKLOflwT1yXp2hI1LQlqT6LGG6ny+v8iJ/xvlTvC87hRhfxA' +
         '5ifn+UG/12NTU8urA5f6/6LPfzJfEcksL6kfOldCjT4ilC2K3qVCX' +
         'SNNYeLa2i/zawKZn9cym6mwxbErYovK49j+2Z5q0P7h2R4wf0QhP4' +
         'Zdwa0f/oJJlSpS1Spum45hlCFqIFaQVmiKtY5Ss5vv6sl3DidXd7L' +
         'MLYWy6kKJjqEwcXROkb21smUYodOx964gggjiNwvKQfPkoa7+yR+Q' +
         'f8PKy6qBtVzHkLhjPt8xCP8W3iaF+VOr26MZZeeu3zpz9ca5azcv3' +
         'owgV7yTrztFZRbG5DDAe+SmCv6NdIiJ+oMrHk8UGXFRPfkk0dj7Od' +
         'MAPv+Saz3Ps18SOmO07ULvdFqFEWYF9J5Qqua4JygcfrPMFpbDhum' +
         'hMH8iV3YjJhmIZ4lLPROnWEdsgHCY+W8rPMr+lWtJeRE0Iath7LC9' +
         'SLUOgPwLVA6WyXPlIPNT1/PvLeaH3r4s0lOe8IL5UaMvv7oZy1VkW' +
         '3oOF1TsnkiTmGLy2XDs6XIDz9ggdraLmobLOu9eFzl59YNck5tbXc' +
         's3NYocbfD2q/vm7ZObx961gggiiN84KAedk5M/IH94/m0Pvq+e2GY' +
         '0TNStvcus6RfU93Ns7SF0LYX5Y4pExDu810NB+19FEPMbEWm5MbnM' +
         'RHpJGrsskyct9G2h+WueC+e4xk8e2sQ+TuNNl1qu3Uk++9WN05e+C' +
         'sstLm4c/zXMD76Fyx2aSLzZGpXNyK6yZ5i7jxTjSJ//anzW5ZjUMs' +
         '94jOaI5Te5tr5cRQ1NU3ultOZ/vJ6f8PnzS05duHIrnS7yTl4X11N' +
         'KOc+3lbdOpwqUaVwxQ24UWJqkDb2SlrGqoY0TDL24a6msoV/kaK2o' +
         '7VQ0Dei6pq2ja8H9+YMIIohfCYrzT77n1fXoJ9PMI0Hnsmv9+zhtW' +
         '5l7CG5/CIPK/HFsYi79Slj09TsJ5O4BSQxeZomE2MpSbmSpajjWVt' +
         'z1i1P3cPKPvF7WPo8iLt4IR0yByCKqgMdpOsLnJ2d7zjD3xYPvnVK' +
         'qhBmKyiiAJcoo11Z0zJ89NHtzNPMXKK4l5X525sIdZrnQM3FpbzXR' +
         'dUljtnNMOvRAM7qVr67LVzrA/L/GqH3mW016mPkJma/euBgalcCr4' +
         'jaMfH7oYUSaoTNH6cjgy+Hzg/ll7j5l23hF++xVoSPD2g97IW0ehL' +
         'evbp8wDi45ph+4V14ce3cKIoggPhUEPvYd/vZf5PYOvlNrHxd55hL' +
         '1HWLPaGltbwh1r872RK78RkzyzbhU8jWidE55vljDUlp5xgaRnXBH' +
         'Re7hMLn7v/vQlsQtmVvSOXeHxr90KwIxxeXbUbGs8pJDWwPdKLOBQ' +
         'qMZZan69gDmJ7ZHjs4mdldLZvIzeDKaoZnRcCBeOM+3XxQ4G7eozH' +
         '+arr6RSvvs1Jkz10ITS1VZll5KiZ/TdbmWboa1/arA9iuZ/4LAeZj' +
         '5ITPqdSk08uu4tDSJKd1EjUpgC/ieyQJtPU1h4psaiRMNOiblnXNx' +
         '2vbTHItqdEvaOgna1/fOWUZXa+d2PGtvjr0vBRFEEJ8WKNs7OO6+0' +
         'E8/viywF9aOSLwTZQ39N8vsIXSt//CRhKrGJJ4CfvWdLFoijZvJkx' +
         'LT0YZ6sasDjig4St8zW9k5e6PcGcLUAScZe/cSJ5Ko9t51IqG+wDE' +
         'l69tPM7Q+aE4xNIW23hSR7npc6tWIWMQUN+PTkkrkdEdviO9AE2IW' +
         'nU583uCboumCGEbZWTqxgQN53Mklti5DpE2gcVNYwiy+jIhBdPXyn' +
         'uVUQ2eipjVO03Jb7IyU1QO6kftf8cyXONXnWLowsUPavVTqHvl/2r' +
         'sTn6rOPIzjf8csmWSSaWfpEpembhUVkE0ElB2UVZaL7DvIJlQEFQT' +
         'rUncqdcEKVlRaq3QsdnRqnWZsOul0Jpm/Zb7v+V0ul1t0bDsThuRJ' +
         'Prk53HvOuxxunt97LnB4NTz+l7/5/a9fWfbm1iyW1kw8aKjOr7ZV7' +
         'Ow//ween/fvV8r88/KmxixezW1j3Z7ac9Z3bPyljIZfJFX+3Nttla' +
         '8nuf3oqsRs5vXK6g3L1m8OyyzJ6x95ObPRf3JmvZrTmtVzMrGijWJ' +
         'a2OWSv3RwNKbl6M+2VW9tP1F8aKTy8AgL/ubT452jH/WOzyz6u0hE' +
         'lpZ5t3eY/qb/5hcs+6vevV7+zpXdh84V7j2S1TaY2tTv/YZnW2xJU' +
         '2Re9brEzLXxqaRrdHZxUmm9fSJRMXCu/thlsqj13I3G0xO7j1wuGr' +
         'iQt+9kxp5Bjo3ztUTkVW3I9tkdIXgMyyzdsKPM/QcTj90vaH1mydr' +
         'kvNfDormgeP2tCPv1yA0puTHFDXG+1tjS5uiihsj8GvanHKyI2LIy' +
         'Ip7wDM+t5MnNu+qiCms2peWHp+VF7yjZWljFZUhqVUdqU9/2+t7Eq' +
         'i4GzxjoevX2vDcSslfEpS+PTV0Wk8Lj8ti0ZdHJL61Y/fLyVWTyys' +
         'itG7N94blVTk6FNzyH7Yj86s2FtQwD9MiX7n+yZHnzyihm/HaXTjp' +
         'iSJEFtTyyzTM8z1DXpuQv3xS3LCyKurl2S8rGlNzoXfUxJU1uXgW1' +
         'dMeeTIcuYosbWfP7k//Q2eojF8uGL5UOXfINXWSb2G84MdZ69sOui' +
         '3d6Jx4s+rtIRJaWuds7ePfzHLrz1/4bj7qv3Gs5+6Hd2Ce/YyCrvi' +
         'e5vDWhqDY2d/fmrKLI9AIe3Sc8ZU07mvYVv320evgCmd8xOsWBPVc' +
         '/7Rmb7rgw1XTqGuWgoGMwtbItLr98Y/LO1XHJJN7K8Dgi/Y2ILWy/' +
         'uTnhzahEZ3PCG5Hx9hJ4aU1c8oZt2XS0Jb88obguydeQWFK3paAyK' +
         'rt4Y0rOW4kZVB+sT8qk5fD0/MisoqgdJTE5vi0FFdSjtKq27Ma3c/' +
         'f057T2ZTfuYwzxu6oj0gvWxKfSy2trN7Hw/u2KNUQ9Fxe/W7nmlVV' +
         'hr68Ld3+EFbMtLClzU2ouO9MsfYVty16XkL42Po2rCbrbkLyTVzel' +
         '5fHS+qQsGlwVk8SAGT+Pq6ITV8dudzsnpDNIO5CJ219ggY118WmMO' +
         'co7h+63NHdVc36YF22Gbd8BNqJzfFZVi7qPVA6erz9+pfHkNU4pj4' +
         '3vfgBOeNvIre7Ld/uuf77o7yIRWXJCPvAZuP0ly8jO9z9uOjVOpPv' +
         '2nyjsPLyzeX9GTWdyeQtxlFRSx3I6rbrd/WJh7/Ga4VEWn3sv3+Wo' +
         '/slHB29+0X/j4b5rn3WOftTw7tWyA6fy9hxIrWglkCMzCkk8cvUtU' +
         'jEhfX1iBtuGbdiTBH54ai4XFKzb6TGzvjunpc9leEsf2ykVrYlFtW' +
         'RmzM5SxOaU0XJCUY2Niv1d5jf00CmZyeApXiX7jlG/OHabr4HSsIn' +
         'CsTUtENdwPxqI3U7XvES/NJhYXMfOTJa++JKjCGrKEI/WaVzubh7Z' +
         'mUlxFFdAYUlZjNz96y4qUVpeBMUovYDHcO9vr5g4eIln7JIkeXczp' +
         'zSrvht2bumUvpiaFa/06o68toOMv+bI+3wv9pyfJOrbRm5yVQW2+R' +
         '69ffWPnO1FfwuJyJLz/ft5Hpj8M5HSfuF208lrxE75wTOEJ/lPnFI' +
         'Cdjb3ksOFXUNl/Se5LnC/XuKtPCkZHMtVw+BHf6GFfR/cb3/vVv2x' +
         'y2QXCZZR28U1AhFt4UZyOmzMx6tbd1WTugQ4FxQFnYMUl90HTpcfO' +
         'ssjw+AZxpBZt5fSwz7EI9tEPaOiNDBCdijueYeKUzX0Xu3RSwyAQX' +
         'L1wbUJwyZjaTy+oJIwJ7ejvDAnihmM/cGsFQ5riv3pi2SmLyoOWe2' +
         'Ut1DIDF/SGtWBJKdNBs8j2zTFTA3bjvek+90nX2Nq5R5Xm9oO7uoe' +
         'ZnZgwP55eVWAc8UFS377IV5iFqzwLee7Ln0CNmybayuq7cFbjxf9L' +
         'SQiS86C9/NkJdlz9VPW7aznWboTnlWHRygBpD3cT3KH3ms4McYStP' +
         'vKvb4P/8Qhw3efUjhAC1Y+aIHIqj9+hdwmeIkywo1Mc3+XuhCe51X' +
         '7BSFW7HRELxzOirf59DhliBjnGVcCeo+zA8hMykFpr1vbk/YMrHLw' +
         'PNWKsbWcuc7wqD48cnjdsUvkv63/Lc8JWBezNZ1WO1y/HQM0SFMMu' +
         'HLgHGiQCweepNLxqiGlDeO0ixHqDiMPoGbxjGHb+GuTF/i0SeOMkx' +
         'kxQSoU83I/ye11fblJ9R7nS1vtMwUuqajFXEk5H9x3rn22f+IBJ5k' +
         'zv+hvIRFZikJ+vZMMH5h60j/5qHd8hmBnhUmAUwIsftF8ZmLP+Un/' +
         'pw2Tj1zs3/va/SP1z/7ubgpx/1tXPj7+ipfYoWN0iv2JuOrhC2Qvu' +
         'U1EWwUhY4196Y/ugXPsyf6EHqHt7ud5+S7D4NEbiYtxihE7EOaWnH' +
         'zpBkaBODPBOG2FzCGWkDxyLMNwVezEWM3wqEV6YABzJWN41BWak9e' +
         'oGu5DFaZ8ZoIlt104MCry2fi3D49wVIXXGvPyT+3AKdsOYVOzKxHa' +
         'pHEindrKUBmbm9eZibl5ecOwk0wB3T/7SRpIe3Po9mMruIv+/hGRp' +
         'Sh42e8Pf+9+PmQLgUPskJ/kj8UvesamidO+658fvPWY5T05z8XCiQ' +
         'f/cHeECLopBC+RVBzO/iQYQUecEqpEHOkdiie93Cbu2LPr4h33acb' +
         '4DBcUFnSMhB7dSMamWQOzg/9zj4t39nqjcj9fHpu2tTF7uqi89Zgp' +
         'gMMZBi91XfrEYtZS3bicd/XiZvuF27RmP6e2pbWbtdcXR3mXDyFuM' +
         'lqrEf55LYSXrAv7rJ60tzV878QDxskEA2c4MC+bFPvYwn7g9pd8Oz' +
         'ifwYY+ecq3iYusRX//iMgSFfwnvS78739LdLOetM/tSR7yM7DgJFE' +
         'ti+wTHot9Lhk4PHBHOBf+n/6NHTic/ftvPCTESHJLVDLt+2yJ7tKe' +
         '3L7x0PUy9cQizmEkH3/FMzzvCsGNh36Tj/yjcv/ey+U8+7An+9M72' +
         'QgOt0LGbjTe6yVtYBj+fr0ctqW1a+T2l4FZu6Lj5XNviPEZN6PAJz' +
         'DP502NRqyW2Yrd8jxkXuzAo/88Tz1xEyHhp7+xD9PchrdNgbbrrEV' +
         '/84jIErXwzTzvf0u8kDOs6l2EEqTm3tc848KH5Jn5jmLhMt/uBTT/' +
         'jkD+CkL2erntisjUE8fL1VAk9mwY+he0099YvhnLPUtyqwWOt73A2' +
         'LwDKUCwY90s7j4NHYlnXr93n7KnsVlbXxbR83CUJ7ipZ/HvPFuS3C' +
         'BnAzwwr0BfNq/gM2CfpM3Dmfeusxb9zSMiS1fIzdzsZv6uBMx8Z1F' +
         'jKWr8yfP5P/1L/Yf/CtwLNLSCzHxn2euPuMCqdUGW2IGsmw03G0mg' +
         'NX+Ds0IHFnJg0CwWHom3HSgxgdkFz9qOmjvwxwrUo7lBzs5rbnhB8' +
         'wqeC+czhF1kLfo7R0SWupD8D3yA86zYCc784BYC+T9XRIIC/Hlm95' +
         'zrYj7rfa7BZ0di8DVI6IHP6HfBmQb39Z/H/2JTC5ndgn0tPJf5Aqd' +
         'dROQnCl7AzxWC72VOSOYv2ELIp0Av5Bm9PGskzx/bDxjG85t9wcH/' +
         'qNn90Ok8/+SLiPxEPzFznp9aL+LHNfW/GMl/3YuPbdHfBiIiIiIiI' +
         'iIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi' +
         'IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiI' +
         'iIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi' +
         'IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiI' +
         'iIiIiIiIvL/5t9IV97O');
 
     GetBitmapSize(BMP,w,h);
 
     SetArrayLength(DebugLines,5);
 
     TPA := TPAFromBox(MCBox);
 
     DebugLines[0] := 'M34t''s Lunar Planker';
     DebugLines[1] := 'Planks made: ' + IntToStr(Prog_PlanksMade);
     DebugLines[2] := 'Xp Gained: ' + IntToStr(Prog_PlanksMade*90);
     DebugLines[3] := 'Time Running: '
                        + MsToTime(Integer(GetTimeRunning),Time_Formal);
     DebugLines[2] := 'Planks per hour: ' + IntToStr(Prog_PlanksMade/((GetTimeRunning/1000/60/60)+1));
 
     {for x := 0 to w-1 do
       for y := 0 to h-1 do
         FastSetPixel(BMP,x,y,10337999); }
 
     for I := 0 to length(DebugLines)-1 do
     begin
       TPA := TPAFromText(DebugLines[I],'LoginChars',tw,th);
       for II := 0 to length(TPA)-1 do
         FastSetPixel(BMP,Min(w-1,TPA[II].x+10),Min(h-1,TPA[II].y+(22*I)+10),1);
     end;
 
     SMART_DrawBitmap(True,BMP,Point(MCX1,MCY1));
     FreeBitmap(BMP);
   end;
 {$ENDIF}
 
 procedure commitStats;
 begin
   DebugStr(2,'Commiting stats...');
   if stats_Commit then
   begin
     markTime(CommitTime);
     DebugStr(2,'Committed stats succesfully');
     DebugStr(3,'Mahogany Planks made since last commit: '+IntToStr(logsPlanked));
     DebugStr(3,'Magic XP Gained since last commit: About ' + IntToStr(logsPlanked));
 
     stats_IncVariable('Mahogany Planks Made',logsPlanked);
     stats_IncVariable('Plank Makes Casted',logsPlanked);
     stats_IncVariable('Magic EXP (Gained)',logsPlanked*90);
   end;
 end;
 
 procedure ScriptTerminated;
 begin
   DebugStr(2,'Attempting to commit stats one last time...');
   commitStats;
 
   SRLRandomsReport;
 
   DebugStr(1,'Script Ended At ' + TheTime);
   DebugStr(1,'Ran for ' + MsToTime(Integer(GetTimeRunning),Time_Formal));
 
 end;
 
 begin
   //AddOnTerminate('ScriptTerminated');
   {$ifdef SMART}
     Smart_Members := True;
     Smart_Server := 100;
     Smart_Signed := False;
     Smart_SuperDetail := False;
   {$endif}
   DeclarePlayers;
   SetupSRL;
   LoadObjects;
 
   SetupSRLStats(945, SRLStats_Username, SRLStats_Password);
 
   repeat
     if not LoggedIn then
     begin
       LogInPlayer;
       wait(2000+random(4000));
       ExitSquealOfFortune;
     end;
     {$IFDEF SMART}
       PaintProggy;
     {$ENDIF}
     makePlanks;
     If not Bank then
     begin
       DebugStr(2,'Failed to bank, making sure we are at the bank');
       if not NearBank(true) and ENABLE_WALKING and not FindNormalRandoms then
         TravelBank;
     end;
     antiban;
     if TimeFromMark(commitTime) > 6 * 60 * 1000 then
       commitStats;
     if (FailCount >= MAX_FAILS) then
     begin
       DebugStr(1,'Failed too many times... Swiching players');
       Logout;
       NextPlayer(False);
     end;
   until AllPlayersInactive;
   if LoggedIn then
     Logout;
   ScriptTerminated;
 end.