Joepetey
2012-05-03 21:59:57
How Long have You Played Runescape?
5 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Pascal, Some Java.
Are you a member of any other communities?
Powerbot(Not Very Active).
Tell us about yourself…
Please show us one (or multiple) of your scripts.
5 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Pascal, Some Java.
Are you a member of any other communities?
Powerbot(Not Very Active).
Tell us about yourself…
From: Joepetey
I am just a 15 year old teenager who got into scripting after taking a computer science class at school and liked the concept of simba and decided to take up scripting. I am learning everyday new things and am very grateful for the tons of tutorials for beginners.
Please show us one (or multiple) of your scripts.
Could not add attachments so:
program VarrockCastleGuardKiller;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
////////////////////////////////////////////////////////////////////////////////////////////
//LEAVE YOUR FOOD IN THE FIRST SPOT OF YOUR OPEN BANK TAB///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
Const
//Pick If You Want To Get Graped!
GrapePicker = True; // Set at True Auto... Change to False if otherwise.
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//Break settings
BreakIn = 180; //How long before we take a break? (minutes)
BreakFor = 13; //How long will we break for? (minutes)
Bir = 7; //Random minutes to add/subtract from how long until we break
Bfr = 3; //Random minutes to add/subtract from break duration
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Runecrafting;
Active := True;
end;
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////DO NOT TOUCH BEYOND THIS POINT//////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
procedure WelcomeMessage;
begin
WriteLn('Welcome to Joes Varrock Castle Guard Killer');
end;
Procedure Antiban;
Begin
Case Random(1000) Of
0: HoverSkill('Attack', True);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: RandomAngle(1);
3: HoverSkill('random', false);
4: HoverSkill('Defence', false);
5: HoverSkill('Constitution', false);
6: HoverSkill('Strength', false);
7: RandomRClick;
8: FindDead();
end;
end;
Procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
TerminateScript;
FindSpinTicket();
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
LevelUp;
end;
function InFight: Boolean;
begin
Result := srl_InFight;
end;
Function GrapeFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean; //credits to laakerules
Var
T, i, X, Y: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
MarkTime(T);
Repeat
SetArrayLength(ATPA, Length(Colors));
for i := 0 to High(Colors) do
FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 5);
TPA := MergeATPA(ATPA);
ATPA := TPAtoATPAEx(TPA, 15, 15);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
if (Length(ATPA) = 0) then
Exit;
MiddleTPAEx(ATPA[0], x, y);
if (TimeFromMark(T) > 5000) then
Exit;
MMouse(x, y, 10, 10);
Wait(randomrange(100,150));
If(IsUpTextMultiCustom(TheUpText)) then
begin
ClickMouse2(False);
WaitOption('Grapes', 500);
if DidRedClick then
begin
Result := True;
Break;
end;
end;
Until(Result)
end;
function GrapeGrabber:Boolean;
var
x, y:Integer;
begin
AntiRandoms;
if GrapePicker = true then
begin
If GrapeFinder([6427015,6819475,6361735,6753937],['Take'],x,y) then
Begin
AntiRandoms;
Wait(500+random(500));
end;
end;
end;
function GuardColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.08, 0.66);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 3188922, MSX1, MSY1, MSX2, MSY2, 11);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the guard 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 >= 19.05) and (X <= 48.31) and (Y >= 21.61) and (Y <= 52.45) and (Z >= 5.44) and (Z <= 13.06) then
begin
Result := arC[i];
Writeln('AutoColor = ' + 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;
function GuardArea: Boolean;
begin
Result := ObjDTM_InArea('79:79:8:1:7:5:89:1:7:65:148:1:7:66:116:1:7:86:120:1:7:119:132:1:7:143:75:1:7:143:55:1:7:149:56:4:45:56:110:56:111:90:44:89', True);
end;
Function KillGuards:Boolean;
Var
x,y:Integer;
begin
SetAngle(SRL_ANGLE_HIGH);
AntiRandoms;
AntiBan;
if InFight then
begin
repeat
AntiRandoms;
AntiBan;
until ((not LoggedIn) or (not InFight))
end;
If FindObjCustom(x,y,['Attack'],[GuardColor],15) then
Begin
writeln('Attacking Guards');
if not GuardArea then
GuardArea;
Case Random(2) of
0:Mouse(x,y,5,5,True);
1:begin
Mouse(x,y,5,5,True);
ChooseOption('Attack')
end;
End;
End;
end;
procedure WalkToBank;
begin
MakeCompass('N')
SetAngle(SRL_ANGLE_HIGH);
begin
ObjDTM_Walk('83:150:2:1:7:74:134:1:7:95:138:4:78:142:91:142:91:154:77:154',0, 100, 80, True);
FFlag(5);
ObjDTM_Walk('74:148:2:1:7:66:112:1:7:90:124:4:67:141:81:141:81:155:66:153',0, 100, 80, True);
FFlag(5);
ObjDTM_Walk('31:111:3:10:7:49:90:10:7:49:78:10:7:44:127:4:25:108:36:108:36:121:27:120',0, 100, 80, True);
FFlag(5);
ObjDTM_Walk('32:48:4:10:7:51:23:10:7:51:31:10:7:50:39:10:7:50:54:4:25:41:37:40:38:56:25:54',0, 100, 80, True);
end;
end;
procedure WalkToBank2;
begin
ObjDTM_WalkPath(['77:149:4:1:7:66:114:1:7:86:118:1:7:66:145:1:7:117:130:4:71:135:82:135:82:153:73:153',
'69:128:3:1:7:70:79:1:7:94:91:1:7:117:113:4:58:116:78:116:76:135:63:133',
'16:93:4:10:7:75:79:10:7:59:87:10:7:52:79:10:7:51:114:4:7:89:28:85:27:100:10:97',
'56:47:11:10:7:75:26:10:7:75:34:10:7:75:41:10:7:75:49:10:7:75:57:10:7:33:64:10:7:33:52:10:7:33:37:10:7:33:30:10:7:33:22:10:7:33:45:4:47:37:63:36:63:55:48:55'], 0, 100, 10, True, True);
end;
procedure DoBank;
Var
x, y:Integer;
begin
if FindSymbol(x,y,('bank')) then
begin
FindBank('vwb');
if OpenBankQuiet('vwb') then
end;
end;
Procedure GetFood;
begin
if not LoggedIn then Exit;
WriteLn('FoundBank');
begin
if BankScreen then
begin
DepositAll;
Wait(500+Random(500));
Withdraw(0,0,28);
end;
end;
end;
Procedure Eat;//Credit To Narcle
Var
x,y, c, T, i:Integer;
Begin
if (HPPercent < RandomRange(45,65)) and LoggedIn then
begin
if not InvEmpty then
for c := 0 to 2 do
for i := 1 to 28 do
if ExistsItem(i) then
begin
MMouseItem(i);
GetMousePos(x, y);
if WaitUptext('Eat', 400) then
begin
Mouse(x,y,0,0,false);
if WaitOption('Eat', 400) then
begin
t := GetSystemTime;
while ExistsItem(i) and ((GetSystemTime-t) < 2000) do
wait(20);
end;
end;
end;
end;
end;
procedure WalkToGuards;
Begin
ObjDTM_Walk('131:89:2:7:7:92:50:7:7:117:79:4:121:79:134:79:135:97:122:95',0, 100, 80, True);
FFlag(5);
ObjDTM_Walk('133:48:3:1:7:120:28:1:7:120:62:1:7:146:75:4:125:42:139:42:138:57:125:57',0, 100, 80, True);
FFlag(5);
ObjDTM_Walk('82:19:2:1:7:70:62:1:7:91:66:4:75:14:88:15:88:28:75:26',0, 100, 80, True);
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(520, 156, 'meJztnWuMFdeV7/uLPfiFiY0V' +
'DRNb44QgB3BEOxxP06aZxkAHDLRpT+N0DDgYA+Zht8yFwW3zGPMwc' +
'tvG6k6A4BATDyYeY4sMwXInGWQUjxMrus7csTLRnUhE0Ywy0f2Q0S' +
'jSWHdG90vff9W/zjr71GPXrjqPauj111apTp2qOlWnzlm/Wmvttau' +
'l5fLQ2xcuvPPBB2ivnz/fzM8dValUqnGmZtrYrDpy6hQoACIIFGT+' +
'22+91ZxjKPr6qFQqVbPVHOuaQ8MnT8L4EwTCBba//+Uv0ZrjOxR9f' +
'VQqlarZarRdzafDr7xy/I03YPbfHBkRKPztj3+M6YWPPgIUZNpoOh' +
'R9fVQqlarZapxFza3Bo0cBhde+9z0YfMaRGEEiHUgEaURD48JKRV8' +
'flUqlarYaZE5za+/g4JFTp2DnQQSigR4B2rmLFzF/8eOPo1xonMtQ' +
'9PVRqVSqZqtB5jSfQITnhocJBXKByQUsQRNn4X9eukQoyIxyQaVSq' +
'eqlBpnTHAIUhk+ePPzKK8IF6YwEQKD98MMP/+m3vwUL2D781a8k0c' +
'B1GhFNKvr6qFQqVbNVd0OaTwP794MIbDDvb46MmFzgPBDwb598QjS' +
'EsgwSa6r7gRV9fVQqlarZqrshzaf+gQEQAf4CvAa042+8IUQQm3/x' +
'449//e//LlyQIBKz0soFlUqlqovqbkjz6dHHHwcXmHFmHIk9VIUOE' +
'kf62T//s4SSAAXAgqlnrln3Ayv6+qhUKlWzVXdDmk/ggnRDkvCRVL' +
'QxagQowF9AIw6kPxK5QDTU/cCKvj4qlUrVbNXdkObT6vXr4S8QCmY' +
'tmzR4ByDCv33yCbkQhcK5ixeVCyqVSlW76m5Ic+u54WHWOIfGvvjh' +
'hx8ymwB/QZILXCgzkmKo+1EVfX1UKpWq2aq7Ic0tVrSxZgEuA6vYx' +
'BdgNAkUCPkR5nh62KruR1X09VGpVKpmq+6GtBbJCBjiL7Cojb2SwI' +
'X/9a//CpdBYkcmFxoBhRblgkqlGn9qhC2tRRxGFWhgliGUgzY7KaE' +
'xp9CItIKo6OujUqlUzVbjLGoOXX3P0gd2/rV0TKKPYEaKom3iwLHr' +
'1u1u3CEVfX1UKpWq2WqcRc0hcuGmm2+RJ/LEphL2vPOfbBN3nbh+8' +
'0HlgkqlUtVRjbOoOTRhwcqv7H7z0ZffF5cBFNh17j+ePvt7NLJg3w' +
'/+izNY7nHhiReUCyqVSlVHNc6i5hC40Lf3bXBh+ORJ6bMKEMCDkPZ' +
'XP/hvNM9Z2H9auaBSqVR1V+MsaiZd29d/zYoNaD3bXxV/gVnm/X/3' +
'/9CeHflvNsyLs4B2w7bDygWVSqWqoxpnUd0Fw37tqu1sS7d+HVwYP' +
'HqUD3fe/3f/l1yQxiDS02d/P+nQGY8LO75x/eaDjTu2oq+PSqVSNV' +
'uNs6guuv6JF2DVK+2JF+A4rHvpvQ3DP2V/JPgF+37wX2h0FkwoTBo' +
'8O3H/aeWCSqVS1VeNs6ixmttxr7Qbth0GCGDYJw4cQ/Ms/BMvXLdx' +
'39ee/yG5cOGjj3ae+R0oADpIHyS+BBS8duA0Q0mYadABF319VCqVq' +
'tlqkDk1Nb2za86ceSYR0DrnLcAUVn3BwvvQgoiQz4XuJ4+DC29fuE' +
'AuoAkRAijAWXjpPBr8BaIBrUFoKPr6qFQqVbPVCFsqumtJN1pp4ZJ' +
'Hd+8PcYE4QOuc3xVCA+7/wYVtp3699fg/oj1+4hckAqHgsQBQGHr3' +
'Uyd+MunIBW9+8G8m7XsVbfHi7rqfQtHXR6VSqZqt+lrR2fMXoXUs6' +
'1n81YfvW73uS0t7AAWg4aEnd4qbgCZQMBtwAC4wrLT64DvAAZ0FEg' +
'EzHhQGjsEvAA4AhZtfez9Aw9C7XkwJTsSB03VHQ9HXR6VSqZqtuhj' +
'P1o75M0rt7UuWgwUPbt22ZvszaL2b+kGEOxctAx3W7twjsSPTWWCD' +
'MWfemWhgUAhc2PHdf0GTUBLeuvHZkx4Cht4FFG469XM0b+Zb7wVog' +
'ONw4PTSpQ/U5aSooq+PSqVSNVt1MZ4gwhfndHR294ILbN3rNomz8N' +
'izh7YdPgJSeAj48nKTCLDhbAKFSXs8KMDIgwvbTv0aDWhgYtpzFvD' +
'uvleJBuBg0+b+VavWVaHhwOmJ++uJhqKvj0qlUjVbtVvOtq6lXX1r' +
'OpZ5FFjY+1CIC5g+9OROLOnr3yHOAuhAHHj5BT+sBJcBXKCnwOWCD' +
'DTPTQAR9pwI6OCh4W/27Xthx47dW7ZsAxrAhSqv4dCZeqGh6OujUq' +
'lUzVaNZrPUNnd+z8rlazeADpghEYCAR3fvZ9IZXAAsgAa4DEwxCxE' +
'k6Sz2n7ljsANTkwsPPPAQGmY8dpTRsGvXAaAB08cee5JoMDeRplxQ' +
'qVSqTKqVCwuXAArMLMD+92zYCig8uHWbOAto8CbQ8BYaDL7kFMRrk' +
'CZvcRpFg5eYLqMBTgT8BXABbf36rcIOs3EnygWVSqVyVy02s7VjPo' +
'jQsczzCHo39WMKlwGOA5bQU0CbvthDxuKvPkw6iLUXQETv8D1k+Kv' +
'Bm4DvIMtZ+0b7jwYWbNmyjWjAdO3ajeRCaJ/MaCgXVCqVylG1cGH2' +
'/EVEAxwEphXgOwAN8AtMLuAlqIEp3iUgzJv5kL8QgwnfrVix4isw+' +
'5jSd+BLooEBJSYaiAayQNCD1t77kHJBpVKpXJQbCqW2ueQCcYD20J' +
'M7YfbhNQAHTC4ACncuWgYiPLp7/5YDL4IOgALWx5IoCELuQzSOJNE' +
'kaQAB0CDRJBMN4pIceP3tv/z6K209D+KYOVUuqFQqlUW5uQAitHUt' +
'ZRUbTD1sfl//DnBBnAVyoXvdJrwFKDy273n6FMxKo0VZEIKF+Ras/' +
'f3394VIAQoIGtAGBv6KiQa6FWu2P4OD6R8cavdRBSigYQm8G+WCSq' +
'VSJSkfFKa3lsCF+T0rwQWmntcO7MVLWHvMkAvwFKb5b8E+gwvAARP' +
'TWGfb4SNYQheDRp6WPOQdxPoLmAIQjCOh9fU9TEA8+eRTpAPQAB9h' +
'97dO4SPw0cQB0IApXoJTaDgG5YJKpVLFKh8XZpTaGUQCC9qXeE4BP' +
'AUYeZjiTfsOkQtT5y9CAwtgjWGH4Sl09a2h7/CXX38FC7EE8zDg0Z' +
'yCUCDJoeBCcgENXJAcNA4DH0c0PPbsIUIBjbGs/3H4OD4aRwVOwZV' +
'QLqhUKlVIOaAwdWbrF+d0gAsgAu75O7t7WcIAq8tbdAaRAIXPzb0X' +
'6+BdEAGrYUp20Fl4cOu2gWOvwndgTCkplSBLovElrgDfAVzA52JX/' +
'c+/jL0xqLV25x5xFlhYQWQAB5jiJRZiK+WCSqVSmcrBBUABnkJp4R' +
'L4CDDvHct6CAhmDWCTGUQiF+hQsAur9Ghlp1asDMcBlpzjKZn2n56' +
'CkCIUZWLjEExmY4mE2SSnwAwIZ+RdHANohenC5N5KRV8flUqlaray' +
'QoGZBTgLbV1LYVph83FnDmMLm0+vgcOoEgqfnTOPUIAN52o0wliTu' +
'QYSgYEmMALuw/3394UCR4QF40Je/mLnHqzJl9gnrD28gE37Dq0d2I' +
'uX7BPLkBGWkwuYYZoDM8yDYx7eCjPgRJVyQaVSqaisXAAU6CwwQMR' +
'QDGws5ukR4A58+uLl4AKggAaCyDoM5ki6gXTgkEow0bDkXE4WgBH0' +
'PmDqBQTMa+MtvEQjF7BDrLB96BjMPrsbPXP8O1z5z1Y8iEPCPOkD3' +
'4Ts4Dh+3pLBIfoaygWVSqWiMkFBnAVyASYXZhbWmOYdBhkGlsVrdB' +
'b+ZHY7CxwYwBEEwCBjHY6/yq26+tYIJsgIJogZ8CEXgAM4C2hPf/M' +
'1YoLbkhRYh1zA5ngLmGCmA40vsSZhgQ9lhyhsyFwDtlIuqFQqFZWJ' +
'CzNK7VK2wG5IrFlgUAiGVyoUyIUps+5mQTTNPhpWhjFHA1NY+ADr/' +
'dizhxjtp53nDtE4dIbXCXbnHphxucmnv1Dhgh9ZwrsmF+AawG0hF7' +
'A+Gt4CHVhex76y4AI+GmtaEtBFXx+VSqVqtjJxYdqs2bTznIoB59P' +
'ZaPaZYsA8oDBl5l3MSsO/4AxZwKH2OO91HBrYy00wA4vNhDItPE09' +
'9y9DbQAHXJPeBONIsPOMEWFKZwFcYNk13n3m+HdYOiFuhed9DOylr' +
'8FOtsoFlUqlGs3lL9BlYPdU3vajcbg8LmGgCetPnvqFL87pgDHnEk' +
'EDC+JIFuZ/GUSiocYSeh+Yl6QD+zuxHyy7mHLwDc4wrcBoFd/F3jg' +
'KB3jBjDbzCBJKAjuYxYa/QL4oF1QqlWo0Cxdg4dlYzsZkAehAC89H' +
'82CG+WjZatodM2H8sYSJBmzFdYgS9lbCcum2xJt5mvpQoTQLH+gms' +
'N+p1E0zhcGyBfoXWA1cmLZwCQNQdBOwHKzhc4KICX4QD0y5oFKpVK' +
'NZuEBPgXln2Hn2L6J3wFt3dkDlQnNDQoQ0IUq4BFYaTgRdD5KCROB' +
'b7FlKCvAtQoGdTkkKWHsslG5O4hewyA5QQOPzILgJR+2Txk/hEK94' +
'qVxQqVSq0excgIlmP1VmijHDgbWlxyksLUhhbsix9ZiS4GgYDDoRB' +
'9wbl0gwSvwRdlXCaswOMPVAB2Rux72d87vY5nUumjNn3uzSHCykC4' +
'CVAYWp/kdzn8xrSzU0B+Igd+iqKBdUV5jah/AHHx1qL/o4VJebMnG' +
'BkR92UoUtpSWXOAwMOAwv3opuOKPUziGViA9uzlGVuFtmkwkaliFL' +
'JkKcC97k41P4nGjgoGvxcjYZlLt31epNm/vXrt2IowIXPjf3Xm7FH' +
'DcDSuzUhHnsltlqjvinXFBdSbqEf3e7xwXvVzxS9NGoLiul4mD/yy' +
'8/NzyMxhpnBpEwIwloST1L+iDKBTRmIpieICDABSagsS3mpfOq9Fb' +
'lS+EOWFBqm4upPG1HnrMANGAGU1kOOgAc4AJ2xT1jD/2DQ2ZFGxAD' +
'HOBdHBsLn5ULqlSZ9tbSCr9LHxkNjqS9xT9olcpZdihs27ULXBg8e' +
'vTwK68wvyzDHElygbCQ7EN0J/QXmJjmmsQK5tkYiYJ9xnKGdBjbIX' +
'SwfF7nIgkWkQt0E2D/P3XiJ7e8/8nkkf/DdvOZ/y2M4AAa+FzskJ8' +
'uRRDYJxMTHKADb4ELZrpcuaBKUsvGdCiwjWws8jiVC6rcskChd9Xq' +
'Ldu3gwuAwvDJk0dOnZKnOTPVSy+AAaXZ5Uh+dD8MIslqpYVLsK3kK' +
'YgG7paDZrBPEYNUdBMABToCpAOf0UkQfOrkz8AF4IAvbzr1c9Lh5n' +
'O/kedE80EP2CE7OLErLDMLWE5/4bFnD2GqXFClyp0LxboMygVVbtn' +
'9hUcff3zv4CCIwPbtt96iAee9PedlKLzY++0Wf1xuNN7/01kAF4AY' +
'mn0YZ9zMAxBssk/MmJlliR2hweabDoI3PfebYKYMCDTwgqOzYnM4G' +
'uzLys6uLH8DL1hAR2TEQq3o66MacxJ7m9ouDRV5nBLvUi6ossrOhd' +
'Xr1w/s3w9n4fgbb6ABDQz4s1TBJEISFFrKz2tg4AgzwAFMNPsgETE' +
'sfGOCmONy4y0ml+kdYIoGI3/LxT+I2fcsv/+SLKCnYELB8yN8XnAP' +
'2Bt2ywcDsd+UdFjF6XDAcOWCKp/oRBSeUzCleWdVbtm5UGqb2z8wM' +
'Hj0KDwFNHEZyIU3R0bQXj9/Hs2yk2l3zGQoiYkG6ewqXKArwcJnjx' +
'GlObi9RzPdBHEEwALOy0xsIxdkE8xjJ0CD5MelyWgemndW5ZZyQXU' +
'lyc4FaMv27c8ND7/2ve/B+MNlABc4z/b2hQtoWGjZw+SpX5jeWuJY' +
'rGj0HfjEN2acO7t7GckRItBZYIp50pELYv8ZQZKXnzrxEyIgiQt0K' +
'IL59z/pWhzkzYkG1tkRDRzZr3vdJuWCKodYKbBxjP1etH5BlU+pXI' +
'AN3zs4SH+BRMAU8+QC/IVzFy8CDXYuTJ3ZyvqF0sIl5qCsLHZmWkG' +
'gwJgP0wqw6pOG3q1wwU8omy8Ds1+OL1WBwHcTqtrFP2DnrJJjuRw7' +
'xHK4b/osygVVDo1NLuSQZqtVow5cuGp66erSgiOnTpluguksSEvkw' +
'q23T7tjJv0F2F56CowdMcvgMaI0h9XKTCgwcER3gFMz0YwlZurZ0j' +
'w0CB2IjIt/KLXN5YAb4AKrntlhlSUVygVVDo3BOFImkWtjqp+tqkC' +
'lQuGq1rkTOpYOHj1qEoFpBXoQ4kok7eSWKbfBZWCKQfwFckE6NZnO' +
'At0EzzWIdDHiwmhawVzTdCjIhVCeWsbKYHEE6+Y4htL8npWhAbeLv' +
'j6qy0NZuWB2dnX0MqL9Y2t3T+x9bpUL41YpXGide3Vb14QFK69ZsU' +
'F6q8Y2y05u+vQfM5SENr1jAQEBmyzDIsGVABdYy8ycQtT4m12Pos3' +
'kwk2nfi4uRrBV2blgJoL1cb2b+ju7eznCNssx+vp3lPxx9pQLqqxy' +
'50KSKbZ0ao29ma8RDUOXxnr9hapA2blAKExYsvqa3i3X9vVjinb4l' +
'VfYhk+elHkbF26+hVyYdsdMzGA6bdZsKVhgBIlBJEaQLPY/9q0QRD' +
'wunPxZ1NEw4UI0cOQldoJa/NWHMcNHiyoXVFnlwoXUATRiew2lltH' +
'lQ4MFBIKMKyBdosonGxRKCyZ03u9BYcWGa1dtBxcqDS/9xtGTBo8e' +
'tXPhlim3AQdAgzgOnu/QWoLjwPARnYWuxcuj2YQkHMQHkYzVZFchc' +
'EhFAwd64pgbZARHeVUuqLLKhQv5LLxLAV2ObqiWeJGknpUL41Y2Lt' +
'yzVKBw/eaD163bXaGDDwXLtiG+TL71dqYYMJ15p9c3iUUNDB9Jx1T' +
'c6sNocyr3/LHZ58lGt1VLMgJbcW9R/4JF0OwTJcNxcMBY5YIqq1K5' +
'EIrbmGuaTkQommRuFY32bxyplQtJnY54OppfGLey2HMTCjdsO4wp6' +
'XDd2qeycgG7YpckL47kPySaL0MlbLTYLFjgVDAR6y+AHZJTiF0hyF' +
'NXVz2wscwNVGJ5NYv14Cx09a1RLqiyKtWQms5CyPib8aXQHiSzEGv' +
'5yYUcHUovjSayRqUaTeYCc80w/sffeOP6J17wuPDEC0RDQId1ux25' +
'QGFXXhzp1tsxBRcAiFmtJfEUwAXmiye9dJ5EkPRxgAajl5E0KXkT4' +
'29JRkS5MK9zEcB03+p14ALr2jgkoHJBlUli2JPMrDmkUqxPIfbfDN' +
'3IVhaO2BPWFtUxha268pTIheWPXNO7pXfV6uGTJ89dvAguhNGwcZ8' +
'7FLg3jy87vjFpz4kZpfaZd7bSWWDHVOAAN/8eFAbP0guIhpJiw0Fc' +
'J5pECC0JORQSSuJgenwYEMuflQuqrBJDnWSiJeCTdOcfm+rlQlkSm' +
'7bOLUsGvNjh/lRjQYmW3O+DBC58+623jr1+DPbca0Y0yR0KEFyP67' +
'42wHgU9gMooMFfYCEbuXDji9/3oHDiJ1KkEB09O5SJNlcLbUL/Qgb' +
'Ti6ae6TKwcgFcoL+gXFDlUNKNvUjcgaSYj3DBXIE0GRmKt+G1D3lk' +
'GRhWfYdxLkcuTBw4NnHXCTYCwh0KXv56+SNAiedu+C7DtDtmzionF' +
'8CFiXtf8zwFP4Ik2YSQzRc6iIMQ7YlUxYW0Cjj6CzJmOB8eyg6ryg' +
'VVJomBTbLVsWEiU7FciC1baNwIeKHuUlq8MJ5lucO/dtX2ChfKUJD' +
'mzgVSBnsDEbxtB47RWWDNwsTnznjBpZfOw1MwnQXY/xAj8JItqdtq' +
'aOikcFipnICQ3QJJfAAE40isvA4NGF709VEVLwngJJlKseq5uSCBJ' +
'nMFkwtNGxC1kA9VjTUlWfJr+/pxh08u4H6e9twz7GXHIRMUPMr09c' +
'NZ8Lbdfxr+gsSRuDdyAf4CZgIuVDMi6KRUftc+FEZsojlUCoGp1w/' +
'Kf94cH1EqvZKUCypTsTfz0RUs/YJS8wtyr26ix7G7URBuqlPPIkvn' +
'KNX4UZIxv6Z3C7lw/I03gtiRtCxBJNkb/AXsENua/kKpbS52eOPzZ' +
'z0i+FAANTAT9h18ZGDmxhe/H7X/0md1ckKZA7ukRjnCp0jwgaH/9N' +
'vfXvjoo+gwgEVfH1XxSrXqXMESk7f3RzL3b2YoUnnkuE5UcApcutR' +
'qKGncymLJAQX6C5MOnBZ/gS0HF7z8QrkvEzsjsYeqQCHwFzgz9C57' +
'JZEOmOdLgMN8LlsooSCdWh25YD5LAiAAF9754APhAh82VPT1URUvs' +
'7jM0svUvdg5ZMOTsr2hDkh2oLhzwVLOHPpE9RfGrVK5cOz1Y5MGz0' +
'46dCagQ8bMAkVngUln9keaXs4v0E3wpn5nJDb4BWQBC5YlIyD5hcn' +
'l+gUzDW12XhLjDyjwKc+haBKWhEaI/eGHHxIHHCqWDxsq+vqoilfI' +
'WiZZb7sVdRmnLtqdybT89uZuw12OJOl4VONEFi4cOXWqr+/h4ZMnP' +
'SgADX6buP90Ti5s3Me886Q9J2a1lhhHgl8A2+4tPHIB1Ai44BPBQ8' +
'bQu6xuk7JlKX+m/Tfdh3BP1HKNc9fi5WhRf2Fe56LQ4ySECHySNQe' +
'JLfr6qMaEorZU7t5Tk84iy7CoFsPuYsCzBnxSR2qyh8VUV7wsXIA5' +
'5YipXswfaMBd/dC7mXDA7j0cUtsrXvCdBVBAuMBsgtc99VvvSZckQ' +
'EHqoGVkjGBYDB8NtP9erMksdih3RgoBglwQf0Eadh4lggkFNJx+0d' +
'dHNVZkt+otbmGcpPt/y91+6u19vl5D9QWN6gqThQvXrdsNKAwePcp' +
'ORFm50LNhKx+RyZIxL+MMv+CAtx/WtXlc8D0FSSuYzgJHWKV3wHdN' +
'BER7tMb2ViUUFi/u7uzuDbkSx14/xsdVh1ggRMC5bznwYtHXRzWGZ' +
'I/quCt0u+6i2Bq0Gq137OkoEVSjaVx4bnh47+BgwIXBs5mcBdYO88' +
'lomAEaPArA7zhygc6Cx4XnzrCijYAgF/h8Z0LBHGHVLHMzh05iDiI' +
'2xUAuoHXO7wqFkvj8CCIA7bFnD23ad+jR3fvR1g7sxRRQaNE4kqpa' +
'Sc9Q0KiL6kqSjQsb9wEKO/ft+/yRHzGU5A6Fhb0PwVkQKKBhycSBY' +
'/A4pNiZGYQg6ewHhdBgwNEEDeyGFPIaZLg8M/sQLVVg+IiNuzXzzv' +
'tffpmj/1239ikgoAKFnXswlRMp+vqoxqLsmWiV6nJXIhTW7V730nv' +
'bdu3qHxhYvX79zDd/4Q4FaPb8RR3LeoAGPjcZDfNe5vrIBRYvMExk' +
'xo44z+GS2Ni/lMZferGSC5ONkS6SKt04Yiob6SC9WDHvEWHjPqIBz' +
'gJ8hDXbn0EzoaBcUKlU41CxVr1n+6tfe/6Hj5/4Baz3o48/3rtqdS' +
'Yu8AE3HHSod1M/uQDDy8wy/QVmlitQKKcVZNht3uQHXCiPsBoaFqO' +
'qkKE8zIWMwkqs0PUQLhAfWCj1FHze0ENP7mT4KHQuRV8flUqlarZi' +
'Dfvqg+9s/uY/7DzzOxhwOAtZudC+ZDnb/J6VDCXBa/BCRn6/U/oLw' +
'gWafcaICAVxGWjY+VbseHoCBbPMmfOhCJJAgRtitxUu+F7DtX39US' +
'goF1Qq1ThU1BJ+ZfebG4Z/uu3UryevWI97e0Bh2V/8BWy1IxTgJvC' +
'5ycwpLP7qwwEXysOlmoPmib8wcdcJJhfEWWDjwHo3Pu+Pv33uN4wg' +
'hSrUopgwuSB0qIy5dO43Unmd+pihoq+PSqVSNVtRS7jupfceP/GLH' +
'd/9F3IBFrVr8fLPH/nRnnf+04ULHHoOra9/B6DAh6B5zsLg2Zu+9R' +
'64wEHz6C9IHyQ+jkfu7U17ztVCnoJX1FadZTC5IN2QJPUsdRCckQd' +
'JoF2zYsOEJauTTqfo66NSqVTNVsgM9u19+9GX3ze5AKMK6/rZ598C' +
'F1LR4GUWeh6EcwEfoXvdJj7OQLjAcJDEkdDoRMjwF2gmEWTezCmEC' +
'p9DvBBnwUQDQ1XmwN3gwrWrtgMHV9+z1H5GRV8flUqlarZCZnD1wX' +
'c2DP+UXAAU2FavXw8u7Dr3H2gWEzqj1C6Zhd5N/Sxe4AMOOIaGcIE' +
'jqXqD5r34fRMKLGSQpHOIC6x0MF0Dugyh5zKAGuTC4sXdmMFUoCD5' +
'6wkLVl7d1mUngnJBpVKNT5k2cOXT3yUXnvzOr7z8wtQvkAufP/Ijc' +
'OHps7/feeZ3FhMKUw9/obVjPnDAmgWmGMAIr8y5mgsSR5JBMLyBkp' +
'47M3HvazIIhvQvpdkPsgzlxzHABzEHvvBsvu9HmBkK0IFj6wUJbn+' +
'KFVyIoFxQqVTjUyEurHvpPfoL5MItU24TLmAJWpL9nN5aQvvinA5w' +
'YX7PSvZEAhEwE+KCPMEzqGvzS9tYCu0VVu99beJTx6W3qtlVFdQIH' +
'Iehd7EaMBFbxcBtxdeQFIZ0anKHgnJBpVKNQ5k2sGf7q31734bL8O' +
'jL72/+5j9MXrH+jx95+rbtQ+ACoQA/wsIFQAH+AqZ0HEAEPvXGs/x' +
'lLsAsyyAYQMONL37f8xQGzwaPhHvuDIdsJTUIhUqP1m+951n4Yz/m' +
'OqazYEKBESqigetLnEq5oFKpVKkybWDHV3Yu3fp1ogGOw01LVn961' +
'bYpj+2DswAPYuvxf0wynqDAtFmz27qWAgSsdGZdG5eYXAjlnb3hNc' +
'pDbXsuw+BZJhHQ5J6fQSGz6pmP8qmEj8pQwEJWsRENmDef9SOPclA' +
'uqFQqlUWmDZzZ0ftn3Vvmr95LOoALcBmABvgO8CAsxnNGqR1uAhwE' +
'QGHxVx/u6lsDImCK+c7uXs/OG/6CWdcGLgTPays/3CHgwtC7rG6Tc' +
'BDv/GnYzac8mwOr8vk7rHqgi1F56I/xPDjlgkqlUlkUtYSgw7yHHl' +
'n4yMGe7a8yDY2p3XhOndnKwBGTzowgrdn+TF//Dq+TKrlw4LQZRxI' +
'uyJCqXn6h/KAHwALNRANmeMMvGedoM8sfZPjuoPnj8pERygWVSqWy' +
'yGISSYcHdv41ppbVmFnoWNZDNNy3eh2gAE8BXHhw6zZ4DSYXJO/MU' +
'M/EXSdg/2/Y8Q04CzdsO8xEg5eGph8x9G6owyr2QJ/i5vIzPSWnLP' +
'hgL6YABySOEUrCW8oFlUqlsijVMHZ8Zad9hWl3zISbAL8AdOjZsJW' +
'DYPRu6n/oyZ18KE8ojlR5WJufaw648NJ5TvmgByagwQVxARgj8pb7' +
'yQipUOMYrWisVmB+IUhn+x1fQ8/9yQQF5YJKpRqHymonY7gwazY8B' +
'TS6CXAcJIjkQYFPWIjrp8oOSASBRwR4Csw7G9lnzJMLMPsc1MJzGX' +
'adqOQafIMfetSC52tgh9g5g1RGSbVyQaVSqeyqnQszSu2AAqZ8mjP' +
'm4SbAWYDvECQXYOfj6toYLKINr+Dg0BmGktjwbmjQJADCK1548ftS' +
'wgxXglzglOPseVDwnRFJPXv5hYzPp1YuqFSqcajaocBaNjS4CW1dS' +
'8GFB7du693UDygEQSQY/ENnQv6CF0diEsHvfSRo8IJLaGU/wktM7z' +
'8tJcxAAFpg5yNc8NIKZaAEXGBAiesf+zFmlAsqlUplV41cABS8Qra' +
'FS/gsHk7hNbCHKhyHChd8+2+Osx10RjKiRiACc9Aw6Zhh6oGAkHIG' +
'BpRkgG6ztNnjAjPXfoaiKjCVvYeqckGlUo1P1cgFljaDBeIvgBGYA' +
'gody3oqcaTBsyYX2B8pqHFmaRudhXJ1G5ejMRnNuBA7GgVZBlYxV3' +
'MB3oG3lR8+CnMhew9V5YJKpRqfqgUKzDgzpwAW9GzYisYlXX1rOEp' +
'ShQv+UEiw5BV/AU7BtsO0/PQpgqEwxH3wGREYeT+aZLoG4IL0QWK6' +
'meGjoETO34S5BpIlR3JBuaBSqcahauHCjFI7vAP2UOV42phiCQHBN' +
'HTFWfD9BXCBz+UhFyoOAuz5oTMsYTBzBKaFx5ryAGgTECx/44ZBwo' +
'KJCb8/EsNQWJ7vHIu+PiqVStVs1cIFDoUkzkLvpn7MYAkr2jwo7Dl' +
'RCePQXzjxE47dHaCB1tsvc8bM9ZsPVronlR0NWcfLNew6wZw10SDD' +
'cQfhJhmFT1CCKQvlnjujXFCpVCoX5YYCx76gswAWgAv3rV7HTqp9/' +
'Tv45IUbnz1Z5S+8dN7kwvTWEq03DT5Txt68EUoK4ku+hb9u4z76F6' +
'W2uTJoKhnBJLXHFIk7lZ0FphvUX1CpVCpH5ebCjFI7R0wFC5av3QA' +
'udHb3spMqh0UCGjxrT9tefs4CpuSCpBhguuEmVHqlDhwTjtCqs0tS' +
'MOOnqjliKkdk9eogygULgadAHLAxf53XWVAuqFSqcajcBpNPW+CzO' +
'7vXbZKM85rtzzC58KWlPcHQ2REuyJCqN2w7DFN//RMvmMlicRbwLt' +
'4K3AQ/IkR/gW5CQBYBQbWPENRBoPmAUC6oVCqVo/JZS9j26a0lFrW' +
'VFi4BDuAstHbMByDgLzCIlMoF8RcqZp8jV3BYDN7wkwVlIggXpFX8' +
'grKbALeCgSk2vlQuqK54tQ/h7zw61F70cTRMI5698trIxqIPJU1Jx' +
'3m5nEJOLsyaLZXOUu/MNDSIgOmdi5ZVccEf6VpSDFVc4C09OyYdOl' +
'PJNfvVB1KJINbehALroCtk8WfgYqBVuACXZNcJ5cJlp6FLwT/I+y+' +
'p0iQGpx3f2KXMm7dsvAy+6o0jNZ1jM5V0nJfLKeSzloACI0igAKHA' +
'RAMa69puL90zceBY5RFsHKSoPF/pj+SvE+QOeM/vNxp2qVyQdQgCD' +
'ppa4YLAhc6CXxPhLXzqODfMDYXauYAr39Ke7fbgyr7lcxctVe3fhl' +
'yCy+L/mFuCUccTlC/EbGP8h9cIo8rvzbJDAW4maI5PLjC5ACiYxQv' +
'd6zax3nny1C9MntEacOFQMKKp5y+UfQf6C6W2uRLwCe7wDQpUOpqW' +
'k8581jOggMaMMyvavLHyjNUECjJfIBey/gwYChj7d25NUF24IDuJt' +
'ktD9TvWMSB3LshvLNo2jm3/uBFGVX4hsXduIwZAo79Dbhv7pY1DLu' +
'Bun84CH8HDtAK4wMd3AgpTZt6FqceFgWMVLkjhc5kL8BcqXNh8UAJ' +
'KXuTHhEK5D5I0edybPNBNchChzAJwU0tyoY5ccDH1NYYCrjCJ+cpn' +
'rEJuwuVoBjPJxeCkfidF/fBSb9qpuhtV8wuJciH0dYVWMP/a0W3HI' +
'xdmzaaPAC4wgtS7qR9cYI0bPAWiocIFeArkQjl9IP1UacYDY250Lg' +
'36ppbTzVLUzAgSoACDL3GkChqMRmehRijUzgW5i3O5QRVLeIXdyuZ' +
'TLVxwgYLlLvFylBgcy9eV+p0UZawcfcMmc8F0Ni0WXrlAsXIBUAAI' +
'QkEkL4IU8hcOnK48UvPQGaJB8gtBqAdr+hSopAaMjqkc+4hNMgvwL' +
'6TYGctZ/mziQBINxXLB/OHZf/PiLFxJN7G1qBYuhMJH5jdvkjr1ol' +
'xGSuXCpeqcQtXy9oKNlVwv+7WWn0STuGB+XXHOfo44Ut1PoUHKaid' +
'h0smCrr418A7gL8hoSMwsEAohLnjPxCk/5RloEC6E+g5dt26399Ls' +
'lbr3NXlqM9HArbAmzL6gIeizivUHjgkXag8i1c6FUeffvPyv1Vmga' +
'uJCWh7BMXBxGUl+P0mkM9MKoe+k8JvYMc6FHE7leOPC1Jmt4EL7ku' +
'Wd3b2SZaCzML1jwZRZdwdcmNHqVSKb/gKf2uY3KXnGbb8HArNXUnm' +
'evBAfgU6B5yn4KPFsfpkL8m7gL/huAmviAJHCueCYYpC/xlj+tTRT' +
'ubkwUts/+jKVfF2xXDB/hLGg5M+vqHsSx2tdY8opKpMLoXMXvzKfR' +
'5l0nHU/hQYpq51k5QIbAcFeSV9a2oN256JloMPn5t7L/kJtd7czws' +
'MBsQMbPm8By+JY8sy7ejMvIFxg4sDsleoNheQb/BAXZOd0E/gu5vE' +
'RhXPBDFwkmSnTlKmo3P+genVwvbwkX5ellqooUFa6eibc84w1LtQe' +
'1B1XXIAjAHsOl0HQgMb6BXJBGrPD4AKm7ErqRYHmLaD1pr/AbkXkg' +
'vQphQfBGW5iRorwkoEmaZJ3iKGGD4gaoVAXLrikGKp8CpUvl39Q9F' +
'2h8Bj/39VdFi4UBcpoh9gkKo0pLsjCWj5lvHEBIAAXOGIeXAO8xDQ' +
'EBTTxF8iFxV9eTi6wf2nHsh4pYZB7+0peYPPBiU8dN5+wIKlnL+7k' +
'h54ACLRo7XOFGpsP4rPGAhdGHYKKjvHVUDo1KSpVCZ5XL4n9b8ZG2' +
'kPJ2aS/c+h4HH/qoV4xSWeR+g+qRN5GUha6S048KaKSajQyX6NLVU' +
'tcbuxD9paHmsQFc7e1KHxezmsmnZSljCJ1k0x/E8vKsVxwjOja6/F' +
'r5EL0O0xav5Yfku0AskCBlQtoMOyd3b2w6phnxjnqL9BlQIO5Bhck' +
'1OMZ8O5e5hdC/gKbGHzTEYDLwDH0YPAxve5rA1jNXEHWEXDUnlyoF' +
'xfsvVVd3HzLfy36s6wUx1V7IrGbhOxJ7PrRryF3vViSNYhuZf8HyQ' +
'HE/iNyR0tS/7ZVZrb6m893jXCoid958lZRoyGfHvomzaPKp6Tzih5' +
'eyCJFmzgs7h2JzQvh6EKm7kdkHgZPx/3rsnthSR+aegp2XFp2mOmH' +
'lKpMXGDSmVxAY4rhzkXL7lrSHeIC88tevfOeE5V+qli471VM4WvIk' +
'Ko042bnUumAFPYFfGchgII/NVkjiQbxF2qHQr24YLf89t4gI8k/9a' +
'StKj+thH907D0YFtosW1ku/+hUFyD1qMyVk+pMo59VAWLcnZ79mwy' +
'ZhaS/bVIvAvvOLddoxO3uetTKHbOZXDANdY4gUqaTSlqZn8sjMb9V' +
'x9MxD9vdhYxt0a2q8nojGXyi0YZxIfULSdqh+w/JRa5QuPV2cKG1Y' +
'z4TCuQCMAEowFkAF0JokAo1s34BS2589iSm2IN0VfVcAD+UdO2q7b' +
'zPZ+CI7gYfu8MAkZdcIBf8GTSOiSFeA2lCKODl2OHCaLLBsWcfUqF' +
'gtzmhf0SspY211XKQpusROpFMf8DRZE8k6USS/ndJUKi698vyBZqf' +
'ki0TNOL6Ke7XKNNlircbcaBsSYZ1krKeVOgIQ7ZoJJIMcrnBSPqI2' +
'B+Yy1cU+hIs55j6dTWCCzlOIesPyVGO5vGWKbdJEAl3+/d8eQVwMG' +
'3WbEynL14e4oJZrewVshn+ArmAnVRxwXcZPC5sPsg+SHQZ5JGddBa' +
'8nIIPBTZuZT7lmTPeOhv31SWIVEcuJP1D7SGmkBE2/yaOt9Oxbri5' +
'iT0YG+KCpSgs9DcPnYtlnJnYiNBowv/OckcX7dPleEdq2jFLb3Yq1' +
'rlLKozNcY1it7JEjKPWVX5d7jWVsUr97TleR3OFTN9qVBajasmgWT' +
'qKJ3HBhaF154K946KchSV6mfpDcpejeYS/IN2Q+BBnzMBZYBM0kA6' +
'sXw7iSBwcqVy/4D3Z80DABXZJkpt/NLoJcv8fQGHegiCCVCZChQtl' +
'jggUPC74+Ki9h2p9uZBk/y2/k9ANdlLc2NL/xOV3YvldjUa4YK4cp' +
'ZilSsgetuWZJm0iR2tP6VbZliyegvnRlrOL+ZRLVUvyXaPoFxK9TK' +
'n9FmLvOkYcTidJLr+9JDzliFrUzgXLgJOWncf+SBy/q7pzwT5mZoU' +
'L1aeQ6YfkLhfbCGcBXIAZJxrgI8BfECgwlMQsA7lAf8HjAh++VuYC' +
'Q0Ow89gPuTC9tQQ3IXAZ/OCPpBXYc4kpA7oAVVzYuO/avn6GkuhcC' +
'Be4VV2gUEcuxN68uQ/PEvqtOm6YNDZLLBdi/5KVX2Pa2JJU7M8+X5' +
'Tb/N9F/7+WnOzGZC6YX2NsPCrVOERNdFLC1/EatSffD/C7stReiUJ' +
'xcsqSIk+V/QYgduh4e0DSrhq5kFT+Y/dhRxN+JC7fVSoHs3JBjsTy' +
'K4o1/u4/pExysY1MLrAxmtTaMd/kgkCBXGA5G2272ctU6heAAyl5n' +
'rBkNe28OSyeDJcq9//sgFTFBQDFT0Z0LV5u9mjlHsYaF0bjrqDln2' +
's3wnZbUeFCtWJHknccZ3jUrXA7tnwgX+2/Y3fH6KeE4quxH2p+gVX' +
'JUGcuROlj+QjLNbKUofFLdhlAO5YLuUe3SL0B4HmlWjCz2W/CHRGW' +
'dIse+tVFjyQJT7njSI5csMQPk04hun/7Wbj/kDIp1TDCWWBygVDgN' +
'AQFZhk4BRTIBVLAzBewfgHTFn+cJXZJuqZ3Cyy8eAeV8FG5Zo0g4G' +
'qhUJIkqc0sAxbWK4hUXy5Ei9csrqg975CPC7Gyc8GUi3mPGjGX213' +
'7gTnamUzVW0mDYWblgqU6IDcXQnKp1KsvF1IHAY7lQvRIXMxa9BNz' +
'cEHOdCTOZ3E800xoqDsXKj/IOLa6fCf1rWRPNYyes+D7C4wjMQR0e' +
'+ketM/NvdekA7MMMvwF0wRi3sVfMLkABIjBZ+8jM9eMxrcwZYPX4M' +
'309WOKDZlloKMhDevUCwr15ULo3tIe/k39pySFL0YbzwWXP7jYotw' +
'PlbBzIbo3dy6EbsaqvCfnvHMqF0bdrlHq1+4SDWgcFyy/PRfKO/b8' +
'rJELsSEsl5vkKgKOpERsTKXmbrJyIfcpFMIFOgvkAqGA5o2M5y/Bz' +
'JRZd392zrzpHQvoNcjwF4Fhn7cAzRwoW/wFogEImLD8Edr8UttcvM' +
'TUfLCCZ/x9FhAfbJgPaOLnHcz6Bb4cm1wYrbbY9r9t6j/F8rCGArk' +
'QHe25XlyIlt0lZdVTY9rmfzDcqaauXHC5Ro3zF9yf/RHKIzv+9ty9' +
'v9SnENaRC5liJtHPdaxraygXsj0wtAguwP6DC2ABZrwc8ac/g3bDZ' +
'yrpBqED3QczO1BxEKpdBuEC/QWswPt/2VBcBmHBNSs2mFwIBZTMqm' +
'e8Va8eqo3ggvkHsV/Q1D+1y3g4Lspx42r56UZ/9rEmy+nAEh4KkPT' +
'PrQpzJSsUOkjq9Zdav5CJC5Zr5M4FyxcY+yWbC10C7PI9O/723A2R' +
'OGhJm9QrjmS/9NFub7Gf6+J4Ni6OlHrvFPrEAuNI4ALnyQUzDV1Fh' +
'5l3kQ50CiSnQCJE9yxDYdDmhyqXTS7Ap/Dm+/rFUwAphAsMHxEK9X' +
'UW6s6Fyr1fQnGWKPVPbQkvNIgLqenI2B6bSRne6Iahd5P+d0mgcRk' +
'IyF57NergdIS4YMk7j7pdo9Sv3eW5OUnPVjAZaukSH9q5428vWnZn' +
'ORceSZKldelSaynHqLr0zpmv8IZxnTFsDzmyPwA07jhdTsHuVkdHQ' +
'yqKC6YsXAg1l73J0zzF2pvjo1a8A+DA9xe8VnYcGH0Sf4EMqruz0F' +
'JvLrj3lBit/lObq4VSe5ZIu4sy/a6SCrgsRzsascamQnfvVTYt+X8' +
'X+yeyAyhabZ1alB3ldazBjLUh7tfI5Wu34CyaOU0aByP0zYe2sgAl' +
'qUelI0dcShtq5ELob5WY0nXmwmhaL4u6c8F+CqGzGFNcIBSicaQau' +
'VBqm0t3AM1MQwQgMHAQ4INeA/wFv+cq2QEucGZGqT0vAeJVz+/aV+' +
'xgmLFKHTgi1lCMNpILqQOjxZ6U+yBpVabJ+hXF1uy4f2NJd2WOJ2g' +
'aQMcPTbpGLl+7+xcY3aHjABpJT3Bz+Sz3Ly3p1+6SCrGXb+f7s9jj' +
'V7GXO3owdeFC7lMYI1xwcRYcudBSTj17FPAtv9S1YV5gIWgIlpQZU' +
'clBr9hALtSxbEFUz+/al/lTTM2QOo7kEI7ANIwLow52xl4HYWnhFH' +
'CaoaicZlwEwP3rMuVugZPGwch6jRy/dvfybXuBpP1E3LcKnZTjDzV' +
'JWblgL2Bx/425cyH0uY5cCL3ViFMonAsgQuAs1CmO1GL0VoXNZxMu' +
'mD5CBRNlOjBV7QWUlqzGS3AB01yGP0X1/K59ZerPbzFT+Bkk/Zsay' +
'oVR642NZSd2k2v5V6beZFoG1ou21O/c0QInhbCyXqMc2dv447EOhZ' +
'RkcPJdL3PozuhjCxwNmimXvLNLPMruuUT37N4bPHQKDeLCqMNvL+k' +
'IC+FCYPBvdYJCJi4QDRMWrISFRwMXaPlD/oL3LsCxYGUloORnnyd0' +
'9fFl3TPOVD2/67KiaTu7QpYq+sDB0C2fOXiF48FY/o9JSvrLpG+YY' +
'F3DqznQkytE7/9jbVSmE0wapnIk4S8/mvsa1TzMKT9LbI6tP0/2by' +
'Pp42JPajThnsHlt2FPTI+6GdXYA64jj8x1eKaJ2Ye8XIg9BctZ5P4' +
'h2eVoHsXguyQX3LnQ4vdWneU/69m781+xAebdI4LvF3Cm4iZg6q9T' +
'8Sb8JX80/wHM1D2zQNXzu1ZlES1zymOtkgtvVVeeLAOb5FPuTtSpS' +
'jrOup9Cg+RoHtkTddqs2S5QyMQFyT7DvAsL6DtIcEm4UJkxnQh/Kp' +
'1p66uir49KpWqgXG4/xqEczSO5cHvpHtYp1JcLTDF4XBAWdPV5zX9' +
'p4oBvBUvwLtbxucBC7FyGP0VFXx+VSqVqthzNI609uPDZOfPQMPMn' +
's9vROFCStM/NvRctk+GVAfTmzJnnZRl8IoARFUwYjkPVS3nX5wL2k' +
'93qp6vo66NSqVTNlqN5FH9heseC6Z1d3ih5nV1BKy/xFmK+Y0FW22' +
'uGkq6+Z2mQg6a/wHmTCyFAdPWRR7e1z8/6uS4q+vqoVCpVs+VoHuk' +
'vwEEwWcAWMMInAgfQy2p7pfAZLgO44HkK5e5JHiaYazB9h3KICVPQ' +
'ClDA5+LYsn6ui4q+PiqVStVsOZrHiX/6eVhg2F7clvPmnCEjzodaD' +
'vPLZ7cBDQABm4eGBSsrXCiHjMxAExqh0CBnoUW5oFKpxp8czSPLFs' +
'CFWBDUCIWW6iwDufBHf74i8AuMFrgSXX1cgXEtfOiUWXfn+9xUFX1' +
'9VCqVqtlyNI/eCBgzWukvJLVb2+ah5bbAEk26uq3LdBk8FrB7ElvZ' +
'jwARCCkcVaYeUJlU9PVRqVSqZsvRPHpc8P0FGn+hQLTltsDiMgTRp' +
'LYuL1L05yuCZHSZCAwfeVzo7GKfKADrhs/cnvtz7Sr6+qhUKlWz5W' +
'geyYUps+6G5ac1FhBwngtrNMIyLAa9hqC3KrMMhEIZE3IMU2behWO' +
'r8XMtKvr6qFQqVbPlaB6FCzTISa12OyxoCLIMREPn/ZKPRpOIFo5n' +
'4p9+vnHOQotyQaVSjT+5W0hvZCTfIDcOCi0GF2a1lphcDnBQTjpIR' +
'ItpBbwEGury0bEq+vqoVCpVs+VuISX13FAutERcBiEC54PHQEz9At' +
'MKpFW9Pjqqoq+PSqVSNVvuFlJu1KfMuhum2Gt5x0RKVSXLABaUFgT' +
'T0gJ5ZhyfBCGAqONHh1T09VGpVKpmy9E8XnXDjYzY8BadNpnGmfP1' +
'tcYVLpShcNX0Eof4lo9uAhRalAsqlWr8ydE8kgumTQ7dutfdILOcw' +
'Stz86FwVevcIGrk+yYgVOCzKBdUKpWqrnI0j1fdMCmJCI3wF1oMl2' +
'Fux73gQouf+PZwwLBVGQpvX7iAVvdPFxV9fVQqlarZcjSPsVCQ1iC' +
'bLC4DX+5/+eUjp04FaPCzG+988MG5ixcxbdABtCgXVCrV+JOjeSyE' +
'CyE9NzwMLrx+/vwPfvazCx99xCmgwGmDPrTo66NSqVTNlqN5tECho' +
'WVlpoQLZAHa3//ylxc//pjzDfrQoq+PSqVSNVv/H0mxbDE=');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 30, 320);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;
Procedure DoThePainting;
begin
PrintOnSmart(['Welcome to Joes VarrockCastleGuardKiller Version 1.4 :0', 'by Joepetey'], Point(22, 27), 255);
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
ObjDTM_Setup;
DeclarePlayers;
WelcomeMessage;
DoThePainting;
AntiBan;
SetAngle(SRL_ANGLE_HIGH)
if not (LoggedIn) then
LoginPlayer;
Wait(4000+random(400))
repeat
begin;
repeat
AntiBan;
KillGuards;
GrapeGrabber;
GrapeGrabber;
GrapeGrabber;
GrapeGrabber;
GrapeGrabber;
GrapeGrabber;
if (HPPercent < 50) then Eat;
until (HPPercent < 50) or InvEmpty;
WalkToBank
WalkToBank2;
DoBank;
GetFood;
CloseBank;
repeat
Eat;
until(HPPercent < 100)
begin
WalkToGuards;
end;
end;
until(false)
end.