SRL Archive - Archive

Joepetey - SRL Member Application


Joepetey

2012-05-03 22:01:34

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…
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;
AntiRandoms;
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.

[XoL]

2012-05-03 23:18:45

No from me. Sorry. I see you have potential! but I don't think you are up to caliber yet, you seem to follow some odd scripting habits such as calling things multiple times when unnecessary etc.

Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused, you have 13 posts! Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted.

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

m34tcode

2012-05-04 00:02:21

Procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
TerminateScript;
FindSpinTicket();
end;
findspinticket will never execute, as you terminate the script prior to allowing the call.


your script looked better, until the main-loop.

You call GrapeGraber multiple times, instead of looping until invfull, or no guards in area, or any other exit.

also, standards in the main-loop could be much better.

Also, It looks as though you used AutoColorAid's generator to generate an auto-color function? I only barely recognize it, as i have never inspected its code. It also doesn't quite match your main loops style.

If that is indeed an autocolor function, try learning how it works, and recreating it. You will learn more that way.

Sorry, no from me for now.

Blumblebee

2012-05-04 02:22:21

No. Make your own functions, ACA and crediting other people does not show extensive knowledge, just that you understand enough to create a working script.

Justin

2012-05-04 04:47:52

No from me sorry. Same reasons as above.

Joepetey

2012-05-04 07:33:10

Well thank you for all the onstructive criticism and I promise this will not be the last time you hear of me :)


:garfield:

nielsie95

2012-05-06 11:43:41

That's the spirit! Unfortunately, it looks like you're not getting in this time..
You may try again in two weeks.