SRL Archive - RS3 Outdated / Broken Scripts

[Working] EARTH Crafter

The_Shermanator

2008-07-22 05:18:08

PLEASE DON'T FORGET TO POST PROGGIES / BUGS / SUGGESTIONS!

E*A*R*T*H Crafter
By: Shermanator

Compiles With:
SCAR 3.15b.
SRL Rev 20.

32 combined downloads and 29 minz used? Guess not many people like to use scripts…just download..guess that's life..

Description:
The E*A*R*T*H Crafter starts at varrock east bank, banks if you don't have essence. Walks to alter and goes in the alter. Crafts the runes, leaves and walks back to bank. Then rinses and repeats until it does the loads you set for it.

Features:
1: Antiban.
2: Autcoloring.
3: S.M.A.R.T.
4: RadialWalking.
5: SRL Stats.
6: TPA's.
7: AutoTalking.
8: Forms.
9: Ability to SAVE/LOAD your Form settings.
10:Thanks to strikerx25 for helping me with standards!

Instructions:
1: Have your player at varrock EAST bank.
2: Have your Essence in the top part of your bank.
Here's an Example of 2: http://i50.photobucket.com/albums/f350/omfg0/Bank.jpg
3: Drag the CROSSHAIRS TO RUNESCAPE!(if you didn't choose one with SMART).
4: Hit play.
5: Wait for S.M.A.R.T to open(if you chose the one with SMART).
6: Fill out form and click start.
7: Wait until it finishes or until your done, then POST PROGGIES!

Soon will Include:
This means Done…
1: Multiplayer.
2: More Autocoloring.
3: DDTM Walking.
4: More Failsafes.

Q and A:

Question: I already have S.M.A.R.T. running and when I hit play I get this error.

[Runtime Error] : Exception: Canvas does not allow drawing in line 1618 in script

Answer: Minimize S.M.A.R.T. then run again.

Bugs:
NONE AT THE MOMENT:D

Past Version(s)

1.0 - Earth Crafter.scar (25 views)

What I changed in new version(s)

1.0 to 1.1 - I added more failsafes, better portal finding, fixed a few bugs I found, and got the time-per-load down to..

In 1.0 it was…

[*]=Thanks for Using: E*A*R*T*H Crafter=[*]
 Performed: 5 Loads
 Performed: 4 Anti-Bans
 Performed: 0 Talks
 Crafted: 140 Essence
 Crafted: 280 Earths
 You Got: 910 Exp
 Worked For: 16 Minutes and 32 Seconds

[*]=======*BY: THE-SHERMANATOR™*========[*]

Now In 1.1 its…

[*]=Thanks for Using: E*A*R*T*H Crafter=[*]
 Performed: 5 Loads
 Performed: 7 Anti-Bans
 Performed: 0 Talks
 Crafted: 140 Essence
 Crafted: 280 Earths
 You Got: 910 Exp
 Worked For: 13 Minutes and 50 Seconds

[*]=======*BY: THE-SHERMANATOR™*========[*]

People to thank:

ss23 : For helping me fix something and test my script.
Pure1993 : For making that awsome AutoColor guide.
Nielsie95 and Sumilion : For ACA 2.
and all the other people on the SRL Irc channel!

PLEASE DON'T FORGET TO POST PROGGIES / BUGS / SUGGESTIONS!

StrikerX

2008-07-22 08:13:46

SWEET SCRIPT!!!! Is this your first? well bravo. Apply with membership you will get in for sure. King vash might have some competition on his hand

Timer

2008-07-22 10:19:37

Hmm, looks nice, could use a little more neatness (Standards), and a few fail safes are missing… :o

Shuttleu

2008-07-22 10:35:23

looks quite nice

could do with some more failsafes and it could do with being neatened up
look in the tutorial island section and im sure you will find something on standards

also just curious but what is this?

~shut

Harry

2008-07-22 10:53:40

From: Shuttleu
looks quite nice

could do with some more failsafes and it could do with being neatened up
look in the tutorial island section and im sure you will find something on standards

also just curious but what is this?

~shut

That is a skull - right half from the stronghold of security.

It looks nice. I dislike how you use encryption, as it is not needed and only may frighten the user. I find it clean though, only thing: FIX STANDARDS :p

Shuttleu

2008-07-22 11:22:28

From: Hy71194
That is a skull - right half from the stronghold of security.

so what happens if you get both halfs?
because im guessing you can put them together but what can you use them for?

~shut

The_Shermanator

2008-07-22 18:40:56

From: Timer
Hmm, looks nice, could use a little more neatness (Standards), and a few fail safes are missing… :o

By standards you mean..? Explain please and I'll fix.

Yea I added the failsafes 2am, I'll update it tonight, After I get off work.

Claymore

2008-07-22 19:50:40

The only problem about submitting this in SRL Applications is itll take 5 minuites to highlight it =.=
Good script btw, really like the forms.

Queso

2008-07-22 20:09:49

From: Shuttleu
so what happens if you get both halfs?
because im guessing you can put them together but what can you use them for?

~shut

If the skull is combined with the staff from Stronghold of Security, you make a staff that has charges to tele to barb village, maybe another ability (I forget). I personally like to wear it with the zombie outfit, it matches perfectly … DON'T STEAL MY WARDROBE IDEA!

Crazy good script, I hope to use this once I get my bots high enough to craft earths.

The_Shermanator

2008-07-22 20:11:52

From: deathscytex
The only problem about submitting this in SRL Applications is itll take 5 minuites to highlight it =.=
Good script btw, really like the forms.

Oh sorry about that, but shouldn't it auto open with scar?

Thanks took me a while to do it.

daddyproboot

2008-07-22 21:37:53

Couldnt find portal to leave.

[*]=Thanks for Using: E*A*R*T*H Crafter=
[*]
Performed: 4 Loads
Performed: 4 Anti-Bans
Performed: 0 Talks
Crafted: 140 Essence
Crafted: 280 Earths
You Got: 910 Exp
Worked For: 906428
[*]=======*BY: THE-SHERMANATOR™*========
[*]
Successfully executed

First time i had ran your script pretty impressive
I didnt use smart as it slows my comp down im sure with a better system a better proggy could have been made i will try and do a longer one as i have 4k of ess left to craft i will post tht proggy too, i found a few problems which i sorted out while playing such as finding bank it didnt find it the one time, also it didnt go into the altar one time i think it just ran the procedure bit too soon

Awesome first script dude :) Congratz

The_Shermanator

2008-07-22 22:35:38

Thanks for your proggy and your comment, I am currently working on somethig that fixes those.

KEEP THEM COMING!

kingmyth

2008-07-23 19:00:00

Ill send you a proggie in a couple of hours

StrikerX

2008-07-24 02:29:34

{--------------------------------------------------------------------------
 --------------- E*A*R*T*H Crafter By: The Shermanator  -------------------
 ---------------           Version: 1.0                 -------------------
 ---------------         Requires: Scar 3.15b           -------------------
 ---------------         SRL 4 Revision: 20             -------------------
 --------------------------------------------------------------------------
 --------------------------------------------------------------------------
 -------------------------  [^Description^] -------------------------------
 --------------------------------------------------------------------------
 ---------------   Crafts Earth runes east of varrock   -------------------
 ---------------   and banks in varrock east bank.      -------------------
 ---------------   Has normal randoms and antiban.      -------------------
 ---------------   Only Does ONE Player right now.      -------------------
 ---------------   Logs you in when starting            -------------------
 ---------------   and out when done.                   -------------------
 --------------------------------------------------------------------------
 --------------------------------------------------------------------------
 ----------------------------- [^Setup^] ----------------------------------
 --------------------------------------------------------------------------
 ---------------  HIT PLAY and just fill out the form   -------------------
 ---------------  Wear a TIARA(soon will come talisman) -------------------
 ---------------  Stand anywhere near Varrock east bank -------------------
 --------------------------------------------------------------------------
 --------------------------------------------------------------------------
 --------------------------------------------------------------------------}


program EarthCrafter;
{.Include SRL\SRL\Misc\Smart.scar}
{.Include SRL\SRL.scar}



var
  x, y, Loads, TotalEarthsMade, TrueStarttime, Mytol, SFR, SFB, SFP, Q, R, Mytol2: Integer;
  Essence, Antibans, EarthRune, MyBitmap, RegEssence, RanMod, RanEmote: Integer;
  Username, Password: string;
  LoadsToDo, MyPin, SRLPassw0rd, SRLIdent, Nickname: string;
  ReadyForStart: Boolean;
var
  frmDesign: TForm;
  Userlabel: TLabel;
  Passlabel: TLabel;
  BankPin: TLabel;
  Trips: TLabel;
  SRLidlabel: TLabel;
  SRLpasslabel: TLabel;
  Nicklabel: TLabel;
  User: TEdit;
  Pass: TEdit;
  Pin: TEdit;
  Trip: TEdit;
  StartButton: TButton;
  Save: TButton;
  Load: TButton;
  SRLid1: TEdit;
  SRLpass1: TEdit;
  Nick: TEdit;
  Banner: TImage;

procedure LoadBitmaps; forward;
procedure SaveTheSettings(Sender: TObject); forward;
procedure LoadTheSettings(Sender: TObject); forward;
procedure Loop; forward;

procedure StartClick(sender: TObject);
begin
  LoadsToDo := Trip.Text;
  MyPin := Pin.Text;
  Username := User.Text;
  Password := Pass.Text;
  Nickname := Nick.Text;
  SRLIdent := SRLid1.Text;
  SRLPassw0rd := SRLpass1.Text;
  ReadyForStart := True;
  frmDesign.ModalResult := mrOk;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 327;
  frmDesign.Top := 103;
  frmDesign.Width := 311;
  frmDesign.Height := 297;
  frmDesign.Caption := 'E*A*R*T*H Crafter';
  frmDesign.Color := clSilver;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  Banner := TImage.Create(FrmDesign);
  Banner.Parent := FrmDesign;
  Banner.Top := 0;
  Banner.Left := 0;
  Banner.Width := 303;
  Banner.Height := 263;
  copycanvas(getbitmapcanvas(MyBitmap), Banner.canvas, 0, 0, 305, 263, 0, 0, 305, 263);
  Userlabel := TLabel.Create(frmDesign);
  Userlabel.Parent := frmDesign;
  Userlabel.Left := 8;
  Userlabel.Top := 49;
  Userlabel.Width := 48;
  Userlabel.Height := 13;
  Userlabel.Caption := 'Username';
  Userlabel.Color := clActiveCaption;
  Userlabel.ParentColor := False;
  Passlabel := TLabel.Create(frmDesign);
  Passlabel.Parent := frmDesign;
  Passlabel.Left := 8;
  Passlabel.Top := 72;
  Passlabel.Width := 46;
  Passlabel.Height := 13;
  Passlabel.Caption := 'Password';
  Passlabel.Color := clActiveCaption;
  Passlabel.ParentColor := False;
  BankPin := TLabel.Create(frmDesign);
  BankPin.Parent := frmDesign;
  BankPin.Left := 8;
  BankPin.Top := 136;
  BankPin.Width := 43;
  BankPin.Height := 13;
  BankPin.Caption := 'Bank Pin';
  Trips := TLabel.Create(frmDesign);
  Trips.Parent := frmDesign;
  Trips.Left := 8;
  Trips.Top := 168;
  Trips.Width := 50;
  Trips.Height := 13;
  Trips.Caption := 'Trips to do';
  SRLidlabel := TLabel.Create(frmDesign);
  SRLidlabel.Parent := frmDesign;
  SRLidlabel.Left := 176;
  SRLidlabel.Top := 120;
  SRLidlabel.Width := 35;
  SRLidlabel.Height := 13;
  SRLidlabel.Caption := 'SRL ID';
  SRLpasslabel := TLabel.Create(frmDesign);
  SRLpasslabel.Parent := frmDesign;
  SRLpasslabel.Left := 112;
  SRLpasslabel.Top := 152;
  SRLpasslabel.Width := 47;
  SRLpasslabel.Height := 13;
  SRLpasslabel.Caption := 'SRL Pass';
  Nicklabel := TLabel.Create(frmDesign);
  Nicklabel.Parent := frmDesign;
  Nicklabel.Left := 8;
  Nicklabel.Top := 104;
  Nicklabel.Width := 57;
  Nicklabel.Height := 17;
  Nicklabel.Caption := 'Nickname';
  User := TEdit.Create(frmDesign);
  User.Parent := frmDesign;
  User.Left := 64;
  User.Top := 40;
  User.Width := 113;
  User.Height := 21;
  User.Hint := 'Username HERE';
  User.Color := clInactiveCaptionText;
  User.ParentShowHint := False;
  User.ShowHint := True;
  User.TabOrder := 8;
  User.Text := '';
  Pass := TEdit.Create(frmDesign);
  Pass.Parent := frmDesign;
  Pass.Left := 64;
  Pass.Top := 72;
  Pass.Width := 113;
  Pass.Height := 21;
  Pass.Hint := 'Password HERE';
  Pass.ParentShowHint := False;
  Pass.ShowHint := True;
  Pass.TabOrder := 9;
  Pass.Text := '';
  Pass.passwordchar := '*';
  Nick := TEdit.Create(frmDesign);
  Nick.Parent := frmDesign;
  Nick.Left := 64;
  Nick.Top := 104;
  Nick.Width := 41;
  Nick.Height := 21;
  Nick.Hint := '3-4 Letters From your USERNAME';
  Nick.ParentShowHint := False;
  Nick.ShowHint := True;
  Nick.TabOrder := 17;
  Pin := TEdit.Create(frmDesign);
  Pin.Parent := frmDesign;
  Pin.Left := 64;
  Pin.Top := 136;
  Pin.Width := 41;
  Pin.Height := 21;
  Pin.Hint := 'Bank-Pin if none leave 0000';
  Pin.ParentShowHint := False;
  Pin.ShowHint := True;
  Pin.TabOrder := 10;
  Pin.Text := '';
  Pin.passwordchar := '*';
  Trip := TEdit.Create(frmDesign);
  Trip.Parent := frmDesign;
  Trip.Left := 64;
  Trip.Top := 168;
  Trip.Width := 41;
  Trip.Height := 21;
  Trip.ParentShowHint := False;
  Trip.ShowHint := True;
  Trip.TabOrder := 11;
  Trip.Text := '';
  SRLid1 := TEdit.Create(frmDesign);
  SRLid1.Parent := frmDesign;
  SRLid1.Left := 224;
  SRLid1.Top := 120;
  SRLid1.Width := 57;
  SRLid1.Height := 21;
  SRLid1.Hint := 'Your SRL ID';
  SRLid1.ParentShowHint := False;
  SRLid1.ShowHint := True;
  SRLid1.TabOrder := 15;
  SRLid1.Text := '';
  SRLpass1 := TEdit.Create(frmDesign);
  SRLpass1.Parent := frmDesign;
  SRLpass1.Left := 168;
  SRLpass1.Top := 152;
  SRLpass1.Width := 113;
  SRLpass1.Height := 21;
  SRLpass1.Hint := 'Your SRL Password';
  SRLpass1.ParentShowHint := False;
  SRLpass1.ShowHint := True;
  SRLpass1.TabOrder := 16;
  SRLpass1.Text := '';
  SRLpass1.passwordchar := '*';
  StartButton := TButton.Create(frmDesign);
  StartButton.Parent := frmDesign;
  StartButton.OnClick := @StartClick;
  StartButton.Left := 104;
  StartButton.Top := 200;
  StartButton.Width := 81;
  StartButton.Height := 25;
  StartButton.Caption := 'START';
  StartButton.TabOrder := 12;
  Save := TButton.Create(frmDesign);
  Save.Parent := frmDesign;
  Save.OnClick := @SaveTheSettings;
  Save.Left := 200;
  Save.Top := 40;
  Save.Width := 81;
  Save.Height := 25;
  Save.Caption := ' Save Settings';
  Save.TabOrder := 13;
  Load := TButton.Create(frmDesign);
  Load.Parent := frmDesign;
  Load.OnClick := @LoadTheSettings;
  Load.Left := 200;
  Load.Top := 80;
  Load.Width := 81;
  Load.Height := 25;
  Load.Caption := 'Load Settings';
  Load.TabOrder := 14;

end;

function Encrypt(text: string): string; //Thanks to Widget^ Used off his form.
var
  i: integer;
begin
  for i := 1 to length(text) do
    result := result + Chr(ord(text[i]) - 8);
end;

function Decrypt(text: string): string; //Thanks to Widget^ Used off his form.
var
  i: integer;
begin
  for i := 1 to length(text) do
    result := result + Chr(ord(text[i]) + 8);
end;

procedure SaveTheSettings(Sender: TObject); //Thanks to Widget^ Used off his form.
var
  path: string;
begin
  Path := AppPath + 'EARTH-Crafter.ini';
  WriteINI('Settings', 'Username', User.Text, Path);
  WriteINI('Settings', 'Password', Encrypt(Pass.Text), Path);
  WriteINI('Settings', 'BankPin', Pin.Text, Path);
  WriteINI('Settings', 'SRLID', SRLid1.Text, Path);
  WriteINI('Settings', 'SRLPassword', Encrypt(SRLpass1.Text), Path);
  WriteINI('Settings', 'NickName', Nick.Text, Path);
  WriteLn('Successfully Saved Your Setting');
end;

procedure LoadTheSettings(Sender: TObject); //Thanks to Widget^ Used off his form.
var
  path: string;
begin
  Path := AppPath + 'EARTH-Crafter.ini';
  if not FileExists(path) then Exit;
  User.Text := ReadINI('Settings', 'Username', path);
  Pass.Text := Decrypt(ReadINI('Settings', 'Password', path));
  Pin.Text := ReadINI('Settings', 'BankPin', path);
  SRLid1.Text := ReadINI('Settings', 'SRLID', Path);
  SRLpass1.Text := Decrypt(ReadINI('Settings', 'SRLPassword', Path));
  Nick.Text := ReadINI('Settings', 'NickName', Path);
  WriteLn('Successfully Loaded Your Settings');
end;

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

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

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

procedure Proggy;
var
  M: Extended;
begin
  M := 6.5;
  SRLRandomsReport;
  Writeln('[*]=Thanks for Using: E*A*R*T*H Crafter=[*]');
  Writeln(' Performed: ' + IntToStr(Loads) + ' Loads');
  WriteLn(' Performed: ' + IntToStr(AntiBans) + ' Anti-Bans');
  WriteLn(' Performed: ' + IntToStr(Talks) + ' Talks');
  Writeln(' Crafted: ' + IntToStr(RegEssence) + ' Essence');
  WriteLn(' Crafted: ' + IntToStr(TotalEarthsMade) + ' Earths');
  WriteLn(' You Got: ' + FloatToStr(M * (RegEssence)) + ' Exp');
  WriteLn(' Worked For: ' + IntToStr(timefrommark(TrueStarttime)));
  Writeln('[*]=======*BY: THE-SHERMANATOR™*========[*]');
end;

function VarrockDirtRoad: Integer;
var
  i, Red, road, Green, Blue, GC, TestColor: Integer;
  P: TPointArray;
begin
  GC := 5992305;
  FFlag(0);
  MyTol2 := 50;
  Marktime(Road);
  repeat
    FindColorsSpiralTolerance(MMcx, MMcy, P, GC, MMx1, MMy1, MMx2, MMy2, MyTol2);
    for i := 0 to High(p) - 1 do
    begin
      if rs_OnMinimap(P[i].x, P[i].y) then
      begin
        TestColor := GetColor(P[i].x, P[i].y);
        ColorToRGB(TestColor, Red, Green, Blue);
        if InRange(Red - Blue, 18, 25) then
          if InRange(Red - Green, 0, 9) then
            if InRange(Green - Blue, 12, 22) then
              if GetColor(P[i].x + 5, P[i].y + 5) = TestColor then
                if GetColor(P[i].x + 3, P[i].y + 3) = TestColor then
                  if GetColor(P[i].x, P[i].y + 5) = TestColor then
                    if GetColor(P[i].x + 5, P[i].y) = TestColor then
                      if GetColor(P[i].x, P[i].y + 3) = TestColor then
                        if GetColor(P[i].x + 3, P[i].y) = TestColor then
                          if GetColor(P[i].x + 5, P[i].y + 3) = TestColor then
                            if GetColor(P[i].x + 3, P[i].y + 5) = TestColor then
                            begin
                              Result := TestColor;
                              Writeln('Found VarrockDirtRoad Color = ' + IntToStr(Result) + ' With a Tolerance of: ' + IntToStr(MyTol2));
                              WriteLn('Took: ' + IntToStr(timefrommark(Road)) + ' Milliseconds');
                              exit;
                            end;
      end;
    end;
    Result := 0;
    MyTol2 := MyTol2 + 50;
  until (Result > 0) or (MyTol2 = 500)
    if (result = 0) or (MyTol2 = 500) then WriteLn('Couldnt Find VarrockDirtRoad Color In: ' + IntToStr(timefrommark(Road)) + ' Milliseconds');
  Mytol2 := 0
end;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //no multi-player right now
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := Username;
  Players[0].Pass := Password;
  Players[0].Nick := Nickname;
  Players[0].Active := True;

end;

procedure AntiBan;
begin
  if not loggedin then exit;
  begin
    case random(70) of
      1:
        begin
          HoverSkill('random', false);
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      2:
        begin
          MMouse(random(600), random(400), 0, 0);
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      3:
        begin
          mmouse(msx1 + random(msx2), msy1 + random(msx2), 0, 0);
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      4:
        begin
          FindColorTolerance(x, y, 546456 + random(1045768), msx1, msy1, msx2, msy2, 30);
          Mouse(x, y, 1, 1, false);
          ChooseOption('xamine');
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      5:
        begin
          gameTab(1 + random(12));
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      6:
        begin
          pickupmouse;
          wait(5000 + random(10000));
          pickupmouse;
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      7:
        begin
          SleepAndMoveMouse(2000 + random(5000));
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      8:
        begin
          RandomRClick;
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
      10:
        begin
          RanEmote := 1 + random(30);
          DoEmote(RanEmote);
          Wait(3000);
          AntiBans := AntiBans + 1;
          ReportVars[1] := ReportVars[1] + 1;
        end;
     {14: begin
     OpenQC;
      case random(15) of
      1:QCSayLevel('strength');
      2:QCSayLevel('defence');
      3:QCSayLevel('woodcutting');
      4:QCSayLevel('mining');
      5:QCSayLevel('smithing');
      6:QCSayLevel('herblore');
      7:QCSayLevel('summoning');
      8:QCSayLevel('runecrafting');
      9:QCSayLevel('crafting');
      10:QCSayLevel('hitpoints');
      11:QCSayLevel('attack');
      12:QCSayLevel('firemaking');
      13:QCSayLevel('fletching');
      14:QCSayLevel('fishing');
      15:QCSayLevel('range');
      end;
      CloseQC;
      end;}
    end;
  end;
end;

{*******************************************************************************
Procedure RandomRun;
By: Shermanator
Description: Runs according to run energy %
*******************************************************************************}

procedure RandomRun;
var
  R: Integer;
begin
  R := 0;
  if FindColor(x, y, 65280, 735, 101, 761, 115) then R := 5;
  if FindColor(x, y, 65536, 735, 101, 761, 115) then R := 10;
  if FindColor(x, y, 207083, 735, 101, 761, 115) then R := 15;
  if FindColor(x, y, 128, 735, 101, 761, 115) then exit;
  Wait(50);
  case random(R) of
    1: SetRun(True);
    2: SetRun(False);
  end;
end;

procedure LeaveVarrock;
begin
  RanMod := 0;
  RanMod := -99 + random(198);
  RoadColor := FindVarrockRoadColor;
  RadialRoadWalk(RoadColor, 410, 335, 38, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  FFlag(5);
  RadialRoadWalk(RoadColor, 485, 426, 60, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  FFlag(5);
  RadialRoadWalk(RoadColor, 487, 407, 40, RanMod, RanMod);
  RandomRun;
  FFlag(5);
  RadialRoadWalk(RoadColor, 415, 340, 63, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  FFlag(5);
  RadialRoadWalk(RoadColor, 335, 408, 63, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  Flag;
  if RadialRoadWalk(VarrockDirtRoad, 0, 90, 70, RanMod, RanMod) then Flag else
    RadialRoadWalk(RoadColor, 35, 140, 60, RanMod, RanMod);
  Flag;
  RanMod := 0;
end;

procedure GoToAlter;
begin
  if not FindSymbol(x, y, 'tree') then
  begin
    Proggy;
    WriteLn('Player is LOST');
    TerminateScript;
  end else
    FindSymbol(x, y, 'tree');
  FTWait(1);
  Mouse(x + 5, y - 16, 0, 0, true);
  AntiBan;
  FindNormalRandoms;
  FFlag(10);
end;

function FindEarthAlter(var fx, fy: Integer): Boolean;
var
  arP: TPointArray;
  ararP: T2DPointArray;
  tmpCTS, i, arL: Integer;
  P: TPoint;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.13, 0.47);

  if not (FindColorsTolerance(arP, 4412505, MSX1, MSY1, MSX2, MSY2, 8)) then
  begin
    Writeln('Failed to find the color, no object found.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  SortTPAFrom(arP, Point(MSCX, MSCY));
  ararP := SplitTPAEx(arP, 15, 15);
  arL := High(ararP);

  for i := 0 to arL do
  begin
    if (Length(ararP[i]) < 10) then Continue;
    P := MiddleTPA(ararP[i]);
    MMouse(P.x, P.y, 5, 5);
    Wait(100 + Random(100));
    if (IsUpText('Enter')) then
    begin;
      Result := True;
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
  begin
    Writeln('FindObject could not find object.');
    Exit;
  end;

  GetMousePos(fx, fy);
end;

procedure ClickAlter;
begin
  SetRun(false);
  Setangle(true);
  FindEarthAlter(x, y);
  case random(2) of
    0:
      begin
        Mouse(x, y, 0, 0, true);
        FindNormalRandoms;
        Flag;
      end;
    1:
      begin
        Mouse(x, y, 0, 0, false);
        FindNormalRandoms;
        FTWait(1);
        ChooseOption('Enter');
        Flag;
      end;
  end;
end;

procedure TalkToPeople;
begin
  if not FindColorTolerance(x, y, 13816530, MMX1, MMY1, MMX2, MMY2, 3) or
    FindColorTolerance(x, y, 16514043, MMX1, MMY1, MMX2, MMY2, 3) or
    FindColorTolerance(x, y, 16316664, MMX1, MMY1, MMX2, MMY2, 3) then exit;
  case random(100) of
    0: Typesend('Runecrafting level?');
    1: Typesend('rc lvl?');
    2: Typesend('Ugh..this is boring');
    3: Typesend('Gonna lvl my runecrafting soon');
    4: Typesend('This is fast exp but not much profit');
    5: Typesend('how many earths do you make per essence?');
    6: Typesend('do you like the graphic update?');
    7: Typesend('pray lvls');
    8: Typesend('can you make natures?');
    9: begin
        Mouse(85, 463, 2, 2, true);
        Wait(300 + random(100));
        Mouse(54, 449, 2, 2, true);
        Wait(300 + random(100));
        Mouse(185, 384, 2, 2, true);
      end;
    10: Typesend('earths are good exp');
    11: Typesend('runescape full screen makes me lag bad');
    12: Typesend('woohoo only 50k essence left -.-');
    13: Typesend('runecrafting takes F.O.R.E.V.E.R to train');
    14: Typesend('funorb is sooooo boring');
    15: Typesend('lol');
    16: Typesend('listening to a good song =]');
    17: Typesend('it took me a little while to find this alter');
    18: Typesend('lol its late');
    19: Typesend('i hate random events');
    20: Typesend('members is overrated...');
    21: Typesend('yeeeeeaaaaaahhhh!');
    22: Typesend('dane cook is funny');
    23: begin
        Typesend('wow!!');
        wait(2000 + random(3000));
        Typesend('this dude just got owned in a pk vid');
      end;
  end;
  Talks := Talks + 1;
  ReportVars[2] := ReportVars[2] + 1;
end;

function FindAlter(var fx, fy: Integer): Boolean;
var
  arP: TPointArray;
  ararP: T2DPointArray;
  tmpCTS, i, arL: Integer;
  P: TPoint;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.80, 0.24);

  if not (FindColorsTolerance(arP, 5788246, MSX1, MSY1, MSX2, MSY2, 50)) then
  begin
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  SortTPAFrom(arP, Point(MSCX, MSCY));
  ararP := SplitTPAEx(arP, 15, 15);
  arL := High(ararP);

  for i := 0 to arL do
  begin
    P := MiddleTPA(ararP[i]);
    MMouse(P.x, P.y, 5, 5);
    Wait(100 + Random(100));
    if (IsUpText('Craft')) then
    begin;
      Result := True;
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
  begin
    Writeln('FindObject could not find object.');
    Exit;
  end;

  GetMousePos(fx, fy);
end;

procedure CraftRunes;
begin
  repeat
    FTWait(4);
  until not Findsymbol(x, y, 'tree');
  Wait(250);
  TalkToPeople;
  FindNormalRandoms;
  Mouse(626, 40, 5, 5, true);
  Flag;
  Essence := BitmapFromString(13, 9, 'beNp9zmsKgCAYRNFdBZIUi' +
    'SFIKb1MJIj2v4kmAvnQDO7PwzDWzMOANmvQPk0orMvhHDq9R1cIyG' +
    'qNcpngUakoSxhM9xLyH0MqISBLOErZtpA5phKs4xyS4k/ZMAb54mQ' +
    '2HgCrq4rKF1P5DN4OC2kX');
  Earthrune := BitmapFromString(19, 8, 'beNqNkFsKglAURUfQxJpL' +
    'fz3FNBMzNTPzkZpZmklYUkGPv8bWjgMRFSSsrwt7nb2v77sjzRvrI' +
    'DCM0JyAyJoubRvErrP2ZiD1/WwegCJenbLNrdjfL2dLGQJHVWEgCQ' +
    'wkgYEkMJAEhjxaHNP0ust1UTQkyZQHgAwk+VmjVq2AbRgekkTp8Vp' +
    'fADDQ+18gQVZiWVAyAug6OguddvkUQHkEsZdvNZEVGQbgtMxxgPrT' +
    'fPqB1wdiOF3sNurgO/6+/SP7DD4AYsPXlA==');
  RegEssence := RegEssence + ItemAmount('inv', 'bmp', Essence, [20]);
  ReportVars[3] := ReportVars[3] + RegEssence;
  FTWait(1);
  GameTab(4);
  FindNormalRandoms;
  repeat
    FindAlter(x, y);
    case random(2) of
      0:
        begin
          if IsUpText('raft') then
          begin
            FTWait(1);
            Mouse(x, y, 0, 0, false);
            FTWait(2);
            ChooseOption('raft');
            Flag;
          end;
        end;
      1:
        begin
          if IsUpText('raft') then
          begin
            FTWait(1);
            Mouse(x, y, 0, 0, true);
            Flag;
          end;
        end;
    end;
    FTWait(8);
    Gametab(4);
    SFR := SFR + 1;
    FindNormalRandoms;
  until (SFR = 10) or (FindBitmapSpiralTolerance(Earthrune, x, y, MIx1, MIy1, MIx2, MIy2, 10))
    if SFR = 10 then
  begin
    Logout;
    Writeln('Player could not find the alter to craft runes..Ending..Script..');
    Proggy;
    TerminateScript;
  end else
    TotalEarthsMade := TotalEarthsMade + RuneAmount('inv', 'earth');
  ReportVars[4] := ReportVars[4] + RuneAmount('inv', 'earth');
  Freebitmap(Earthrune);
  FreeBitmap(essence);
  FTWait(4);
  Gametab(4);
  SFR := 0;
end;

{*******************************************************************************
Function FindPortalMM : Integer;
By: Shermanator
Description: Autocolors the dark []"Square" in the earth alter.
*******************************************************************************}

function FindPortalMM: Integer;
var
  i, Red, MM, M, N, Green, Blue, GC, TestColor: Integer;
  P: TPointArray;
begin
  GC := 1585733;
  FFlag(0);
  MyTol := 150;
  Marktime(MM);
  repeat
    Wait(50 + random(100));
    FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, MyTol);
    for i := 0 to High(p) - 1 do
    begin
      if rs_OnMinimap(P[i].x, P[i].y) then
      begin
        TestColor := GetColor(P[i].x, P[i].y);
        ColorToRGB(TestColor, Red, Green, Blue);
        if InRange(Red - Blue, 38, 71) then
          if InRange(Red - Green, 8, 36) then
            if InRange(Green - Blue, 24, 52) then
              if GetColor(P[i].x + 5, P[i].y + 5) = TestColor then
                if GetColor(P[i].x + 3, P[i].y + 3) = TestColor then
                  if GetColor(P[i].x, P[i].y + 5) = TestColor then
                    if GetColor(P[i].x + 5, P[i].y) = TestColor then
                      if GetColor(P[i].x, P[i].y + 3) = TestColor then
                        if GetColor(P[i].x + 3, P[i].y) = TestColor then
                          if GetColor(P[i].x + 5, P[i].y + 3) = TestColor then
                            if GetColor(P[i].x + 3, P[i].y + 5) = TestColor then
                              if not FindColor(M, N, TestColor, 622, 79, 625, 82) then
                              begin
                                Result := TestColor;
                                Writeln('PortalMM Color = ' + IntToStr(Result) + ' with a Tolerance of: ' + IntToStr(MyTol));
                                WriteLn('Took: ' + IntToStr(timefrommark(MM)) + ' Milliseconds');
                                exit;
                              end;
      end;
    end;
    Result := 0;
    MyTol := MyTol + 50;
  until (Result > 0) or (MyTol = 350)
    if (result = 0) or (Mytol = 350) then WriteLn('Couldnt Find PortalMMColor In: ' + IntToStr(timefrommark(MM)) + ' Milliseconds');
  MyTol := 0;
end;


procedure FindandClickPortal;
var
  a, b: Integer;
begin
  if FindColorSpiral2(a, b, FindPortalMM, MMx1, MMy1, MMx2, MMy2) then Mouse(a, b, 3, 3, true)
  else Mouse(621, 129, 5, 5, True);
  Flag;
  FTWait(1);
  Setangle(true);
  repeat
    FindObjCustom(x, y, ['se', 'ortal'], [6919067, 6786967, 7379875, 7050653], 5);
    case random(2) of
      0:
        begin
          Mouse(x, y, 0, 0, false);
          FTWait(2);
          ChooseOption('Use');
          Flag;
        end;
      1:
        begin
          Mouse(x, y, 0, 0, true);
          Flag;
        end;
    end;
    FindNormalRandoms;
    Wait(3000 + random(1000));
    SFP := SFP + 1;
  until FindSymbol(x, y, 'tree') or (SFP = 15)
    if SFP = 5 then
  begin
    Logout;
    ClearDebug;
    WriteLn('Couldnt find portal to leave.');
    Proggy;
    TerminateScript;
  end;
end;

procedure WalktoBank;
begin
  RanMod := 0;
  Gametab(4);
  Earthrune := BitmapFromString(19, 8, 'beNqNkFsKglAURUfQxJpL' +
    'fz3FNBMzNTPzkZpZmklYUkGPv8bWjgMRFSSsrwt7nb2v77sjzRvrI' +
    'DCM0JyAyJoubRvErrP2ZiD1/WwegCJenbLNrdjfL2dLGQJHVWEgCQ' +
    'wkgYEkMJAEhjxaHNP0ust1UTQkyZQHgAwk+VmjVq2AbRgekkTp8Vp' +
    'fADDQ+18gQVZiWVAyAug6OguddvkUQHkEsZdvNZEVGQbgtMxxgPrT' +
    'fPqB1wdiOF3sNurgO/6+/SP7DD4AYsPXlA==');
  FTWait(2);
  RoadColor := FindVarrockRoadColor;
  RanMod := -99 + random(198);
  RadialRoadWalk(VarrockDirtRoad, 180, 270, 67, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  FFlag(5);
  RadialRoadWalk(RoadColor, 180, 270, 67, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  FFlag(5);
  RadialRoadWalk(RoadColor, 158, 240, 65, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  FFlag(5);
  RadialRoadWalk(RoadColor, 200, 300, 65, RanMod, RanMod);
  RandomRun;
  FindNormalRandoms;
  AntiBan;
  FFlag(5);
  if (FindSymbol(Q, R, 'training dummy')) then Mouse(Q + 2, R + 36, 0, 0, true) else RadialRoadWalk(RoadColor, 306, 225, 65, RanMod, RanMod);
  Flag;
  RanMod := 0;
  AntiBan;
  SetRun(false);
  repeat
    FindNormalRandoms;
    FindBank('veb');
    SFB := SFB + 1;
  until (FindBank('veb') = true) or (SFB = 5)
    if SFB = 5 then
  begin
    Logout;
    ClearDebug;
    WriteLn('Couldnt find then bank on the way back from the alter..Ending..Script');
    Proggy;
    TerminateScript;
  end else
    if (PinScreen) then InPin(MyPin);
  Wait(50);
  FindBitmapSpiralTolerance(Earthrune, x, y, MIx1, MIy1, MIx2, MIy2, 20);
  Mouse(x, y, 0, 0, false);
  Wait(400);
  ChooseOption('All');
  Wait(100);
  Freebitmap(Earthrune);
  Loads := Loads + 1;
  SFB := 0;
  if (Loads = StrToInt(LoadsToDo)) then
  begin
    Closebank;
    Logout;
  end else
end;


procedure Bank;
begin
  if not loggedIn then TerminateScript;
  if (Bankscreen) or (InvFull) then exit;
  GameTab(4);
  begin
    FTWait(4);
    repeat
      Findbank('veb');
      SFB := SFB + 1;
    until (BankScreen) or (PinScreen) or (SFB = 5)
      if SFB = 5 then
    begin
      Logout;
      ClearDebug;
      WriteLn('Couldnt find the bank please stand near a bank');
      Proggy;
      TerminateScript;
    end else
      if (PinScreen) then InPin(MyPin);
  end;
  SFB := 0;
end;

procedure GetEssence;
begin
  if not (bankscreen) then exit;
  Essence := BitmapFromString(13, 9, 'beNp9zmsKgCAYRNFdBZIUi' +
    'SFIKb1MJIj2v4kmAvnQDO7PwzDWzMOANmvQPk0orMvhHDq9R1cIyG' +
    'qNcpngUakoSxhM9xLyH0MqISBLOErZtpA5phKs4xyS4k/ZMAb54mQ' +
    '2HgCrq4rKF1P5DN4OC2kX');
  DepositAll;
  Wait(100);
  FindBitmapSpiralTolerance(Essence, x, y, MSx1, MSy1, MSx2, MSy2, 10);
  Wait(300);
  Mouse(x, y, 2, 2, false);
  Wait(400);
  ChooseOption('All');
  Wait(400);
  CloseBank;
  Freebitmap(Essence);
end;

procedure SetUp;
begin
  Cleardebug;
  wait(2000);
  Disguise('U.S. Marine Corps -...');
  Login_SetAudio(0, 0, 0, NoChange);
  LoginScreenMusic(True);
  wait(2000);
  RegEssence := 0;
  TotalEarthsMade := 0;
  Loads := 0;
  Talks := 0;
  AntiBans := 0;
  MyTol := 0;
  MyTol2 := 0;
  SFB := 0;
  SFR := 0;
  SFP := 0;
end;

procedure Playersetup;
begin
  if not (LoggedIn) then LoginPlayer else
    FTWait(1);
  Setangle(True);
  MakeCompass('N');
  SetChat('on', 1);
  SetChat('off', 2);
  SetChat('off', 3);
  FindNormalrandoms;
end;

procedure LoadBitmaps;
begin
  MyBitmap := BitmapFromString(305, 263, 'beNrtnflzltl159t2mk' +
    '37xip2EBJIQoAAgQRCCBAIsUOjZt+hodt0002v9Ebb7Xa7227va7t' +
    'jx1vseCYpp1LxjMczSWbGNTPlSk3mx6n5D1JTqVQmk4nzw3zFgcPR' +
    '3Z57n+19XsFb36LEu7/Pcz/PWe655z7yseeffwp67rlrrOvXL7Oee' +
    'uoi69q186xLl06Tjh07TMKdeA69G+mJK2dJ/JyDB0cuHuo06thwG2' +
    'v3pkXQI6bbzTPrSI+U4e3SpUvyv4eO7GMdP/nYydOjpNfffIVE/8V' +
    'DrNFjhx8bPcAHAXrp3Hro9csbpW5d3MC6cqTL/a3wBOjJ0VWsGye7' +
    'WfT+JHpD5bNuX+1lferJTax3n+lnDfbUHtzWeHrvDNL7zw7oks+Xk' +
    'u8pP4t/IA9FSA7XG888wXrxxevQyy8/E6lbt571lxztUpImkvwy0L' +
    'mzx8CC7YwkRHJ09ABLIikPlESSBoAyBiDcIwk9tWcFy4hkOVLJv52' +
    'kIElUMo82JCF5EHRM5LiF5EPXj68hya/Bd0I2GBUMbR/3meubWcxU' +
    '+5IKiJF8bKjpg5tbSUY2FUIlkniJ/rtsSMoh7UYyCMPkSDILtnHiR' +
    'i8ISRhEifOFCydZ9AR8DePZJ+kDRidUjhOovBiUwm8xIikNpQ1JPJ' +
    '94xNCl46BgaDRb0sow0ZJHnXTJu465/hFGJFcvr9yzpQEk6kj6sMl' +
    'viL/xTP6sICRTtIyxkSQoTp8eJUUi6aCS/U9IUgbjS2IkcUwcSB45' +
    'sg9SLr+QHAkkyanRkp7b3wHRgHmkbG8OJHXZkCQqHRgaeYHkQ8oZk' +
    'TzaYNc/Tnqb+FZffnGQ1LOyGibShiQ/zQip/p5ffXmbvLZgbPM4hO' +
    'RY1fG0ERRPcqhL6TwykowDsRCJZGwqg5B0Bz5SyjjBZVzBky0p8Cw' +
    '7Hg8cHGERaBDRd+bcMZYRSYSTh7a1kIhNTwwV+0VSIJWnxmZkjc6q' +
    'gg/YgQDX5jU1CpISQyOPLOWr4pnK9YQsjo1KhZR8kFQ4Yklr7o+kT' +
    '/AIKVRyqOiDpHIZt117HdgqXq6OajEZ/NG9mwNJCaMbSfi9R4daWf' +
    'u2LHFjqJNolMOS2s6a8f0lVpTbMSKpyOHQMpIywCQrWRZISpSYBU8' +
    'kY1AZhKRtwHgOAMmpMSBiNotJpdtKMpV/+NMfOpCEyHVXqCQ5GIxM' +
    'dcY4O8Y3Z6bal1Ts7Kv3RFLHU35JclwlkhyXQXKwOahMEUwHkjqVC' +
    'ZFU3lD+QCOVnkiyPMeAW3JU6DZUWtKJgSRRqSAJyckj9mah3ZsWRc' +
    'LomH0IQlJ/TyaLcjtA8vju6Ywk+bSQD5XSg2UkSeWLJCkIySAqkyC' +
    'ZOp6SUAXP4iP5gx9+HzBK/fgnPzAiaZswUqiEGBAHlUyBzxmx2Udj' +
    '0qZnZbUDSaOMeCrgu60kJBHIiMr8kYRsGR6FSkYSfydBMjaekcGpk' +
    'tctbHqHrKRE0mYlcZHByLSBqXuztvwJO4fGJKf7jOhuqsIjRLkdRh' +
    'I8Qt+4tQNygynZlG8uv4COpByZcvTynCCnQLNG0mHUkiAZaihtSDK' +
    'zEFxoHySD8AwNQrOb1tw4dcTxqPzONiQljw7HFcKPoqlzN5jSbjqQ' +
    'jBdmOuwjTVhQbseIJMvTYsovg1998uRjLM7t2AyljmRyKuMhKVmIg' +
    'aQ/lUR9Rkj6u1KeSMpEbopsgscT1S+ern5167SjEH23NzbfgPQfMr' +
    'JniKVPUEI/+vEfyCIB0tj0x52nyZ+JH0JoRBpNspuRFlPh0WY6db+' +
    'XMGRxbseNpFEKm7rXakQSctfXTQAkPakEj+Q/+CDpU9kY23SGzrAo' +
    'k6HxYNw0df+p6pdvL/viiw0fvtP6zbc3vYJv8k7/rdebv/3pxj96d' +
    'dk7+vffu3+YBdBYOoaydAcwkmFVkJQ/RwfTmAJyTD0oTqztNOmWUU' +
    'IErFYvr2QkwSOoJCS//doQywdJnUdPJHVDmSeSxtmQVJD0CSpxWOI' +
    'hGQ/PhKGlm0pPPPmtXul98vnZn3+y8Z0n6979zMyf3mj6wqvLPvfm' +
    '5ufwTW7P/IPXZnz0/NI3U0ESMiJpLMaWbEqLqRhNI5jKeaF7bDxCu' +
    'sNJWHFux4GkjU2j1yrPsg+SmRpKfyQlPmkhGUmlEUk6RPLQcWDriF' +
    '/88cwaSUd9tVJRdqvvKXD3Uu/VVzZde37OF15f9jl8jU/3vwC9vOk' +
    'J45c3Iunm0QdJY8gc6craZh+UMyL/cCDJWG1eU8PpnVSQ5EBSDmxj' +
    '3tVdWVcqJCULPjWukZbXQSUfmbSQTIJnjNAyEkn/ItLn53z+rc03P' +
    '7X5pnuaPghJTulwRshx5bEVJVK22TGhGWkuZWJWiR+NzifndmIgCZ' +
    'UvkrYZEMlCaKlADCrpmMgnp4WkD56pZHs8lyBFFpH6VM7oSLqjSEY' +
    'Sz3cvJDQaSkbSJwVkrJ8xzmMaeSTE2pdUlBDJyIKBIiBJZyGe4+pD' +
    'pRFJebjkYXRch92T2lk7sZ6eqns5UmTBDKRPgrhd1nhISotJSOoL3' +
    '3Q2HXXgxnyOEUmZ22EkSUYkdTxtSPrwCBtRfCRp2FApi2QzNpIXL5' +
    '46fGgPa2RkB3T06H7W3j076U7Szp2DJIkk9PL5nmdPdkNPn+imP+h' +
    'vqRfOrtfZ/OSx1VLKmmjWE491kfAmClyfvb4Zb37xYKdRVw6vZPGb' +
    'SL16aSMOKX8QvsNb1/ocPMpftGWgLwmSyu+VX1X+hPP7O87fWcV26' +
    'VDnmb3tkJymJO3fuoRFBT/QzTNrbflY3PnqpQ0vnF3Heul8j9StC2' +
    'NauayClmVJJHf21UH0hEjhO5Deu9EvTzcPJEgOMIw31oEDIxAPzsd' +
    'HD2IYj44eJJ04cYR16tRRty5cOAEA8a9yP7+bURj/yjyFzEGRryiv' +
    '51TQEpTe0alcvz5OidqiRQskkieGl3u+8NiuNoXH0I9uqJnyysUei' +
    'SS+wMI5NfEmPubPriYe5Z1DGxfYkMRnNdZO5WdWVFRIJCNdVhI5ug' +
    'tmV/t/z31blgDJ5hmVoT9wZPMiI5Knx/d5cNyWLZgqkQSMcQZMcw1' +
    'ZybUrZsY7UzU11TBJGLG1tdWhr62rqwF9QHLOnFmhr+3p6fZHUvo8' +
    'nkjqVMZAknhkJP151KmEoYlxdtoWNUhnj75GDCqJR0i5Mgwu6GMeb' +
    '/c/AzmQNFYI0EJmB5J19bWhPOLyGwNJ3D75+GolGevPI91WtY6VnU' +
    'PxkMSpkaV03eFUMo8xkGQe4yE5VjZ5YLeSWpFIGlsMYVj6I6lQGYr' +
    'kkiULZZInlEeFynhI4ratZ76Mv+h0z5tZFYNHE5IbxugbeOuFljff' +
    '7L/+3sCreHP8S3+MR3Ia8yihcxvK+vqAUX1gYCmHk3NnVMU4VtWVk' +
    '+A0xuaRbt0rKuNZSbKPSm5h0aL5Ad+/uop5hIBnPB5jI4lPvHz5DG' +
    'AxLmbUkaQxGYSkpBJ2edxo3Lp5eHibEkuy8JDMu+K/8rUDa+dxFEn' +
    'iOAJ/SyuGUW1Eckv3XAo0+B1kqDV/vKd3bn+HnrSRMWPfqjny+Y/t' +
    'WCbfTeZzFCS3NY7Q13u7//m3+p/94ta33p//s/eXfwd/JEdyTvNse' +
    'RyU3yiDXPwQfDGZ6pkrrjk1lZPxi3SN7myFcCTlL+psaaI0zmuXx9' +
    'VODK6fJ8NJiv4QY5Iqpn78/i+d+nEjknDy+fkkehOOSaV15sweBs+' +
    'OHVtIGEW9veMWEbS3t3IgCSFUlNlIiSQQkxGlHldevXpOJnMkkqDV' +
    'EUVu2dI7ztAvnI+PjkRS+q7x6oJ0JHE5Am7yCfJrKFMhOJ5K2KIvK' +
    'GD5ILmrdyEn5zmXy+xgxDbUTrlv5mZV2yZKSLCk8s0VDKUUJGkx1L' +
    'tbXnmn7WufbfvaZ9q+8kbrey8tu01fKSGSjU0N8jgoP9OYgLUhqWT' +
    'A5BpwaMXiBvmjLh9eCSTBnbxzT/9ipULgwzd2sqoqPhGJ5IGtS+VL' +
    '8ARlNkRBkiSXFGEsKdf2Nas7jTV1NCAVJI1Ncmz5VQVJNy8rViyT3' +
    'wpf0oiksesXlBGS8jvoUyE7dw7qSBpX+uhI0p0+SPIvhQmQTz4+vD' +
    'wVJPUrA5Dkr/1q/1VlyqCpbhySNB3p5jESSUe/UzkbIh1XiaQCI2l' +
    '20/3Ac3FzLRHnRlKZxaiuDEMSL+HJEQePMZCUBQO5ITl79v2Yd9as' +
    'GTYraZza83RcfZDE762qqsS/JLjxLNwPzZs3xwdJOUFpQ9LouOIe9' +
    'nVJ5Mqe3rtCmkg4pW4ekyCJr6cIGLLkM6dNSxlJJaOu1PMoSEpPVZ' +
    'E0kbVVk9/+5Ka0kBzZXC/fYXr9NNbkSR+rnPaJu/+tGxMdMXizhCT' +
    '9WOqPQTIOpFWrOmzVAgqSY7+utkYXcGPt3r09huMqTSQ+8cyZx+Ul' +
    'QrqLfLlWrqtpIem+TZ/e6LCSCFhg5hTB4tC/0t/joQjiYs9cRGrHh' +
    'gXjEo/HVuvFCb/5xR++9lhH7CzTtGlTfXh0IOlYz6hXDsydGSe9s2' +
    '/LEoZOQXJlSxOo5CXS+weWsqbXPzrp0Y9JJGllloKk+wYelblR/N5' +
    '0kXTfJI+x0zu7d+9QmlYpSMqlLqnHkj482pD0vyVEcu+WxQmRpKP3' +
    'Fz/76C//6HtA8sK2JSVE0kalvnQrBpIwkTfPrLMh6X8DktTiwx9J8' +
    'IiP47aTrNyQVHiMh2RtbTXYUZYx6kiyc556LLl9+xYcKMq1csoL2r' +
    'tnJ0/H8JcZGOgrCZKUPk2O5L/70TchIPn+y0/rqWN2oVmUlpS+Kxz' +
    'XXcPb5dSkXKKliJ7Q0Fjvg6RxKWU8KzlnemV2SG5dNw9HhrKs+wYa' +
    'uGjnpfM97C1nhyTCPT3jSqJyneRIUiCpF52S8BNsDUwc1XpGEm1I6' +
    'hVEetEClfZB27b1K1dFyBaI+SBJsSSxIEvyqM5NKXdBxORYmQsNbR' +
    'yHJN6HI9yff+2zP3j/Nv790+98AXrz6Ut6xtW20F5BUvIYA0m9+bB' +
    'yYZHuq4zHayonUaGdUUMbF8pfNKNhmhFJOjUU98moEJoy6eM+SI5s' +
    'XkSBJ5X3yNyOjFLZaz14cITFGR4ldU/pHdtaZgVJY3rHluGJPQkyc' +
    '+Z0HUn8BEdRfW5IylyZYiUpV6BXsdIXXtRcI0cC3akgKVOdstMgJ2' +
    'SUgJQX4foj+d13XoVgFqGvvHGT9NKVM+MSv/0bPZGUkyCRVDqQtCX' +
    'SlXBSIllXPdnW9oSkUElnx5jekXXmrM1rapT0jhFJRJ30/MeGmgZ7' +
    'auX0h7GlgESSbaUx42rrLZAikm6vUqFy3brVEkn65sZ8Mvk2aSHJu' +
    'VYpmXEltbQs1q0kp+88kdStJCOpzKQwktJQEpK2TolGJF+4fOqvZv' +
    '32P8/6a+hvvv8i9Fdf/ST03rV9+lwMt99XFBtJonLrtv6KigpHdre' +
    'hdsp91dzV4e0tiuMKJN0rR86P39DBhqSRR9ona9qUj4ciuXdzsyLF' +
    'rzMiqQwkOK6OJVo+GVcl6QqRHxuEJGylEUm5hkV3y1N3XINqXI1WU' +
    'lIJLjjyNVpJOKhuJJVJH38k8RKQpSD5ydNHfznjL3898ze//fBZkP' +
    'hvvvAE6fWzQ55IYvTCx3MjGWkotwz04YX+B5x41JCc4l7SpSBJx9Y' +
    'TydXLK6GG2t/jZ1ZN+4Qx49q6oBrc7eyrh4xIkvi8+CDZ1dVu4zG0' +
    'oM5R4xqK5Pr1a/SWAjh0tt1PckOSalyNIcC+LUukx8JIkhY31/oja' +
    'Vt1aywBsj1fRxJ3/vH0X/5s+i9+9cHVP333IuvZ0S0+SNKvS47kgY' +
    'Mjd6is8ExkMXHzxiN58VBnEJK6lYQj4Ylk5bRPnD8404HknUVb9TY' +
    'kWZ5I8rB3x5JJalxDkZQRLsdutlgS5+XFF6/HQ/LAgd2gUld3dxcL' +
    'jgQJFwpptZUjOTrUqkQQMN/895HtLSObF7GMSB4abFEuOOqS4a1L5' +
    'aSne32xRBL8vny+Z2xWt+Fbv/7SNSAJ/fzTZ6E/eeeCgiQ+hS8m+j' +
    'J5nsWDli9fZkQykkqylbywkWZvWTs2LIBw59l9HXKqS1rJ5hmVV45' +
    '02XKz0PNn1m3pnkvq6Zh17egqHUk6ZdChgblSPSuroZXLKtqXTmMZ' +
    'HdeupbV4PiOpvI8uHyTXrl2l98hiQwkHUg7U3o3r+vrWG7VpU4+Sd' +
    '5VI4m83kk88cW7DhrX4CAx7UDA8vF3vC5c6kkofMNsOPrauAnwku5' +
    'ZNf+ZEd2QbT73XLiPZ2dL0ycdXOzZBi9FOhJFc3zHrzSfurhYBkv/' +
    'p69fBY1NDA+nP37/y0om76YWFs+qfeKzLwaMiXizpTyUbyr37h231' +
    'ZhSM0BeWxBGS9dVTtq6d99K59U+OrpLAKmWxeIj7hFw/voamzxjJl' +
    'S1NdMqM4PCyZerpQVKQnDN90uauJnr+ni0NjKQbTHfGtbl59uCgtW' +
    '0djUZ3tzp3hoeQhH0ErZ69sCDbjCR+grElpk8s6UDPk0pj7x0cyYa' +
    'GurP72n3a6hp7XwNJxJgnR5YbF79z8Zu7YYVNsDIdSxthHfge+Khf' +
    'a/juf/nWM5Tb+e+//zwEo/nOlZHW+dMv7un56OXH2bL7tA72R1J5i' +
    'F7l2MvGWPIKx3V12/Sbp9dSAgeg0QAwIklvRUjeONl9bn8HIYkI4v' +
    'SeFfQDjdQsnTcVciA5vf7RdR1VuIdfQqspSfGQbGpqgEnS+37oSHK' +
    'A6d6e1YgnkOzoWM7LQwyWUcSteqPjICQjrV5CJOVRkvMgFOEGtbyO' +
    'seNSPH32nqHhKkQYxB+9fvI/fOXJ3374LOmvP3oORhP6yZunv/X80' +
    'YP9nW4eZcC1a3i7EUm3vyqRHNkz5Ogmp8+GAEaleR1Yk5ZUQRIiJK' +
    'mDlhIX26ihdKsNSd6mBzq6fT6JecRLgCTfr8uIJGRrxWNr7qrkfNz' +
    'R2f0FyOeO23qM2+SwTUYk+ZTh/RULm4qUCgHdUEJBLa/9kUyFSn2H' +
    'CxjK7zf99DffeBoiKn8x41cfNf74h00/f+vi8OCUCAylABQj6Zj4c' +
    'CAZ6bs6KnmINYBmm8ekAwhDyS2a+ci7wz3wyL2U/ZGkHlm4E3/nhq' +
    'RctBUko0FMBUk+d7rTmzOVMXaIcLMZypqnfv7ps0Dyj6f/kgUYv9P' +
    '4g7dq371UdU1H0tGBLQhJhUp+oQ1Jm/uqIEkZHgVeiSTeipDEM314' +
    'hFYvr+RmO7QPCIl55HuIMuq9zNg6kPTh0R1Iuvu7+vMYhKRCgTIpW' +
    'VgkY9vKILuZUPgIOKiwiT+b/os/m/HvoX81/c+AJPTlhm+9VPO6gq' +
    'S7KSJsXGwkWeS7Mj6hSD45usrW/1a+JyMZyWMQksd3LoAGe2oBIz3' +
    '5/MGZYy+5c7+uJCbStsldPB4zQlKeNf1TUkTSlnHlJLYPkqm4srFJ' +
    'lIJN/EnTH/9yxl8Skr+e+Zt/O/M/4h4IhtLBI63SlUgaNwSJZyhtG' +
    'R4HkpThiUSSngx4I2FkqxeEJM2AUGLn2ujsLJBMy0S6MzmxkdRzko' +
    '/caxqZEZKRVLqb6waZy3TpM+rtuvfJMgJGEvAEjx/Uf/1mzSuQ8bf' +
    'wwvmckXSHk9TR1xh1SiTJnvqYSM61KjwykvIeAo0CSUrvXD4yKyMr' +
    'mdxERiZXHdIb00GOHU/KC0lPJzY7/f3f/R0MJcRIQkASvuut2ts7p' +
    '+628ZgRknre1b2oWSJJzc95RYx8Mqd3eGoScttHiHOtckNJKSOSFE' +
    'iS4zoWUe5eZFQoko5K11AkfeY73FLWZEE0mI0FrjkgqVCpzIOEIll' +
    'CPPGJ//D3f/9+/VcgGMe/mPlf4bWSvtnwvbdq30U4aeMxIyQhfx51' +
    'KhEk8tSt8mSZcYUxdcNI0gNJIhGskSSSoI+8XEq0Qm4k5UpJHUmfj' +
    'e3iea3m4hxvr5WkI2lLzVHZQw5IeqZ3Coik8on/5x/+4VcfXP1aw3' +
    'cRSEIAkxxXIAltnjJg47FoSPKmWoSk8cn424EkYXjucAcJf8sdQHQ' +
    'k9XkQmdshKzn2kkAk5bhK3UTG5jESSUcgmR2Skkd8k1Aki+C7Kp/7' +
    'lQuf+99/+7f/7ds3fvONpz9q/DFEUyGE5Bu1b/dM7n3z6EvM463DN' +
    '0mpI0npVlY8K0mOK6S8UEcSzzFOTDx5chXpg1tbIWMgySZSR5LWgL' +
    'DvGoSkz9xHQhNprV+NhaQ+KalfS7mG1v1BaSFpo7LgSH7q8Vv492s' +
    'X3yfBSkJ//dFz8F2/3/RTwEhsIpaEPnfyNumdE29ALx+8AZ0dOH6q' +
    'fzQ5kpJKI49BgSTZPoiWw7gztDYkb5zvhojHsanDWEjyS7ZumAfBm' +
    '3Ug6RNFKvtnpZvYSQtJvWW0jmTqhlJHMii9UwQk3z722gv7n4a+ef' +
    'kLrH/5l3+hAlcwSDxCb9e9D8GMQh+c/QwJLwSP33r+6OEN+0Z7D8o' +
    '6ASlHpat0UKlih+SDZOSGsISk41VyElPn8cqxLhIhaZv+0Hnkh9g+' +
    'QhePdpLBBaSRVjIHE5nccVUyrg4klUDShmRyPLND0shm6HRGpGDs4' +
    'HNeHToPG0cwfvvKFyEg+Tc/eGVM33+RQkjoVu1tCI9+/b33WO/dvv' +
    '3hi6PQWxeHh1fvgGxI2lZpBSHp2apObgV7bn+HT58QI5LXz6yBiEd' +
    'IT7e6kWSE6b/S4Oo87t8/DOVsIhM6rp5IKtMf+SOZyjyI0VamjiSi' +
    'wuu7r1wYPPX5p/aTfvLmaaLy//7jP/6PH74Gkb8K3ax55Ttf/CL0B' +
    '9/4+u9/9Sv096+/dA3ixc6DHf1Qbki6rSQheWrPCjeS5OIavdabF9' +
    'dBX35tEHr/5QGGUSlttSFJGzTT0+Cvvv7URuLRmHQlJBUqMy2fc62' +
    'FjIWksU5A6bqTNZKOVZOe8yBBBQPpIgmXFYKJhOf5jeeO/Oj1kz97' +
    '6wz080+fJSp/98//PKZ/Wva7f5qHuJKWhPzJOxegH37rm3/44Xegb' +
    '37+8z947cT3bh3/6OXHSb2tPRChJMPJdJH0KTvnxI6RaIVfW2IHBB' +
    'GSXGoud5NUZkDkPAiXttITYG0BNSE59px75QE6klDs2oCEidbkk5I' +
    'SSduMZKmQlApFMocQklI0T+66BH35mUNgCgKP//rt8wTd1y6+P0bl' +
    'P3X+7v8N/G77WrD21RuHWc+Obvnul79Meurixc9d28u6eWwrW8lUk' +
    'PQspdOtJO3Erb9c4sz82hI7xCM44gVWRhOpIwkTSSJs2UQqSLIkkr' +
    'T1TIyJD08k0+XRiKStN93d7Rr3tiVH0vhMN5JFngeBywoRkhQMUls' +
    'POJ9//v6VP/vcJdZbb33+tx8+C1Q/uH4AASPr3TfeuPXss9Dbl3e/' +
    'dnaIhf/uGt5OikRS4VFSmXD6g6hEIGlrCCafDOdWqQqgrM67L/R/9' +
    'c1tkJz+MC7I0pGkXCv9DROJt2IH+O7TLDxyAU/OEx9pTUrSgHfU7e' +
    'B28WhnQiRtz4y0krGrBXIwlK8feQGC1wrWIEAHgcdffXCVGtPhv7d' +
    'vvwckqXUkjCkE+0iil9Nrn36sn3RmeN3w8H5GUlLpRlLCqyPpswZE' +
    'sZJUtgopxXhGkAlJWR5AiR0QBB7ZcdWtpG4iiVD2WgnJW9c2sAN8n' +
    '1y7iWSl7rX6NO6IHUhSLKk0wlIug/ixh4ZaoNhlQlkj6Q9m6rkd6O' +
    'WDNxBLjvYeBGsIJyEKJ6kdFnTr1tvvvvtVcAqx13pyqBsiJMligkT' +
    'o8W2rIeonkBDJVIoErhzpcnTblvwCyeGNsyHuFPfSlfWfubmZTKTk' +
    'kRcj65OSutdKSCIgxVtB5AAHIenItcYo1/HspZMukkpHZfzYUwdW4' +
    'JgkQdLxqE8smdbUZBZIQpRxRQBI/ufnn9r/g9dO/OTN0xAIvXbtuZ' +
    'MnLwBSugfPIQ2uaSHX98D6EWC4r6+dlQWSMawk9e5wdNvmdND142v' +
    'g3xKSJE7sfOOtHUTljk0LWGz7bEhS/zqe+4CJhLPKDrCywJnkQBJK' +
    '7rUGbUGeCpK4rBmPOewjBQWhSPo8zcajXsBjQzLIa80ISQi+K6iE2' +
    '3n1QC8Eqwej+dkn9kCjo6eHhvb8r/8551vPH4XoTlLL3KbL288oNa' +
    '5UwJMikrGrW2llh24i9fQsPXPLmhnQ9vUzoRvnuz91YxNESB7b2za' +
    'WjrjjypK4yk4iefPiOvZa2Z6yiWQHOAaSUJK5yCAeEyLJA16WCvOZ' +
    '2rdtCVUL4zJVTCSNbPqslEw9rsR3GF69Y82iLq6XU/T+6U9DZBlJ4' +
    'NGIpM6jrXTHmGhNHkjy+kcKJCWSRpAlkhAndsAjBIi47JxTptC3Pz' +
    '0EcWIHnL7+1EZQSV4rIYlH4QDjrShNxIEkpYmMPNrWZ2EsxZuLDOU' +
    'xLSTxw5Ua/tO7F+EY0qXs9tO9CXO8CZFMJb2TEYyMJJXV2ZCEPvX4' +
    'LRalavd279KrzVNHMsakJM1IKl6rzbBS0R0jCbgwYCAQR1QSpHA+W' +
    'XQ/Iwkbiss+BCohyrVCeBVZW/ZaJZI8ViNNJNfUhWZ1cuBRWSnJSO' +
    'LqBN9AJs0QQnKBIo5JyZE0UlmcJcz4Mq8feYEqyW0iGKnOnLR+abf' +
    '+o3JAMtJxJcqMZc9sXvn5CpKU2IFAHKGklNWxiYTAFwWYhB69EIKh' +
    'hLnkt+KYlJKNJAxRkg+SPLr85yJj8Jg8kGRx6SAhiasWOxt0TEqIJ' +
    'B/tIrcUwPchd1TBkCp8SNJrJStptPvGQDJnJG2BZOSWHEH68J2dQB' +
    'JMkVWFJLawBXw/OcBHd7ey5DODkFSoTNE+poUkfgVVWdBViP7m6w9' +
    'Enkb+SMqgQEeSR0sRkKTPpUkNySCL7CM9gXR16DyUHZI7hraS/JGU' +
    'sPh00clN5OVCypgkwdSGIonx5vZaY/OYEEke8HAq2F1ft6KB8mMk/' +
    'GRKc+WGpFLaqiOpt6gqiJVk3GTMKC0jr1amxSNyKVaKSNILGUma6I' +
    '/EzdGsuOCy8RhZfJ66fUyCpPy2+CEcjINH6OLRThbxmAOSxl6RkA+' +
    'SCphBKJH58Hkm2xcHkoSebh/pfgSPz+19ijXUNajzuGWgb3BbP8uI' +
    'pz7zCMlnSiRDTdKEQdJnvWTqPMagQ6nlptFOSPaubILYN+CwmpQRk' +
    'vJY2ajUY0m3oQzlMZJKZQbBhiRsnw1JEtnH67uvkNYsGquN8UTSUS' +
    '/34CBJhToxkHQslkyXxyA6bGlM/BDKPCNk5kklEkhEAE5KF0mf/Kq' +
    'OpI3K2F6rst2A+zkMpjvDAwyNuR1ICST7l/fiJQoRpUWysCQmtJJG' +
    'JHn2PBUSg9CwZVnZIaSa3u3rZ0qXFXEl85gikv5rlqXjStqzZ0jP8' +
    'CTJu/pYSYmkw0qy7yqRVCTjyrMDx4dXG/aWApIQAwXpq7SMSNqoLD' +
    'skZeVqWo6rjqReUJcbkraWjNIAyepEXZQTSI6k/CapIJnKJAjj5oO' +
    'kshW7vlEU53YiSwUubz9zeMO+oiFZQjaDMEyY2zHW8KRCZSgFCpI8' +
    '1B0kshIiqfOYEZIxkqWRJtJ/XoADSTeSN/Zcg071jz6wSCqrjzPN7' +
    'Sjrs2xldamAGUqBEUk3iTwUY8ew8gh4IqlPguhTkyl2VE5rPo4Kcm' +
    'w8GksFbEjqVPogqVBZXlYyHySV3I5j3KaOpNEqKZZIIhk5LJOHsf5' +
    'W0oEkU+kPo37ByWhGm2pc9UpXPb0DGKnmvLe1p+RIlu+MZBCSxl5Y' +
    '7tGbIpI2BIzOoc0syh8eD0k3j5FIGudBdCRtJj7/IhOabSTopEFkc' +
    'Wkr8QhlaiWJyokKo/8CEM/eO6mAGQqCPikJGcewoSFnCJIOZ9XhS9' +
    'vCSQVJ4wWkCCJflCQtJuv67is0/UEa7T2YJ5LlDmDs3E48xzUGmDE' +
    'MkxFJ/ZdinCdBMtI4hiKpZHgKVX6pqLdyMkniyWIYO6c+urZi0tmB' +
    '4w4kIcekpD+SE4/EJLkdpbdAUIoyBpKR49844H1y0Z6Oq79xnKhI7' +
    'q6ZyhqomsJiVFkA0+i7PkQyUv7LJH061IWy6Y+kz/h3IGnb1pYViW' +
    'QMHm1IGivPicciI/mlc5/lnT4gG56IN2/suQYnFnbzwuApZbyliyQ' +
    '0wTCU8rGSnlsPhE7qRSLpOf71AT8sTpkbSeWbJHFWEyJZQCrpANL+' +
    'OwCTRGBSfw/Z5YMyPARmJJK2ScmJhGS8Y+7I7YS2Oo+BpJHKGDi4k' +
    'XRTqXyThMbRTWVBkAwdWoQki9mEuFRAZl/zRDLSC/JRoTiNvSYroe' +
    'PqADOGeXIHkj5Wkr9GWjzqSNp4lKcgT9BiIEm7TEo85YaSpNePvJA' +
    'PkqnAWEI2bZwakQzaoCcVJBU7FTr4lQEPc+PJo4JkQmc1CySL4IDB' +
    'TVUMJUvvM3Dr8E0geXbguHKc9VgyIZIZUVlaNo3p1iTb2KWy2DDG4' +
    'Lch6XPwc0PSvWRyrEi+qPERokWJoR5FyrJzclyBpEJlWkhmh2FBOE' +
    '2ycjlFx1WufIyHJIt+S5kiWUAqafUH80i5HblyGVLWMhOSQ12DqSP' +
    'pc0JpA7gy5dS/bicHx5U/JUb4Jgc85Unc9fk5I+k5L2n85jmv49MF' +
    '0BAhKr4ruJPVOzCUVG5HSVcjkvEkkTTuGO6pcmEziMdMHVf5QZ5U6' +
    'l1b2WtVBnbOVlJvLFAcJGOMNCBJQSKbSJJstkM8stEkJAc7+pNAlL' +
    'WKaUN1HmMsA0mOpMIjN1T3HPm618qOa0GQNLb7MPIYD8lMBxUjKRd' +
    'nXd995VT/KAQTSZYRJMrWysVHsoS0ejqusavpUufRk0pPJEsYSyrh' +
    'ZCiSJcxjSHH2RrGPo70Hx56w6QhLQbJ/eW+ZIllCv7fkk5I2HuXOI' +
    '0mQLG16Jx6SQ0NbCwIjpUq41TnZR4buwPoRPEqZVUjySEhCWdBxfu' +
    '/iCQwppfhsgWTWMyAOHn2o1D1D+glDoiC5UEgam9TJpCu++bZt/SW' +
    'kzyhGknxXjh/3du/Co7xAkkjkhA98Wh+4UtFEIpSQJOXsuEbyqGzR' +
    '5YMkzSNgVAdFW1kg6d83EqLjDx6zto/xBht3cJVLlaGhrkE8SouzZ' +
    'LdzN5JpYThRIVWQZGU9KenDYySVuomMwWPWSDqaYskDTjymiGSKQ4' +
    'u3HpAbfyCQpEep/5WCJNnQfOibeITKKEYPLbOYlPTnMQhJisKGTMv' +
    'oCoWkEkLKq2LJ6XMgyXOOHEjSaAeAuomE+pf3FgfJ8oJUImmbDUlx' +
    'BiSIRzeVykZU8XjMB0ljxY488gMDfVBJiIt0LBXcOJ+jP4Gfc3Xof' +
    'JF5LBqk+km31fDooWVCxzUGj24kIRmOxTM0mSLpk2ItlfnzjPJ0Cw' +
    'ghkNR5lIGkPwuXDizR9QBCahwDRh6NEyL52Ec3lQqPscOujDKuPkW' +
    'tJSTRf2QybrJcZ7CjXz4qfVogyW5tDBgdehDYtI1S/2mRLOJHTyRl' +
    '+VySTEiKSOrlcxJJPqQlITH2gNSRBHEMHT8qqWRgEzKYJ5vd3V2kz' +
    'Zs3SvX2riflyaljuEauDVHmR7LgURcvxUoIY1pIGsvLjd2ecyMxxb' +
    'HKuFFyFdrbvYsTqjqSHEgmR6+nZ41bzBHU1dXB6uhoY7W1tUjJh/h' +
    '9KJY3SiEUyo1N97j1KSFQZi2N5Sup8MiFOqnMF8RG0rb2SunpAR7z' +
    'NIupmw8FSS6fo0cVl5UCyRj0sTFySKfDaM4gI7byTrC2bVu/jxyo5' +
    'uPoRg5gY2jpoDIVAJX/2gZ5Dkg6LhFGJHN2ULPw6NgIXt995cLgKR' +
    'ahpCd/4NNGAuiGi+SwXCwfjuRb8fyvvzw/Ims8fUayw1ZKMBOaQok' +
    'kD/WUa1q0iNjT1ttgJJVLqOgjsoBGJGX9ACdjI2GMZErKjYyc2M1C' +
    'PqhKPEsOJmS0lTyJmRxJ5Z70y8zufVsdSf+Lhu27lTWJHBISkrK9e' +
    'f/yXkJMafGBhxxIGi2gP1ly5sgomZZ0K/KtWD6oGq8kJQdTGd5sKJ' +
    'MYR0YyCxKN39m4yDHyS5ZXBjXG3ASFihJJfkjZr4e2YHZ7qrp9lEP' +
    'dByhl9XdaUtYq6hUdNlTdlrQIYEJBjmuQB1hCJCckiT65F7aSXLoj' +
    'kZQtBUZ7D+7t3hXJoxLW+Zu5vcP7WcqGR0ZlxKmCqr8lLTmYZSEfJ' +
    'CcMifEmI8hKIpaEDm/YB/FDMpaEKBnrhtHorCqVY3rVioQxiMq0ZO' +
    'M0nhl9CGYQlUYYJ7x3Gokkz0tCCpLccoe6f9A8iJtHBclQGEtCZSS' +
    'eMczoQzB92JQw5lmAmkOiJoZoBoSWXFF/D44WYRBlgevVofPk1kbC' +
    'yDw61jvsHzlolE6lnJizLUrNgc0knNIxeQhmQVZCFZNEBUm5yTIjC' +
    'T9WPkqZHx8e5XpAfxgdkNqozFMpRqMPwXxIYjwklY3R/Y2jXDU/ri' +
    'Y/EEapIlCZnE1FD8F8SKLOoyzOAY9wXCF69EvnPsv9JIOMI6SUTye' +
    'BkWUsaHyI50MYyxdARVcPt9iQxEMQta3zgRHSbaKS1j6074iuJFQW' +
    'QSnGng8mjA9JDLKScFltPNocVL2hUySVNpUFlekmhR4QK/kg+6X+S' +
    'NJ6SW4RCSnTHLIaR3FQ2Ytjahx1I0FU2lR8KmOD+SCElg9hdEjWkz' +
    'OSe7t3hUaLui1zF3SlAmZBIE1xDoXaok74fOxDGB2SVeVA8urQebd' +
    '3qndtcsR9OVNZQkjTnejE0U6lMG/CIFnuAFJmxvPJvN05HFdbobit' +
    'i5pPNqa0VOYGaeoVCJLKicdmcSxjDjDGeNXnTt62uab6mKGYUZbWJ' +
    'KQyfzAzgjRdKulimGmzkTJ1XCc2jJDNNQ2tRy1fKtOCNPWCPboq5t' +
    'lV7wGxkiWME4NgdK9gUixjDDDLiMrYkNq4CyrK1Rdi59/xslBIToy' +
    'kjVuh6/QTwuhPZZHB9IE0EknPsnm9N0LJu9Hmj+SEyaC65XZN9RIv' +
    'er4Pkml5sOVCqPHb+mAYCmYQlTm0ic4ByQcHxqDWNDIn7+m1pmgry' +
    '4JQ4zeMXSvrAJNPRDF7uaeFZBlNZ8RO3ehuqqeUTWT0LGsSJBNSWS' +
    'hCU0TSQag8HWWx4UIQkuUytZGcxFRgVLaoSEhiFlSWnNDsqJRgpk5' +
    'ladksrwKAUsHoaM8oMxgJSQxyAsuF0OyQlGBmRGVJIC2XUpxUYAzi' +
    '0bhESN8XWMkrxlvqmDxMKzKhOVCpODBlvZtYWcCY+uyGj2vqgNFmJ' +
    'WNQmVEipYCEZoekcbl0zlsBFhbJglTdJIfRk0e5Ncy4TZRygTE3Qt' +
    'OCNBUqHXtCOZAsIzCLQyJnUNMiMTaPeh2dY5NuW8Pb/GHMmtAUv09' +
    'yDI1UKieoIHvp5oxkkWEkKQs3IqkM4lHv1yHxLC2MWRCaM5WhlbSx' +
    'qSwUpBNs0l+XsTtcZINud0pHlqC492soDoxpEZrW56aFYWTlXtE2v' +
    'I5kc4IB6ECSdqaI3L3CHULqSEZup1IWhalBkKb1WemS6CimLeBO9A' +
    '4wJyqJNiT1Ncg+PDocV2WD0QlQPZ7DT8CByq2PASGfyljKh80JDKM' +
    'DSX0rVYezaoORr/ChSBYf0uy+s89ucUWmMgcwy2IpcdZI+kSRbjCT' +
    'U1k0TrP4hrnxaOsvne7QmqgtpwpiJT3BtK0wiuG+lgWkaX0lz91U4' +
    '8lz1Qk9OfUB9pDKrK1koQxlEThN/gXS4jHosDCJIzv6FDAzGmkPYU' +
    'yIpI3K2BFlCanMGtLYn+i/23hs9HxMJKhUPiK78VZAHksSMDoOjgN' +
    'J21akPmuyskv1FJZT9/vrFRGRPGb3YxUkceL27eqH8qEyIZsTzywq' +
    'P9DtuEbWDyQxlIUCMwdzaVzvee7ssax/mn7MjRXp+VMZj80JDKOCp' +
    'NFlDaq180nyKHkehyYklfnTp0tPt/KFFB4sdHBkgN+wtINzAiPp+I' +
    'F6ZlWRP4mehtKfyvxRLfh6kyTHTUFSSp41QpKUM5WebD44VjIJkrZ' +
    'eygkNZdaoGl+VHZVBXzWLQ+SDJNwh8mBJ9JJCGZEHKpYMSrG6kdTB' +
    'jAwqC6KMkrGRPObz64x5JAVJhcoj+7aVhEobmxN17sMfSc+JDweJR' +
    'kOZka1MRUcOmBUDRh87nuI3P3f2mFuRSPKJlkiSCmJHJrbj6qgHsK' +
    '2LjIeksWNwYZF0UOlDqIIbsZA6g5H06bJNu9ia9DKSowd2FGcMPyB' +
    'RpINH92rlGCRmHVT6jOS0qFQI1blLAmMM6OIhKU+WRHLbtv6DIwPg' +
    'sThIPiCJ1kgeU0RS95pSH3ixlZBKI00520F/JG17HyhIQiX3Wic8j' +
    'CQfDB3dWWMbR4VKZWwUB09SbBhLCOCFCyeNcmR3HUg+5DG3KVd/El' +
    'NBMl7BWBGoHD1slhHGnK2hjb60kIQHVahAcqLCaEMyqId5EssYu4A' +
    'zue1Il0pP7zRT2+cvxzSuDcmBgb6HgWRu5btcVR7UNDIV45i8oBoj' +
    'KvkQZcWg0t87LTmJRh4dSMqkwebNGx8imds6FyAZo51ycuMYD8nIk' +
    'Z8ioTZOGcbi+KI2Xbp0WpEbSWVVCIlyO8cP73wIWtYrQHvWtEPuYr' +
    'mEVCYnMeFMR+qE2mxNDBjT/Uo6fUa5v7MRSXit4PEhktnB2L9xtVS' +
    'MknJyXLMzjkWuHIhNYhZXBk8MPXk0IknD40FDMs9GXoThji3rWT59' +
    'IEOpDCWxVJikMmmYJ4mhDCqK/O0POJJ5ksjqW7+StGvbRloTx0j6Y' +
    'KhvvhPPOJacwbRKCBLCmBCxSD1x5SzL50fpSFIg+RDGdLWidRGJ40' +
    'cSLYiT1Tv+MBqp9DeOZYRhWmmZPOkzKhRJXgwCPSQxLXW1t7C6u9o' +
    'UwWsFlZFV5bbCgHhITjwGiw+jG0nj2hA6uXShfghjKpLoScvIjisr' +
    'RgmrnJH0LJBLBcn8p/ZyINETqITy+SFK/TllFTZv3viQxLRmN3QGO' +
    'cs6uGktxBlXiWQkhnptQKbGsQjT62klYfKhzyif64xSM0DjYcIgWQ' +
    'QY5UwHMUiS6Vaal1QMZWgJa7rGsRwZdMNYEgavXTsvFVr7yjOSD2F' +
    'MnkqV1lCZ79i1bSOL0q2UcU1YVe6gMh+bmCJHGU1MBOGTumKUo3Np' +
    '68RYKZw/jzaDaGQQ4tYNnHENrSpX5iJjG8c8bWKSFErqbmrWGCZBk' +
    'k49TX+UY2ONUplFYymOYhYVAIlBFq2AM1bveJIo5U9ibqshsk51xv' +
    'BR8yQxdSTLCMxS8SgNos042nikwn4oCElbbYAbyaxnGUrIoCeSQQQ' +
    '99dTFhIpn7mUgSVmFcmzYWEL7KK2hLumm6paRdPzwTr2gLvZaDxuS' +
    'xXdKjShljWFy7jwZ9HfI77Y0uXOWI5EsOJv58yjtoE1KB04W20elx' +
    'tVz7wBH7Vwqbmo+HmmSZKbny7OG0f3TYiMpe9OV9V4ApeJRWkNdbv' +
    'tIXq6jms5BYiSSRSOxJFMPsTG8fv2yrtgXEP91InROicf+nuVQuW9' +
    'rlQOPbgYdSLJxJPvIgWff+pU2KkOrymNQmS6JRZgB9EfSyF0qGMZj' +
    'k7xWPvuDvR1QEioLAmamPEpf1FOKcZT2keVpKH02Ic3fLOZAWbqWM' +
    'V0GbZ8eg0qljyshSSqv7ZJz81elyQuS0T4al0zqBa4xFnrkk6vJx7' +
    'qFKp5TmvrXiGc6FSSHNndB6YKZBZ6lyq9KYxdDZB+5rlU6twhI5fo' +
    'svWgndIfuwpKYwwxgkGXM4fv4I6k03hneupqQVJTdCC+v+Q4uyzEm' +
    'Tj3FPEq3VlnFHISko1NHQUxhPhPxoQ5qdvYXCmXThuTe7d0QwGTlA' +
    '2YQpyVEUtavgiwHd2QNdRGPANno2SqbSLqp9GxglRuJpfI/U3RQ05' +
    'oWSWI35SkeHt5OSCpUSpW2aK3kUtZ3UDBoo8/Go6zhkdbWjWTCtR5' +
    'ZwFhYBmM7qOmWDUSyqR9SZbtJIHlg53opJlSB9IHCcNmS+Sy5Hlma' +
    'S53NU0eHFdFz1nQsInEJgV7mykgai3aSNHgsIIwpjn9H+jTep/tMj' +
    'kjFAFNHkoUBcHh4A8sIJhdUPzg8crccRQymXmSuwwjhfjwHtnX9qq' +
    'UsYlNOXOq7n/sj6b/qKn8AU7c+2TmooRimyKayeBlnf3RPLyTBJMm' +
    'JM7ILDwiPsmGOUdKPVWYYzz6+h8W09na3GkWEwmJmgaRtOjJTGPMh' +
    'LkneJnUMI3l0s6n0AKFo5fj+TSRiU1aLKVTSiG1b0sxasmDmBONRb' +
    '1rlkEz7KDXnfAzHjOmdyihdzKYbSf/lV55FAimSWFoG03VQbzzzRJ' +
    'BSYVPp+7F///CpQ/0QeJQzZXJ0kXvGoRDU2TafRWBOyDSOv4xgSiT' +
    'lbK+UxFNvHalTmXwVpMz2lGrRRIoWKq2CgVAYHTwGsakspaRzLefI' +
    'FPuou1gyFFLwnAA8ymXIeh85H+lLmMeK5UwTvlKEp46ksbo14apkf' +
    'U6ktLnQ3GB0vFUMHtNi04ik6qZaruE+eJY1j7bFyHrTAB9xvdxYm1' +
    'bLvJKi7JD0KRsoCIPJPerQLyPheu65a5FKCKa7c93d0tZ7Y+/uLk7' +
    'jL92hbJYpj+7FyGzv3DL2vJLTSW7p4eRY5i2KynRry7PjriQ5pSCb' +
    '6MNjKJs+FQIKkuxxybDI5ll54ll2PPosRrY1lzP21aGpRloDokz4O' +
    'hSJpP9aj4SlrUEMlqrELt4lIlMe45W5yhNx8OAIho3kkTMV7qgnks' +
    '0y4tG92tHdxkqvdKVqAf6v7SX6fBPkj6SbyglZXp6K1fZh8PnnnzJ' +
    'Kf2YqNa7KXlqEJE1k68lDz6SEDc+y4NFnXVXQcg8ikf8bRLQRSShy' +
    'UWQWvXGKZvviYejIyYQimaQewF1wLk8lj5bYVLrxLDKMi+bPYcnCO' +
    'SlZtOPYakeWEDB0MaxtEJKSylR4LAv0QmNYHx4jAUxeDKCDadtxUo' +
    '4NmfaXmUPb2hBPNotfvGrkTkHPPSnpU1Fga6os2bQhaas5T4hhuaC' +
    'XSrToaRPTrQHw4dGBpCeVQYSmuw46hw3m3Ptb+cinrkB+orSeoUi6' +
    'qcyh2Wl23IVOnbjnDX14zKIsJ4bjqodCRiQdVPoTWtgSHfekf5CSM' +
    '2vb+9VznXLWqzwKW8PjyaPRR82uUs7TVjp4JNnG24RB0sZd5LRjkO' +
    'IhrGyh5UNlFp2HC4teinmbHIpXQ2NJmRhMi0q3ClilY9vTyj1BmUp' +
    'dgW3bAtuudo41IMXpAZ4DcfFmFf1hzNpx1ZsqSyQd0q0G7vEvRLF1' +
    'JyhaYUBQR1ZdKSIsLwsgUd9FK3JNVsnbDucGoCeSnj5q1ki6eeQO5' +
    '5DejMLnIm/rPOCpQhUGxOjIqigh0Q7Glc1BqN7VZxeeVBoOl9zqJb' +
    'eM8UhMHclIHhlJXvOukBhJJe73rxAzYlv82oB4SoI2v4mCpNKEx7P' +
    'gPCGJRUPPs9rNP3WTKZKeEx+STUbSx7nSfVf6w1gPpjQJcaiESCbs' +
    'xZq1pMXUqQxaAJJuaWjWDIaWmKboo6aIZFCLSLaVdB79Qx5jFtGGp' +
    'I9KSyUHy0nasWYnxa/Wd9FyI6nPTmZdBpM/fRmZxdI6rpFZCH3pn0' +
    'SS/qaWILo8wcwCt+GNs9e01rs10LeGnfbhbb0dy5e0ty2Getet1Nl' +
    'cs7IVT4BWrlj62P5tnv0hfdDzsZLk0yrhZBCPbiqzQy8t6HxKT1OH' +
    'MQfHVZ4dnDgFSWkNgZus/DRqfvPMBfNmQ33rV3Z3Ll7ZNh/CHzqba' +
    '9oXdbTOg/CH/C9pRctcIzKHt86NjSRe/kjUrbqqAuP8/Il9EPBZvG' +
    'AOP7Ru9QpJx8J5s/mhnjXtetvkJOhx+1ZF5rq78Q2WfRaA6DFLRqY' +
    'wN+JygzELx9XBIyNpS+Asb1n4iMetZfE8IFldWUH/baqv5oZaLNxJ' +
    'jzbWVwFJ/Bv9tvOqklhJiWR1xaO66KEZTfWEJARbuWRhs4Ie0Jg/d' +
    '5aOahBuNujcikSSlmhFWkZbMiHdgrSSAJg1jLGRjMcjIemeGutcsX' +
    'Ta1CkkyQv+O3XKZKh16XzyYGFx6KHpDdXUUMuIJAHL/8WtqmIKi3l' +
    'JyKNEEu9m2IRuczNT2bp0wZUzhyACE1cY/m4b13ZK09nd1eazRCut' +
    '3Kx18YhpJwLdRHrWDBTK4fRZDJVzgjcGkqE8SgXVq9TV3jVt+ONu8' +
    '0MhBUlFuFM+yv+tr6vmkZZuLOlGctu6mQza5g2rrp0/QiIq62oqda' +
    's9d3YDN/tiNjOdELEhOQa+6FYnq9AdhtJRMJAijxnhVioYQ5EMLZ/' +
    'TDWVQ7UpdbfU9JKvpHlmcyY7r9Maas0cGFDXU1dCj+AOjVPkvKSMk' +
    'dcd18qTfg+ih2uppsoUXq6FunGu9oLlJPkpl4VyGFK9HVmR1esSyS' +
    'hOSSvG5wzjqwyYL+tIt7MmZxFAkk/MIOZbW6oJF000bF2yzlcStsm' +
    'KqIn6osb4Wwwn/6k+W1PSvmp4iko4b0DMiCVVOu+urz2isUR6iruZ' +
    'c8JBRRXrkSme944dxVYgNTOMEpT90meJWBBJzc1yNnQT0867LaNog' +
    'xUq6b40NtaMHduBfx3OS86g4rogcWe3L5kLzm5v44/C37K3Hqqy4i' +
    '2TzrAblIUKSqx2CKlf9q9AdhT0EprEPj225VhCYpcKtmFQG9WUN4l' +
    'HZMiY0AagjSeOEvLiqymkcaW5c1wnJCz6bRfxx/PDOpntI4o+dgxu' +
    'gvp4uQibJxIdPLElMgcrJkx+99x2qYyNJVtJz2Uho8bmbx0hDqS/X' +
    '8qk/LzKS+dtHHySDeJR7xCg8xqjvko6rUh2NIcpWsramktsIsyTO0' +
    'kpOb6yj74M3ySeWnDL5ru7meyun2jbNwUP0nHlzGpWHaFtJwEhWMq' +
    '11IkpQ79k7y2cv5iATWTQkS0VikONqg5Gn2CAHjzjvkfPaes6QkaT' +
    '0jrL4l2NJ/KFnLRhY/KF4uVMmT9IFdubPrMghllzZNl9vdOmJJOV2' +
    'gGTCtSFBtehMpTxZDipt20oW33ctOYluJG08Xjp1gGXjUQGTTJh+W' +
    'uXlVx9X47C6A51SX1dTfXfiAH/oiQsFWJkLMt5m1E9JaCU3dDTiTX' +
    'RVV01lLZjbZNvECsIT6MssWTBTeUgieXh4Q4zpD5+mlI7n691ifZB' +
    '0rKMspu9aWCQljzSpTfLkUbGPLAeDxvYXzNHsGY36Yvzae3N5c2Y2' +
    '6UkMvASoQvRa/i/eU1djfU2GbQQsu1bpqqmaBrEZVZCkg0OxpGedg' +
    'H+MoBPt08PZZ8dJ9zrK4viuxTGROpKSwRg8SjBl6kAp3HLsL8MCdF' +
    'BXe4uxrqCutgpavbI1NI9h20ojIyRtPS11rW5faHtIQdJRWedZdxd' +
    'pZCM7q9MlN2gH2AL6rp6MpN4+PUL3KkmgUB4dUSTOmqzS4UDGSJ+x' +
    'qkfBTQmIerrb08pvkHJAMokISa4W8Ck19/Fvg+YlIVn6zuc6aEdmx' +
    '1LKgpCYN4B2Hm1sOni0mUhjUxd9PXJkDjBhQ4zQdEcmi7YSd7wkyZ' +
    '3FfFhTds4NnQRRZyQ1r1UiqZjLyGXOpfJdiwhgqjzarKRyonFtd89' +
    'Q+7TKT7H9hSPyKhWSPnhSF1b6O7s+WsqxcseSSl7dBqZP54HcqCwW' +
    'gMl4dEeRfFJ0Huny7qYylU1qIoMm9+42pNSRdDfNC2Jz7DD2dtAq7' +
    '+TdtGyOhKtOQIsljfJxX22bvaYLYKbbaRUqhPT0V4lHPVo0lnjl2f' +
    'vCtiQfwyk7JJOzaSsRD5348Jd+UoyxZCiVjs4DaQGY2z53+ZhI3Tj' +
    '6mEgFMeLRmLeRVMonOGBJItuwsV1Y0kXy8PCGoGazDkkks2t2Z1Rk' +
    'LBkJZmRXkCw2Vi4bK+nhsoaaSE8epYOkm0u6GkeeaH/ZoHModSupt' +
    'M5LyKacvU3L/PmHAJGxpPEU+IApt2BOBcByAjM8fow0kQcPjshJDR' +
    'oz7ipKluLQ8kmPQZOnHOMHwyxrJN14+iDJU0il6i3pzyNfFYOoTLg' +
    'Fc/mB6RFCBpnII0f26TzGSKIyv3S6U8dNcudQFkgGUelmk6p580dS' +
    'n/o8c2BdqKPiD+YDhGTaJpKW6sgSUx8e9TMuC2+C/KIg3ByN3fj6n' +
    'xGSPi2gPdmMtJJZJMTGGnWa7o8RNfi0mnxQqEzbXyUelSYSPhUg+p' +
    'm1lcKGZnJCWykqljqLjKtPq+cgn1b6JPm0XOb+urYnhEbxD6kk2Vb' +
    '6S0nXwlZUTMX/vMBcIunDoBElmYnFa9uWNLO42UXCzqU+5QRZlAow' +
    'fT4toD0JJSpl6J0PkhA8H+M1MCynfecKP2GCysg94j0VSqWyRE5BU' +
    'knm+PBoXDCC13JbNojW1NOaQQWxdPdIlSosknrBfBZzRsZNzTg2oW' +
    'uXz3yTm8fiUBlbaZGYFpXMY2RtauQpk7kduL6yDRRIlGuUjEna5Mq' +
    '6+Ny2XYInnsYSC/pvzkjKOitHCJ86mBOeRBuVtooLh62MLBSXLqLt' +
    'jEgkwbjsOSN5pGVK9BFy42D/RhY+ZZ+ZIimbP0cSalt0lj+VRiR1M' +
    'P3zPMZK6RIGlUUgMRUqueONf7MIdmVlBkkiiZPO3S1siweZSmMTp4' +
    'TrRHJD0oGnT1cr+vm4M3lBhZtHpdpKD9I9J6F8wCwglXmS6EOlLcN' +
    'DXitVsbIc9tEdWuLJctTpDMrSa8o6yvofZX10wnUiJUTSZ7GG0eUO' +
    'nZkNkgPJyLoOB5W2VUW4RBckqCw5if5USpfV1kY7CE+JJKQsf7BNm' +
    'isLMGMsDDEq61hS7pJAPEYabgVJDrS72lv4/rTqKIxIyuWujsSs50' +
    'cnAXMCm8XkGR7jqmQWLcgiReKpIGljUJ+qU6xGklmS/JF022u9GFj' +
    'CyOruauNg2Wc1awxaFSQjap+cn+sJJkc0eVJZchJtSHrGkjQMIrdL' +
    'Vkwn8DSyKQ0Bj0OJnnFegNw2/gJsduPV7bCyRvLy8e2OPgA2y2hsx' +
    'cxdlyOpTEKrgqRCpTEsdXxcJJV6sUqm5XYFZNBtH41UMpKRKUFPPP' +
    'mt5JikESsZlBME8oJAr9VXEsWo9slqP/R7PNIWQrYtHY3H0wEji4r' +
    '86WD6VGH5yL1mJ9LdffpUv+PTY4CZblBZWJvoCaYxkHRf1YPwlN6X' +
    '5PE+X9pMgfIpxtdG1mHmUHMukWSX1cdHxSXL1hRdiqmUm3r41Enae' +
    'KGvwY4xFWwoEQolex0+MF9qHGD6OLFZUFkcGIN4dFDJPDrGlQ+eis' +
    'XkqNPAI6dn7+Un6RPlu9HL9TkR/xppUnbdXGV+1X24PGFU1NXeIqc' +
    'OHWt8jLTiK0mzqwettk6bOkfk/8sfiCuwjc0kYJYjiaEM+jiuQFKW' +
    'BPhHQ267qWRrFTClIcP5UqoFMIYxIPmt+ENtaDsu7/kgqSxG4+Mzt' +
    'urK0gg9BpU+q/BsH2Fj09jhU+JDR1gOA3m6k4N5/3riR2VZ20RPKo' +
    '2FOo4t7/3BVDb1MDqxPHktra3kUUphU+ZwrJPXOSIJySZFjo0JIsU' +
    'oIQSQs0LGtXhywjcSSZ1NeeL4CBMvfNnU/XCpp05sghQ2g8xlJJWF' +
    'IjELHmUsaaugc0/Eh0aabpPHSOo8uptSKsnV+/4qn/d8kaS9Mm1FS' +
    'vHwlM0A8Rs/efEoydZ03Z9KJW7VCxoVE2mrIk4LTGKTqVR2NS1rBv' +
    '29Vv3wBoFpzGPYNiQ1gkls0ktwvw+PxtbBRjAzdVwhfUbSf7uQIGC' +
    'ls0G/kQ6Oz1YI/oTqVMoo0lFjLB/SwYxBJTSRbKIPj0yl7bpnrDmP' +
    'MfsWuWyKJ8iIR9vTPHt6K2BmyqMRSVsXZU8qV7cvXDRvhtSCuU2k+' +
    'c0zSW0tC/jvlsXzqOiiZdFsaOmCWRDVK+pU9qxqmTenkUVg4iPknY' +
    'vmz2HhzZcvW7hsyXyp9tZFtFUE/sY3YSlPW985j7R21fIdAz0KmKs' +
    '7W1lrVrbZ/FipdatXSPH9xMvGjWu7u7sc2r59i4IYP3TkyD4HifTO' +
    'a1Z3Qrt2Dip80f0OHTo4Iok7duzQqlUdDuGwL1nYrGu76D63pXcNH' +
    'WScHV18RhQw8RBOKGR8f0ie+g1rOiil40+irV5UxpglQXLv9u7QnU' +
    'EYnL61rVOnTHrE+zZl8qS1XctxlIDktKmT+X6gZ/Rmwbt47aPKDpg' +
    '+t4ppU2l9Jc64/6tqKqecOLxLWkzebptu7a2LpcXUeWxdOu7jaqoq' +
    'HY/abv39vZK16uqqu3sjVlcpD0nNmNHE7wDEJI8zpjdFfmhVVeXIy' +
    'A5JZV9fzyOBNxwfHvYb13VOmzrF51X1ddXSYtbVVvt/Ym1NpbKjQS' +
    'iJRvueaSDJujA6CEkkQ3cGYU1vqAniEWeKfXsjkgqVEkmwr+yAGc1' +
    'jxdSBvm76mbjkBg2qmY1Vl45uHNMdKhUkcRtbZm7xY3vXrVQZF0h6' +
    '8ki3rZvW8gvxJuP27V2x1JjBnjm9gZ8jrbO8332rrqo4sHuL/EUDf' +
    'Wti8EizafJER94a6mp4ZAYhidss03aTkST6rJrME0kuGoyxGQEcTn' +
    'lAFjQ3kRfKYld2zqwmCA5kd1cbIzl1yv0zBdtntMJrVy6RSNKdEsn' +
    'GuipyktmJhXe0YN5sElxQDgra2xbzqyorpuK/UuxEgWJ+Wuey2Xep' +
    'PLpR3663urLi6P7tCDCVKcvH9m0zPLmqgh7tXH7/Fy2YOwvfUBF5u' +
    'ZK+nVs3GJHEbeG82bhfyWZjZOpISh7BsuJUs/gj8MfJx4bl9DGcef' +
    '6S8lfgtnhhMzufcqe5gU3dbB8BJlxNckQ5WODDvnTR3PvntL6WBif' +
    'wlLgpgQaEt8IRkN8EX8yxC14oidktyzIiyWkQrhUM6nkOiOShAIDu' +
    'OFQuASAqJZKb17cZjTWsp45kTdV9gwXelbSSHkpQDrZDjKLGhlpbj' +
    'bFi4Hq6O84f7oGqKw2u17zmmZz2YSSNxoiRlI9ibNtqmYyWTkeSxu' +
    'rxwzttSK5f00538nbhuNHMlNHCyo84NLKV77/vDNy5QCH6kN8Broh' +
    'xagMuKz8HbHKiW9+MCUNCXjDpXEgkKdI05oJwHRafMrl/wyq3fXRs' +
    'WpfbSklPJEO7udbV3LcFMxprdEvqoNKIpE6lRHLalEn0tgqSep5Wp' +
    'xKDFqaBX9XUUGtbBbBjS09lxTQeG/Df6EBJJKUTK1M9UIewxTOa6i' +
    'WS9AR5pxFJh/NpRHLMolVX7h/uD0XS2ChSfgT5rnTNYW8BAj6rO8d' +
    'dkIGeccJRR1LOQEkwxyM5jY45zCXfCUtqQ0ZebKc31vmbRc8dbXJA' +
    'Erp8fLuOpINKI6EwlDJMwN/3NWUSa+o9dbbOl1RKJCumTWaNex/5/' +
    'veQrK2ukKbTosnQ/Lmz+FK5qqNFnrjd23uhnYMbFIFWefFnVJlT3I' +
    'b6WqsqJkvHknDb1r9O8ji8rdeNJHDWYfREsq1FDY3xG2nyVyK5obs' +
    'D97iRlN9Butw4PgBQ1k3x3JOOJCUqFSolkhXTpihEyOLwvp4umZHT' +
    'kYRni9OhC24MDySMlq193Y6JGDePxpXLGPClRTIUz47Wef7RN0jpW' +
    '9vKk5VTJk8KCt5xwOlSIJF03GaLYB+nBnFH0MfBqsoSSmkZR7as2N' +
    'qzVABeDzty4vAuRJeS0z1DmxQkFY+UY0lHTMdI6ljhCiDvIVPigyT' +
    'HkrgmsGh+Z/Kk37ufpVk211angYfk5wIoYxHdeNCmGNHgLJBEkt5K' +
    'Iulz617Z5jMxGrStWz48MpL0oUm6oEMzm2oN1k1YyWlilgQ+59jUi' +
    'YYkLnR4lbSVLB1J6TArH8R2efb0ujFvVviuoUjiG8p5SYkkjCkgXb' +
    '54hryGI67k/2JsA1KccXcs6XlzOJ/4V6Fy0YI5xvSOzel1JU7HIyl' +
    'rNla2jUsaI7Q0lrb6IEkyIllfVx1yxZ5CxtoHSf89pHJDErIh6aAy' +
    'dBsRTtFIKhc0NxGVEkmarMQlTnlzxJhuJFsWzY6YPL2HpEwCECMGV' +
    'Y6zv5t7VvFaAIkkPDriVHq50vYRfYjFskNydP92clOvnDkoGVRuHK' +
    '7qSeAgJCWPynwxnz6dSjiWNiQVayVjScBFtTQSScT1dzRNkQx/8B+' +
    'y1243NWgHt5Ijqfd09QfTMXUiXU0OCeXBZCSZStKWDfLiOZk+qL62' +
    'UiLps3O0gmRdbTVOk3GNmDIBhxcSlZJWeKSE5L7hzcp8Jc8dKEjyv' +
    'KREcuG82eypgjspSV9kisYx1zl7Rh2FgdIjndFYg/tZzbMaWJMnP3' +
    'rfv21boK/0oQSaEUmiUo788UhOdWRRFCTJxsnf29ayQOeFynWaZ0+' +
    'X4MOfd2dv/LdTxAgsCJK2TstGKmEEWxfPYVGZnBRO9LjT17mYMJGm' +
    'k8+pQmUkknCbjR8qq/XWdC7TkKzidJ+edTTOU0grM5YYv9czRHpcc' +
    'g7RB0lmTVek83loZKtSLb9hbYcnkq1L5tiCxClOJDmnbUNSoXJooI' +
    'fneYGkrGZUtHhhs6zh0at3aBJEQYYrz2V1kAxsg3jU0++55XZYDiQ' +
    '9tydY07k4yBeS05dGJJlK+ix4nhJJ+tCG2oCwaEZTPYWuNiRZvFwl' +
    'chKBJuz4xLUumd9QVwMhosTxfGxXFxGEp8VA0nZZAHTS1Ue4qqxXw' +
    'qHrXL5EsdpzZjURa9L86Xkbhk5B0ramQJZwcPGVkUp8MVl9Ebt6Z8' +
    'nCZq4Mv7tcQiywgnF0IBm547CtI1bOPDo2JtA7LRvZVM5LNB335i5' +
    'JbiSJyoRIYmDziF0gyjwqp02x9WZ5+vLjs2feR3Lj2k7cA0nHdceW' +
    'Hj5rtquximR1pcP8kVWVa2ekUcY3p5+gu/r6Qetd1ykTlXNnT7cha' +
    'VyBLpGEKVSa/BurqhhJnFN9KSIE99WTSsmjUr2zbMl8vBU+hRGTe1' +
    'ZKJHnLGB8Y3bt3FQRJW/9zhcf9O9ataJkLLV/abJTuzSoRH8854uK' +
    '/YU2HsUKYP4VEH921fKHtg6SWLJwrjYhEsqGuitw5Y7ukle1L29sW' +
    '0/QE7ldqXCsrpu4c3EBdRhVD093VxsIL4cTKeY27rAm0Ybh5P2tF+' +
    'PK8xmF1xzKlBBGHDujZqlPwnnLdDb6MRBLQrW5fZAsSeRUP1Le2Ve' +
    'dRr6rCpXXL+hV8Wo2tqLZvWW9cA6JIAUciSct56DtQgx06UISe9IH' +
    '37twUmUf12UoPI63kSPrsShDk1jqysnzNhyHr6e7gwle9DiqV7b0g' +
    'CmkrK6Ysnj9DosS9thQ8x+0pfK9UAIB0ts7Tp865nQJLFkV0tbcQj' +
    '/iZZP4a62sYNP+VRBQxNc+ePrCp2z0VrrcyJvM3vbFmbecSY3io1i' +
    'Va1uJJJHFl4CutPL/uBnGesw9cKgDfu7939d18Dn8Ty+4wntlUN4y' +
    'Uu8s5t6MjaduVwEFoPFh4tOjD0laaGPqh+jjH2OMVl0oYJXctlKOI' +
    'TxA9VF01ddG8Gcp+asqolkjKNmvS/M2e0bi8ZaH/6iE5qu9cvto9i' +
    '8EUKutrK9tb5sbA0DjBBCRxidva26HzKPdZC0JSB4cy0vIe/gLycP' +
    'nsL2CLFh2bIZaKR70BCEvfpMDfbtqojFwebhuZsffdG9sl1tSjwNY' +
    'KT+7zS9J3GpWWUb65EUnZiYh3NQpam+CTPNSlt/0PNYjGfXBsPf/1' +
    '9uMOKj336dDFM1zyeDpalPuQmH+jyFSQPHtkIKHdjNxek3vAOkyGz' +
    '2c5eLT1D5FIgjvj7tvSTVX2N3QjGdQEwxM6zwGsxKcKlf420cGj7d' +
    'orT0dsKiVE9G5jIcl4x5WqJR2Nyn32Bdb7umCAlRZJhUoJIyPpSaV' +
    'OjcM94854JIVK4wB2f5Zid9y9fWxdfaRZNHqqbByV95TxI3utQU2i' +
    '3MM1xm7y6kSJhzV070tl41G5MNo8AXnB8f1p46/AupUk+W+MGLkXM' +
    'IZ0CXM7QUhCNm/WRqi7nYLSNUtSaWtA56BSf3+fhngkmx/r3vnXsf' +
    'qMfo5tNMamL3SfXD2Xm8QmGnmMhJGurvJCx0hGX1XunFnJPvmueuu' +
    '5oB0V3btyYwyXMLdjbMvjQNKfSneUNOZSmpL/LKUfsvImjm0xbdsR' +
    'RrJpRNKWnDS+oY6kLb/hoC/U0YqUfmzdzVuCfNRIGCEJI8vYb1yHU' +
    'eeRkTSmINxgukm822H7zqguAo86khJDqQujgzZyiZHInd+VWMCfSm' +
    'luJJX6B/l0E1JsnNGJNVpG2xsqSNqiQiOAodfzIDmQdDSO8I8ZjS4' +
    'QTpm+hYSUcR+Bu/GgcH4UJDla55+jREPjOllpW7M59hIdm4C+N4wL' +
    'gqRCpYKhIpvdNKYp1PjOkm41UmlrpctUKp+F8+JemeIA0zaBrlvGS' +
    'CTxbW1m0SeuCd1izC39wHrunRrJYzwYXVSKK60yta0cYT7OOpjjOl' +
    'nZAdRFYzg0t/PIIx97qId6qKLo/wP/YD7t');
end;

procedure Form;
begin
  LoadBitmaps;
  SafeInitForm;
  SafeShowFormModal;
  Freeform(frmDesign);
  Freebitmap(Mybitmap);
end;

procedure Loop;
begin
  Wait(50);
  DeclarePlayers;
  if (Players[0].Name = '') or (Players[0].Pass = '') then TerminateScript;
  Wait(75);
  SetupSRL;
  ScriptId := '928';
  SRLId := SRLIdent;
  SRLPassword := SRLPassw0rd;
  Wait(50 + random(100));
  SetUp;
  Wait(50 + random(100));
  Playersetup;
  repeat
    Bank;
    Wait(50 + random(100));
    GetEssence;
    Wait(50 + random(100));
    LeaveVarrock;
    Wait(50 + random(100));
    GoToAlter;
    Wait(50 + random(100));
    ClickAlter;
    Wait(50 + random(100));
    CraftRunes;
    Wait(50 + random(100));
    FindandClickPortal;
    Wait(50 + random(100));
    WalktoBank;
    Wait(50 + random(100));
  until (Loads = StrToInt(LoadsToDo)) or not (LoggedIn)
    Cleardebug;
  Status('PLEASE !!!>>POST<<!!! PROGGY ON FORUMS');
  Proggy;
  Disguise('Script Finished');
end;

procedure SetupSmart;
begin
  SetTargetDC(SmartGetDC);
  SmartSetup('world101', True, false, false);
  if not (smartactive) then terminatescript;
end;

procedure DelayMsg;
begin
  ShowMessage('Are you ready to start the script?' + Chr(13) +
    + 'Click below when the RS Applet' + Chr(13) + 'has loaded.');
end;


begin
  ReadyForStart := False;
  SetupSmart;
  DelayMsg;
  Form;
  repeat
    Wait(1000);
  until ReadyForStart = True
    Marktime(TrueStarttime);
  Loop;
end.

Added Standards

tarajunky

2008-07-24 12:45:50

What is "MyBitmap", and why is it half the script?

the scar noob

2008-07-24 17:10:15

From: tarajunky
What is "MyBitmap", and why is it half the script?

form background;)

-Tsn.

tarajunky

2008-07-24 17:38:46

Ok, I guess that's justified. :)

The_Shermanator

2008-07-24 19:27:49

UPDATED! TO 1.1 CHECK IT OUT:D

StrikerX

2008-07-25 06:36:39

:O i dont even get a thanks…..

ShowerThoughts

2008-07-25 06:45:26

From: strikerx25
:O i dont even get a thanks…..

First of all never ask for it, other people like me should say:
'Next time credit, and be thankfully if someone helps you ;)'

StrikerX

2008-07-25 07:19:27

From: Hermpie
other people like me should say:
'Next time credit, and be thankfully if someone helps you ;)'

But im not dutch….:p

Btw it was a joke lol

King of the Nites

2008-07-26 20:35:06

Proggy! It works pretty good. Although it got lost walking to the alter.

[*]=Thanks for Using: E*A*R*T*H Crafter=
[*]
Performed: 6 Loads
Performed: 3 Anti-Bans
Performed: 0 Talks
Crafted: 168 Essence
Crafted: 336 Earths
You Got: 1092 Exp
Worked For: 19 Minutes and 44 Seconds
[*]=======*BY: THE-SHERMANATOR™*========
[*]
Player is LOST

The_Shermanator

2008-07-27 00:09:41

Thanks king of the nites, I'm working on that atm, Gonna have DDTM walking next. Thanks for using it!

Finally a couple proggies ;]

The_Shermanator

2008-07-27 00:11:16

Woops double post, couldn't find where to delete it :duh:

Floor66

2008-08-15 04:32:19

Right, I got this error: Line 35: [Hint] (15612:1): Variable 'TRUESTARTTIME' never used in script C:\Program Files\SCAR 3.15\Scripts\Runescape\Earth Crafter 1.1 SMART.scar

Hope it helps you ;)

m 4 h u

2008-08-15 20:00:29

it got lost when trying to find the portal back…..

m 4 h u

2008-08-15 20:54:32

Couldnt find portal to leave.
[*]=Thanks for Using: E*A*R*T*H Crafter=
[*]
Performed: 0 Loads
Performed: 0 Anti-Bans
Performed: 0 Talks
Crafted: 27 Essence
Crafted: 55 Earths
You Got: 175.5 Exp
Worked For: 3 Minutes and 17 Seconds

Gets lost way too easily

jkmaster

2008-08-15 22:05:08

I did that too, it couldnt find portal and when it just starts, sometimes it doesnt withdraw ess.

Nava2

2008-08-18 03:22:55

Nice script, check your standards though.

Also when you do something like this:

if not FindColor(x, y....) then
begin
  //..blahh
end;
findcolor(x, y....);

You don't need the second, a simple else statement would make that work. Also, if it returned false, the function is still completed and the answer would be registered at x and y in this case.

Glad to see a new scripter! :)

SRL Archive - RS3 Outdated / Broken Scripts

[Working] E*A*R*T*H Crafter

The_Shermanator

StrikerX

Timer

Shuttleu

Harry

Shuttleu

The_Shermanator

Claymore

Queso

The_Shermanator

daddyproboot

The_Shermanator

kingmyth

StrikerX

tarajunky

the scar noob

tarajunky

The_Shermanator

StrikerX

ShowerThoughts

StrikerX

King of the Nites

The_Shermanator

The_Shermanator

Floor66

m 4 h u

m 4 h u

jkmaster

Nava2

[Working] EARTH Crafter