SCAR Code:
{--------------------------------------------------------------------------
--------------- 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.