SCAR Code:
{
Credits To :
Sumilion For his awesome Fix on the MineRock, and the MainLoop!
Nielsie For the bank fix in the proggie, and the Standardizer(SRL Mem)
MasterKill - AutoResponder!
If You would like it to contribute to your stats account change
the const on line 2273 - 2299
IF YOU LIKED THIS SCRIPT AND WANT TO SAY THANKS PLEASE SIGN UP AT
[url]http://bux.to/?r=naumanakhlaq[/url]
THANK-YOU! }
{-------------------------Script Start--------------------------}
program Public_GuildXMin0r;
//{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.Include SRL\SRL\Skill\Mining.Scar}
{.include srl/srl/misc/Users.scar}
Var
BrokenPickZ, ScriptRunTime, PrInt : Integer;
PrStr : String;
Const Pin_Number = '5858'; //Leave at '5858' If No Pin Number, Enter
//It If you have one :).
Const SMARTWorld = 96; //S.M.A.R.T world to macro in? Leave for default
Procedure GuildForm; Forward;
Procedure Proggie; Forward;
Procedure TryAgain; Forward;
Function FindMithRock : Boolean; Forward;
Function FindCoalRock : Boolean; Forward;
{----------------------------}
{ Form For Script }
{----------------------------}
Const Ver = '0.7'; //Dont Touch!
var
// GuildForm variables.
PageControl : TPageControl;
TabPages : array [0..3] of TTabSheet;
ListBox, ListBox1 : TListBox;
EndGuildForm : Boolean;
ScrollBox1 : TScrollBox;
frmDesign : TForm;
Label1, Label2 : TLabel;
Memo1 : TMemo;
Button1, Button2, Button3 : TButton;
GroupBox1, GroupBox11 : TGroupBox;
Memo3 : TMemo;
Button4 : TButton;
Edit1 : TEdit;
Var
GroupBoxol1 : TGroupBox;
Labelol1, Labelol2, Labelol3, Labelol4,
Label500, Label50 : TLabel;
CheckBoxol1, CheckBoxol2 : TCheckBox;
Memo100 : TMemo;
Button100, Buttonol1, Buttonol2 : TButton;
ProgressBar1 : TProgressBar;
Procedure OkiClick(Sender : TObject);
Var Lol : String;
Begin
Case Sender Of
Button1 : SRLPlayerForm(True, ['Power Mine?'], ['Loads To Do?', 'Sleep For In Mins - (Leave if no sleep)'], ['Mine Coal or Mith or Both?'], []);
Button2 : Begin
OpenWebPage('http://www.villavu.com/forum/showthread.php?t=36330');
FrmDesign.Close;
end;
Button3 : Begin
Lol := Getpage('http://guildxminer.freehostia.com/version.txt');
If Lol <> Ver Then
begin
Memo1.Lines.Add('Not Up To DATE!!, Update please - by Visiting The Site');
Memo1.Lines.Add('On the Other Hand - you may be online whilst Im testing a new version, so keep tuned!');
TerminateScript;
end else
Memo1.Lines.Add('Up To date! Using Version '+lol);
Memo1.Lines.Add('Continuing....');
end;
Button4 : frmDesign.ModalResult:= mrOk;
end;
end;
// When the form is closed, this code will be executed.
procedure GuildFormOnClose(Sender5 : TObject; var Action : TCloseAction);
begin
if (not(frmDesign.ModalResult = 1)) then
EndGuildForm := True;
end;
procedure OnMouseDown(Sender6: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (ssCtrl in Shift) then PageControl.BeginDrag(False);
end;
procedure OnDragDrop(Sender7, Source: TObject; X, Y: Integer);
var
i : Integer;
begin
PageControl.ActivePage.PageIndex := PageControl.IndexOfTabAt(X, Y);
end;
procedure OnDragOver(Sender8, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) ;
begin
Accept := (Sender8 is TPageControl);
end;
function Explode(Delimiter : string; Str : string) : array of string;
var //By A G E N T 83-From MK's Script! Sml Edit by me
DelimPos, i : integer;
Arr1 : array of string;
begin
SetArrayLength(Arr1, 10000);
i := 0;
repeat
if (pos(Delimiter, Str) = 0) then Break;
DelimPos := pos(Delimiter, Str);
Arr1[i] := Replace((copy(Str,0,DelimPos)),Delimiter,'');
Delete(Str,1,DelimPos);
i := i + 1;
until(pos(Delimiter, Str) = 0);
Arr1[i] := Str;
SetArrayLength(Arr1, i+1);
Result := Arr1;
end;
// This form was parsed using: DFM Form Parser v.25 by Ron.
procedure GuildForm;
var
TimeGuildForm, K : Integer;
BestProg, BestProg2, Strt : String;
Proggy: TStringArray;
begin
TimeGuildForm := GetSystemTime;
frmDesign := CreateForm;
PageControl := TPageControl.Create(frmDesign);
PageControl.Parent := frmDesign;
PageControl.Align := alClient;
PageControl.OnMouseDown := @OnMouseDown;
PageControl.OnDragDrop := @OnDragDrop;
PageControl.OnDragOver := @OnDragOver;
TabPages[0] := TTabSheet.Create(frmDesign);
TabPages[0].Caption := 'Main Setup';
TabPages[0].PageControl := PageControl;
TabPages[1] := TTabSheet.Create(frmDesign);
TabPages[1].Caption := 'Best Proggie';
TabPages[1].PageControl := PageControl;
TabPages[2] := TTabSheet.Create(frmDesign);
TabPages[2].Caption := 'Your Most Recent Proggie';
TabPages[2].PageControl := PageControl;
TabPages[3] := TTabSheet.Create(frmDesign);
TabPages[3].Caption := 'Addy Mining(Special)';
TabPages[3].PageControl := PageControl;
with frmDesign do
begin
OnClose := @GuildFormOnClose;
Position := poScreenCenter;
BorderStyle := bsSingle;
BorderIcons := [biMinimize,biSystemMenu];
FormStyle := fsStayOnTop;
ClientWidth := 445;
ClientHeight := 294;
Caption := '=-=-=-=-=-=-=-=-=-=-=-=- SetUp =-=-=-=-=-=-=-=-=-=-';
Color := 1420247;
Font.Color := clFireBrick;
Font.Height := -11;
Font.Name := 'Bookman Old Style';
Font.Style := [];
PixelsPerInch := 96;
end;
Label1 := TLabel.Create(frmDesign);
with Label1 do
begin
Parent := TabPages[0];
Left := 128;
Top := 24;
Width := 145;
Height := 17;
Caption := 'Guild X Min0r Setup Form';
end;
Label2 := TLabel.Create(frmDesign);
with Label2 do
begin
Parent := TabPages[0];
Left := 280;
Top := 232;
Width := 148;
Height := 17;
Caption := '(c) Form by NaumanAkhlaQ';
end;
ScrollBox1 := TScrollBox.Create(frmDesign);
With ScrollBox1 Do
Begin
Parent := TabPages[0];
Left := 189;
Top := 53;
Width := 200;
Height := 155;
TabOrder := 8;
end;
Memo1 := TMemo.Create(frmDesign);
with Memo1 do
begin
Parent := TabPages[0];
Left := 192;
Top := 56;
Width := 193;
Height := 149;
with Memo1.Lines do
begin
Add('Thank - you for using the Guild X Min0r');
Add('This Version is : '+Ver+' pub!');
Add('Enjoy using this.');
Add('');
Add('If any Bugs are found please ');
Add('report it to me, using the '#39'Visit ');
Add('The Site'#39' button');
Add('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
end;
TabOrder := 8;
ReadOnly := True;
end;
Button1 := TButton.Create(frmDesign);
with Button1 do
begin
Parent := TabPages[0];
Left := 24;
Top := 46;
Width := 115;
Height := 41;
Caption := 'Player Form';
TabOrder := 9;
OnClick := @OkiClick;
end;
Button2 := TButton.Create(frmDesign);
with Button2 do
begin
Parent := TabPages[0];
Left := 24;
Top := 110;
Width := 115;
Height := 41;
Caption := 'Visit The Site';
TabOrder := 10;
OnClick := @OkiClick;
end;
Button3 := TButton.Create(frmDesign);
with Button3 do
begin
Parent := TabPages[0];
Left := 24;
Top := 174;
Width := 115;
Height := 41;
Caption := 'Check For Updates';
TabOrder := 11;
OnClick := @OkiClick;
end;
Edit1 := TEdit.Create(frmDesign);
with Edit1 do
begin
Parent := TabPages[0];
Left := 0;
Top := 0;
Width := 433;
Height := 25;
TabOrder := 12;
Text :=
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Guild X Min0r =-=-=-=-=-=-=-=-=' +
'-=-=-=-=-=-=-'
end;
Button4 := TButton.Create(frmDesign);
Button4.Parent := TabPages[0];
Button4.Left := 64;
Button4.Top := 232;
Button4.Width := 209;
Button4.Height := 27;
Button4.Caption := 'Start Mining!';
Button4.TabOrder := 13;
Button4.OnClick := @OkiClick;
GroupBox1 := TGroupBox.Create(TabPages[1]);
with GroupBox1 do
begin
Parent := TabPages[1];
Left := 2;
Top := 2;
Width := 430;
Height := 252;
Color := 225;
Caption :=
' Pr' +
'oggie!! '
TabOrder := 0;
end;
ListBox := TListBox.Create(GroupBox1);
with ListBox do
begin
Parent := TabPages[1];
Left := 16;
Top := 30;
Width := 403;
Height := 215;
BestProg := GetPage('http://guildxminer.freehostia.com/bestprog.txt');
Proggy := Explode('$', BestProg);
For K := 0 To High(Proggy) Do
ListBox.Items.Add(Proggy[K]);
TabOrder := 0;
end;
GroupBox11 := TGroupBox.Create(TabPages[2]);
with GroupBox11 do
begin
Parent := TabPages[2];
Left := 2;
Top := 2;
Width := 430;
Height := 252;
Color := 225;
Caption :=
' Your Most Recent Pr' +
'oggie (Located in C:\Program Files\SCAR 3.15)!! '
TabOrder := 0;
end;
PrInt := OpenFile(AppPath+'Guild X Min0r Proggies1!.txt', False);
ReadFileString(PrInt, PrStr, 4000);
CloseFile(PrInt);
ListBox1 := TListBox.Create(GroupBox11);
with ListBox1 do
begin
Parent := TabPages[2];
Left := 16;
Top := 30;
Width := 403;
Height := 215;
BestProg2 := PrStr;
Proggy := Explode('$', BestProg2);
For K := 0 To High(Proggy) Do
ListBox1.Items.Add(Proggy[K]);
If Not StartsWith('>', BestProg2) Then
Begin
ListBox1.Clear;
ListBox1.Items.Add('No proggie saved...');
end;
TabOrder := 0;
end;
//New TAB!
GroupBoxol1 := TGroupBox.Create(frmDesign);
with GroupBoxol1 do
begin
Parent := TabPages[3];
Left := 8;
Top := 8;
Width := 425;
Height := 281;
Caption :=
' ADDY ROCK MINING - NEW SPECIAL FEATURE *NEVER DONE BEFORE!!!' +
'!* '
TabOrder := 0;
end;
Labelol1 := TLabel.Create(GroupBoxol1);
with Labelol1 do
begin
Parent := GroupBoxol1;
Left := 56;
Top := 56;
Width := 96;
Height := 13;
Caption := 'Please note that this';
end;
Labelol2 := TLabel.Create(GroupBoxol1);
with Labelol2 do
begin
Parent := GroupBoxol1;
Left := 56;
Top := 72;
Width := 86;
Height := 13;
Caption := 'will over-write past';
end;
Labelol3 := TLabel.Create(GroupBoxol1);
with Labelol3 do
begin
Parent := GroupBoxol1;
Left := 56;
Top := 88;
Width := 112;
Height := 13;
Caption := 'Configurations e.g '#39'coal'#39;
end;
Labelol4 := TLabel.Create(GroupBoxol1);
with Labelol4 do
begin
Parent := GroupBoxol1;
Left := 208;
Top := 56;
Width := 101;
Height := 13;
Caption := 'Currently Not Avalible';
end;
Label500 := TLabel.Create(GroupBoxol1);
with Label500 do
begin
Parent := GroupBoxol1;
Left := 40;
Top := 256;
Width := 287;
Height := 13;
Caption := 'Enjoy Using this guys Form Made by NaumanAkhlaQ (c)';
end;
Label50 := TLabel.Create(GroupBoxol1);
with Label50 do
begin
Parent := GroupBoxol1;
Left := 184;
Top := 80;
Width := 148;
Height := 13;
Caption := 'A feature, not ready to show -->';
end;
CheckBoxol1 := TCheckBox.Create(GroupBox1);
with CheckBoxol1 do
begin
Parent := GroupBox1;
Left := 40;
Top := 32;
Width := 105;
Height := 17;
Caption := 'Mine Addy Rock?';
TabOrder := 0;
end;
CheckBoxol2 := TCheckBox.Create(GroupBoxol1);
with CheckBoxol2 do
begin
Parent := GroupBox1;
Left := 192;
Top := 32;
Width := 137;
Height := 17;
Caption := 'Switch Between Loads?';
TabOrder := 1;
end;
Memo100 := TMemo.Create(GroupBoxol1);
with Memo100 do
begin
Parent := GroupBoxol1;
Left := 192;
Top := 104;
Width := 137;
Height := 89;
with Memo100.Lines do
begin
Add('Hey, Thanks for using this ');
Add('feature, please post ');
Add('proggies. ');
Add('');
Add('That'#39's all I ask :)');
end;
TabOrder := 2;
end;
Button100 := TButton.Create(GroupBoxol1);
with Button100 do
begin
Parent := GroupBoxol1;
Left := 40;
Top := 112;
Width := 129;
Height := 33;
Caption := 'Return To MainTab';
TabOrder := 3;
end;
Buttonol1 := TButton.Create(GroupBoxol1);
with Buttonol1 do
begin
Parent := GroupBoxol1;
Left := 40;
Top := 208;
Width := 289;
Height := 33;
Caption := 'Start Script (can also be done from main tab :) )!';
TabOrder := 4;
end;
Buttonol2 := TButton.Create(GroupBoxol1);
with Buttonol2 do
begin
Parent := GroupBoxol1;
Left := 40;
Top := 160;
Width := 129;
Height := 33;
Caption := 'Donate (PayPal)';
TabOrder := 5;
end;
ProgressBar1 := TProgressBar.Create(GroupBoxol1);
with ProgressBar1 do
begin
Parent := GroupBoxol1;
Left := 336;
Top := 32;
Width := 81;
Height := 225;
TabOrder := 6;
end;
WriteLn('GuildForm compiled in ' + IntToStr(GetSystemTime - TimeGuildForm) + ' milliseconds!');
end;
procedure SafeGuildForm;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('GuildForm', V);
end;
procedure ShowGuildFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowGuildFormModal;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowGuildFormModal', V);
end;
procedure MainGuildForm;
begin
try
SafeGuildForm;
SafeShowGuildFormModal;
finally
frmDesign := nil;
except
end;
end;
{----------------------------}
{ Main Script }
{----------------------------}
Var
TheQuestion, TheRespond: array of array of String;
x, y, Banked, Gas, OresMined, Gems, I : Integer;
OrezMined, GuildSig, Responds : Integer;
HowManyResponds : Integer;
Loc : String;
Procedure LoadVars;
Begin
GuildSig := BitmapFromString(139, 94, 'beNqkvQV0XFeW' +
'712iElrMzEwlhioxM6NBYGZmSJzEGIOwUGgH7NhxJ20nsaBQdsAWF' +
'8nBTkPSSWN6enqmvzdr3t7nVMmyk+nX/U3WXUpZKry/u/f+bzinrM' +
'21UyMaxYBGIdRIBSqxQC0XLCqEMxLBrFg4LxZopANLD4aUcpFKNrA' +
'oFaqkAo1MMCfhz4nhzvxFCX9RPqSdGoZfqqU8rUKIzwaHXKCVw+1R' +
'OPDJ5QIN/FMuVMuEs2L+4wn+gpivlgiUeHBVcq5a1q+WijRTgxqFQ' +
'KMY1CoG8SfcX8JXSQT4ouSxSvLqGjkPn1wxpFGI4Pd4yIRq/BPcB/' +
'4qgHtqyD/1vxHCp8Mb9G5ygUrGn52ENy+gD/9i4OR/Mxhfv7wFfjM' +
'zCe9NoJEI1GIBvEk4CfBJ4ZdzYj68W7jDgkQwB/+c5M/DAX8SCx5P' +
'8qfJo+bwwM+lIs8Dxywe3NnxntkJ7uykcG5SMC/m04fDMTshmB3rW' +
'5jsXRT3wT3Pn2gvzUsqy2M1V7PzM2LdXW283e39vBzhlMKH1S4Dki' +
'GgWZlwQTagkg0uKYaXFCK1HM7eiFo+oJby4TPOAz7pwMIkHxip4UQ' +
'9GNXKRBoZ9ykgOM9yvlYxTADBaeTTU6GVCeGxjyb4cxN8OAN48iV8' +
'pbRfLeuDp1XLyAmfGkJA5P7wcnAf+BM884IUz48W0fdp5NyndOg9Z' +
'XpSMqEKrhb8jYBCwWtPgX/S3U3BV8t5cPJVEsodn/8Hduz/sTJX37' +
'06K4GLEC4MYMRfhBMuwctydgJY8Mk94SIRwu8X8eGIeGYCDsJCjDi' +
'WL7zZZUBj/TNjXTMT3LlJ4eIkXykWKMVIdh7vL5gZ65sb75kbR0A3' +
'hCf3bmuqKEipKU4vymb5e9l5LQOCk78SkFw4Kxcpp4AOXKXD8KG0U' +
'wNLD69rFENwB3iVeZloQTYMr6iR8cG+NFPXtHDx44UtQCIICM4G8B' +
'rUTl3T4NnWWdCSQqiU4SfCzwsvB2dDIlRKepWSPgriKSAZnwBCiBo' +
'CaB6vXngncJsAWkFHh0BPCi0Oieif8JkDrxaVDF9Oh4xc8Jp7VwDQ' +
'v8WGLEgRJTyDGs+/cFE6CE84M8mDix/eA7x/NcFHCOKpnpkk9kVww' +
'AHU1MTQVgDqm73fRZ8B/gqfBR61QMwTLG52vG9mrHvmfg/cU/jq7v' +
'WtxeUFidXFaWX58REhrj6e9v7ejsTFjSip+ePbE8xL+bNw7U0NPgE' +
'i8kG4ZgCQ5uF1lXwYLp6FCe6ibODtiTfSm5pMjAyNDA2yN6y/o/lw' +
'UdKvkovmJUOPxkWPx3sfj3VNw8UjRgeoxaudMFIIVXIhuAXABLzgg' +
'8DrAqCFyR542+iX4J7gMMFUJRQQEBTBT7jzPFiQTLg0JdIqgA7vfw' +
'JEH0WtCQ1Kjk77WUYArh/PMPF+BBBg5X3VtRcc3W/byoknhEsdfBp' +
'cTnCpICAAsbQSENLnL070g0+bI6ZNcKDtaAigaT2g+Yn++bEetMFJ' +
'vgYBCYkzxH/C9TY/2T9zv3vmAwAkGLq6H5xbeUFcXRk7lx3j5rTK3' +
'8cpyN9pCc1nmF7SWryowPp4cxLBE4VIKx+Yk4oWJYNqhWhhalgpGV' +
'6YFD4e59+5K0pfu87PzzsuyDkzyiUs1IeVlf3yxZPC4e6y+kr/qPC' +
'IxNiIhJgwVlRiccGb11+dk+nCEL3C4cnBYJfkwgUCSCXpg4+AgGTk' +
'Cp8CmxWpqf9BQAMYnoAmBEe5iHhjvkb+Y9P4qYNcdT+yIwyXeJ7xh' +
'oCcbSF5QsHv6/KA0RfC49RRKOGal8KrC6fRiZGoKkfjQmOXiVQS3t' +
'z9XjhXSjkGx3kSg9AFkTj1FBAy4s6S0ANXnVYqoEFtBoMgXJz9szo' +
'LElzvP9pSl1OWl1Rbmp7PDvd0tdEDgjAxPCeG98wn7wGeH+DCBYOn' +
'BULbohgBzckHKKAbb1xKr6n0cHcK8nbOZPm2l7ISgtwcrG3WtTXm5' +
'mY4OTk6Otg5OtrD/5zgHw52YUnx+146LBsf+Ozj61oFifUSAb3gER' +
'B+ZO78WK9ykqeLF1NDKnAscFU/CwjOpwpiHMQ1xcDzgGQrbwt+ApB' +
'M+GzA0kUfFYmDT97r+s2RNvgJJ/9vgV5/d3XQvHMVIuziJLoUuAMA' +
'mnsWkFYO1y3v8f1e0EvgN+AlIETOA9AJfLkF8hCCFZ35InoznQMEL' +
'zE7wSOA8G4qaf/cePcsmphAdPlAXVlGZWFCfSU7nxPt64kBCFzcEm' +
'qtkTkxVyWl6gjOG/heuMJF8BHmxCKleAD80jwAkg4viIVXL+y3c3S' +
'wZDD8XUyrOYGnNxVWZEaYMU1cnBwNGQxrCyN/H0dvd1tvT/vAQDcP' +
'11Umpsy0pLjL/Isf/FL9ycw704qRacUoWJBaTt4hfGQZf368d3FCD' +
'0iB4gSvcDiNUjClAZQo9MTCDQUoxkEiAPQnnN5z+T4gY5bxyfSMaL' +
'ghv0fDQQcLulSoJFLhb0FeYDiARnv36mfCk//HyuLP6bHzaEFwwaM' +
'fnp7gzksoIAENneBqVGICSMxTwZUDjgs9A18FD6EuDgCNI6NFMQ88' +
'G9gX2JQS7gDmM8ElugLDkEraOz/RDZFodpz/Bv/k6rqCPE5kfTm7N' +
'DfWx8PO19MRGFFA8xKeSson50eklA0tgu8lH3xeDBYECk2woBhUwe' +
'/FAt6re6zs7R3MjTNjvY+uyxw5Vbu2NI5B/jMzM/LysvH1sff1cwi' +
'L8IiO9fMLdDJgMOJCA9e2VBW2r2165aUtV85tv3xm7AMwBxFcdSpy' +
'2ufH+5UUEPmnSo4SmvgfcPiiZUDkADoD8FafApJQ8awHJCaxeIW9k' +
'Gse7VFFlTbR4UtghlLQvfzv2sqBzndtFfDz2+0NcLX/4lA7OrrTWx' +
'YxahCxPcFVSqjOocpTqEUdzpu+3zcDoUoGqkM4D9JXQpgSFTc9ISC' +
'AeIti7hI4Q7Hg0SSakmqSNzveC0aEqnuCp5T0LE6C+fSB2Lvef6y5' +
'OquyIKG5KqskJyHU383bwz7Ax2npAQKCV1HLKCBwaKMa2TBmPfDSY' +
'rhUiDdAOYciQdB3zDXQPz8l/MU9azc2ZtdlByeHuwMdU6aJk6OVt7' +
'c9HAGBzqw4v7iEwJBQV3NTY18fb2d7e7iPt7dreFRwUJBXxfaNfbL' +
'3Zj5+A06+Wj5E3zkFhCpXPqiZElFnQs/tihM+gP5fusKCdPLvHwH6' +
'XHgShPRfY4Lh+PXhNniGpamBX3Tt//L0FjCcPxWngcH+8pVtXwwcX' +
'xSDVxd8dahN+foZzCMkGDIggqjkulyMigqaKM1P8qbhJ2YKgrkpSB' +
'4RkIZovIVJFKuQIi1McrUS7jwBBI5uYeIpoBnE1wMaCbOksd7eMzt' +
'qy1LrSlPryzgUkI+HvZ+345OH15Z0mQtJEqeGnihGtXICSIp0NGKw' +
'aBCZwxrp8MzjOyffGg0ODmgsTt/ZVh3o6wWnHWyEaWxoZ2/l5LLKw' +
'8M2INApMtKdFecdn+ATG+tta21uYAB3YYR52DRlhrRm+XbmBUSHeL' +
'GLC8/3nVkAfwVaET4yiAQ8yZBFClWYqw4gHQzT/BUK+amQXgEIpRE' +
'GLBAPU1QD86h4w7xMIfxchF4LDlDREF/AOv4aG/Lk/d5vtzfCbUxR' +
'ew6AqRJhz1+UisD5zIp5Ty7v+/XWBrWYSmh8NpBw8GYgNwc0auKvI' +
'MpDbEKFJuXPTPHn6BsjuZtSDNoP3RpARECTgsdEV89McmfGemneio' +
'AgxZD2ETXe2/vK1oqipLrSFLCgwixWgI+jr6dDgK8TACLKFjSbiAJ' +
'aUoxoMeIIZz98/dov1IO//nz4V58Of/PlyG+/vvjBnV0Ht1eW5no4' +
'2Vuam3nY2sYGBjrb2RsaGDi52vn6O3t7O4SEuAGdmFgvVpwPK9Znl' +
'ZUpGBeIRlAUm+s52xuTj6zN2NaQ521nFxEV1t17Gm0TZABmqSI1AQ' +
'RmgoDA/5PcQauLKT8JCN0ghio5nwBCTQ7I1CTWYPYtFwAUOLTvXcU' +
'EViL4ZlsDMmKFgN39eyBGn190H8BHgQ+RQyAWkRIB75fbGoHp0htn' +
'ZuBMTqK/XVJAcIE/cdXkygGrgVcBzTwzjlnqDMAlhQulrvqBEoiKB' +
'KWYh2kRyU8xAIEFTXIxSwXPKe6D9GSW+D3e+e1rarOqilDF5WXEer' +
'nbBfiiSNA+GAH5ugTpISQ7igFIWyA/RcH/4esX7t6IrqgMzcoOy8k' +
'Jy82Dwyc81N7a0tfHK4kVEeTn7u9kX5qeFB8eCmbk7uEUEekRHuEa' +
'He0Vy/JisfwSEsLjWKFW5mZ2VhYxIR4laQGbqxN31CYdaEm7sL810' +
'tvdwcb26LkTkFWpISI8GFLLaSkJdQIAUmOMwM+rVQiIRfwPgLCIAY' +
'B4agUPHghPRWWAhgD69MZZDC7bGoAOcZio3L5bRyLOjibtzXNAAQw' +
'KrhAtIu4H1liAgkyQ1HDmsIwjmpaI4DdaEDMS3ry4X42ZJlZ+QOgC' +
'spkxdGVw/lUkwM0R4UFTciL/0IgoKfjTNLo4Hk1jwYKA3SLBNzve/' +
'4bg5NqGnMLMKMiD8jNiPF2t/b2dQCSoIdkBiTI1soTVgAGwJjAl5c' +
'PRK/dvhWbngGsyNGAYGxpYGBraMI0cVlm6uzp7ubv4uDpnJkVXFWe' +
'mRoetMjc3NmaGhvqnpAQmJvmksYOCgpzNzU3MLc0sLOFxRs6O9smR' +
'vtVZIXtb2Aea0060ZV3c3xLq62Fubr5j36aurlNw5WseDKqIpqXnH' +
'M1ZiiIfvMqSfCUg1JZ6QOCT+fqaD81eB1DmUSGNbln4Vdd+YPHVlX' +
'1UUWNcE6OuAAsCNJ+9de6XZ7cRedCE6ZWiT4MFLrAmHujVR6TIBhY' +
'0LRbB6VWhCfDmJVyVmLuITyV6osBqIY016AYxlUarARN7MoWAwPvB' +
'MU1AK9FbIjL8pT5LguRikdSIICrdGjxdW5GSnxFdW8rOTA71cLHyI' +
'SoORDVYqB6QSDU1uKAYODXCjSrKNzJkuNiaw8WfGOGXFuuflRiUnx' +
'ZelxefyfJnMhghvr5pybH2NlZMUyN7B2t7O1t7eytn51XOLqvsbS0' +
'dLW3sLCxWmRmD9vZ0c85JCW3IC99Rn3J4NQcAnd9Rvnd1YXSgT2ig' +
'X+eG1pWA1AoBcTion+dJJWFJvlwQEP0IEESZAS0C4lFAWKEFnSPVF' +
'Yi073WhSFtX/hygLwdPwe9BHsAzwE+4/eXgcQIILfQJujshRI3H4H' +
'wwJIl0KSdW27hwLJLkdwlNHk81sTUENC/FuAM3gN0iKWotA1IRQNS' +
'UlgEtTILAozVVvujVPY0V6SU5CCg3PdLdWQcIwxxkYVMgFYbgRZUK' +
'4cOpazmbNxsYmdivMk6J9SlnB1VxgqszQxqyw5rzozpK44oT/W1Mj' +
'VwcnVZZWYGJuXs4+Po4WVtbGJsYwz+NGYa+ji5JwWF5iQmZcRE2TK' +
'a3m2NJbkxrcfSu2uRjazJPduSMHK8+s6Ew1MPVy91jTWM5ATRAXZB' +
'GBwg9vBJxkLK2HCucPwVIpJ0aXAFIhIAeDGNAkQhIXkxyTxeHZUD0' +
'ybUK0V/YrP+yskDE7/fSOKWW9Wik/fBYrKIohDNYeEeFPC8eoKcak' +
'yP0cggIUqElLIPguSVqDaPhLJZPUciR4qEQHwXyAM8wn+gNAa2iz+' +
'kBzYFamCAublIguLi7oSyNkxxaU5xekBnr6Wbr7eEAgCByLWC17TU' +
'CSLAwNXDx9mAYh23EYEQEOFXkssrZIVWcoJqsUKDTmh/TXhJfnhJk' +
'Z2bq6uRsa2NtZGzo5u4QEOAcEuoeFOxuY2NhxTSP9Aso5qQ2l+XV5' +
'Gc6Wlj6e7s2lqVurk440ppxqiPn7Nai421ZYS7WTjZ2rc3Vmzubng' +
'ISk3o1zT0xmQWXNURiUP9PARKuAMSnNXME9JAAEvNIg0Pw68OY14A' +
'20AEiZMHKvtvRjIYzcBwSqy8GQIfHaO5d0Mi6NbL+J1MQBIUkZPD1' +
'gHRqDZIRMIF5VH3CJSJI4FQ/egoIS9/YJcEA+pOAIKoK9YAEcxP9c' +
'+NcCujyi+srCxNKcqOqClMKs2M8nFeBBfkCIAnk1Fh2xraOXKBU8G' +
'PKyyzsHGwtTFIi3KuzokvZEeXs0OrsUPBJawtZGyoSq9khdqZMD2c' +
'XBwd7E2NjNzd73wDHoGCXiEjP0HC3VauYNnb2OZkpa2vz6orZVmbM' +
'0AC//W3lJ9s4h5uTXurMFh6qjvCyA12RV5C5a/+WI70XtVNwnkUEk' +
'JD2kjQU0NTAEogWwCfvX65gE5GAP2lXSN+bEOjqsfBBHkIex/v0jV' +
'cg01m61wVPCwL7vyzNPxedQEC6su3wN0c7iYTbq5WCZOUvTvaBplK' +
'Ku9SyXsiSMMpL8JSCQlaKRXMTQrz4pVhMW8TcB9UmZB9PAWEPApgK' +
'55EUCrZZwgVviNFkVJM6z7ZI/kmgCAmgfuriel/ZkZcRXpQTU1mYk' +
'pMW4eFqDTLKy8NBiZWTYa3iGu3dDD8a84uKMGEYujhaJYW5VnIiKj' +
'NiyjlR1Tlha4tjOkrjt9ak1GWF25kx3ZxcIO4wmSbeXo4+fva+/g5' +
'Bwa7IKNTVbJWJvb11eW5SRV6y/SrL8EC/jXW5h1o5L3RkX9xZdmVn' +
'mYcN08zKeu26+sOn998Zv6YhcUSXA8oES3pAWh2gQeK+uM+pOC3WT' +
'pdLc7oDAT24/tmNs6AB4PzDz8+FJzQ/74YbwOgL0Umtggq84X+PDY' +
'E7aO5d0coGFsX98+NAB3RvlxIcHQEE55mcdgHpIPAXIG0nNQQI6/N' +
'YcMM7qEnlkyShoN9AdcMvUZvNYOjRAVoQC2gIo4AIOx0gEG+Yt2Kk' +
'4w9d3V9bllKen1BbnJrPifbzsHN3tfV0s4eLUI0tmFH8aIrBlNZW9' +
'wBvZ1umr4tVSrhHTXZUTVZ0bVZkU2F4R1nM1srEA63prblh9mZMVw' +
'RkY2pq4uPt5OsLRmQfHuoeGeYVG+sbHu7uYG9pY2VhZ20VFxMe7O9' +
'tZW4aF+7/4p7O0wfWswLdPRztsthJ6zubjvdfUqIfG1DTMy8hBRn0' +
'acSUHoiWsOsHb4+3sgeEbgrzygECSPSUjq6Nex3iPhD5zdF2+IlJ0' +
'Ltd4MQosj/U537fXv5XQue7tjLs4EDOMtkzPwaA4ArpWpB0q0hNUi' +
'nV9ddUWBEl9ZyH11UPRuceXv/kozc/VrymxhwHVcE0UgN/hXFHi4l' +
'qPwHEfw4QNRy9+aBbQzrjPRQQ/8Ku+jJ2cXZUdWFyPic2wMfJ3cUa' +
'IhECwsx9iAKCnN/eytjXyybc3zE7zr86O7YyI6o+K3xNYQRkMftaO' +
'Cc7s9oKI+xNTVycnO3sbMzMTP18Xf0DHAKCnZBOpG9MlF9yQnBUuB' +
'8Ws53svbwhOQoKCvB2s7UODvALDvAHdZGaENO5pvrw1bM33x/Sd0K' +
'x3aDGFp5AKccaHRVpKiz7jGin+MttWX3/FCsPX3cfgkAProwAwmr8' +
'390c/1TCARX9+/o8+CVtZ//AZqHF3euigg0OeNT37VUqCU9FSnnzk' +
'z1zY/1Y15L0Qna/KOViQUCKyY4SGzH9i49ufKwce/G9t7cKerfevr' +
'n24vkDA/wb46+/+/BnNwZeGL99WYWAsAsA+RQAmp6gEl0HaGa5zf2' +
'0Fc4n+WnPMqCu05trS9LL81mQqOakRbq7WHq62cGhlYMoBXU6QHvf' +
'JoYGHk7WYYGuCeHuBcn+NTlRtVlRTTmRbSXRuxvTjqzLOrUhp604x' +
't7CFM6zhYW5uZlZWIhPQJAT+LfIcE9WtA8rxpcV45OcGJwQH+Hp6W' +
'ZgYGBrZwNprYeDtaODnbODPSeF1VyVf+DSyzclb6oVXA01HAmPnvn' +
'FScGCDAGBt4dLdFEqwpb6lHAlIOKmENDnb736H0Fev+g+oAc08IeG' +
'IurZvu+opHem5VDkJcUi9tIH3K+6DuAFKR8CH6VE5cAlFsRTkbKwa' +
'mrgzoLk8dR1Fa0JQCT6cOSUZKzlymVIv1etsndw8wSx6h8cnLNjd3' +
'JTc4S3556DOxfkQzPjvHmsKIJO486IdT1W4voEK6CsADTRj42Gse4' +
'ZLCzwu1/eVleWVpQVU12chnmQswX4Ny93B0iiIbphNkF6zcYGBgGe' +
'jqlRnuxoj/yUgJqcsNqs8NbC6K11SZDCHAIL6shZX8qyZRo72zsEB' +
'fo5Ozp4ujuERriFRHiEh3lER3hFR3okJ/omJvg7u9gbGRkxmcbGxv' +
'B/I0sri+io0ML8zOqK3N2vHH/7wR0lZO7yXizd43ngEYWGQXZehh0' +
'98BWQx0EqRCxoJSDBMiDsqut6qegYiR+4/h9B3iTHSV8uloIFwW9+' +
'c7gN81/5sBpb54OgD2ljVCUF59YrvX11y7Y163esrWksb963/8Kdm' +
'5oP35i6zz/bdarjxcPeMSyv4AhX74D0ssbU8sawtGyfsFhXv1BzQ9' +
'NAR4eGDes/nBicud8/O8ElbRQuHQ6Z1c8qPAeIFGBB45F2KgJCC+K' +
'd3wl5UGleDMmDotz1gEgc5JP5Afi8AyYGBmE+zjlx3tnx3iXs4DoE' +
'FNJZkXBgddbRNZn7m9kvrs/dXBFvbsBwsHdsqi2LCguBy8nT0y4u3' +
'j862iciHOgEJyeGuLrawO8tLc2cnK3d3R18fN0szE3NTIxzM1Pa1j' +
'X2TD9Y+PCaStajlvXRphgFpCGA5p4C4s9hCjDyZAUgiCBfo8kICSA' +
'MFp/dPPenotQn73eRSHr9y+EXAcffXR2XAWnvdv+NlN0gP9XIhkiK' +
'NESGJUgfUNK3MNGXn5Xo4WiVEONlbmHBNDBIyMraMyKo3tYJaCI4O' +
'e6+IZl1a9KrGjPq1gQlpvtHJ5hZWNmaMCM5GQ2nT5+8Nvh4QgQWMT' +
'fZjwU60vHUZaA/AjT/HKD7OkB9Z7fXlaaV5cXUlKRnp0d5uFhRQHO' +
'kskQsSICADA3jgj1KUwNK0gLLM8MacsPXl0XtbUzZ35x2oj37/NZi' +
'0ZHq42szrEyNzC2tOWnJIQF+pqZmtlaWEQHuycn+6Zyg1JRIV1dnQ' +
'sfEwd7Czc3a29s2KNDd2traxMQkLzNlQ2dL9+MHjx69pZT2qKS9OA' +
'YjfgoIEoo5cG5TOMSyAGkIjmMNLa0ARIPIb452El+HlToAhIGGwyJ' +
'aFA7R9x0V5D7tFBAWVO92g6978kEX+HPVJJ3aQutTKwRKaV9HU4GZ' +
'ASPOm1nTVJFa02Fm6wDv34cVH5mVH56ckVHdklRcya5pTa9q8QiNM' +
'jQ0smAwkmpqdvRe6X/ndcmDm48e3sB3Lu6bnehblOB8C86NiKlIwA' +
'x3Ri8PaB9wYSWgD7pnSK566YVNjVW5lUVJ1UWp2WmRILMhACGgSd6' +
'ihIyFYK9fxDQ0TI3yrc2JrcmOrM4Jby6M3dvKPr0p/6UtRUc6so+0' +
'pl/ZXnCgOc3RypQ26Tyc7PMzk9Lio61NTQP8HdnsAA8PO+xBGBrY2' +
'JjZ2pm5u1n7+thGhPnY2dozTZhlxdlbNq2+8kD8ySe3ldJeOHDyak' +
'UTB6uacgQE0QEAKWUiNeZBy01VwQ+cWB2jI+2EmoCaFfzmV2d344w' +
'K3F8hBEeH1bab5/R9JVTL2LOGeIcjOiJSksUqK+/NHlc3Fz9LRkZu' +
'QuHGgyVbjqZUNPmER6eXN+Q1d7CrmznVrcnltZ6RsV4hURZOLg7m5' +
'hUtLYKFjxenrivlQ/N4heM7BNDzE30LkzhPqCKA5kgFb05ffKPZkJ' +
'pkTAQQb+Z+LwIiFnTl9OaWmuzq4qTmqiwA5O0GgBwAEPBVyURaOjQ' +
'IgIwMs+MD1hbENOcEbqqMOdqec6Iz96UdNecOdeSmRtuaG4W62wa4' +
'2ZkYGDrbmIV5WGWzvPa1l7ZW5JiZmIACtDJmuDrYODo4GhoaWFga2' +
'tkz3VxXgfxOSwp1d7I1NWYW5HHAgq4+ED96dFsp6ceBK1L+1c2wYV' +
'sHy3G61ptY8NxYDtz+RfdBCogwWrccmP4W5A3a7Mn7vVoy5PPlEOr' +
'qvwV5LQPSYcIWJO1EoIdUy/sH37sWlhQdE+aRu3ZTYllLdn1r9c4X' +
'ctduz1+7Ma91fVp5fXZTh090ghGDEejnt35jo2D41V7N4kef3MbGE' +
'GkrgMYm7xw+Tj8NGWBBpAFEE9un/g3bXhIivMnI1uw4d/Z+7xwB1P' +
'3K9vK8pNLcKHB0eexwV0cLoEMsiPRfpshwqXzY2NCgKCl4ayVrR1X' +
'UyY6My7tLTrZnsqMCAn183JxcnVw9La0wuFhYmKbF+q4rjl5fGr13' +
'bV5LKcfClGlhYenl4spJTYgIDYb72NmZeHvbBAY4xcb4piQGRkd4u' +
'jnZOFivqijL6/1INv3JLUwMJf143mSkr60HRDMaOrEGsgGsA47luU' +
'RwTaClUU4TzUzsCAF9MfQSbfSgWWFsApQHvm+veB4QafDRqRXwkBA' +
'E78pvBKSl2ji4JpS1BIcEhvo4ZFdUFnXuK9lyJLtlPaBx9w5w9PUP' +
'i4nesXvzx+/1KsGJPRglrUysyCkBwaRgSQYpG08l5cHtRbFuCGFOw' +
'l8iI3YzpDA+jw1xnBuZRzpYMJ+f5M6N99Ly6ZXTWyqLkgszoysLkj' +
'NTwkkShIDmJQNEc4Krx1r9KkuLck7Mqc3lZ/Y2tVVnpEZ4JIW4O9l' +
'YWa2ySo6PzsvluLm5WlmaRgU5VWVGrCuJby+N3dde0FicDrIhLCSg' +
'pq54zZraiNBAbHB7OcbEBsWzQny8na0smI4OVs6O1l7O9o2NFT3TD' +
'x/NvAMZN47+SkgrQaEDROcDl2jLQIrjGXDOdZVnBIQNke87a0gZ7S' +
'RlhH9CaTfy211r4J86mnq7ex6QlMx3KehfeUoZ9+WeF93Cwj0DI+L' +
'yyuCdepkxon1WZZYWgq/zS8yCDxIRGdH24nHuzwanHr6GQynok/lq' +
'0vjWSokrRkDCJxDEZWihaDIE0OIk/wm5qGjeqgcknMMOUT8O54Ccm' +
'OyjJvbqqQ31FeyiLFZ1MTbsAnzsPVwRkFIGIXiYAIK4OVJdkZfNSS' +
'jLTijJTw8NCDC3tLK2teNwkla3VretqwsL8QfJHODrmsvyWlsQ1VG' +
'WsK405vD6wqbiNEsDw8jwoMbGso7OxvJ8jpvtKhtrKxcXZzdXFzs7' +
'O1sb+M82MMB3zeqas+cOvv7J/dlPbpLZbOLfcKAUNbZaphvg1OqHo' +
'+DGH+rzqEMDJbZ0r1/z8Prnty/pUhu5YJnRk/e52gfXQCpgAWdFl/' +
'x5QHRmVTfFzeu9foVVXePiHZBQUJNc3uzn4xrkxIhwZsT4r4pkBUO' +
'G4G1puffU0Y+kI4uSHtB7KMvhukK3jOGMjB9g0IcrCqQmYNLitBtx' +
'X6QH9CnpSpDGH8YgLamjzkz0TY/3LpAxY/AhtGd35fTW2nJ2WV5sX' +
'VlGQUast7stWJA35EHyEQJogIzsjj6eGCyoKAZHZGpiHOLlWlWaXV' +
'WWU19VsH5NzfZNLazIYCNDw+gQ33J26LqS2I6y+I6yuOObSpqKko0' +
'ZjJjoiLVra9c1l528cGL90b0enq6WJkarzJiRIX5VJVl1VfntHc0v' +
'ntoFeZka7UWkkmD7chkQnElwF5DyLJEPpdED+vzm2eWgA4HmyZhI+' +
'2AI8lMipDEhooxAFXx+6wpQ/kJ0Qk9n4HlAWCylgFBdvP1zbtratQ' +
'6uXjHsgpSyhoSiai8fDy87RoQXI9qdEeTMACWUHBn9ymtDJGnlggx' +
'QSrAHSgGBr1ugBQTsKgqfEM2/RIZ7p1cA+nQKC+OPx+nsIg6bzYz3' +
'ACCQCjjCJOUuirFe+hrv2MGdrdXFyTUlacXZcUG+jh6u9j6edHh+W' +
'CMnpZ6p0UXZ0KtXT207cbBj37bOAzs2Hd2749Sh3aePHrv88mnepc' +
'zifCMjQzYrYG1J7Jaq+E3l8RvKE05sLN5Sy/GxtYoMC2quL9u+e2O' +
'XfGxE83j/hRc2HdjRcWBH58GdGw/v2vnCodOXXpjTrynA+TcchqRu' +
'B88nnD0U/MTL0SlBCkirNxNaE/iPIJ/P3jpPZdtnN8+Cm6JxihZw1' +
'LJBMjasXyVBBxSXAcl0M5PwS8mEqHTPDmefgNAETkpJXUJ+eRQ738' +
'LOydaMEeHNiA9ghHsyzE2Y0d7+L97AqgIwhZOpxIYdj1RQUR5QebZ' +
'Am4PYcBdpyTykrosKJgPIpiDWEEDYp8ApoJnxXgBEehYiDQCa6IUn' +
'6T+7va2xoLIwFQDRqR4qs3HsSjGikY9QQDiC9fGNNz6dHX0yN6idG' +
'VA/HtTMDGmnR79YvPW1ev3xfZYW5tlJ4WtLWZsr4zaWJWyqSt69Ov' +
'vsrpqdjVkuVhZJrKgr77wmn/354iTvfaX02mcLw09mBzSPRepH8CS' +
'PP3ljWZLhZD4OkQr1gLA4uSDm66abnh3i/WLwJPVjvzm6gVZyvt3Z' +
'oA83fAxMctGvzm77vrNKDXmodBnQ0EpAavpCBNBH4qF1Lx71CIv0j' +
'0hIKq5NKKiI4uTaOLsyGIa2FowAVwLIi2FhxnRjWqw/cey1T8ZnH4' +
'xosHyKPVAKiNZwMLhIhWQUEz0eWhD8CUcWcQRIQzw2uMHHEzRvxZG' +
'hmbFuHKqfJCtrZNyFCRRyQ1f3N1RkFHCwo1rIiXJzsvR0d9QBImtG' +
'yDKHUa3uxsjSw+v4p+Vj6rpGPnjx9FaXVVb1RezdjekHm1IOtaYfb' +
'8u8crD++OaqmCB3HzfnmvrKW69fxvEkyKkV2CwApbT0cIgODumn3A' +
'XPAJLR94mum1oQznxKnx+0plMET97v+brnKK1LE4/npcblRQCIri0' +
'a0siGNDjDzCfrknQWREek1FIRbfNNywZ2XnjBJy7BKzAiobA6oaCS' +
'lVdh4+YNXtrW3IrJNHGwZER6M2J9GFZmDGMDZri7x8G3bykW3kPNJ' +
'uHNka6oSjIAAhjVMoR4cHcK+BQ89SQPwtAiCUxgR0rSeMVFNwQQqZ' +
'cKMC0dx2nSaRwuhWsGsqfe+Ume6PLepqrsyvzEpnJOSXacn5ejB6k' +
'kaB88j+anD8XoR8rxdgHPzc1tXWXW8bbc023ss5tyLm0vuHFx09bG' +
'fFA70azIXTs7bgpexDUsWPQY0OKcYT8Wkci5ehbQsGaKDvEioF+9v' +
'PXvrg60168kyfhzRvSbo6QxerRdLR/8YuAkndeFQ3vvslo/K4JElg' +
'HJB1XSARzZkuG0+aJERIYe4RC+OflGfH29q3dQQn5lfEEFMHLyIwU' +
'rY+O9A0MFe/fZWzBCPBjJQRiMbCxNWUEhJ148gBNu2I4nBQGsew/M' +
'TwrnpKilZyeEC/Aqk70qCK8ykZKUeVWknqBBGSCkbXHScQCvyEOTQ' +
'UCQw/YrJ3tJr5Dfd2ZbbQm7qiixrjS9JCcxxN/d3dXuXwL0UDVx7q' +
'Esp7Ik1NuN5eeQGOiYFurCDnfPSwxOCPPz9XQtymfv3NnxxuA5NS4' +
't4ZOBKDjPfdjFlv0YEFqQDpBcAAkLnG24DuF6A3kzI3l+/cLS+920' +
'uUPMTbT0ftcPnBh4yJObZ3ASVXGNCPVBjWSAAoJXVIqxl6fFAWY4V' +
'4OQR8A9VbLBtyZfi8gvDI5OTi6tTSyq9giNZjAMbAwM1hw6eO3v/7' +
'52ZNTMzMzbjhHjB3qbYWbCWGVmk8aKHek/oZ1CTbIwgSvv4AlVk8J' +
'FKSqEOSQlmJ/sVRJAKj0g5QpA03pAEIOAyNx4P/YjcCi9B9wm3P9a' +
'/5G19YXFGVG1ZTiT4ONhT/Ogfx6QWjE89+Hrb4yej0qMd3RwMDe3N' +
'GGaGzPNwG+DnF7dUrl9+7oj50++/8EQihM6T4hDGv2YOaIXegpILS' +
'flWQzifPJPAa2eYY0UHALxG2ra+6Z6jIzBU6nw1ZV95NngUVx9qw5' +
'O/nXs+skGyHoiXEqGV7KugS6A0wLnE5JxtWJwduq1tt4rTn7+AZGJ' +
'6dWtfnGpBib4GerXrx/57dfTc+/0jt2KK6t0YjLiAhnJwYwAF4a1q' +
'Sk7PuHCq8dpzXwRE39AM6TBRUagHAQrAaE6JUXyBZIfaVDs6VZKLt' +
'ADNUY/BTR9v2d+opvKddGVvfUVWdVFiQ0VqTnscG93PaB/zGU5NqG' +
'QGAK995F09Lzw0qEXDrZvbquvK62pLa6vLVm3Ye2+43tO9114f2xU' +
'hVUj8PYQDgbIWgCuWsoluaHo6To4OIGkFLacTlJAVL8t0NU0MgoIh' +
'8HIyjIhLYr+G84Z6gCpde0hOPmvaXFh0QBtwC2RNY9KUoEB4nMTQl' +
'CnWvCoisGH0++U7drq6OqZ27whKrPY2HIVhJ7CoqKer7+amXuHKor' +
'K3dssjRl+Doy4AEakD4NpZOzl4dOycf3NO9wlnJ3gQqxfBP8pxcQH' +
'zu08WcY1Pwn+CheJQHqlIiuGFqiu1i9lxfUpaFlc8P+zE1z45fT93' +
'vmxbgyOEuHFk+tL85JAwlUVJWemhXn+y4BwGREK8qlR9YNrkk/eOT' +
'XC37qheXNn09bOhuPCnjuf3FuUD5KaHo/UxkdJIxveD9gvl7ZHlwe' +
'qF+HsETmtAyQTPrUgsiAFz62UAILXhQwa59ywAvAHYkRfiE4RQDw1' +
'eSxtA8ErkoUPIpyNp4Do0i2MDoMqOUidIbgqpHMfZO/cERgZm17Xa' +
'mnvbACZTnT0y5988kArhhSMLrrc/dIhl7AoFwsGy48R48twtmUYGR' +
'iwk1NOXRv47AECmkGTET2RYgFBLcZlLKC0F4iuVslwvkVNFmotEkD' +
'zxIJm6OycmL+EWr1/dlwHaHasi6zaE149vaGiILm2JKm5OgtLPc6r' +
'CCD7fw7QP/aBoziPihYxTFenkmmoa0Tl6qZt6boPqtae3Ov6Mzv2j' +
'0Vp3xxpf/Jel77Lg4AWl1tyUrqSUaR9OIqmISbrB8H0Puj61dH1as' +
'kgzTTRuNDPDGofXMNLSD5I4hFZtrys1VEbD2GQwuET4a03Lgaz2WH' +
'JbNfAUKAT6uZ24ObNiS8/ImvHRBSQdHI4Z+cOZ2tGjBfq7TAvhpmh' +
'UVJU7CvXRU8+hGsArn8c4NFKSGWATJXgkkAxClGlrE8j6yNzpHwc/' +
'qeA9C0hlZi3BNnuZB+Oi4jJ0MhYl5LM2/e8sq2xIrs0N662JD0/I8' +
'bNwdzdxQ5nEv5ZQP+AEeoxMgE1Qk4aF+dtngISYV0R1YIO0Gc3zi3' +
'rZLLWIPj7tnIaXxaoHsClBLqBeQJoBAERyotTIqViBFwcAYTpD1nD' +
'OACJABFyA0sQUlFg81csP4HTAu/kGnWwb4++5BEU5hkSaeXg4GFmu' +
'vny5Xe/ntNib5fMFRNAC7LBqvYW0HV+zgZgRODlrE2MUyKjXrx9Qz' +
'3zlhoBQSrKW5ToFt3rehkk3CilvWpZ76Lev5EV38uA0IK00r5FBIR' +
'+Epc53O9ZnORCwBq4eqChEtBE15Ww4ae7s4WHi+2/YkE/CYg0yORo' +
'ONoHZNG9DpCQ/HUQV1qhVBCRwpcOEOY+iqEnb1345mjbDxzWSli/q' +
'8v9cuDkkpy3pODre6bDOCkKLGiupBCpMNmhGc0ASXN4GgpIBuYjAk' +
'BLFJCMLo0UkFx4WCOj1i384K2LCWVlJdu3bjh/+iX+lbc+m1FOgcn' +
'3q4nN0lWrYBTv3L+W3tHhbmkQ74c5EdPYwNbEtKS66nXFz0CEzOKo' +
'FW+ergYiax7VYgAkQguSdKkkfXQcSEt6keDZQIrPiOl4MP+JnLsox' +
'oHSGVyLxJ8dA0B9EJ5Gug/WFCcWZsbUlXHyONFuThYeVGb/bwG9jh' +
'IaAjok2lPXNLopXGz6gwYgA2y6uXfdRChZ70bmRYc0+jWJn4tO0JU' +
'79IDbf6jPIbM6QtJZQ0FO9Z6KJOy65ca0iyfj0fX+xKyES1MEkIxP' +
'zzaxIHgbQ6jA9RJFCWkauXLmJMJHuDirT6ug4z26RdwQyiXT7+buO' +
'2hoYBjixmD5M5ztwMsZJEXFXL3WC08O+SkFhN0E8k8lAsLRFyXWVP' +
'tBWqvIhhjUlEgYItVsmeCJAosM2K0jlkUBgT/sO7O1sTw9nxNdV8o' +
'pyIx3c17l4fKvAhr5KUDXtSB6QdlOjWgeXCNXtWCFexEul780ekCg' +
'PMkKl6eAwEXQQTXQad/ubFqGBcb1qzNbyaqlYd0SM12NbmWWJMCLA' +
'QDhanoEhIVf+XOABjWyZza+UEpJ+MbYzVPJ+yFvgjOpkurKNSoJX/' +
'H4Z2c+VLjHxruaotiO8GZYMI0jgsJ279k0da+fLmlcQEAosx/jzg/' +
'E9CRcsu0DjyzeJAFoUgeIVufomotFXVQS0KVbFFD3y1vK8lJy2VH1' +
'lVll+fHuTpbu6OL+N4BGibob1uovY82D6xr5yPIYIa7Rlg7oTjIBt' +
'Lz7B1mONKhvWEPYHQRAf2UFU+sD7ffF4Inf1+f9lRXy9StbsQI5RS' +
'dIgQ5WJ+htWnCDA+PO1CjKRdxzY1RNVhmjutOtWyQ+li5Q1U106wp' +
'05PLmkY1oBASQbgcMHImf4E9op4r27bFnMKK8MAyZMxlMA4OsrOwh' +
'0bl5MV1ywqfbhjwaI2tJyOiLEtIKHAkW0h0tlgHR1UaLUtx5gLbzZ' +
'mlhAVe4Q1TiXzi5sbI4sTQ3qjw/vrwgwdfT0cVhlaer7f/OfEbpJ9' +
'KQddNaAASxAE87jzh/AZ55VijW0N7rUsueymwNDmMLdYCwDzUMLAi' +
'gZ7YQ0TVVcQaYbj8iIHQGtbrCDl2VP7IEEm5qCMdO4PkR0BDZUkBA' +
'Rk30fVi5gFrH001mdD0dHByFs4qAJEI6Fk4BjX14p/nSq46BQcEuj' +
'MRARqgnw9zAID0++dWeMx9+0EcBzZFVD3Q3GKVuZxsB6QrRgWHd5j' +
'/zyzsnkD44XYeygIPfwhkAJMadT3pe3pKfEZ6fGVlVkpTHiXFzsoI' +
'Y9L8FpKBT07RJrfdyCuEyILiYP3/rIgAiTc9nd5PQrZ2nC0ZGwa0B' +
'oOXc8ykgKY4oIBSsswnIEi1SpiYL9uGxS7hwZhSsDLsMaEHDZBU/3' +
'a6HZkkk4ZLhJicYF6TUgkSEDl1Iztf5JdI1IIAE8xNYB/jZ2DVOY7' +
'Wfg2FioEGYJ65ls7K0LqyqPPfOjU9kg2SVnI4OsSBss9LlLVTaUcM' +
'BQEq90tY9hPg3FXZUEdDiRB9WEi7urClOKcyKqShIhEjk5ogy293Z' +
'5v83Hd2ePHD2HuBEEALCjZWuYesczzNdiYNK+NsduFz3KxL0iQcjS' +
'32l5LRPkT7Ug2tkQDdWTZo7GEGoTib7a+mXbg1odIMlIO1EJO0aIs' +
'uarqunhpTwQAlZm48FWIxroASUuMwf3p6QbqBBMzKVfkcgyJh0/Vy' +
'09F6cjhDrNl7AJahYKxBMS4bzO9Y6OttFeBjE+TP8XBiWJkYJwSEn' +
'37s3oxfP9IQvktcibxhP+6JYl6I+ItmrWp+rYntigk74CDSkcgsub' +
'u4+6Ap+1+ktNaWpBRnR1UUpeexwN0dLNyeb/xUgBVFWUyBxh8jYLR' +
'YQCDVdnkj7C2TbIgFdYU3TUhXZMAoBIZ1RKg6xH9dertbtGMZVP92' +
'NR6CXBHRzGOJOpwRkvGqULAy8ppoaXJTjqIBa36QA/wlnbG6Ct0Ba' +
'tM8AIiNexGcOkZjOQzuF1FKK0ou8AQSkIRpjUTLQf+1yZEZqqIdhS' +
'rBBkDvDxNjIyYTZfvzYoPwuNZyZcSy7qRVPdwqi0Z8C+oRMJmgkKw' +
'aA6Q4kkwItrvQUzk/0gpADf3v+eFt1cWpxLqsWp3pC/5+Alv5fCoE' +
'0X+gatyG9uoZzOKRbTKrQdX++W1e+rJ/JFMGPAWFLF3twOxo1tBSM' +
'kUi/g9kUmSfRY9Jt7aIQ6H0sDlRAZqTE1iSdNODjAPbU4IJM8Og+F' +
'xu4U2RGSNcZpIC41E+qZL0Y05FLnwoBCajSVtEJOmy9iaYW34vNz3' +
'E0ZbB8GElBDHsrhrWpZayX95k7b0CuSgPQokygm0CeoiMiOFVFu9u' +
'0RqpXjPpRRrIolWaFC1jZ7oVXvPTCppqSlLL82JqS1Gx2uIeLjZuT' +
'9T8C9OAf1bexAUf3GcMAgcoKDIQM3gyqaRwndZXvOyqp7/qq+wAd5' +
'8DshtSvMBbAfbAKgUOeS+916zZswdO1DEhE86mngHBAa4BcFaOk/j' +
'a4hDtvDOO2dVj05pN96kDXDQOgT+7jUDqdW0DnI6P78wixfot+ckA' +
't7yEWJCKAkJRuWxIpOdV4WzQ3d2e9gO/k4eZqb5QaZBDswbA2t4wN' +
'Cj3WfVEhHpqWDuMmPDJSniVXjgqX5gno7CJu2kO2hgObnV+u9hBpN' +
'zPRjyv6pbg0aWGyB16x7+z2mlJ2QWY0WFAuJwLQ/ANAYD5PHoz+j0' +
'aEJZ1B/bQnnyykGvq+o5wsl25WkbyeCC0+2MXv6/LoIA0cfwvyooq' +
'OVqf1cx0Dui0f9S5C17OW04G9If2oPF4JZBx0kAxfkSYvymyycFhX' +
'WaKAhuDNL8j5n+CCdwGZJeCpl4s/kBaJuZgH4dxvD13CQJQ2ny4Nw' +
'51VFDpAamzz8eVffNg7eMHF1T7K3SDEA6UC08A0IiBo/ZmXP/z49i' +
'wZgViCtz2BvSeNfu9B2g+aIStSF/V7yuEFQ3dbGu+fxjlhHBpRSnF' +
'A/erpzZVFyQWZMTUlACgUEtV/4OL+CUDLnQI+Cdl4cv4W5Inn/8ar' +
'2odwbQ991bWPaIODy4A+I/sSAKYn97p+vHsYmQgVqfQJJnmJQZIB0' +
'f4RWZKAK1IHVRLccOnxGPfx/b7psT6IAtNjgsf3eTeWPu7+0x+mJg' +
'eeTA0v4jYFkOyTjQoh1si4+ucUkdDTj00QRS9aDe701acDtLz5zJR' +
'Qv8cgxsQ3H48FJMc7MBlh7gwfZ4aJiYGLlXVRWvK9211zZPsmLCNM' +
'kESPrvyS6Bp285Knk/MrAeFWfhN9C2i8AAj0ieDcsfXNVVmVRdhxy' +
'GGHuzhaAB04NE8HEv7JGDSqB4RXDiShf3dzfPIeGCnvs5svk/PvrX' +
'34OpzMT988Q3zaAbUuRUUKf6jL1Y8aPgdIQFaqDmrovoJPjWtYPSW' +
'afOsVye1z0jsXpW9flN4+L71x5sqptSWZvhW5oeU5YVV54SWZIckx' +
'XolRHknRHhHBLoo7r6okNDfBbbsIEWylkaogNtSU4n4IOlo57pWqJ' +
'Om/ikysqXTLMHWFKd2Y1kPR0LSk6MQpY2t7UwYjyN7AhmngYG6Ww+' +
'GMjlycJ3s7aCCqIiDSK8FSD5dq+EUyI7e8fRyO+uB+MiDjwbNBVks' +
'ASfoWJ3jnT2ysK0uHFLWpKqsgi+XhauPiaP0PAGn/OUC/Odb5X1YW' +
'S+93k5FaHp0c+F1nLY5USfl/d3X8C1ndtrwumy54h3j0Y0Akex38e' +
'OHerf49dwYOvy068rbo8J3BI7zz60syfYo43nCUZvoUZ3hnp3g1lI' +
'StrmI1lkVV54cWsANKMoPS4rwCfOwjgpyjQlyiwzzeHTm5IOWpsLc' +
'+gm5EQleKiUgjHqyGSwDxngEkWQFoeeQe0wE8pe9+cq/yzFkLZzdr' +
'M1P3QL+wuITm2jLF3Z5FMs2Fc9piWlkCQH10pFlN6tuzKwBRkYCZE' +
'VYhsGOlkvXPT/TMjfVdfnFDWX5SQXZUVVFqYSbL1cXa2ZHGoFGS7v' +
'3z5Z3rdEIDl37IcKteIrOx7YI7GcoEf+HEA6PPB05Aav+rV7ajvRS' +
'lau5eXbrX9aeiNLo3jubZeppWD+h6/77dI90Z0auykl3z0jwL0gGH' +
'X16aT1aSR2WOb1Wub0ayZ2ykS0iI++bWpHW1rI76+OqC8PQEn8wU/' +
'/R439RY77AAp2BfRxdHy7K8eLj4SdFvWIUj+lxa3qEKE3WCDNfpk9' +
'VJXLJpKl8/PvcMoKfVswn+zx/e6bh2/XDXS0OCl2+9dln+sy5idwL' +
'd+nQsRJDxSz0g0svG/VLoViS64hupmmIdA8d+eCpJ79xY9+x474UT' +
'neX5yQUZMRV58dlpEZ5utq4E0JOHo3D864BwmRu8HzUkhlODXw6c+' +
'O32BgAEIXjpAx6d7lh69zKoOyrknlPazwGS3zl/7kjTpRfaCzP8Ms' +
'MtqgrCmsrDSrOCijjBZdmhWcn+If4OidGusREuHp52Dk7WVQURW1q' +
'T22rjVlfFFmcGF7AD01g+6XHA0T8qxNXB1hyXqMf6vy06vkT0DERh' +
'tW4bWy5NDWhjWkumHYh9EZGgd3Go4qT6Su8KQGAFkkc/m3twXSOGZ' +
'8DtnlRSXW6Fq/ZwF0Q6P0YB6caDZ8XCxxI+7nExKXi6DgUeNUkmIS' +
'U9FNArh9eBfivOYlUWpUA2FBbo4UxqcZ8+HP304aj2XwM0pNcGdPO' +
'igW93NMHJ/+XLW6l4/uW5XciiLhdrQVO4TcR3bRXft1d8MXjyGZ9G' +
'bryueVib4VlTFN5UHtNaFdtcEVNdFNFcEV1dGB4f6R4V6hIT5hIe5' +
'OTr4+Di7uDt41RTFLl/I2dnW/q62rjaooiWyujG0ihOkl9qnHd8lH' +
'tavHdEsLOTg6WjvWVOWqDkrTNkj6ZeHSApV782mexXhhtN8wgsPt2' +
'E5BlAdIdnMtuGG8dN6EoB89g9JGpwJSDdvg0UUL8eEBZ/ANC0hD/3' +
'LCCsVEzCS/cvTvbO3u+eG+87e6ytvCC5kKi4/MxYd3274bMPdYCeR' +
'qIHI9pnkiCS7D9YzoCwhqAlgL7uOfjF4Cm63/V/UAl9twuLLVMDP6' +
'THkK3YDuIuIrq4/5SL6OKmjc0pcKxvTW/aWFme6ddRn7htbeq2tSk' +
'dDQnp8T4Zib5gOJxE39Q4r2AwnyjPkABnN3e7yHCvne3p29emAqC2' +
'uniIQa2VMQ2lUblp/nnpAUkxnjFhbgnRnqH+To52Fn6etsJX9+CWl' +
'RICCOe7uBr9NmVk9zM0H42Mp6EbzMpW5EE4nCMiw+06cHOTT+tp2J' +
'6jZSicsCJpHebUtIZPB86xRoGOVIxr8+cldKsr/cpisvobCx0TvfP' +
'jPTP3uxcmude5hw7sbKwoSqgqis9Ki3J2sPQkDbtPH448eTiixjon' +
'nSAFgY2AKC/6e5Tcy4CwoUAXtIr+ygoFGfDkXjf4ii/pgneM/rgpo' +
'ubdLvgTCrwPup9r34xc3VGRF1RXHFFTGFZTGNKQH9DRkLh1deqW1p' +
'Rtq1Pb6xPYiRBT/OAAQEmxXhHBTjGhzgG+Dm7utt5eDp2NCdvWpm1' +
'dk7pjXXp1fjhwKeAEws98dgD4Ola4ayTe3yXQ185mlVkeO0D81su4' +
'KkFMNzrj6cZXsGqNm4yBxNUqyKYxzwFCfDpAdAkt2e4AdzInO5HyN' +
'frVDWR3C1L+VQhU+s3iUChK6eonIV1mgoBw17LlXSxwo7k5kAcT3T' +
'P3cU/drpe2tVRnlRckVhYmZaaGQQyiFgR0lgigJaSAXJYBLRFAWhK' +
'knlZ4dIk8bor4de8BfVjBLXTo4Me3O5vI2xZ91XUIV/EMnVpZTIOf' +
'13t2rq2JbS6Pri+JXF0V09EQv31dGtDZ3JIMPzvqE7JT/eBsw8FJ8' +
'AHxHB7oFBrgGBbgGODv6OfnsLo6dld7+qbmZHL/5Mrc0IL0gCJOIB' +
'xl2cEEjT3ErLBARx8PWwc7i0KOr+TmaQKIbF+m222eAMI69jIg4Qp' +
'AuEZSSwFNCnBHYikP511x1ldw+nCHhamBGdPQwtwYDojjN3lHMT+V' +
'8emG9mBE8HNXZyXcDY70hLCH717++H2yHwLuxKirZkOaNjPeOwcWN' +
'I5VJu6FXdUlqfkZZJV3RpS+o2r/BNdQg+NCM6G+jvxTh+zzty7/sv' +
'fIZ/e5y4C+HDj1+c1zZPIZK9V02OMXXfuo36aLrb4QHoNckqyYGCS' +
'bHa0EJHzv+skdbewtq5NbKmLa6uLQZa1L26wHtKEpEbKb0uzgspwQ' +
'OMDdJUZ7BvnZA6Agf0cfX/vAQOe2+rg9HchoU3PS5pak6oKwkuxge' +
'EhlfigACvJ1CPV3hJ+ebtaO9hYpsW5l2b7oiLDKrS+SkyufzGzz6J' +
'dBqCRCfRjik3KfkE5hLUzgUlk62vf4g75zRzsTw61faDXeVWXUXmC' +
'0tdRka4VFfKTXcNf+x2RbJGD68b2eQ1uq08OMzrUZv9pp3JZv5udu' +
'VV0Qfe/6S3M6QNgBR49HJkvnJsHWhLwLu+rLMyvyEwFQSU6iv5cjq' +
'DgPFxsKSKsHpNED+nzopb+ywqj0+mNj4fJMAiDAnaUVZKJGJtK+3w' +
'3/xN0jf44FnKX3u8gehsEqnC0cpEU5rULwnGybvHlmV3t2e10cnN5' +
'dHek72tBlbWpJghO+dXVKZ0NCWU5YZT74wEhOgl9KrDeIBGAEdhQZ' +
'5urj6xQc5NbekLBjHdwzbmNzQmdjfFFmENAszw3NTw9kx/uCbwSsv' +
'p627i6rwIhKsvSAZCsBCXCxDxZqngdEN0CmgBYnhLMTkC5xQSq8dH' +
'BdcrjlxU7jro1GowdM3jxsMrrX5IUWE383Y3s769f5x2dI33zruvL' +
'kYMNz64zPtxtfaDe+2GEMD+koMEqLC/7w/d5lQCgLx/oXxb0LaMhC' +
'wcXd9eWcyvzEmpLUouzYYB9XF4dVtNSzRIzls4fISKPjNQLhA9D8u' +
'YTz7fENX9y+tGxBdJMoso8HmeyV8b8YOkF3aiXjvoLPbp759OYZUq' +
'yjO8wM/RiQ+K2LG5rYm1oS965n7+5Ig5gCx4amhPVN8RsaEyDu1xR' +
'H1ZdGleaEglrITPTjxPuCywrytU+M8ogKc3PztM9mBx/Zkrm+KQEf' +
'1ZjQUBoNQEF+1xZHsePRMWYm+oYGOFlaMl2drOIinNViLCPotp7WA' +
'eLT41lAuI0t3bpcM4W3F3EjMp4KZ4cEezbUFMcbfMY3uvuCmfSS7c' +
'NLq94+ZnKhg1maZGpibMi/tG8aF6gK6ss4xQlGrx8w6dlsAhbUv9X' +
'kYqeRtzPDy91Z8W4XTvxOCuZwGQsXbIesC0NzHu4+0FKTnceOrinB' +
'2WwvV10eRAF9ioDgJ0q4J1OjX/cewWiyqxWowe+XFQIxoiG6EgTEM' +
'yn+cyHyfru9iS6wIlkeViZxVo0uOsDa3fL2IHgDsp7aoqi1NayDGz' +
'P2rWdDQNncCvoNvFzyxubEzob4prLo1sro9npWTqo/ZDecBN+sJD+' +
'wi4gg52A/e8hGvXzsoiO9NjYl7+1Mh1wVmLZDxloUUVcSCVizUv0z' +
'kvxy0gOiQl0hYwU5tMrKVEMmTlGzKfikkiAgI2HokUi9V/DUgqRcF' +
'a6CAUB0UbCQlKB5GonglYPrcmNMfrhj+4vXbNRC6+lu67unmMLdFn' +
'saveBqH+o5goAkvDW1OZ2Fxr+/YfrDLdPFfmbvFuNNxQbmJoyIYJ+' +
'H97qXAS2I+xfEPJouQdTmXdhBN2SuKWHjhn6uWIhbnov7DMLNQyoP' +
'ENDvOqpRJPceBUCf6wE9+YD7F07cr87u/PzWJV0qevcqAcSlMzm4P' +
'EGim9ZQ061EcWJqlPQLhPSn7O1z65vSWitZu9rZ+9Zz9q/n7OmEeJ' +
'QKLg4OMIe2WhZIiPb6uMq80PQ477Q4b7AIYJSd7A8KDSQ3ZEYRYa7' +
'uHraRYZ7wkJ1taR118YC7tjgCVEdDaSTQSYv3SU/whceCzHB1WmUN' +
'gMgoHSaqZA24HhBdOybQ7RekB0S+SIJsVIuzCkLaLwBAezZWtxQ4/' +
'6c44Lc3LD4bZH582fT9F01ePwSAPOztrEb7js7gmEFfa03WtlLj//' +
'7A/ItB5uQZkzcOGe+qMPB2NAgL8v7obhfZQhO/IGORlOxoyQIAnTv' +
'WAaGnLC+poSITpIKHyyr3FWNXnz8Y/YKAgONTPaDPb11eBvTl0Eu6' +
'PXBKOGBHXwy/QFf1ftW1hy4DAdcHNqWU0F3CcP6WbIwzRCa6B+mIO' +
'3jF+6+/0FQetW1dCjioAxs5+zeyt65Jo3TgAAta3xgPLmtzS2JtCb' +
'o4cFwl2aHUjsDRQTCCSJQQ6RkWhFUFFstn27pUOEDaQTbUWBYNGW5' +
'uWkB2ij+IQMhz/b3snOwtbazN9YB49ItviBjWAyJfd6LWb5hJGkMk' +
'q5X1qTGdEZLVvoJD2+rz09yVQz5/umn229dNPxUxFReMbx01vn6Ae' +
'WmLTYi3RffZndM4LNcLgLaWGv9/Pzef6WG+ts8YLGhftUGQu0F4kP' +
'fHd6+StUICsB21pE8l66ffGwWvfuX05orCVADUVJWVx45yczTXDy5' +
'i6CcgMBsFIwJr+n0nsaCeo9T1fTX80n+R+U/4CQeplw795kj7cgHn' +
'D/UFuGU9KRUSQEP69s0QiURkYkox8PDdVzevTt3Umnxoc8ahzZxDm' +
'zj7NurNZzXQSWqvi4egD9KurY4FEqI4OwQ8VXZaQFaKPxw5aQHRoS' +
'4gocHXxUd6hAY5e/vYpyT7b12Tsnl1Mij2hrIoCF41xZHleWEINME' +
'3Pd4b9Kq9rTktUOsaGQrdsj59Tgo/uWSEWER6dtgEB12tkvWqSENc' +
'SfY/2dlZUZFi8sMtiz++afLHN001XOa9F4z7t6ES6Npk/Mo6k0hfi' +
'8svbpod715bn7OlxPg/3zFXcZk3D+Nfd1ca+DqDBfnoAZE2K36zFW' +
'58MUfKqt2vbG0ozynMiK4tSc9hRzvbW3iuALRECz56QN+c200BgWz' +
'4fIxLbeebYxu+J5b15dDLpB8n+uzm2e/by74cOrG8NxEpAVFAfOLT' +
'BnUGJR94/EEPuLUtq1P2b+Ac35p1ZHMmHKCxQcLBAWqBnRYUG+vb2' +
'ZREGLHgbINRwAGMMgFQqj/ciAl3pTkOZKNRwU4hkOz4OkRFuMHDwf' +
'qAEZgSHJC6QvwqzAhKjPFwtLXITvYk/Y6n37uxDIjOHmBGiU09knt' +
'Ksf360c8vj7354uSb5yS3L+BQvVy0e0NlRYrRH26YQWT58w3TqfNM' +
'wQ7jKxtQSF9ab9y92fil1cZxwauu9x44tK1mQ5HxH98y+0LEnLpow' +
't1ufLzJOD3cEGIQuLg5PSCNtB+ugTk0OgQ02r2vqSo9DydL2XkZsa' +
'4kDwJGOkCkXKChLu7B6Fe3LxOpVr0E7o5Y0293tcLdqHiA2ES+Fop' +
'+tRb56jqCQKPbbXKFBcl1tvPR3csHNudsb0vb05l+Ylv2sW2ZhzZl' +
'QPSBA5Ig6tzyMoOjon3SUgJ2t4HkTlxXw6LJbG1hBBhRZioyghugz' +
'SAShfo7RAY5RgQ5+fk5RkV4bFubCvdvqYyGGFRbFFFTFJHHCcpI9m' +
'Mn+oAFZSV5kGXaPLWCrrN4xoIQkBjOFZcAwvHp8TfOFGaEB3hahfr' +
'aRwc7gboGQKf2NgGg398w+8st07+8ZXrvlMngHuPfvsn8eoT5RMCc' +
'72GCW7M2Nxy4vPvoroaNxca/u2H25QDzw4vMc+3GW0sNs6IMI0N8P' +
'vr5VSCyAlDPLK7Bx3XHQ10HqwpYhRlkNjsj2s1peWhEV94BRiQ5RU' +
'BwgNWA0oYQ/4fGQrhNQ9Wvzu4igI5o6DffTekkEGVB99ghgAb1pHA' +
'SeOrO+aM7CiCa71iXBrrr1I7sE9uzTu3MOrgRFQL8HtIfEG8bGuNZ' +
'LN/UlICNLck71pLKz5qU0qyQipywkqzgjBQ/AASYIrHd4xoT5hoZ5' +
'OTv5+Dn7xQb4719bRqoC/CKHQ1xDSVRRRnB1QXh2Sl+CVFu9nYWBB' +
'BWJumX2RE6Qv3OCRQQlwKCE3Vn4FQqK6CRY3SqBYK78ZEGY06MhfD' +
'8lqM766tTjX64ZfbXW6Z/e9tUdsHk3VPG/3nP9C9vm/56lDl1gbmn' +
'ysjZ1mi4a9+RnQ2g4r573fRzIfPjS0z+dqPDDYZgQeFBKwCRjRyVk' +
'p6ZyX7yHYXCiy9ADErOTY+sRZkdAxbk7Gjtpm95L+mW+SAgUnkb/e' +
'Y4Lnj/zbGNK9t5oBBwWegHPI1uXIpEf/K9D3Sihqo14txouRs1kuh' +
'CJ4DY2wkpDxv820kCCA64cWBjxv4N7G1rU0C2gVsrzg2LjPJOTPRv' +
'q0/c2pq8pSW5oTgyK8k3J80/O9Ufon9uegAn0QfosCLcwoOd/QCQn' +
'0NSgt/2NZC0xsMBqhvy3IrcUJBwmUl+eWkBrHDn/FQv0G8UEMoAsU' +
'Dfm0NASgJIiYDwSvb3dNpeZvTmQZORvcaDu01uHjbp32rMjjJ3dbZ' +
'rzjT6y22zP71l+qcbpu+eNBnaY/zDbdPfvWm60Gd6udO4Og0BjfQe' +
'2L+5ZnuZ8d9/ZgqW9eiKyZuH0AemhxlGhvrP4FcF9U/jdtx8FX5xQ' +
'8/sZD/dvZl3fntFQRw7MbQGl5/EuDpaOTiscnK01iqWy9Q6QFiIw8' +
'Ip5qogp0G/0Tt8c3S9XsXR0rduJ2cCiCwD0QES6nfW1a2hG7q0/ui' +
'2LBAGINvg58kdWRQQHIc3ZxzflgW56prq2HW1LGAEXi4k3LOuPObw' +
'pozNrSlgGo1lMcWZIQWcoGxSss5K8QvwsQMXF+jn6Ofv6OvrwIr22' +
'tWWtp5krHCAVgdM+WlBhZzg4gwwQP/sMJNnAE0udxYEtGWAgDBkQ1' +
'YisDE3mOeZ/tsHZpp+04Ve5mw383ybkYstfoFLa5bRX++YffeG6ec' +
'DpqN7jEAh/OW26S9HTT++avr6QeOMCANDQ6PXuYfOH+tozTb6VGj6' +
'1ZDph1eYvduML683rmcbRoV4vjt8ana8Z5psOE926emBdHVmnDs9z' +
'u15ZWtTVXZJbgJ+RVoGy8XZzsHeigAa1ANaJqW7/eXwS/SLXX7XUf' +
'WnYjYuDMHqNE9vUNdJcVv33T1kV1iBfhH3M9XRR+9d3dCcuqMt+ei' +
'2zMPPAgI6L+zM3tuRrgNUG1dVFBER5Z0Q79fRmLiLlOm2rEltIFWF' +
'9ARsQ2Qk+oF+DvZzCPJHQBCD/AOcKoujtpNABnRAY4A9VuSG1RdH5' +
'XOC8tO8TknfA522EpBGP/dLNqLBwQOc3JBh19XGwmCBa/rfk2ZfD5' +
'ou8ZmvHTCuYxvaWBkCoJYso397Gy3ozzdN7xwzEe1EC/pyyPTBBdM' +
'7x42bMw1tLA1P7W2ZG+vf0VbUlGn03etmi1wmWFDPJuMDdRCGmG4u' +
'drgPzAQPh7Qn+sCIcAXrWN/0WG/f2e3NNRkFGIPYOenR9rYWjo7WC' +
'Ahnz34aEBxfjegENtnpK3QFHd3qLf1oB7Wg55pxy6REH97t3tjMbi' +
'6PObb1KZ1TO3PheGlPHgACAbYOU1RWanIARCKwI1B07Q2JAAhc1ob' +
'GhKqCcE4i5J4+NHWNDnMD2/H3d4QjNNQzIz1o+9rkjU0Jm1qSNrck' +
'b12d0lQWA3djx/sCoP6//bt6itY3dJO9ZIiaR/SbCMeDFbiFCE1jr' +
'S0MVFzT/7xn9slVpvQcaGmTtbmGZkwDCghc3J9vmwKX1w6agH7+2z' +
'um37yGLu72MeMtJYaccAMI7jf5Ry4cX18YZwTp0mciU+k5E6B8eYN' +
'RS7ahiZHBzP3e6THujFgI7g4XHUOeNdY3O9ZzrfdgfWksAKov4yAg' +
'Gx0g0mka1vwIkEY3fDVCxRtY049aq9d002hYsiZrppY3GFesnNoV0' +
'd1f5yb6N7akddbHv7grRw8Ib5zcng3BaEtrEhhRa1UscAFAIWGerd' +
'Vx8CeQENvXpe5dzwHVzU70TWZ5xUd5oAUR8wkIcAkIcI2K8A4P88r' +
'PDN22JokWi2j9pzI/vJATUF8cxv3tLzVTQt0qZrJil3S6eXQ0kXzT' +
'EI8Awm5RoJfd5Dnmf46ZKblM+QXmBy+b7Ko0igtAQJUpBNAt019fZ' +
'/ZtMQKB/YsbzG9fM33cZQpmcqLJsIFj6Olk0ndmy9EdzZXJRt+9hg' +
'4Qnuf2ceOz64zKEvFbTR/f7wJA05OiR+PcxUmeRiJahMA01n3x1Kb' +
'qopR8TgRuy/xPAKK3nzzQ1U5/qvd9jWasBNAIWXqvNxndV8YIns4f' +
'0slPueDk7pIXkAvohGwAdGRLJng50GxgQaDBEhP8AVAsCxltWZ0MM' +
'WtjE5a4wX3VFEWmJ/qCkEuI8owJdQ0KQNvx9bWPZ/kmANAQj7AIr9' +
'KCiENb8o/uKNq3MffApvwtazJvCY8ukoijIftkqpe/j5hUFfSjiRS' +
'QblvOu9deqsoMGLts8ce7Zh9eYr5z0uSFFqOqFEMrc0ZNmtFfb5v9' +
'5prpo26TW0dM9lYZt+cbfnMNvRzEIDCoQ/VGJQmGvh6rbFZZtmQaQ' +
'T7762um4OXeOQk6AZ9kGdDMpOjxOFdJAU30zY93nz22oTQ/Lj0h6C' +
'cB/U9DCJ+SCupPjZQM6x5F1ieu+M5uARkTXZ471X0zoPitsze4+2/' +
'w9r/Rt/vF3fnUucFxcBPn6NaMnetSWyujNzUnpiT5A5roWJ/VNXEv' +
'78nd2Y4lbggo8BNcHDsJAWWl+Af5Obh72AEgHx8HSJQay6ISWD7s1' +
'MB4ltfda2fxUsHND3VfG00A0e0KRXS6Xq1b7ocRB+d+8cubuKpJrF' +
'hqp3DL7g9eeyUz0WfyEvPPPzO7+4IJiIGjjUYsf4PTq43/e9L892+' +
'afvuamfSC6eE6o3V5ht++zvz9m2by80wIQy+tMcxjGViZobmtzkFN' +
'/utR07k+JjjAyxuNGjIMjY0Mpu93z45B7iN6PMEjc/VCcHTKSZzqq' +
'SiIz0kPK8tLzM+IdXJAFeeMgET/ANCTHwOiqo/u2E++rEdDtinQLH' +
'/JBf5mmALqOd3e93IH/9zmytwgTrxraoxTWZbf2QPFKwCBzObQGml' +
'tSVR8nF9cnG94lFddWcyxbVkQgOBoqYiGv5bnhQEgEHKZKf+3sSsB' +
'avJu85IDglSRQ7wqVOQQCFcSSEIukjf3BeQkCYT70ApqC9jWqpWit' +
'lqPVgRETu1dV2tru60oR6Dddqe2AqKt7czufPPNzvftdHdm55vd/b' +
'693Of5v29Qu9/X2Zl3MiEk/7x5f+/zf+7fsyU1OX7d+jWpqUkZmRv' +
'KDdmBsgKQPreJvzOonv3wNMlWk8F2xEJbvPF/AQrXA4NVMH2eFBiQ' +
'cYphgG59dlaUl3Gpm/vgOg8stIkj3NMtbHHmihYT+7fv8v7nU97P7' +
'/KmXok6WsvZ52X9IwHob09GXnuJs6uMVZQZAVqMBuhfL/NAvm6djh' +
'zeze5ysewSBAhLRK733Z4cuoWNxsirSUJ//WD76VXZOkWuTVeskec' +
'mEiMB/CCS9xz7CxXydAhoHKfazY6Fi36xqe37h9nSIZprLgwQmadA' +
'uK16urxG1VZl0eb8bQki/jpZYZI0L9FWuuVIh3EZoI5GxY5qiZ8Rn' +
'61gG+QXpCjl6eAZdWHpDkaBal3CSmuuWZOpFGMSoTj/yeRNsRs2xi' +
'Unx2dnbwLd5C/Lr7Tlwh54ZXg/1lFgIJrmAGEmp9MFpThxcpppPsK' +
'kD1b44MzouzeR5Z4BCEMNg19+dEqYk/bJUe4fP476+lTkJ4e4z3tY' +
'luKIxNVoaf/hCu/uABoPe13sp62s378d+S/v8+Zei3yni7PXxbKKW' +
'WtjEaAgxf73qwjQN6e4b3Zy9vvZdjECtHDjjYUbfaSSBN2uO3Rv7P' +
'S509jdUGxQFVgokUqSkZQQnZBAAJr9lRYGDC8gQETXkDLpMRL8HCO' +
'tiPT0q6Fwky8d7aHVEwLks+d7bfkukAv+hq3Ja5RFyQCWTZt5pMNA' +
'o3OgnQJDGgAC+21HoFgly8jLT+HnJVdYcg+2q2F/A4DaMVskAZvZq' +
'MpUSVOlwmRwUbPSkjZujEtKWp2YFOu35/sxwccvN/BHTu5ExqRpAh' +
'AzCZqeDU3Grc4wTJhLIWw2YRqRaJ4NMu8SSxGw1nTw87cPg3d842T' +
'0f1yLvvVG5Nkd3EMBDLvt87Kf93BONHHOtWHKO3blitwt7N9cWPmH' +
'S7zQcW7vds7uMtzi1qBNzqrTsv/zI95vx6O+OsV9u5PzSi27XMpis' +
'yPuTPaSVlastVsko72RHWX6/PEXG5wWuVaO42kUoozEOF5SYuz6pN' +
'X35n4VoNlxAtBFRmRAgmZG6KEwpNJgmAlWz5EugxBRRiR2BNJU4yh' +
'0mXLg5vda+HDbq8WYAgCP5vCz+mWA2glAzd4iiy6noCAFzIPc/BTQ' +
'9fu2lz7bqKBDqfBY7SikZFtloqfEBZslBZu3pa1dE48s8VZqm8fCh' +
'zVdJn73s07Y3rHSA/Q+DphDMhm6ae4uYWNm5rTODN4J9d5B9tHzBK' +
'CBO4xDREYchvqnPnjVrEi7fiLm3z6LXurjTh+NvNjBnTvOnejhnmz' +
'ivtGKQDzrYEdyVqQksX8Yj/6n93hL/ZETPZFvdXBhx0tey+JxVq1Y' +
'EVOjjfjT1ai/H4uafjXyeAP7BS/LWowStESKTklBETxir8oiAai7w' +
'+cwi/VKvk1XpJZmb1wfuzaB+EG/ynN1j3RIfT978R7TvTsebuMdZp' +
'oFkPGA1PnMLosP6Y4MDcKdDy4MXL0KfZZEkKxXbLVqtgXsBT1hgOA' +
'AdOrdmP3RKDNz+MkgQbKSNMwTkVweDRDY2HVuoUyUjMUGoqekhckC' +
'/gaHIQfQp6Op9NHbU49NZGg/46TpH2axjOoOzULzEKDBpZkB0kzXR' +
'/Y9QnwULskmee2+9XHRt/pjHnwV/buLkbde51w7yOlwst7Zy/353a' +
'h/vhQN8nL5Re7uMjaLtSJrM/uPUzH//Vn0vXORH+7nHKtnZT65Ioa' +
'7KmvjpghWTA0V8aePov5uLGrmVW5vK2e/jw0AgRWHGVvCqEDXaOEk' +
'O1Ih/FJnEGQHdJBZI1CJszasBSPh/wEQMlyNEBocxAUE6n5omBQ8D' +
'zM8YAjQEAMQY9oxAB3YZQQDoNlX7DLzffY8h4EPjklVhaDnGcaKO9' +
'BGwX/BZ3kUIEVJOtjemGxtUiwnI/zlBSWilFIS0AZTAaTGa8n1WPO' +
'cVJqbJFIPd3rIANYBksUeZgAK/RIgsApIte0AaRkeInSaZLQuHdme' +
'wZb87KcS//rEqq/f4n28D6NtJ5rZG+NZz1ZwHkzyHkzw7g/Djsfpc' +
'HDWrFrxVBL7+tDKr/sxst0T5HgVLB4XlM8TGcnpEZzEoGbFf13FoB' +
'AANNzOORhg24iRcJeefYOpwHPzzKxV/PYjLzRWmJDIwmaQUvLsTet' +
'jE+JXhQEa+4GxnH/JEUc2NOLm0ADNjf00O/Tj3Nh9VEMjSEU1S1dV' +
'jSx7rGGA0G893OV4boeps9XoNGWDMQwbUa1LAFvcod1aOFCCqsT1H' +
'gTIqsvh5yJAKnnGS+3qzhbF3lbFrnoZeKlBZyGoGCUx4cBOAC8VtB' +
'sqOGNmc0egc6ftcJcLSyDIBFWSVkDGv+/pxBwZB3k3/EhXTdN00Ax' +
'BDc2kMUMzNg8szfRdHTlgUW0rylqfn7khb9uG7LR1cNGPbec++E30' +
'gxDvd29GXtmPymjT2ogN6+IVBZv10rSkeB5cebCuY2NAAUXErwKcO' +
'HvK2Q++wHDE2DMgXJxOJ8soZHFYEXdn6K7/s/QINjIMBat6jrxQBx' +
'KkledYdVKtIi81OSkuLoYANP4XAcJIzmgYoBFirY3/NHf+xy/G7uO' +
'+hxRS4czCGKkPIf3XJOjKZO7ocNDs8BuH6g7uKe/pch/b5x090XC0' +
'0wLovLSL2r9TQ7s5Lf4iszYLtzhZWltdyf62UnCR2msxFtfRrKz3i' +
'lQAkDTVos6o94j85qwy5ZM1poz3fvwGWeCw2RNunhG6A4sm3L5H04' +
'zQTVjEMw232/cxDfjTQ8vc2vhBNBKQdQT+NXvl5LULL396seeTCz3' +
'XxrtrPFSnn7N0OWry1ciR3SAsbKMoglLkXxk+MPPBq+NnugQ5G3xK' +
'9ouVYEtzuoPsY3UR6+NWmITs33/I+4e3oj49xBnexTkcZNFbHHwLa' +
'XvspfnPmVLtqcFDnUGPXWlQFZo0EqVkW9LaVYnMFgc2wCgBiJRI/R' +
'mAiOoPjeLzL8Z++gIkaPQ+bXJjqIdOyYG2GqcJ+f8cQCPh+fVDpLZ' +
'8cPLSke49+pfaqRefVoOeqnUKQLKaKoVmCjDCdMMzTbID7aVPV0u3' +
'V0lb/GLQYhppql2bVecS2lTJwSbLwb7uycvHiJiPkJZJ+AmjNLsUH' +
'TEIkx5gUwzDcE7aTEjJ9NByfe8jAGGF0p1Q/yJT64vVoQs4E3Dg1u' +
'ennms18ZN5+enx27YkbF7/BNzhU3/1GrYGT5zVyvK2W7gfHeR+fJB' +
'7aR88RlZpWHGruVtTklrMMbdejxrdwz1aw26zslS5rPVr1ywRtvl5' +
'MLYnz90KdxYvTA2+vLem2q01a4Sw0allOYnxT4QBGgOF8iNsdCG8C' +
'e9/eXG5NZ7utSd+zYVlBomfvhi8P8ewryBAIbpi5yISstE01wjcKM' +
'm0PgSI0CeOkGgD1i0sTA4ARgDQ/jYNmNON3qI6rEPAAzY6UEYSyda' +
'9Lcq2oKTZV1RTUagRb9HJtlhKQYJSS/Lj3nr3xP1vP6JzUndJhwIa' +
'M6FRnC0yhV3nGBUk5btop2HzI3I/3pkhfY7Tg2GAiBWKFjjdeIXB0' +
'kUck0p4y2dGsO79Orb6Lk3hWJNP3zw48c7RqQ9eu/neK19dO71ImO' +
'LmJ/reOfucVbXt4vPcny9F/83JKPCGhBm8jlbnzQ9e6e6sEmYlZm2' +
'Jy0iJS9kYq5ZmfXLhEM6IvNk7P/E6XAS6VJve5bq7asyaIr0ir9ql' +
'JemG1WEdRABCChcGoHsPAVoO6Vy4RxNHhEZ/mhsMG2zkINFsondog' +
'IZIA/hwGCC6y370LjNgZYgoLMLbOT0ye+WVA22ajmZFV4uysVJUXV' +
'EAomTRZufkJmfzN6uUGR2N8lZ/cdCBTUA6OZhw6/qONH/6Zs8jheI' +
'XkOQqRHgPQiNIujuNwXkcgUcEh1CXEIDAJQSAQoPhRlSGrJtOOtAA' +
'gXWHTQcEoLszI9jac733u5vgzKJan7/RuzDRT+rrzj8+rWNw6v3j4' +
'sIt6+JY8atYsStZHa0VhJsCK4i+vHpy7urx0OVjM5ePfvPZacKmBQ' +
'CdIRI08N0jg1F6nqspN+Co6HKjVC3jJ8TzHtniRhAg3MpGfmCejD2' +
'MthG8iCihwXB/jqaHHWXgI3RGGOp5DCC6UnH0IdCzZJg7I2IkiTkD' +
'1uDw5PvdYLPt26F6Ybuq0SsMOgsaPQKzNhvkKDcvmVJngQfkNOSaS' +
'9NUxRv6jjQS/tgLhJuOEAmGxpZornKaZB4b288vgSgxbcjDhDZzgI' +
'whGMSUXIgmgWF6G+kqetJGR8t1P3glC3RFFqE/vX39zLcTyBJDpk3' +
'Bbd9HylOHFpF/DBXHAqlQvTfZP49TuTEywLRC3OgjQz/7b98cuA0f' +
'xCbHMwtgGJDPLtw4swg6aKrv9iP9xScOtZJEA/zYvJ0BSi5Me2JVd' +
'ELcE/TV+4GE13BoKar+IWZA1eMqCdkM8J2jdER0mYOC7IFvYkJ2GS' +
'A6D/4LVsbZcPgUC7SQBQXnK82c//ytA2AwdO/RgZ2AQuQqBK1k06b' +
'LROuVxRvB0wHDYE+T7pvP+tAOIRzm9M1DorLDj9R3hVtIiNdJBJaZ' +
'20VQgLuin7D/LedS++lJKHcZAw8ZrTETPUvmhCJp8Dm4qreun5knz' +
'V8LN87evt67RLed3kBiWPKRc/MYlO5bxAJ40n2PFBbIOT9/sw8AJf' +
'PWzy7eBHkBmM7ensTRJyCMABAoxPmbAw8l6PkGm15iUGW/3OlzW0S' +
'ivKdWr16ZsCbml5ZbiA6/0/wDo4+RyoaYVx4yTT1G3fMoQCQP/piH' +
'tQzQEG0Z/pLzjdwPj7+4nFQitXZIaTVOiMVI88vcaDhgTgbShUaZ9' +
'2MH9wDZ6EaXObppNwdNa2R8HQxXzoPBNkCqKRjqMHow9D2kjkHJQr' +
'JEAOhzAAg02hAIxbcAEE6zxUzBArIcIC/f7et9i3jB+0CW58l0J4Y' +
'JE9+P/P/foTSduTPd+91E77eEef42TtY4uzQNAPUvNxfvbq5w22Wv' +
'H6jZVa0rNwjyszbHxq6ELc6swcIzM5WtLknXKbapxeBupJfri83aQ' +
'qtOaCwt1JTwTRqBsbRAK8vx2BVum9KsKXSYxcbSXK2MD5ahhSowqX' +
'O0smwLJbDqCmBBpTjVUJqtlJAFZWmlJemwgkldCIdBlUfJ6QUF8HG' +
'vXem2KWBBuwH0Iy7ossrNVL5WkQsum0mTryfvV0nJguI0dUmWTJCi' +
'lGSYNSJYzagq0Cly4EU4PThgf4DTc5gV8C+rFv6VrZXnuWwKo1pAy' +
'XLhMKkFYIAZVAVwApQ8T12SqZSkqqW4sk6WKS1Mht9rVgtMmkID/v' +
'BsvRLOoVArz7VoRVVunUkttGgFOkU+XJMyvbjcJKZkWbAs2MYGZZ5' +
'FJyCODJxwLvxpVOXD81JxhkqSXirJkIvS1JI0SX6qRpqjU/INqly9' +
'MoeS8XUKPnyXSpylkaWfebn+/JEdRzr9ZfrCgjBAZQaR21oCWMDlL' +
'dMX+SuU3jK50yKvdusCTirg0IDmCjg1PofKaZbAJukwyzx2qcMkKj' +
'cUuSwlDqPEbhA7TBI4nBax0yIpMxS7zCV2vcBQKrDriwIOpccuhxe' +
'DHm3Aqa5yKirMEr8DFtTA2wAOBzzapBXmIjslLNNLbTphuUnkMOMB' +
'T+Cwaos8thKbTqCVI1WXx6aoMBaXG4TgnrjtcrdVbteKvPYSlxk+W' +
'2Q3FJupYruuuMwosuiEFUYxgGKlim2U0K6D9cXwG+HcyoxiK1VgN0' +
'hNmmKCXX6ZSQJQWiiRr7zE71R6yuV2oxgOt62kwiwtM4jN2mKrVmy' +
'hiswUXis4E8AdgAPDGICDi2DXiQF3u7bIohFaKREsRYem9UqAOB9Q' +
'g3NzmOXmUri9ZXCFXVaFTVds10vgDV6rbPRUe88e95mXtz/X7rDrB' +
'PzM5DVrYtYmrAo4dVVubVO1dWe9o63R1RCw7KgrbwqYa72GRr+pwW' +
'd4ur6ixmtqrra31lhr/bqmamNLtbW2Ul/rMTRVGRsC+rpKQ2PQ0hy' +
'0wkfqKo2wWtCj315T1tZQ0dbobKyytARtrbW2xoAJFmwKmFpqbQ3w' +
'WGNrrrHV+43wwZYae51XH3BRjdXWep++zqtt8OsbA8Zar7auUhf06' +
'Kqc2qYq686G8rZGR0NA1xI0N1UZGuANcBqVhu011kYf1eQ3N1Ybgz' +
'6qzq+v8xnrfbqAQ1vr1QXd2hoX1VCpbQrogl54RV3tUtf7jHVejd+' +
'pCXqNtT5ja31ZfZW+Fr7aZ4AvrfUZqt0UnHONVx90whN7nd9Q5aLg' +
'bKvdeJ5VTg38nKBXU+3WwItVTgoWbKoyBzyweGl9pTbo1lVWUL4Kt' +
'cemhFfgJFuD5bWVxqBLU1upBX+nxqvzO7R1PhM879rpO9zl39/uaQ' +
'+aqiqUClEK3P/Z6ZvWrF4Z978S93Gy');
end;
var
ShowingDebug: Boolean; //move if you like
{*******************************************************************************
procedure CopyClient;
By: Nava2 and Tootoot222
Description: Copies the client and puts the image of it onto the debug window
Usage: Press F12 to start copying, and press F11 to stop (you can start back
again by just pressing F12)
*******************************************************************************}
procedure CopyClient;
var
W, H, X, Y, T, bmp, MDot: Integer;
begin
try
T:= 500;
if (IsFKeyDown(12)) and (not (ShowingDebug)) then
begin
DisplayDebugImgWindow(766, 504);
ShowingDebug:= True;
Writeln('Showing Debug;');
end;
if ((IsFKeyDown(11)) and (ShowingDebug)) then
begin
ShowingDebug:= False;
Writeln('Not showing Debug;');
end;
if(ShowingDebug) then
begin
GetClientDimensions(w, h);
bmp := bitmapFromString(w, h, '');
CopyClientToBitmap(bmp, 0, 0, w, h);
MDot := BitmapFromString(9, 9, 'beNpjYPjPAEJo4D8qwhTH' +
'w8ZvAkIWCAbEXgAgCS7S');
SetTransparentColor(MDot, 0);
GetMousePos(x, y);
FastDrawTransparent(x - 5, y - 5, MDot, Bmp);
SafeCopyCanvas(GetBitmapCanvas(bmp), GetDebugCanvas, 0, 0, w, h, 0, 0, w, h);
end;
except
Writeln('Unable to copy canvas');
ShowingDebug:= False;
finally
ClearTimeouts;
if(not(GetSCARVersion = 320)) then
if(not(Round(T / 1000) < 1)) then
SetTimeout(Round(T / 1000), 'CopyClient')
else
SetTimeout(Round(T / 1000) + 1, 'CopyClient')
else
SetTimeout(T, 'CopyClient');
FreeBitMap(bmp);
FreeBitmap(MDot);
end;
end;
{----------------------------}
{ Signature For Script }
{----------------------------}
Procedure Siggy;
Begin
ClearDebug;
WriteLn(' ________ .__.__ ._______ ___ ');
Wait(80);
WriteLn(' / _____/ __ __|__| | __| _/\ \/ / ');
Wait(80);
WriteLn('/ \ ___| | \ | | / __ | \ / ');
Wait(80);
WriteLn('\ \_\ \ | / | |__/ /_/ | / \ ');
Wait(80);
WriteLn(' \______ /____/|__|____/\____ | /___/\ \ ');
Wait(80);
WriteLn(' \/ \/ \_/ ');
Wait(300);
WriteLn(' _____ .__ _______ ._. ');
Wait(80);
WriteLn(' / \ |__| ____ \ _ \_______| | ');
Wait(80);
WriteLn(' / \ / \| |/ \/ /_\ \_ __ \ | ');
Wait(80);
WriteLn('/ Y \ | | \ \_/ \ | \/\| ');
Wait(80);
WriteLn('\____|__ /__|___| /\_____ /__| __ ');
Wait(80);
WriteLn(' \/ \/ \/ \/ ');
WriteLn(' The Rebirth!');
end;
{*******************************************************************************
Procedure SetRunFast
By: NaumanAkhlaQ
Description: Sets Run on or off using the minimap icon.
*******************************************************************************}
Procedure SetRunFast(run : Boolean);
begin
Case Run Of
True : Begin
If GetColor(725, 106) = 6850714 Then
MouseBox(710, 101, 760, 119, 1);
If IsUpText('ode on') Then
Begin
Wait(200+Random(100));
WriteLn('Set Run To ' +BooltoStr(Run));
end;
end;
False : Begin
If GetColor(725, 106) = 7002860 Then
MouseBox(710, 101, 760, 119, 1);
If IsUpText('urn run mode off') Then
Begin
Wait(200+Random(100));
WriteLn('Set Run To ' +BooltoStr(Run));
end;
end;
else
srl_Warn('SetRunFast', 'Couldn''t set run to desired state', warn_AllVersions);
end;
end;
{----------------------------}
{ RadialWalk Edited By Me }
{----------------------------}
function RadialWalkX(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
var
tpa: TPointArray;
i: Integer;
begin
Result := False;
if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, Radius) then
for i := 0 to High(tpa) do
Begin
Mouse(tpa[i].x, tpa[i].y, 1, 1, True);
Result := True;
Break;
end;
end;
{-------------------------------}
{ MasterKill's Responder- Start }
{-------------------------------}
Procedure SetupResponds;
begin
HowManyResponds := 2;
SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds);
TheQuestion[0] := ['noob'];
TheRespond[0] := ['Im not a noob!', 'your the noob', 'look in the mirror', 'noob noob', 'no way noob', 'your more noob', 'whoes noob?'];
TheQuestion[1] := ['respond'];
TheRespond[1] := ['what to say?', 'i dont have anything to say', 'no im bussy'];
end;
{*******************************************************************************
function GetBlackText(ChatLine: Integer): string;
By: ZephyrsFury based on the works of Wizzup?
Description: Gets the black message text on ChatLine (1 to 8).
*******************************************************************************}
function GetBlackText(ChatLine: Integer): string;
var
TP: TPoint;
begin
TP := TextCoords(ChatLine);
Result := Trim(GetTextAtEx(TP.x - 2, TP.y - 2, 0, SmallChars, False, False, 0,
1, 0, 80, False, tr_AllChars));
end;
Function AutoRespond : Boolean; //Ty MK for the Responder
var
Text, Name, MakeRespond, LastRespond : String;
I, II, Rand, CurTime, SetTime : Integer;
Awnser : TStringArray;
TextP : TPoint;
begin
CurTime := GetSystemTime;
If (CurTime - SetTime < 20000) Then Exit;
For I := 8 DownTo 4 Do
Begin
TextP := TextCoords(I);
If findcolor(x, y, 16711680, TextP.x, TextP.y, TextP.x + 200, TextP.y + 14) Then
Begin
Text := LowerCase(Trim(GetTextAtEx(x - 3, textp.y - 2, 0, SmallChars, False, False, -1, 1, 16711680, 60, False, tr_allChars)));
If (Text = LastRespond) Then
Exit;
LastRespond := Text;
Name := GetBlackText(I);
If (Pos(Players[CurrentPlayer].nick, Name) <> 0) then Exit;
Break;
End;
If (I = 4) Then Exit;
End;
If (Pos(Players[CurrentPlayer].Nick, Text) <> 0) Then
Begin
If (Pos('nice', Text) <> 0) Or (Pos('cool', Text) <> 0) Then
Begin
Awnser := ['thanks', ':)', 'tnx', 'ur cool to'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End Else
If (Pos('friends', Text) <> 0) Then
Begin
Awnser := ['no', 'no way', 'sorry my list is full', 'no sorry'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End Else
If (Pos('macro', Text) <> 0) Or (Pos('bot', Text) <> 0) Or (Pos('auto', Text) <> 0) Then
Begin
Awnser := ['lol im not!', 'why?', 'no way', 'not me', 'dream on', 'nah'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End Else
Begin
Awnser := ['no, im bussy', 'go away plz', 'leave me alone', 'im bussy'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End;
WriteLn('Respond:');
WriteLn('/ ' + Name + ' ' + Text);
TypeSend(MakeRespond);
WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + MakeRespond);
Responds := Responds + 1;
ReportVars[2] := ReportVars[2] + 1;
Result := True;
SetTime := GetSystemTime;
exit;
End;
If (Pos('mining', Text) <> 0) Then
Begin
If (Pos('my mining level is', Text) <> 0) Or (Pos('m mining ore', Text) <> 0) Then
Begin
Awnser := ['gratz', ':)', 'kewl', 'cool'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End Else
If (Pos('what is your level in mining', Text) <> 0) Then
Begin
Awnser := [IntToStr(GetSkillLevel('mining')), 'me ' + IntToStr(GetSkillLevel('mining')), 'My Mining level is '+ IntToStr(Players[CurrentPlayer].integers[1]) + '.'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End Else
If (Pos('what ore are you mining', Text) <> 0) Then
Begin
Awnser := ['coal', 'coal ore', 'what u think?'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End Else
If (Pos('s a good place for me', Text) <> 0) Then
Begin
Awnser := ['here', 'what about here', 'here i guess', 'here?'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End Else
Begin
Awnser := [IntToStr(GetSkillLevel('mining')), 'me ' + IntToStr(GetSkillLevel('mining')), 'My Mining level is '+ IntToStr(GetSkillLevel('mining')) + '.'];
I := random(High(Awnser));
MakeRespond := Awnser[I];
End;
WriteLn('Respond:');
WriteLn('/ ' + Name + ' ' + Text);
TypeSend(MakeRespond);
WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + MakeRespond);
Responds := Responds + 1;
Result := True;
SetTime := GetSystemTime;
exit;
End;
For I := 0 To HowManyResponds - 1 Do
begin
For II := 0 To High(TheQuestion[I]) Do
Begin
If (Pos(TheQuestion[I][II], Text) <> 0) then
begin
WriteLn('Respond:');
WriteLn('/ ' + Name + ' ' + Text);
Rand := Random(High(TheRespond[I]));
TypeSend(TheRespond[I][Rand]);
WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + TheRespond[I][Rand]);
Result := True;
SetTime := GetSystemTime;
exit;
end;
end;
end;
end;
{--------------------------------------------------------------------}
{----------------------------}
{ Anti Ban }
{----------------------------}
Procedure AntiBan;
Begin
Case random(22) Of
10: RandomRClick;
21 : If Random(10) = 1 Then
GameTab(Random(14));
11 : Case Random(9) of
0 : Begin
If PlayersOnMap(MMX1, MMY1, MMX2, MMY2) > 3 Then
Case Random(10) Of
0 : TypeSend('minin lvl');
1 : TypeSend('Mining Levels?');
end;
end;
Else Wait(1);
end;
20: PickUpMouse;
0..9, 11..3 : SleepAndMoveMouse(1000 + Random(800));
else FTWait(2);
end;
FindNormalRandoms;
end;
{----------------------------}
{ Climb Ladder }
{----------------------------}
Function ClimbLadder(Option : String) : Boolean;
Var
Tries, c0l : Integer;
What : Boolean;
Begin
Case Option Of
'up' : C0l := 3688529;
'Down' : C0l := 3563123;
end;
Repeat
If FindObjCustom(x, y, ['adder'], [C0l], 5) Then
Begin
If IsUpText('adder') Then
Begin
Mouse(x, y, 0, 0, False);
ChooseOption(LowerCase(Option));
FFlag(0);
Wait(2000+Random(900));
end;
WriteLn('Climbed ' +Option+ ' The Ladder');
Case Option Of
'up' : What := FindColor(x, y, FindFallyRoadColor, MMX1, MMY1, MMX2, MMY2);
'Down' : What := FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2);
end;
Tries := Tries + 1;
Result := What;
end;
Until(Result) Or (Tries > 3);
end;
{-------------------------------------}
{ PickBroken - Check's for Broke Pick }
{-------------------------------------}
Function PickBroken : Boolean;
Begin
If Not (GetColor(592, 222) = 65536) Then
Exit
else
Try
If (GetColor(592, 222) = 65536) Then
MMouseItem(1);
If IsUpText('roken') Then
WriteLn('Pick Is Broken');
Result := True;
Finally
If Not(GetColor(592, 222) = 65536) or Not IsUpText('roken') Then
WriteLn('False Alarm');
except
Result := False;
end;
end;
{----------------------------}
{ Coal Ore Counter }
{----------------------------}
Function CheckOres : Integer;
Begin
Result := CountItems(DTMFromString('78DA631460666098C9C8800C4C4D5518FE036' +
'990E87F2060E401AAE9455503918591401AA466050135B2403593' +
'09A8F9CFC4C03007BF1A00BD0609EC'), 'dtm', [1/2/999/999/777]);
end;
{----------------------------}
{ Walk To Guild }
{----------------------------}
Procedure WalkToGuild;
Label GTMS, GTMSS, Operat0r, UI;
Begin
Loc := 'To Guild';
Case Random(2) Of
0 : Disguise('Banked = '+IntToStr(Banked)+' Loads');
else Disguise('Mined = '+IntToStr(OresMined + CheckOres)+ ' Ores');
end;
MakeCompass('S');
SetAngle(True);
SetRunFast(True);
GaMeTAB(4);
If GetColor(607, 237) = 65536 Then
If Players[CurrentPlayer].Booleans[0] = True Then
GoTo UI
Else
Begin
Wait(80 + Random(80));
MMouseItem(2 + Random(2));
Wait(200 + Random(300));
If IsUpText('ril') XOr IsUpText('oal') Then
Begin
If OpenBankFast('feb') Then
If PinScreen Then
InPin(Pin_Number);
If BankScreen Then
Begin
Wait(400 + Random(500));
Deposit(2, 28, True);
Wait(100+Random(999));
CloseBank;
IncEx(Banked, 1);
IncEx(ReportVars[1], 1);
end;
end;
end;
UI :
MakeCompass('S');
If RadialWalkX(FindFallyRoadColor, -30, -21, 65, 0, 0) Then
Wait(9400 + Random(2000));
Flag;
Begin
ClimbLadder('Down');
If FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) Then GoTo Operat0r
else
Begin
If Not FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) Then
Begin
Repeat
MMouse(Random(MSCX), Random(MSCY), 250, 250);
Wait(90+Random(80));
X := X + 1;
Until(IsUptext('adder')) or (X > 50)
X := 0;
If X > 50 Then Exit
else
GetMousePos(x, y);
Wait(800+Random(200));
Mouse(x, y, 1, 1, True);
end;
end;
Operat0r :
RadialWalkX( FindRockColor , 300, 250, 65, 0, 0);
FFlag(7 + Random(4));
Loc := 'To Mining Spot';
Proggie;
Begin
If Not FindSymbol(x, y, 'Mining Spot') Then GoTo GTMS;
If FindSymbol(x, y, 'Mining Spot') Then
Begin
Mouse(x, y, 3, 3, True);
FFlag(0);
GoTo GTMSS;
end;
Begin
GTMS : Begin
MouseFlag(MMCX - 37 ,MMCY (*+ FloatToInt(Sqrt(81))*), 20, 20, 0);
MakeCompass('N');
end;
{WriteLn('Lost?');}
end;
GTMSS : MakeCompass('N');
end;
end;
end;
{---------------------------------}
{ Decide Outcome(Random Clicking) }
{---------------------------------}
Procedure DecideOutcome;
Var RollDice : Integer;
Begin
RollDice := Random(4);
Case RollDice Of
0 : Mouse(x, y, 1, 1, True);
1 : Mouse(x, y, 3, 3, True);
2 : Begin
Mouse(x, y, 2, 3, False);
ChooseOption('ine');
end;
3 : Begin
FtWait(2);
Mouse(x, y, 2, 1, True);
end;
end;
end;
{-------------------------------}
{ CheckPick - Witdraws New Pick }
{-------------------------------}
Procedure CheckPick;
Label GTL1;
Var
TriesPick : Integer;
Begin
If Not (PickBroken) Then
Exit
else
Begin
Inc(BrokenPickZ);
If PickBroken Then
WriteLn('Getting a New Pickaxe from our Bank');
Begin
SetRunFast(True);
Gametab(4);
If FindSymbol(x, y, 'Mining Spot') Then
MouseFlag(x, y, 0, 0, 0);
Begin
If FindObj(x, y, 'oor', 4214864, 5) Then
Begin
MouseFlag(MMCX + 67, MMCY, 5, 5, 0);
FindSymbol(x, y, 'Mining Spot');
MouseFlag(x, y, 0, 0, 0);
end;
end;
If MFF(MMCX - 60, MMCY, 5, 15) Then
FFlag(0);
Begin
If Not FindColor(x, y, FindLadderColor, MMX1, MMY1, MMX2, MMY2) Then
MouseFlag(MMCX - 55, MMCY, 10, 10, 0)
else
Mouse(x, y, 1, 4, True);
FFlag(0);
end;
Loc := 'To Bank';
Proggie;
ClimbLadder('up')
Begin
If Not (GetColor(558, 100) = 65536) Then GoTo GTL1
else
If Not FindColor(x, y, FindFallyRoadColor, MMX1, MMY1, MMX2, MMY2) Then
WriteLn('Using Random Mouse Methods');
Begin
y := 0;
Repeat
MMouse(Random(MSCX), Random(MSCY), 250, 250);
Wait(149 + Random(30));
Y := Y + 1;
Until(IsUpText('adder')) Or (Y > 50)
GetMousePos(x, y);
Wait(800 + Random(200));
Mouse(x, y, 1, 1, False);
ChooseOption('-up');
FFlag(0);
Wait(3000+Random(400));
end;
end;
GTL1 :
WriteLn('We HAVE SUCESSFULLY CLIMBED TO THE SURFACE');
SetRunFAST(TRUE);
Begin
MouseBox(590, 19, 651, 33, 1);
Begin
I := 0;
If FlagPresent Then
Repeat
Wait(1000 + Random(200));
Inc(I);
Until(Not FlagPresent) or (I > 12);
I := 0;
If Not FlagPresent Then
Begin
Repeat
Wait(1000 + Random(200));
Inc(I);
Until(FlagPresent) or (I > 12);
end else
FFlag(0);
end;
end;
Loc := 'Banking';
FFlag(0);
Begin
If Not FindSymbol(x, y, 'Bank') Then TryAgain
else
Begin
MouseFlag(x, y, 1, 1, 2);
FFlag(0);
end;
Wait(1);
end;
If OpenBankFast('feb') Then
FFlag(0);
If PinScreen Then
InPin(Pin_Number);
If BankScreen Then
Begin
Deposit(1, 28, True);
Begin
If Not FindDTM(DTMFromString('78DA639CCCC0C07096010D302291407A06903' +
'84F404D2FA61A43253654353D40E21401735A80C42354159A32AC' +
'286A00F8390790'), X, Y,
MSX1, MSY1, MSX2, MSY2) Then
Repeat
MMouse(488, 284, 3, 3);
GetMousePos(x, y);
HoldMouse(x, y, True);
Wait(600+Random(100));
ReleaseMouse(x, y, True);
TriesPick := TriesPick + 1;
Until(FindDTM(DTMFromString('78DA639CCCC0C07096010D302291407A06903' +
'84F404D2FA61A43253654353D40E21401735A80C42354159A32AC' +
'286A00F8390790'), X, Y,
MSX1, MSY1, MSX2, MSY2)) or (TriesPick > 20);
If FindDTM(DTMFromString('78DA639CCCC0C07096010D302291407A06903' +
'84F404D2FA61A43253654353D40E21401735A80C42354159A32AC' +
'286A00F8390790'), X, Y,
MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(x, y, 1, 1, True);
Wait(900+Random(200));
CloseBank;
WriteLn('Found New PickAxe');
FindPickHeadColor;
WalkToGuild;
end;
If TriesPick >= 20 Then
Begin
WriteLn('No Pick In Bank, No Point mining');
LogOut;
NextPlayer(False);
end;
end;
end;
end;
end;
end;
{----------------------------}
{ Check If Stuck! }
{----------------------------}
Procedure CheckIfStuck;
Begin
If (LowerCase(Players[CurrentPlayer].Strings[0]) = 'mith') Then Exit
else
If Not FindBlackChatMessage('urren') Then
Exit
else
If Not FindText(x, y, 'urren', SmallChars, 7, 412, 271, 444) Then
Begin
FTWait(1);
Exit;
end else
WriteLn('Dang Our RockFinder Is pwning one Rock, Lets M0ve!, Yeah!');
Begin
If Not FindSymbol(x, y, 'Mining Spot') Then
MouseFlag(MMCX + 20, MMCY + 20, 50, 50, 0)
ELSE
If FindSymbol(x, y, 'Mining Spot') Then
Begin
Mouse(x, y, 5, 5, True);
FFlag(0);
Exit;
end;
WriteLn('We Have sucessfully Moved');
end;
end;
{----------------------------}
{ Fight Detecter }
{----------------------------}
Procedure IfFight;
Begin
FindNormalRandoms;
If FindFight Then
{--------------}
Begin
I := 0;
Repeat
MMouse(Random(MSCX), Random(MSCY), 50, 50);
Wait(120 + Random(300));
I := I + 1;
Until(IsUpText('alk')) Or (I >= 20)
GetMousePos(x, y);
Wait(800 + Random(200));
If IsUpText('alk') Then
Begin
Mouse(x, y, 0, 0, True);
Repeat
ClickContinue(True, True);
Until(Not(ClickContinue(False, False)));
end;
{--------------}
RunAway('W', True, 1, 5000 + Random(2000));
FindNormalRandoms;
end;
end;
{----------------------------}
{ Gas Detector }
{----------------------------}
function GasFinder(GX, GY : Integer): Boolean; //Thanks Wizzup!
Var
x1, y1, x2, y2, I, time, c: Integer;
R, G, B: Integer;
H, S, L: ExtEnded;
X, Y, Z: ExtEnded;
Gas, Gas2: TPointArray;
Colors, C2: TIntegerArray;
begin
Try
x1 := gx - 35;
If x1 < 0 Then
x1 := 0;
y1 := gy - 35;
If y1 < 0 Then
y1 := 0;
x2 := gx + 35;
If x2 > 515 Then
x2 := 515;
y2 := gy + 35;
If y2 > 336 Then
y2 := 336;
Time := GetSystemTime;
Result := False;
c := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2ModIfiers(0.2, 0.2);
FindColorsTolerance(Gas, 8886170, x1, y1, x2, y2, 20);
ColorToleranceSpeed(c);
If length(Gas) < 10 Then
Exit;
Colors := GetColors(Gas);
C2 := Colors;
ClearSameIntegers(C2);
// writeln('Colors Length: ' + inttostr(length(colors)));
// writeln('C2 Length: ' + inttostr(length(C2)));
If Length(C2) < 40 Then
Exit;
For I := 0 To High(Gas) Do
Begin
ColorToRGB(Colors[I], R, G, B);
If Abs(R - G) <= 10.0 Then
Begin
ColorToHSL(Colors[I], H, S, L);
If (H > 11.5) And (H < 16.0) And (S < 12.0) Then
Begin
ColorToXYZ(Colors[I], X, Y, Z);
If (Abs(X - Y) < 5.0) And (Abs(X - Z) < 5.0) And (Abs(Y - Z) < 5.0) Then
Begin
SetLength(Gas2, Length(Gas2) + 1);
Gas2[High(Gas2)] := Gas[I];
End;
End;
End;
End;
//WriteLn('time: ' + IntToStr(GetSystemTime - Time));
//WriteLn('gas2 length: ' + IntToStr(Length(Gas2)));
Result := (Length(Gas2) > 30); // The only number you might want to tweak.
//debugtpa(Gas2, '');
if result then
begin
SaveScreenshot(ScriptPath + 'Found WIZZUP gas ' + TimeRunning + '.bmp')
Exit;
end;
//debugtpa(gas2, '');
Except WriteLn('No window selected'); end;
End;
{----------------------------}
{ Find Gas Procedure! }
{----------------------------}
Procedure DetectGas;
Begin
If GasFinder(x, y) then
begin
MouseFlag(MMCX, MMCY, 20, 20, 0);
SleepAndMoveMouse(7000 + Random(300));
end;
end;
{----------------------------}
{ Wait Whilst Mining! }
{----------------------------}
Procedure WaitWhileMine;
Var LongIntX : Integer;
Begin
FFlag(0);
MarkTime(LongIntX);
Repeat
If OreColorCount(709, 446, 2636346, 5, 27) Then Break;
If InvFull Then Break
else
Case Random(2) Of
0 : If Players[CurrentPlayer].Booleans[0] = True Then
Disguise('Dropped = '+ IntToStr(Banked)+ ' Loads')
else
Disguise('Banked = '+ IntToStr(Banked)+ ' Loads')
else
If Players[CurrentPlayer].Booleans[0] = True Then
Disguise('Dropped = '+ IntToStr(OresMined + CheckOres) + ' Ores')
else
Disguise('Mined = '+ IntToStr(OresMined + CheckOres) + ' Ores');
end;
DetectGas;
FindNormalRandoms;
FindTalk;
If FindBlackChatMessage('ine') Or
FindBlackChatMessage('urren') Then
Break
else
FindNormalRandoms;
CheckIfStuck;
FindTalk;
If AutoRespond Then
Inc(Responds)
else
DetectGas;
FindPick;
FindTalk;
Case Random(5) Of
0 : SetRunFast(True);
end;
If PickBroken Then
Begin
CheckPick;
Exit;
end;
FindNormalRandoms;
IfFight;
AntiBan;
FindTalk;
DetectGas;
FindNormalRandoms;
Until(FindBlackChatMessage('ine') Or (TimeFromMark(LongIntX) > 7000 + Random(2000)));
end;
{----------------------------}
{ Torch Detector }
{----------------------------}
{Procedure Check;
Begin
If Not FindBlackChatMessage('orch') Then Exit
else
Begin
Mouse(x, y, 0, 0, False);
If ChooseOption('orch') Then
WriteLn('We are close To A Torch, rock finding could muck up');
If FindSymbol(x, y, 'mining spot') Then
Begin
MouseFlag(x, y, 1, 1, 0);
WriteLn('In Center');
If FindRock Then
Mouse(x, y, 1, 1, True);
Wait(1000 + Random(2000));
Exit;
end;
end;
end;
{----------------------------}
{ Finds The Rocks!!! }
{----------------------------}
Function FindCoalRock : Boolean;
Var
Cts, C0lx : Integer;
TPA : Array Of TPoint;
ATPA : T2DPointArray;
Begin
If Not LoggedIn Then Exit;
Cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(X, Y, TPA, 2307124, MSX1, MSY1, MSX2, MSY2, 10);
ATPA := (TPAtoATPAEx(TPA, 4, 5));
//SortATPASize(ATPA, True)
For I := 0 to High(ATPA) Do
If MiddleTPAEx(ATPA[I],x ,y ) Then
Begin
MMouse(x, y, 0, 0);
C0lx := GetColor(x, y);
GetMousePos(x, y);
If IsUpText('oor') Then
MouseFlag(MMCX, MMCY + 40, 20, 20, 10)
ELSE
If SimilarColors(c0lx, GetColor(x, y), 10) Then
If IsUpTextMultiCustom(['Ro', 'cks']) Then
Begin
Result := True;
Wait(Random(80));
end;
FindNormalRandoms;
If Result = True Then
Exit
else
Try
Wait(1);
except
Wait(2);
Finally
Wait(3) //:p
end;
end;
ColorToleranceSpeed(Cts);
end;
Function FindMithRock : Boolean;
Var
Cts, C0lx : Integer;
TPA : Array Of TPoint;
ATPA : T2DPointArray;
Begin
If Not LoggedIn Then Exit;
Cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(X, Y, TPA, 6702662, MSX1, MSY1, MSX2, MSY2, 10);
ATPA := (TPAtoATPAEx(TPA, 4, 5));
//SortATPASize(ATPA, True)
For I := 0 to High(ATPA) Do
If MiddleTPAEx(ATPA[I],x ,y ) Then
Begin
MMouse(x, y, 0, 0);
C0lx := GetColor(x, y);
GetMousePos(x, y);
If IsUpText('oor') Then
MouseFlag(MMCX, MMCY + 40, 20, 20, 10)
ELSE
If SimilarColors(c0lx, GetColor(x, y), 10) Then
If IsUpTextMultiCustom(['Ro', 'cks']) Then
Begin
Result := True;
Wait(Random(80));
end;
FindNormalRandoms;
If Result = True Then
Exit
else
Try
Wait(1);
except
Wait(2);
Finally
Wait(3) //:p
end;
end;
ColorToleranceSpeed(Cts);
end;
{----------------------------}
{ Mine The Rock!! }
{----------------------------}
Procedure MineRock;
var
i, rockIndex: Integer;
Begin
Loc := 'Mining Ore';
Proggie;
if (LowerCase(Players[CurrentPlayer].Strings[0]) = 'coal') then
I := 1;
if (LowerCase(Players[CurrentPlayer].Strings[0]) = 'mith') then
I := 0;
case i of
0: Begin
rockIndex := falador_Mithril;
MFF(MMCX, MMCY + 40, 15, 15);
End;
1: rockIndex := falador_Coal;
end;
MakeCompass('N');
Repeat
Case LowerCase(Players[CurrentPlayer].Strings[0]) Of
'mith' : If FindMithRock Then
DecideOutcome;
'coal' : If FindCoalRock Then
DecideOutcome;
'both' : If FindMithRock Then
DecideOutCome
Else
If FindCoalRock Then
DecideOutcome
end;
begin
FindNormalRandoms;
DetectGas;
FFlag(3);
Wait(800 + Random(200));
if FindBlackChatMessage('urren') then
begin
CheckIfStuck;
MineRock;
end else
WaitWhileMine;
end;
FindTalk;
Until(InvFull);
Disguise('Mined = '+IntToStr(OresMined + CheckOres)+ ' Ores');
end;
{----------------------------}
{ Failsafe for Bank }
{----------------------------}
function FindBankColor: Integer; //Thanks ACA 2!
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.65, 0.08);
FindColorsSpiralTolerance(MMCX, MMCY, arP, 9021615, MMX1, MMY1, MMX2, MMY2, 6);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 32.81) and (X <= 39.60) and (Y >= 34.59) and (Y <= 43.18) and (Z >= 26.04) and (Z <= 32.64) then
begin
Result := arC[i];
Writeln('BankColor = ' + IntToStr(arC[i]));
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
{----------------------------}
{ More Anti Bannage }
{----------------------------}
Procedure CheckSkill;
Begin
GameTab(2);
MouseBox(663, 229, 709, 255, 1);
Wait(1000+Random(200));
If GetColor(326, 300) = 6065066 Then
Begin
MMouse(327, 311, 3, 3);
GetMousePos(x, y);
HoldMouse(x, y, True);
Wait(800 + Random(700));
ReleaseMouse(x, y, True);
end;
Wait(100 + Random(200));
Case Random(3) Of
0, 1 : CloseWindow;
2 : MouseBox(402, 75, 479, 156, 1);
end;
Wait(1000 + Random(800));
CloseWindow;
GameTab(4);
Exit;
end;
{----------------------------}
{ Try Try Again }
{----------------------------}
Procedure TryAgain;
Label A;
Var
WhichAngle : Extended;
Begin
If Not DTMRotated(DTMFromString('78DA630C676260F06240018F1E3D62F80FA41' +
'981F83F10307A03D504A2AAF9F387894103AA060418C38950138F' +
'A9E6ED5B061435009E4D108D'), X, Y, MMX1, MMY1, MMX2, MMY2) Then
Goto A
else
Begin
If FindDTMRotated(DTMFromString('78DA630C676260F06240018F1E3D62F80FA41' +
'981F83F10307A03D504A2AAF9F387894103AA060418C38950138F' +
'A9E6ED5B061435009E4D108D'), X, Y, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05, WhichAngle) Then
Begin
MouseFlag(x, y, 3, 3, 0);
WriteLn('Used DTM Bank Finding!');
Exit;
end;
end;
A : If FindBitmapToleranceIn(
BitmapFromString(5, 4, 'beNpbM2HbGnzo3ftnQIRdFgDLuyiL'), x, y, 556, 51,
632, 99, 18) Then
Begin
Mouse(x + Random(27) , y, 0, 0, True);
FFlag(0);
WriteLn('Used Bank Floor Color, for entering!');
Exit;
end else
Begin
SymbolAccuracy := 0.1;
If FindSymbol(x, y, 'Bank') Then
MouseFlag(x, y, 0, 0, 0)
else
SymbolAccuracy := 0.45;
Exit;
end;
SymbolAccuracy := 0.45;
end;
{----------------------------}
{ My OpenBank }
{----------------------------}
Function OpenBankWindow : Boolean;
Var xx, yy : Integer;
WhichAcc : Extended;
Begin
Result := FindDeformedBitmapToleranceIn(BitmapFromString(9, 6, 'beNqLsk8OsMCF0oKtcKHMUBsyUE6EH' +
'S6UH2WPHQEAciA0vQ=='), xx, yy, MSX1, MSY1, MSX2,
MSY2, 9/(257/100), 3, False, WhichAcc) = True;
MMouse(xx, yy, 0, 0);
GetMousePos(xx, yy);
If IsUpText('ank') Then
Begin
Mouse(xx, yy, 0, 0, False);
ChooseOption('uickly');
end;
End;
{----------------------------}
{ Baking Ores }
{----------------------------}
Procedure BankOres;
Var lx, ly : Integer;
Label GTL, Cont, GTL1, ExitG, L9l;
Begin
If Players[CurrentPlayer].Booleans[0] = False Then GoTo L9l
Else
Case Random(3) Of
0 : MouseFlag(RandomRange(MMX1, MMX2), RandomRange(MMY1, MMY2), 50, 50, 0);
end;
Begin
GameTab(4);
For I := 2 To 28 Do
Begin
DropItem(I);
Wait(300 + Random(200));
end;
Inc(Banked);
Players[CurrentPlayer].integers[2] := players[CurrentPlayer].integers[2] + 1;
Inc(ReportVars[1]);
Exit;
end;
l9L :
Loc := 'Exiting Guild';
Proggie;
OrezMined := OresMined;
IncEx(OresMined, CheckOres);
IncEx(ReportVars[0], CheckOres)
IncEx(Players[CurrentPlayer].integers[3], CheckOres);
Begin
SetRunFast(True);
Gametab(4);
If FindSymbol(x, y, 'Mining Spot') Then
MouseFlag(x, y, 0, 0, 0);
If Not FindObjCustom(x, y, ['oor'], [4214864, 2438967], 15) Then
GoTo ExitG
else
Begin
MouseFlag(MMCX, MMCY + 67, 5, 5, 0);
If FindSymbol(x, y, 'Mining Spot') Then
MouseFlag(x, y, 0, 0, 2);
end;
ExitG :
If MFF(MMCX - 60, MMCY, 5, 15) Then
FFlag(7 + Random(3));
Begin
If FindLadderColor = 0 Then MouseFlag(MMCX - 55, MMCY, 10, 10, 0)
else
If FindColorSpiral(lx, ly, FindLadderColor, MMX1, MMY1, MMX2, MMY2) Then
Mouse(lx, ly, 1, 4, True)
end;
GTL : Loc := 'To Bank';
FFlag(0);
Cont : Proggie;
ClimbLadder('up')
Begin
If Not (GetColor(558, 100) = 65536) Then GoTo GTL1
else
If Not FindColor(x, y, FindFallyRoadColor, MMX1, MMY1, MMX2, MMY2) Then
WriteLn('Using Random Mouse Methods');
Begin
y := 0;
Repeat
MMouse(Random(MSCX), Random(MSCY), 250, 250);
Wait(150 + Random(30));
Y := Y + 1;
Until(IsUpText('adder')) Or (Y > 50)
GetMousePos(x, y);
Wait(800 + Random(200));
Mouse(x, y, 1, 1, False);
ChooseOption('p');
Wait(3000+Random(400));
end;
end;
GTL1 : WriteLn('We HAVE SUCESSFULLY CLIMBED TO THE SURFACE');
SetRunFAST(TRUE);
Begin
MouseBox(590, 19, 651, 33, 1);
Begin
I := 0;
If FlagPresent Then
Repeat
Wait(1000 + Random(200));
Inc(I);
Until(Not FlagPresent) or (I > 12);
I := 0;
If Not FlagPresent Then
Begin
Repeat
Wait(1000 + Random(200));
Inc(I);
Until(FlagPresent) or (I > 12);
end else
FFlag(5);
end;
end;
Loc := 'Banking';
FFlag(0);
Begin
If Not FindSymbol(x, y, 'Bank') Then TryAgain
else
Begin
MouseFlag(x, y, 1, 1, 2);
FFlag(0);
end;
Wait(1);
If OpenBankFast('feb') Then
Begin
If Not OpenBankQuiet('feb') Then
MakeCompass('S');
If Not OpenBankWindow Then
FFlag(0);
end;
If PinScreen Then
InPin(Pin_Number);
If BankScreen Then
Begin
Wait(400 + Random(500));
Gems := Gems + CountItems(DTMFromString('78DA63CC636260F8C08006189148209D06547' +
'387809A12A09A8704D42401D53CC7AF0600CE250553'), 'dtm', [10*70/99])
Deposit(2 + Random(25), 28, True);
Wait(100+Random(999));
If Not InvEmpty Then
Deposit(2, 28, True);
Wait(Random(900));
CloseBank;
Players[CurrentPlayer].integers[2] := players[CurrentPlayer].integers[2] + 1;
IncEx(Banked, 1);
IncEx(ReportVars[1], 1);
end;
end;
WriteLn('Banked :p');
end;
end;
{----------------------------}
{ Progress Report Saver }
{----------------------------}
Procedure Save;
Var S : Array[0..2] Of String;
G : Array[0..2] Of Integer;
Begin
Try
G[0] := ReWriteFile(ScriptPath+'Guild X Min0r Proggies!.txt', False);
S[0] := Between('roggie :', '~', GetDebugText);
WriteFileString(G[0], 'Guild X Min0r! Proggie - Please post this stuff on the script thread'+#13+#10+#13+#10);
WriteFileString(G[0], S[0]+#13+#10);
WriteFileString(G[0], 'This proggie was written '+TheTime+' at '+TheDate(1));
CloseFile(G[0]);
Except
Writeln('Saving Failed!');
end;
Try
G[1] := ReWriteFile(AppPath+'Guild X Min0r Proggies1!.txt', False);
S[1] := Between('roggie :', '~', GetDebugText);
WriteFileString(G[1], 'Guild X Min0r! Proggie - Please post this stuff on the script thread'+#13+#10+#13+#10);
WriteFileString(G[1], S[1]);
WriteFileString(G[1], #13+#10+'This proggie was written '+TheTime+' at '+TheDate(1));
CloseFile(G[1]);
Except
Writeln('Saving Failed!');
end;
end;
{----------------------------}
{ Progress Report }
{----------------------------}
Procedure Proggie;
Var
Sx : Integer;
Begin
Sx := TimeFromMark(ScriptRunTime) / 1000;
ClearDebug;
WriteLn('Proggie :');
WriteLn('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>$');
WriteLn('[ NaumanAkhlaQ Presents ]$');
WriteLn('[ GuildXMin0r! ]$');
WriteLn('| |$');
WriteLn('| [> Worked '+ TimeRunning +'! $');
WriteLn('| [> Mined '+ IntToStr(OresMined)+' Ores$');
If Players[CurrentPlayer].Booleans[0] = True Then
WriteLn('| [> Dropped '+ IntToStr(Banked) +' Loads$')
else
WriteLn('| [> Banked '+ IntToStr(Banked) +' Loads$');
If Loc = 'Banking' Then
WriteLn('| [> OresPerHour (OPH) '+ IntToStr(Ceil(3600*OresMined/Sx))+'!$');
WriteLn('| [> Found '+IntToStr(Gems)+' Gem Stones$');
WriteLn('| [> Did '+IntToStr(Responds)+' Responds!$');
WriteLn('| --> Found '+ IntToStr(Gas)+' Gas Leaks$');
WriteLn('| --> We Broke '+ IntToStr(BrokenPickZ)+' Pickaxes!!$');
WriteLn('| ---------------------- ');
WriteLn('| [> Current Version Is V'+ Ver+' Pub! $');
WriteLn('= Thank You For Using ;) $');
WriteLn('=================================== $');
For I := 0 to (HowManyPlayers - 1) do
Begin
If Players[CurrentPlayer].Booleans[0] = False Then
WriteLn('[-} '+ Players[I].Name +' /\ Mined '+IntToStr(Players[I].integers[3])+ ' of '+ LowerCase(Players[I].Strings[0]) + ' Ores. /\ Banked ' +IntToStr(Players[I].integers[2])+' Loads!$')
Else
WriteLn('[-} '+ Players[I].Name +' /\ Mined '+IntToStr(Players[I].integers[3])+ ' of '+ LowerCase(Players[I].Strings[0]) + ' Ores. /\ Dropped ' +IntToStr(Players[I].integers[2])+' Loads!$');
{--------------------------------------------------------------------}
WriteLn(' <------------ |-----------$$-----------| ------------>$');
WriteLn('$');
End;
Begin
WriteLn(' ++++++++++++++++++++$');
SRLRandomsReport;
If (Not (LoggedIn)) Then
Begin
WriteLn('--> Lost Player : '+Players[CurrentPlayer].Name+ ' -> Location = '+Loc+' |$')
LogOut;
NextPlayer(False);
end else
WriteLn('> ' +Players[CurrentPlayer].Name+ ' Location = '+Loc+' |$');
WriteLn('> Mining '+LowerCase(Players[CurrentPlayer].Strings[0])+' Ore[s]$');
WriteLn('> Using ' +IntToStr(HowManyPlayers)+ ' Players$');
Try
If Banked >= Players[CurrentPlayer].Integers[0] Then
WriteLn('Loads Done and Dusted!$');
Finally
FindNormalRandoms;
Except
end;
end;
WriteLn('~');
Save;
end;
{----------------------------}
{ Setup for SMART }
{----------------------------}
{
Procedure SetUpSMART;
Begin
WriteLn('Making S.M.A.R.T Ready');
SmartSetupEx(SMARTWorld, false, true, false);
SetTargetDC(SmartGetDC);
wait(2000+Random(2000));
WriteLn('Loaded S.M.A.R.T');
Exit;
end;
{----------------------------}
{ Player Inactive? }
{----------------------------}
function EveryPlayerFalse: Boolean;
var
I, Count: Integer;
begin
for I := 0 to HowManyPlayers - 1 do
if Players[I].Active = False then
IncEx(Count, 1);
Result := Count = HowManyPlayers;
end;
{----------------------------}
{ Sig Paster }
{----------------------------}
Procedure PasteSig(bmp, x1, y1, x2, y2, xx1, yy1, xx2, yy2: Integer);
Var
old: Integer; //ty to MasterKill for this :p
Begin
old := GetClientWindowHandle;
SetTargetDC(SmartGetDebugDC);
CopyCanvas(GetBitmapCanvas(bmp), GetClientCanvas, x1, y1, x2, y2, xx1, yy1, xx2, yy2);
SetTargetDC(old);
End;
{------------------------------}
{ Wield Pickaxe - Discontinued }
{------------------------------}
Var
Wielded : Boolean;
Procedure WieldPick; //May use later, for now- too confusing :S
Var
Axe : String;
CBLvl, c0l0r : Integer;
Begin
GameTab(4);
MMouseItem(1);
wait(1000 + Random(200));
Case Between('wield ', ' pickaxe', Lowercase(rs_GetUpText)) Of
'steel' : CBLvl := 5;
'mithril' : CBLvl := 20;
'adamant' : CBLvl := 30;
'rune' : CBLvl := 40;
Else
Begin
If CBLvl = 0 Then
WriteLn('Don'#39't Wield Your Pickaxe! / Get a Steel - Rune Pick!');
Axe := '';
TerminateScript;
end;
end;
WriteLn('Using ' + Capitalize(Between('wield ', ' pickaxe', Lowercase(rs_GetUpText))) +' Pickaxe');
If GetSkillLevel('attack') >= CBLvl Then
WriteLn('You Can Wield your Axe!');
Begin
GameTab(4);
Wait(800 + random(200));
If Not FindDTM(DTMFromString('78DA6334626260E0636440069A32AC0CFF813' +
'448F43F1030AA03D5F0A2AA81C8C248206D0254C345408D3D508D' +
'1801351A40356A04D49811E11E909B05F0AB0100A0F6073E'), x, y,
MIX1, MIY1, MIX2, MIY2) Then
Begin
Wielded := True;
Exit;
end else
Begin
Wielded := True;
C0l0r := GetColor(x, y);
Mouse(x, y, 1, 1, True);
Repeat
Wait(800 + random(200));
Until(Not(SimilarColors(C0l0r, GetColor(x, y), 5)));
WriteLn('Wielded PickAxe');
end;
end;
end;
{----------------------------}
{ MainLoop Start Here }
{----------------------------}
{--- Private STATS account - DO NOT Tamper with the Account! ---}
Const SRL_STATS_ID = '6239'; {leave these}
Const SRL_STATS_PASSWORD = 'poopoo'; //leave these
Procedure ResetVars;
Begin
Banked := 0; OresMined := 0; Gas := 0;
Responds := 0; Gems := 0; BrokenPickZ := 0;
end;
Procedure ScriptTerminate;
Begin
Proggie;
WriteLn('Thx for using :)');
end;
Procedure MainLoop;
Label UU;
Begin
MouseSpeed := 12;
ScriptID := '976';
SRLID := SRL_STATS_ID;
SRLPassword := SRL_STATS_PASSWORD;
Siggy;
WriteLn('Please Wait Loading...');
MainGuildForm;
SetupMining; //Sets Up Mining Info
if (EndGuildForm) then
Begin
WriteLn('Script Ended, As requested!');
TerminateScript;
end else
SRLPlayerForm(False, ['Withdraw New Pick If Broken?'], ['Loads To Do?'], ['Mine Mith or Coal?'], []);
If Players[CurrentPlayer].Booleans[0] = True Then
WriteLn('Dropping Ores')
else
WriteLn('Banking Ores');
Repeat
WriteLn('Mining '+Players[CurrentPlayer].Strings[0]+' Ore[s]');
Wait(999);
MarkTime(ScriptRunTime);
Begin
SymbolAccuracy := 0.45;
LoadVars;
{SetupSMART;
SetTargetDC(SmartGetDC);
SmartSetDebug(True);
PasteSig(GuildSig, 0, 0, 139, 94, 0, 0, 139, 94);
FreeBitmap(GuildSig); }
If Not LoggedIn Then
LoginPlayer;
//SetTargetDC(SmartGetDC);
SetupResponds;
Begin
FindPickHeadColor;
SetChat('off', 4);
Repeat
Loc := 'Starting Script';
ActivateClient;
WalkToGuild;
UU :
MineRock;
BankOres;
Proggie;
SendSRLReport;
If Players[CurrentPlayer].Booleans[0] Then
GoTo UU;
Until(Not(LoggedIn)) xOr (Banked >= Players[CurrentPlayer].Integers[0]);
ResetVars;
LogOut;
If Players[CurrentPlayer].Integers[1] > 0 Then
Begin
WriteLn('Sleeping for '+IntToStr(Players[CurrentPlayer].Integers[1])+' Minutes');
Disguise('Sleeping -_-');
SleepAndMoveMouse(10789+ Random(8000) +(Players[CurrentPlayer].Integers[1]*60000));
end else
WriteLn('Not Sleeping, continuing...');
If Not LoggedIn Then
NextPlayer(False)
else
LogOut;
NextPlayer(True);
end;
end;
Until(EveryPlayerFalse);
If EveryPlayerFalse Then
WriteLn('Printing Final Proggie');
Proggie;
Disguise('FINISHED!!!');
End;
Begin
SetupSRL;
Disguise('Guild X Min0r!');
MainLoop;
TerminateScript;
end.
----------------------------
Script Ends Here!
----------------------------
Hey Thanks for using this, Just wanna say. If you really wanna help SRL
as a community - you should help other people.
Long Live SRL!!!!!
~ NaumanAkhlaQ