Helper
2012-02-12 13:40:06
How Long have You Played Runescape?
3 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
html reflection and pascal
Are you a member of any other communities?
no
Tell us about yourself…
Please show us one (or multiple) of your scripts.
3 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
html reflection and pascal
Are you a member of any other communities?
no
Tell us about yourself…
From: Helper
well im 14 years old, play since 3 or 2 years ago,im addict, well addict to bot.
Please show us one (or multiple) of your scripts.
here my private astral crafter.
[code]
program PrivateCrafter;
{$DEFINE SMART}
{$i srl/srl.scar}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.scar}
Var
Runs,x,y,Ess, mx, my, RuneCount:integer;
ToAltar: TPointArray;
ToBank: TPointArray;
Clock: TIntegerArray;
ActionText: TStringArray;
Const
UsePouches = ('Yes'); //Using Pouches? Yes or No?
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Number of Players to use
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Player to start with, first one is 0
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // True if you are using this player
Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
Players[0].Integers[1] := 10000; // Number of loads
end;
Function AstralCounter: Integer;
Var
Astral, Count:Integer;
Begin
Astral := BitmapFromString(4, 6, 'meJw7tf7UKQyUkZELYaSkZAARhJ2Q' +
'kJKUlAZkxMQkxMUlAblAdlRUHIQLAKx3KfU=');
If FindBitMapTolerancein(Astral, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Count := GetAmount(X,Y);
Result:= Count;
FreeBitMap(Astral);
End;
procedure SMART_ClearCanvas;
begin
{$IFDEF SMART}
if (not SMART_DebugSetup) then
SMART_SetupDebug();
ClearRSCanvas(SMART_Canvas.canvas);
{$ENDIF}
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(550, 140, 'meJzt3QdYVFf6P/CxS6+iCHZR' +
'Y++K2HvvBZQiTVFE6UgfmN7bvTN3eu90scZoeu8xxcQkm2w2ySabY' +
'iwxMdH/IbO/CRAdCbLPZuf/3ufz8MCduec999wz850zDLqcRFreLU' +
'++/gpPraAa1LU6Jd2okbXU68+elDfXI/YnHsPPn9Q+fk7W6FQ6bc+' +
'/+Xr3SgAAAABPvfoyQy3nOy0svZquUaCv4nobCh1Jk1PW2qh59JTt' +
'8fOmi+ekJxo0Z1uJBsdbH135r/cZAADA/6KmR88yNQqKTkmWiislg' +
'loC45p0YodF4DBLGuyKk03a0ydQ4ijPnNCfP61oqkMLov96nwEAAP' +
'zP2R4RITMb2DrVcVxYyKQWMCglHAaKHppSRlHK0JIHpY/EaTU8dgY' +
'tdtBX9YnGhvNn/+vdBgAA8D/n1Xcu0XAxQy0vEnIKaLW5tdV5FHIx' +
'm17GZ5cKOGjJQ5HjXINGfbJZeapZfeaEprVJ1+D8r3cbAADAX8rf7' +
'q55IMfJExV8ThUmRIlTxKDmU2vaQodWg9Y7xVymK3HYGgX225ts4n' +
'ob0eCQWU2ffP1hVxoHAADgNTwnzsd31j4QVyEr57FRuJSKeChl8um' +
'1xyjVR6nkfCa1RMCpkoqpKoKvU6NlDtug4Vj0ArNeajGilVFXGgcA' +
'AOA1PCfOh7+s9+y1y++WsuhVYn6pgFMtk5SLeGVCLnJcyC2XCMhKK' +
'U2nZJm0hMMqNOmENhNa5jB1KrndcubJxx/YOAAAAG/iOXE++HmDZ6' +
'0XHyuk1tRKxWSpmKFVtq1ijFoEpQxazvAcZmG9TdRgN7Q243azvLl' +
'e2lyH7qasd9Sdan1g4wAAALzJAxLnVupzVz4989HVSzfTLt/a9Edi' +
's7OQKypmc3laFWZSiexmscMicVoRvN5ONNWpWts+Gi042aw7c9LaW' +
'G9prlM02uTNDfaWU/dsEAAAgLfynDhPP/fckTfeiLr8IemZV1Zd+f' +
'i9m5vfu5n029d/48uIYiG/EhczVQRTp+KZ9XyLQWA1Cm0mlD4od2S' +
'NTkVLA3GqxXDqhM7p0DY34i31opY6VUvDx1992b4p5IObR9+7znjj' +
's++bT5z48FpZp1sBAAD8T/OcOAk06rrnXuj/+uWgT6+HvPrZuNc+n' +
'37xSsJLV1+5ynzn+hZERuDFMjZFjdUSeKW+7S01rknnzh0UOlidDY' +
'UOyhdlvVNsNErq6jn1DqpDz7IrX/nsrY9vvIwauXwj4/w/PnNe/ZL' +
'39Zfxz15e0vIim8v95O9/d5UAAADgHTwnzqHSikNSg/1beejfrpLe' +
'/MfAl78Jaf57sOWzpCc/fuvq/ks/bDM12fOVLLKST5NLq/QGV9y41' +
'jiI2GFxvbcmb7JjDitLq+fbnUyTuVYjZaj5L115HrXwzvVy2aff7X' +
'j9s7FPfzD4iXdGPvv27Nfer6FQPvyWQLcCAADwGp4Tp+50S8L+rGx' +
'949qPvvT94POBz/1jYvO/Fuq+D2u6fOjiZ699U646fzYHp1fI2Cyl' +
'vFbR9pkBd+K43lWTNjhQ4mAtDnGjk2U2im0Ooc7IkeIsXPjspRff/' +
'H675IkrcU0fBJ79ru/prxe89kPGi5fWcRk0BgPdBAAAwJs84JMD15' +
'8Xm/S7EjP45pZjr16OeuEKyfJ6cPO13q3/GuJ4O+uFTysbTmYzKeU' +
'4l6YkyEKJ65/xdOeOK3TQMkeANDlYVq3EpherVUyMKOThqidfOnj2' +
'8kznJZLuLdKpb2e9cXfPqUtpZGpu+p6nnnnmjW93AgAA8CaeE+e1f' +
'+1CGk6c2L43+bDGEHvm2aDzn5DsnwY33SA5rjxy5t1kzJFfSikVCg' +
'owAVUsrJHjFKXM/TFpvsXgem+NZ7EK6qxMCyG0yHg6xXG5bh1Tubv' +
'xhQHGd/wargS0vL3gmY8TTz27+OCxg8eOvvl1qqsuAAAAb+I5cV75' +
'ag/yxr+yRa2NScXH2fpzuy2XAswfRRm+IzX/M+jkB9toprJcWiGbl' +
'8ahsghxlVSMQoemljN1KhQ6XJPu3ysdsw2tdDg2qciJcx3qY0bnI2' +
'zjGMsLgerPhyve2NP0QpleX5SbqWXXfnzlw1e/2ueqCwAAwJt4Tpy' +
'Xvox3e+6Jp3alHaI0ns6qP+l38tu+6o/W2v5RyGsuKistl1dVqgVU' +
'NsbSKjl6NQ+tbkw6ocUgtplwp1VWbxc6teLGeoZVLbSIjM6masXLE' +
'wQvkkzPxdje2Gl//ghXmV9UqNZK25cDAADgZTwnzoufJ7RHmGxL0r' +
'LKGk5taP57YPPHIx/7Mrf1jX0HD285tu+YhIaLVRS5lKlR8k16id2' +
'COay404a+IrJ6E91qRTFEqPmFYukC8ZmRujdj6t7YZn9mN0u3/0jx' +
'xTOnOtUCAADgZTwnzvOf7Wvvyqefb0rOGL9y/VGKddLjl0mnXkp6/' +
'N0qIZFWXbS16HBFGbmAQS3hMCtF/BpcTJFhVAJHaHIpjRBn0liVbL' +
'ZEyNzF54dqzo2tu7RLdTG5lrMpIe2pMxc7FQIAAOB9PCfOs58mdvL' +
'hhx8tX7Nm84J1y5WWcaefzn7iksjYTBaJEksLs6sqj1RW5lRVIUer' +
'q4+RyfkUSjGDUcpml7IYSYUVR0qqasXsVItlpvPpOZKT247QFq9YJ' +
'OGy/1gFAACA93nAv3Lzt+ROLn0oqSo6tGJe7Nw1m/aziVJdUykDl8' +
'sNXLU6kVZdQmMep7PcShnsCjaviiuoFvBqeYpSjqRAKcq1WvewTIs' +
'TiuJWbNize+3brz//xyoAAAC8j+fEeeqjFLfzp+sU3MqsPSt2rpo8' +
'f+2qaaPHJ6zbnph+9EhRrYAtraKzt1eWFNXQSmmsKjafzBVWcwQVT' +
'C76sYTCqKBThXJLNaHL4NH3V1Ru3pIVO3Nl3IrZK1dMptTkPv3E2f' +
'aFAAAAeCXPifPElVSXF198YtfqBfvWzlwXO3TtwsjoRYsXbd68bN3' +
'a1Vu37U4+kJR8aOOOfWmFxUlZx9JyCrMKyrKLK5GD+aXpR4v2Z+cf' +
'PnzwQHH1/tKa/UcObtm5c86ijbMXL1m7fcaOlTHbVk1ctTAmfe/ac' +
'41GdzkAAADex3PiXHw/zQUX0lZOH7l5TvS+9eO2rxs+f2/6opKCwd' +
'tXzd+zZen6DVsS07fsSdm9bc/m3cnbElJ3JmagGNqVlIm+cUnbt2f' +
'2pl2Lt+/L3Llz+7r1k7ftnpm0bfOuiclLh6euH78+dtCOlWPiV08u' +
'zNrprggAAMDLeE6cC++lu8ydHD17yfCN8yPSYkcuWzZx1qHsXlTm4' +
'NXpCxftXbZhZ/qehJW7d67aEr9+Rwcbd+3dvCdxa0Lypm37Fm/fu3' +
'3jpp17NszfuCs8rWowhbNl08IVcVHbV8dsWTpsU1zkhgXDdq6eaVI' +
'I3UUBAAB4E8+Jc/6dTCQvOWFl7IRZi6PWzQpJixs9b/G4yXmlvcns' +
'sI3Z45YljVi4fNXihUvWr1u5fd+qzTvWbN3lyhoEfbN22+7VW3Zuj' +
'0+ct2HH3AULZ6xYOnrFzpA0+mCmcOP2xdvXPLJ4etCG2MH71sTErx' +
'q/eu7I3Mz4Zy/XuuoCAADwJp4T59ylAy0n7ZMig9fFjZsdO2j9zJB' +
'9saOnLHlk+HFmr3x2xF7y2IyqYTt2L1mycMnyZTPXbFq0buPCtRtc' +
'XN8vWL1u/so1S1auGL9s9cQFy0dt3jFo42G/THE4Q7Js+8L1caOWz' +
'QiPXz1u26KozQujNy0cvXHpJDGrBNUFAADgZTwnzpk3s2pqji+eMm' +
'rRlMGzZodsix26ceawsWtmh1UTpBRqQBpnLE09t7p6b+b+xH37Fu2' +
'OX7xp07zVq6cuWjRpwYIpCxfOXLZs7qpV89esWbJ+6YKdCUuSD4/P' +
'rfRJqCalSANqsbiEFXETQ7YuHpu0fvLqmaGrZoXtWBmzKnb4uiUxr' +
'7/yPCoNAADAm3hOnNOvH0pI3Lpx0Yz5E0JnzwreOjcqdmLkiF1rgu' +
'hm0q5aUoYgiqNfxefnUMpqKeTsGmoBpeZQaUlSTvbew1kpx3IOlhT' +
'lVJYfq67MPp6TQa5NqOGPo4pJ+xikeNy/VhWbuWvh5IgNsWNWzBi8' +
'MW741qWjVswetGLu4PlTgmRSLioNAADAmzxgjXNWumxV7NQxEQunD' +
'Zk7I3TV5PDJ46OjD6QMJBv77aaTijUj2bqdTE4a/XgNl1Ejwst57A' +
'Ja7ZGq8pzqikI6pYzLQntKOcwKXk0el7+PLhzOlpAyOL2S1AFU48Q' +
'DSQsmD14+e8SsMQGbFsdsWTpu7sSg1XHDUOIcyNxz8tVsAAAA3sRz' +
'4tSUF0ydO3lMdPDsCWEzpoTGjg4eM37MyLKSvkWygCROf6ZzJluXw' +
'+AmMEoKWGQqW1Ap4pVwGAUMCvpaLRFQZBL0tZTHyqVWHKExEhmckR' +
'Ksb47AP9UQUGsdmr5/RkzwgulRcyZFLJ07atGs4fMmD1oxf9TsicE' +
'rls549T3LiZePAAAA8BqeEyd1386Y6eMWzp8yJrLf5PFBc0aEDBs/' +
'LobB7J+HBSVySAzrvGopmclLldQWSlhioawa45VwafkMchGbUiXh1' +
'sqE6OtxHh39WMITHhBJxitR4nD8klSBtY7Ig9kzJ4ZPHhs0b9rQJf' +
'NGo68zJ4TPeiQ8dsqQqZOHvv3Gs80v5gAAAPAanhOn5bQjfV9CdFT' +
'EkOH+Myb4zo8JIU2MGarSh2UQpEz2cMy2hotXUFkVVEqBkFMuEZCl' +
'4mIuEyniMCrEfIocLxNy0Y9HaVQql31EJBoiVoZXm0LSJH3KVZFZ5' +
'CHRAQsnDJsQ1mf6tMgZ0yNjY0LmjA6cPHXIuNGD+RxK0/PHAAAAeA' +
'3PidPwbG5jXf38uLjgYaFDI/tMjokcunV7MG4ISZOSDnFGYZbNKHF' +
'o7Ao6rVTEq5KKUeKgrClk09FXlDU1MgnKnbYMYjGpfG4ehg2XaQZR' +
'rcGZeN9KzbAijt9Q/9njo2aN8I8Z1T9mVL+4CaFxEwaNjgkbGhlUV' +
'VGIqgMAAPAanhOn7un8U0/WzV6+cejkaVFjR4yZOXNqfg2JoglOk5' +
'DyRRMw814uXs5gV7EYZExYrZCiiCnhsVDclAo4KHGq0E5chH48zmJ' +
'VcFkFGDaO0IUy7QPTMFKZKrqG6DVhVHCoz9RhvpPG+016JGDKCN/x' +
'w0OHjhtBKLA33nwVVQcAAOA1PCeO48kCua115vqUxXsOLdmTNm13+' +
'iy2iVRtDU4T965UzMSMh/hYCYtRzqVTMVGlUkaR4yhlUOhUSgQoa9' +
'D3aNWDljxkNuc4l1kqxabJ9cE8JylVTCqSR/EtIw8e8Rs7buyIIRF' +
'RPkNjQseOGz4nbumSPRmvXXoLlQYAAOBNPCeO/fGiKtwSu69s42H2' +
'hmza9BzqBLaTVGwOThcNZBriMF2JACvkUEsFdJZEVKokaL+FTg6lG' +
'qUM+gbFDcod9D1dICwUcakq+SKVMUTc1DtTSipQRMlPjKQSIzamLF' +
'ixNXrqjNHLli/dk7H5IHlVNvfUxadQaQAAAN7Ec+JYLxRn0RWLDvJ' +
'WZYpWHxXOqlaMYDpIWdKA/Xw/sX2FWEPliY5xa0vEdKFEXKpSocRB' +
'EbMhNWl7Vgb6hqqQomVOEYfB4glyMQ5bo1hBaEMkjf0PEqTDeLi81' +
'bcMH7mnaPmOvKWJxcvzmOsLRKsO82enchoefQqVBgAA4E08J47lfG' +
'kGS70sT7HtmHZ7lWke3xaDneibhQ9MZATInGsEBJ8ryOGRS3CmFMf' +
'LdVqUOHkMSuS0SSPnzsxnUukqwvUmG4styME5fI1yjVgeJHL6HiBI' +
'6YIgSdNQtnbuYfaCdXlLUxgL8vAFR0TLskXri1U8td18vgQAAIA38' +
'Zw4xnOl2SLzohxie755B9k2upoYwbX7HBD0jaf4y+vW8qQYl3+EV1' +
'0iYylksgqjgSLHM8tLtqcufiRu/MHKUoZajhKnVMDh8sQ5cgFm0G4' +
'UycMk9SHZalKaMFDUFM2S7uNYNu+tXbqfOyMbW1mm21Gh216mFBta' +
'UGkAAADexHPiGM6UFWiaVuUqEvONayo1QwQ6f6YmLJlOSmBESWyZA' +
'qxEQM+TcqrZLLJSzbTVcZo04XPmRPQZOjN89KBpI8gGPq4xZlUT+R' +
'IJRSE5rsGPqE1BUofvQbxvuiiMVzeIqSira1qafmhhFmvzIWVCtX4' +
'L27b6uIlnPo1KAwAA8CaeE0d3qqJY07wyT5lYaF5dpXUlTkgyk5TC' +
'Gy51HsWVFRingOAxREKKSlOhVGWWHxg6JCqw1+DgkGGBoyK25u0tw' +
'ZlMIZErEDA0sjKdLANXDeTqUeL0yxD7081DBXrBxaeWpmQuOcTZkq' +
'1MplriSqU7KU0ocVBpAAAA3sRz4mhaK0v1rWsKNcnF1tXVxsECox9' +
'DF5zE6J9NhLDUqUx+KZ9xTMxgi0UCs5XvcK6OnToyJHLEisTo3dk+' +
'YdFTFkwrUTPpOK1EgvGNqhqzKluh9xeaA7KkaI3jRzNFiY32y1cOV' +
'NPj0sg787SJdNv8Ykk845TQdg6VBgAA4E08J46qpbrMcHJdsS6p1L' +
'm6xhIhMvvR9UF7WX0OYWi9U0BoyBJeEc6RKpU1mGR37tHZEdH9Bs/' +
'yy5NPV70QPmtfWPCo+KOZpSpaOYZzVFKyQV6gtYZLnX4HsF77+YFM' +
'ayhf0/LOC/VPPL0snbynSL+z1rCBbdtW1YjVXUClAQAAeBPPiaNsI' +
'lcaT609rk8qr19Zaw0XWX0YxsB4FukAd4TUWq4zH2dRCkQsi8V6uK' +
'IseELMwAETeq8rJCWrY83fTme92GfCtugRU0r4tZUiiVivpBmVOTJ' +
'tIN8YcADvny7ypRqDBerW918zneFn0w1bjxIbqzW7pK3by5ukDY+j' +
'0gAAALyJ58SRN9RUoDVOqSGxsmEF1REmdgygm/z2sPwLiTCOIg+T1' +
'4j4ZVI+lUKdv3pl7IY5vebsGnyYCNylWYF/ndT45JACQ1j07LhZc8' +
'hizNhgx5psOVJNAFs36Kja/5Csd7kiTGo8++mnqIrq5KtrDvDX16r' +
'X8+qSKOckzsfQTgAAAN7Ec+LI6igV+la0xtlX2bSc5gxBiUMz++3m' +
'DKrUhrJlxXINUypJLStYHBfnEx4aPX3CslzGshJiTr59qfiduZorG' +
'/UvLt5/LDIiaE9mVjm1upoQ5RP6SGnd0DydzwGsb6UqQmk78/HHqI' +
'r10TdXH+BspOuXMyz7qec5xpNoJwAAAG/iOXFwB7Vcd2LNb4mzDCW' +
'OyNmPZkWJ41+ED8cMRwTYim2b+0YPeWTimNmLF4qMSmfzxRrcuYo4' +
'ucjwWrH9Y3bjWzkGY2LlgYCo4ZNnTl2fuveIWDlWfzr0EEHaxwpkW' +
'MIU1nOf/A1VEZvObcwRbmKZVnMcCRWnqaoGtBMAAIA38Zw4mI2usZ' +
'7dStatL9TNotX1EtYHlGn7JHJIZYphIv2CucvnLptNig5PTkxpunh' +
'R1NqoufgMw3FyaZlxrezjBOIlvLUVb7EdNbYW8VjTp00khfqMGxoz' +
'kikdQTb67WX7kZ2BEp32/SuoithUtzCfvbeybulxazylOZHjRDsBA' +
'AB4E8+JI7YwLA2PbqxQbT5umkmvHyA9EViu80kTBVENkVX8kIDI0K' +
'FDtlUUqbX6+gsXlI8/KrQ78nDT+COG8cyPV8ouU+vOyuo1dJNWfqp' +
'ZIOKuP5g0yH9wr/T80UxHWCZOyleHSs2Sy5+gKsq6ltkHq3YUGZZX' +
'2JOZrbtpZm2TEu0HAADgNTwnjtDEsrY0rSwSb6uwzKA7/VWn/Uo0Q' +
'QfwKJreZ8/BCZMmLd2wWni2xXnmjO5kq/rpCyqHLYksCtqHj6C8Fq' +
'v7Lsv4BM+iNbboRY1OU4O1QMwcN3ZSv4SsEfz6gEN4cJUjVOaoeOU' +
'SqnLiqecWZJRtPqpYTa7fz2zdUqVpeuw82g8AAMBreE4cvoGtrFMv' +
'OcbeXG6eXGv1U5/pnysLPigdUykljZ01bPiYMhZFeLJRbLfpHz0rO' +
'tNiqK87wlWMy8ICjp6cLL6yXf9mqe1RvKmF6bBKDKoyhXBrfGLAps' +
'RgppEUTwnI14XhjRmPv4iqvPvZZ9sLqJuPYKtr65MoTZsrVY8++zL' +
'aDwAAwGt4ThyejousKOBuLjdOJJt9Vaf75GChB2XDjpJJvkPnxS2S' +
'N1glrQ2C5gbHs08zHCaeWsey1B+QmCflCKLyHAvwd/eaPjikeZLf2' +
'CQyaaoMWE515cAZy8KlTlK22DdTEiZr3XT6cVeVPIZs4yHeshp7Uk' +
'3DDorWefa0az8AAADv4DlxOBoesqNGsbXKNIlmHag46Uoc3x37I0K' +
'Gb0nYo3+0RX/hLKf1hKK1hWs3MdRajsUmqqvPFikm5BDR5c/PFV3O' +
'tL7Bb2hhaxTlKgFHrx45Y3mEpimk1hKRiYdip+c1nDNfaEFVpIa6j' +
'QfoCyqNaTWNezlm3CJ3VQcAAOAdPCcOS8VH0sV2lDhTmY7e0ua+R/' +
'HQDLz3mq3jgqJ3piepz7dYLjxaVe9k6bTSOpuo3lyj1kjsTq6tZfp' +
'R/dCy1+YLX604cVHUeIKjVZYreZI685KFm0g0af8SZXg8eyCreZyl' +
'pfmdl1GV80+8sPkgdVaxIp3ckCJ0uEoDAADwGp4Th6EQIjmqEyhxp' +
'rGcJHE9SpzgNEng1oR1K5Yv3bZBerbB+ti52tZmsdUid6LEUVONRo' +
'65vkRiG5GsmCf9JsHydq2ZX0VouTp1GcE+LmKvmLOWVMoOpZhH7Re' +
'RqqxD9XXNH7yJqrzzzge7cphT86X7qxz7RU5XaQAAAF7Dc+LQCRFy' +
'GDu5m9s6hG32EVqHZYn7ZBLjc2pJvkPnzJitb6njtDgFTU3qs+c4L' +
'XV8lZludGzmOSNyGjbL3yabz1OUslqblmFWFxGSXCGPzeSERY0ILD' +
'xOoiqjUsThRRZ/zPLolU9chQ7lUtaWYHvKDYVso2sPAAAAr+E5cah' +
'SCVKifXS/+PQ4WaOf2B68j0ZKw4cepZACho0bO16skctONuHNjaJ6' +
'Z43NIK1v3VfOfiQLiyq4sAJ7LQu3siwGhsNZpRCXExhVp8nIyAwaF' +
'Ol/JC8IrwvYQW/7f9mU9VhDE6oiMZsPl4qWHRPsKtOUixyu0gAAAL' +
'yG58SpxTDkMFu7rUIxWmAJkNT5xdeS0iSj2CrSyCkLlq3cnRhPJTC' +
'Zw445HYJTjVSjMaFcODZZHl347BrN29k6C99pKRXqKAqJ0GI8SqMO' +
'GzmS1M8nODM7XGSNPiAbkMb1FZmPtTxB1TQc5hhXpVPmpVN3kw00Z' +
'aurNAAAAK/hOXFqxFKEorQd4ZmHUZX9ueaQJFbvDHGYQDtke4p/aE' +
'TE4PBN8bu5uFRsMlTplYUYu1Rqm5Gqizh4bofj8lGLgWWQkjlqnkH' +
'JU8qnr1hOGtB/0sxZixncXiXc8IO4fyqzD00Ri9mWZTOWHROuyVcs' +
'PyzaWKYUWi66SgMAAPAanhOnWihzm8jTkcjKQam83hkiEl22Uahct' +
'333jpT0gMGD0g4exLQaUaOVZZTw9PblWYrhWc2b9C+nEmKBXqxUWd' +
'kq+Y74eJK/v19UZOrh7DSDxb9C5J+NhaSz+1QT4zHHrIP0lcc12xg' +
'nUmrrN1Ossvpn25cGAADgBTwnTiWfcJuHmUg1miGZWK9UXi+ueofK' +
'Xkxnz1kc6xMe6h8SsnLd2jxGFUuNC7XaQ7y6eTWPL8aey1BaMbO2t' +
'LQsbssGHx/fQePGLUvYVcqg7RGIxwiN/QuIMNRUcduKaVY2ff5hQV' +
'yJ4QjzTAL2mLzx+falAQAAeAHPiVPOVbgtwI29aIaIdHGvNE5/vm4' +
'5h2CodZV85vrkvb6hISs27QiKCl+1Z39WaWkWZpxNvxiLf5Cqeia9' +
'gjpu+jRSRGjM2JgDx4urtHKmgkgUYkOZclI212cXo0++KFiiydK0b' +
'q1QLS03HaWc2chtS5z2pQEAAHgBz4lTxla6LZFZSGS1Xzyj/0FhEG' +
'ZdzVVSVBqyTEhVEWQmPSsrc/y0cSS/mJi4RVP3Hwo9Ylqkura85sn' +
'B8zaS/P1W7t2tUqrEFmOxEi/lsUrsdYMpYlKVKmSf2LdY5iMgOBde' +
'S6Ub11AcubXnVrMfIxqea18aAACAF/CcOMeZarfBYvXwClVAJq9/l' +
'oAk1G8hzAyZginn1+ikTJ2aKZfXyKWLNy4bHDwiem7icNrJGO75mC' +
'WZg/wit6XspJgNQrOJa9BUqIXlcm6hBItjq0gUbcBeVniWZKC0rvr' +
'F9xx1Jw+x6Bxz3TNv/r19XQAAAN7Bc+IU0zVuQySafydOtqiXyHDP' +
'xMnml8+dPY80YGRUfPmY/RSf0EkLFywqU7NpVpPYauEZtVVacbWCf' +
'xyTLuZpSXSDfxIvJFPYV2ipfuk9kfbEi//4W/uKAAAAvInnxCmk6t' +
'wipLrIcpVfJm9gjqS32Ng+cRhaFUqcWoWstFGeX1oQHTa8d9hY/2F' +
'THxk5qbiypOa0nmG3YHabwKwn6yQUlbBCRqwWGUgco1+GJDhDQKKr' +
'U1outK8FAADA+3hOnIJavdsguSGiTOmTwfc5JuuLmbfKLXSpnKUQ1' +
'OpldI2SQRAUJZFvkWJaxaHUtH4B/sFDBpccy5XqVUV2OafOKnPYRW' +
'YDWYvTVEKyXLEeN/QXmkgZoqA0IYmp32BqbF8LAACA9/GcOHlkg1u' +
'Ywhx8XNE/k++Xr+gvtboSh60UosShqRUocagqOcVgEGg0LEy8ePf2' +
'dalJUr1WqNVSjUa20yJ1WIUmfY0apyvEtXJiq8zgj5n75qrCMiV+o' +
'roV1ub2tQAAAHgfz4lzrNrkFqq2+pUQfTOEAQWagYS9U+LQZW1fBR' +
'ozR60rl+G5MlGpTkHTa9GPYr2N7TS3JY5BV6vEGHIRQyHfIdcHy0w' +
'+VbbQNOEArn2usal9LQAAAN7Hc+LkVJrdQjSOgcWy3pnCwBK9r8Lp' +
'ShyOSkQxtK1uUOLQNUq2XM41GsoIjKJXs20mskaBfhTpdJw6i8xuF' +
'RkMKHHYCjFLKd+jNgxWmnpVmgL2svqxbDMtp9rXAgAA4H08J86Rcq' +
'tbsM7Zr7AtcYKOG1DibFNYOyUOQ6vi6OQMo5KhkwvUCtyo45jU6Ef' +
'MbuA2mAmHDSUOTSlDicNWKfaqjZFqSz+KIyJdHIKdmO08374WAAAA' +
'7+M5cQ6X2tyG6U8NrXAEJ/L7Ma3hcmeayEgnlDWatnDhqhRlaqJGI' +
'WGp5QyljK4i2DoV26BpY9bx7Sas0SFz2hg2o0AprVQIK7WqMoUtVG' +
'bozbL4pQtHUJzDLK3tawEAAPA+nhMnq8ThNkTVHHHc0pY4LFuE3Jk' +
'h1rcljlaGEof9ZxKnQi5onzi+aYLhtY5o84n2tQAAAHgfz4lzoMjp' +
'Fk7UhxTog/bx+rPtkYTtgFjPkClQ4gg1SpQ4pSpZrVzMVBF0hbTtr' +
'bPfEodj1HIseoHD/MfEKVfawwhjP7YVJU402RZpbG5fCwAAgPfxnD' +
'iZBXVuIUSd3zF1YBIfJU603Jol1jEIolYv42vlbWscpbSGEKEFDk2' +
'OuxKnLW6MWq7VIHRa8CYnShy61cBX4ChxqnRqlDjhclN/jg0lzpAq' +
'S6i+oX0tAAAA3sdz4qTnNbiFKRoGHlEEJQv6su0jZKZsiZoll9X8l' +
'jgspbxUgdfgorYFjhynKqQsrbItbkw6lDiiOitKHKnDihKHJ8fKCT' +
'5KnAqVY5DCPJDn8Enlh5cbAzTO9rUAAAB4H8+Jk3qs0S1M2djvMBG' +
'YIuzPdY4mDDkSFUsurTHgXK2cqZIfl2NkTNgWNwTWPnF4NqM7cWgW' +
'vTtxKtXOCKXFl+9EiRNcpvdR2trXAgAA4H08J05KTrNbMFHX6wAWn' +
'CruL6gfSxiOtUschpIoISRksQAlDkUmaZ84fLtJXG9zJw6XkJTJeO' +
'7E8RPUDdzP8z+u7aewtK8FAADA+3hOnOTsFpeU3BMBuJ2ULkKJ4yN' +
'uGkfo8jAFR4HVGnGOnnAlTrWIjxY4KHEoctyVODyz3kPiDFZZXYnj' +
'V6LpLTe7awEAAPBKnhMn8VCry1bt+VF8Z1AGRkrmhslaZ8q1ZCFRp' +
'sQpRjmm1VQrlDVicTHGrZWKa3ARShyOXo3iRmA1Cp0WrNEhb3RKbR' +
'aKScsixKVybrVBVatzDNNY+hP1PsmMsALtCGWzuxYAAACv5Dlx9h4' +
'86bK+/vxIniMwDSel8EJ/S5waAVGhwKkmhVj378Q53jFx+BZDp8Sp' +
'NWpciVNrVLsSp5+sDiVOSJ56mKLJXQsAAIBX8pw48ZmnXJafPRfNc' +
'QSkYr1TBSGyljmEhiIgKpVSV+JUyhWU3xIHxQ1CVUhdiSO0mVyJI2' +
'1w4FYzShymTFSh4FFMGpreOQKtcXCnbzLD/5giUt7grgUAAMAreU6' +
'cPelnXOY3t0QybD4p4j4HRCGypnlSNU1AVKlkNLNS+Fvi1IpEZRIu' +
'GRO6Eodr0KAFjshuFtVZUeLg9XbMYqoxqFHiVCr5dJOWoXOOVJn7S' +
'5x+ySyfbGKQrM5dCwAAgFfynDi7Us+6TLc5B1OtAxJF/Q9hgbKGBZ' +
'iKySfIaoJqVaHEqSDknRKHZ9SiBY4rcfAmJ0ocsclA1qvYUhFZKWB' +
'Z9Cx93WiVeaDEGbSf0zcLD8Xr3bUAAAB4Jc+JsyPlUZfxOktojanP' +
'XsGAIzKUOAvFCjafqNHIaTa1QK8tk7clToWEWy0RtP1VjlLGN+lQ3' +
'IgdFtcH1bA6m9Ckr9YpUeJQVEKu1cA11I9Rmn3FzpBUQe8DWBBe56' +
'4FAADAK3lOnG1J511GKfTB1abeCW3/5bQf4VwkUnB5BFWroNs1KHF' +
'KCaJGKOyUOChuJE6rK3HQSgclTpVWgRKHqhYJrEa+vj5GafYX1w9K' +
'E/XKlARi9e5aAAAAvJLnxNm674LLcJkmqMrYK57nm0ugxFkslPPvl' +
'ThVYr4rcQRmfafEERh1lRq5K3Ha3nAzNIxXmgMlDRHpYlfiuGsBAA' +
'DwSp4TZ3PCRZeJhNWnUDYwhU+q0gzh2beKZIUygqOT11rU1QY1Uyq' +
'nCQVFYma5gFMrFbO0SpHViOKm7dc39TaE5jTwDPpKQs6SiKl6Gdtp' +
'5hjsU/XmEFVr3zR+cCruL21x1wIAAOCVPCfOxj2Pu4yXWgfko8QRk' +
'Kq1gwUOlDjF908ctk4ltpmwOhuC4gYtcKgOPVevcyUOxUC4EydYea' +
'JfugAljh/e7K4FAADAK3lOnPW7nnQZgVl6H8X9kwWkGv1gsXP7b4n' +
'D1cqpHROnQsilyCTtE6ftNzhOC92h5+m0KHE4OEY1ylHi8PT2aXpz' +
'kKJlQKYoMEXiI2nckvWUuxwAAADv4zlx1u14ymWIxNLriDQwRUiiG' +
'SOldTuFsuMygn+fxOHo1RK72ZU4KG4EDjPLpuNqNRVoWSTF6WYlSh' +
'yuzjZLZw4gmnwOSgKSxQNE9fGiJ9zlAAAAeB/PibNm2zMu4ZiddFg' +
'anoL1YliGKBt2CWXlUkKoldPN6pr/S5wCMbNSxKMSGNegcScOihu+' +
'3cSyajkqFUocHiFjWNVtaxytdY7O7C9r9DuE+yUK+/IdiU1n3eUAA' +
'AB4H8+Js2rLsy6BmJN0WDZ4P96HbY1QORMEssrfEodxn8TBHBa83i' +
'5xWlHccK0GtkXDVSrLpTK+nGDaNJw6C19jmacz++L1Adkyn7383lz' +
'bLnuLuxwAAADv4zlxVmx63sUHqyNlEZH78X5sa6jS7kocseYeiUOT' +
'4zyjFv/tg2quxOFY9FyzhqdQtCWOSsF26FDiCNSW+VozajYoRz4wg' +
'deLY91irHOXAwAA4H08J87yDS+4DMAaSAeIyGSsL8sSrLDsE8iq8d' +
'8Th33/xOHZjChxeCY1Vy7vlDgLtG3/yk3wUcWAeC6Jbdmkd7jLAQA' +
'A8EIeE2fpupeQNXUtfcUO332CfqmSXqK6kXLHAbHouFzO0mvYekWt' +
'RlqpwMlSSY1IUCbm18hxrkmH1dlkjW3/uA3fYmDp1QKLtkyG0zEZT' +
'6+hOLRSm5lmsC1Sm/yIJt9cpU+KOKhSM8fZ4CoHAADAK3lOnMVrXk' +
'ZWO5tR4vglCgekSvoI60bJba7EYerUHhJH2uBoe1fNYmAbNHyzxpU' +
'4fJ2G5tDKrCam3rZM0/bJAd9jigEp4uAq7Wx7o6scAAAAr+Q5cRat' +
'egVZZmvoI7L7J/EHpmF9hI5RMushsbhMLmfr1G1/BKqRViml7sSpV' +
'UhdidP2Dw44LDyzHiUOz6QulWKuxGE4tEqLiauzrdZYfKV1KHEGpm' +
'CBlbqZ9kZXOQAAAF7Jc+LErXgNWWiqIwmtAckC33RJP6FjtNR0RCK' +
'pIOQcrYqtJajqtsSplmHV/5c4KGXQ6qbtzz/tZpQ+KHG4RlWJrC1x' +
'hDoN06ZRmo18nW2txuKH2/1zCZQ4/pX6KbYGVzkAAABeyXPixC57H' +
'ZmtsZC4RpQ4/umS/nxrDG7IxfEquYKjVrLVMpQ41SqZO3EoSpkrcR' +
'CB1ehKHI5BidY4DJxAiUOzqeUmA0drRWucANyKEmfAfmxgmW68sc5' +
'VDgAAgFfynDjzlryJTCX0JJYuMIkfmC4eKLDEYPpCXEqWK7gqBUcl' +
'vV/ioAUO+oZj1LYxKMtkOFMq5+s0ZKtKZNTRtJYlGnMwbgs8RvRPw' +
'fuUaIepra5yAAAAvJLnxJm76C1knFhJoqv/nTh883hcVySV1RIKjl' +
'KOEoeulpLVBJnA3YnDtxjEDovQZkILHFfi8I2qckLKkim4Bm2FVYl' +
'WPRVa0zyNKRS3BubK+iVjpELVEMLkKgcAAMAreU6c2XFvI2MEBImq' +
'DkjkBaeJfXnmCRJtyW+Jw1PK2UocJU7t/ROn7S01o1ZgUFUQUoZMw' +
'TZoy6xKulFTpDXO0BjDpLagPKJ3koSUpxyE613lAAAAeCXPiTMz9h' +
'0kTKLvV6UfmMTzyeCTaMQC3J4tk5YqlEyFSiKTS6UyXI5zCQkZ4xa' +
'LeGUynGw2U+vr6U4Hw6TjGxSEWUE1KSpxMVkkoyocudqWZVJruEhN' +
'wlS+mCGwnBiYySeVKwaINa5yAAAAvJLnxJk+710kQKAZUKQKTJFEH' +
'1GQRJaJhD1VhOfIVKVKbbVCRVYQZDVRpZMd12IsBcbVyiUWHWY38I' +
'0qhgpnaWRCs4Yllx5Xq3aodZOlmmCB0o+rCeZow5kaH23rgOMqn3i' +
'Wfy4xUqBzlQMAAOCVPCfOtDmXkSCZLeiY0m+faHiGdADP0o+vChfJ' +
'ooTSiUJspUSWrlSXqTUUDKtls/JZtbUYV2aQ6R1qhVVN1xLHtZpCs' +
'2UbLl8mVY2WKPpypCQaTqLK+jK0IWxjb35D/2JDSKo8otgwQWp3lQ' +
'MAAOCVPCfOlFnvI37KutAcZd8k0cgDRBjeSJLqI4SWIK4ugCUPY8n' +
'GCuULZJpNCv1uufYgIS/RqLl2k7zJznVYstW6jTLtItw0UdUczlT3' +
'rxL70gh/mrR/GdunhD6kWhDJP9O/1E5KlZCy+YNlRlc5AAAAXslz4' +
'kyacQXxVzcEHlWQUrFhOUp/sZ0kkpOO8vqUE75Mg4/A4sPV+jMUQ5' +
'jqMXz9asK2hTAnKoxpalM8YVjI14ygq4OpmoCjsoE5ogHHOP759CG' +
'F1fPJzNj1b6CWh0lPkyqMpHRO/2zmFLneVQ4AAIBX8pw4j0z7EAnC' +
'LANycFKacGihqj9fN1Kqi64hAkp4vY7SSMcYA/L5AXnCkBxe2GGe/' +
'xFGSA4zKo83ulAwNJfre6CGlFhKii8m7SgJTaycfYiSXK5xtekyzt' +
'Tap5Q/OYfTficAAACv5DlxJkz5GBmHmcOKVP1SeaMqdFHaBtfOR6Z' +
'dWZFRNHJrZsj2wwP25JN2FZF2FvnEV/RPqOqfQO2zm9pra1nvDbmB' +
'W45E7T42MSvfdVQnG5Xqdbmv3vMmAAAAXsZz4oyb9DdkTc3rMwStf' +
'smsIfnYcKXVtbOTfeWa9cckUbvLQ7ZX9NtURVpX5b+leu4B3pyll+' +
'55fwAAAP+/8Zw4Yx/5BAAAAOgRnhNn9Pi/AwAAAD3Cc+KMivkMAAA' +
'A6BGeE2fEmM/bGzn288SUb849euvq1Tt3u7Whw1E7LSd+bL9z286v' +
'OxXyrJJ8tf3hhSXfu28aFfN5WuY3j1289cO1bvZw2aqvXE116uSPP' +
'9559PytsorvYxf900PfUAc+/tsv7qO++ebXcRO/6HSfR6Z+kX7gWz' +
'F27cmnbl39oav9VKqv/yeuRc92rNOgdXEzmG504/B337stklxbv/l' +
'rNBT3uxx/kRnbgzPzLztEnUyc+kVO7netJ3/84Mrt27e72lR1zdWH' +
'n0U92JP/xIB3xZ8q+t7l2xL82ubtX6M59vCtdeUUHmYye06cYaO+c' +
'Fuw+Ksnnvzpz7bffrvy4S/DR38xe/5Xv/z+lHz3zbduo53tC3k2Ys' +
'wXH370+/HffXcn5pEvXTet2/iv11//+WF6+PiTP7ma6tTJTtt7790' +
'uKP5+9Lgv/9i95NRv299TjF1vfys608ys77744tdu9C1uyVc9fi16' +
'tmOeB83DtnzV1w9zuNV2E82KP16Lv8iM7cGZ+ZcdovZtzpr3lVxx/' +
'ebNP/1cdOPGnYlTvnzIWdSDPflPDHhXdLto84kfR8V0flLq8VN4yM' +
'nsOXGiRvzTZfW6b775ppsvgdxbeeUPqCmh+Hr7nbkFV91VumJv0nf' +
'tD8ekN1z7d8V/++Oth+zg3eTU71ytderkPbdPP/21sPjqyLEdunfh' +
'4u+P319/vTt7/tfum2IX/uv8hW4+us8/9tN/4lr0bMe6Mmh/3J56+' +
'qeHOdy12ew/DhvV4UL8dWZsD87Mv+wQuYyO+SeDde3H7ixQ2jat/u' +
'bDz6Ie7EmPD3gXPUzRk6dvjYrpsdb+eAoPP5k9J87QYV8BAAAAPcJ' +
'z4gyJ+hoAAADoEZ4TJyLyGwAAAKBHeE6c8MHfRkZ/98+vHvbN3q++' +
'voPaGTrsu2eevf36G7+4XHz8dkTkt6hE16FDbty469L2mYEJ3/+xh' +
'//4x53BQ79rf9S5Rx/we6733/91waKrrjuPGPUd6q27CqqIdk6e9v' +
'2Rozeef+E2uul+Kipvtv9RJr/larCy6ubDDF37vvXgtejZjt1TxoH' +
'r7mFEVOpb97vnyDHfXb/xkKfVtsUtvvrHUTKYfurK1Ioe8d2X//z9' +
'qJ6asWXlN/nCH11YnB//7OF//SEaHfPdO+926zfT7baff7477pHvH' +
'3IWjR3/3bvvduejL+4tPfP6f2jAu3eV0dxDO9Gz2Zdf/rlH/co1P/' +
'wnTqF7k3l/2nX3UTWUm54TJ2zQ96lpPdBpnuAWaio9o0NTuLRtZ9f' +
'Fxv3Q/nBn3c+u/Z16yOV3aHbi5Ku/dmEaarQ/ue6fm9fheTjr8A13' +
'U4MGf3/w0I32DzoP29r119Ahk6ZcvflQz+ttm1b30z3PtHub61r0b' +
'Mfu6ZlnOzwRrVh17X73LCh66K78tk2d/kOnUUKXftacH7oyu/ILO/' +
'ThPzFjm5t//lOH/08MkcnyUB91c22NTfcdma7PIoHw1tdf37l2/W7' +
'XPwLdfrt69e7QYf+pAe/eVc440Pbks3vPn/7V/7QZP/T4KXRvMg+J' +
'+h5dFPdRas1PnhMnJOzqE0887AuYu20jcA019cwzHZqaPbdtZ9cR8' +
'g5ze92GG679nXo4c3aHZiuru/TRijNnb7vu//rrv+cTWkYNifqhUz' +
'eGjfjBZn/AounSpV9Dw9vuLBL3wOPR3bcevBY927E/mhd7rf090aj' +
'e755ooNBwdbsP27bf6NTgX2fGqtQd5snWbZ272kV/2SGaNOXanYdd' +
'c7dt23bce2S6PovcwgZdra651Y3PA2u0P//nBrwbV/mbb+4MHtr25' +
'NPQ+OcS9M032558evwUujeZ0zM7pN6Chdc9J87M2R3i9WjuraCQaw' +
'80dXqHo86d+wXtnBfb4eXihYu/dKUpt8ioa9+3+7tPtHwODm3bP2t' +
'Oh2bRK6KutPbCC52vhdlyG+1furxDaxLs53sejkoXFt3ysHTKze/S' +
'QN3Tiy92btdkbutbD16Lnu3YPcmIDvMz59h9e7tiVYcxp9J+ut89Q' +
'8Ovcbidg/Kll35tf59Oo9S9rUdm7LAR1260a+DDD++EhHVz5P+yQ8' +
'RkdaiFLnq3Z9dDziKX0WOvX7jQOWzq62+Pf+T6f3HAu1dUKHqowez' +
'ZU+j2ZH663Wu2Z59rmzOeE0ck/v2KX79+d2j0jYCg6w/E5XWYJ3sS' +
'bqGdckWHpM7OudWVptwOHe6wVCks+sm1XyDsUEss+fmBTYWEXf/kk' +
'86vzOL3tvXHYOjQyZmzbnpoh82590qn6wP1R8Gh1z//vHPf9sS39a' +
'0Hr0XPduyPBkde//773+927drdyKj79hbFlvue6KVpzHhP54Xa+eG' +
'HTr3ocEj7Uer21iMz9nhph0dxecVP3Rv5v+wQocfRF190mBKz5nh6' +
'vPxZf2oWIZOn3vjgSucpmpvXnWHv2QHvRlG0TZ/xUIPZs6fQvcl8L' +
'LfDUalpbY8gz4nzr29+v79Ge9s/4MYDBYfe/Oc/fz/qH/+4ExxyE+' +
'1Hsdi++tPP/Dpz1o9dadAFZa772Js370YNu+na39ra4SXN5ffvLF1' +
'+636NBATejFv4Y0Nj51dBFx//Fd00NPpm+19toJ2euxQSdvPSpXu8' +
'p6BUdWmg7tk9FrvzCvrChba+hYbf7MFr0YMdu+f9Dx7qMNPQU/f9W' +
'o4efrP9n+mhS/PAzhiNnS9fcspPrps6jRJfcBv1MDCoTVDwTXTubU' +
'LboGuH7oyEDbo5bPjN6+1e9ffIjEUVP/ro98N//vnuiJHdGfm/8hA' +
'l7O1wlZ948gGPlz+r67MIQZfmyy87nfTd4pKfI4bcHDT4ZnhEG3Qi' +
'6HTQeSFt5xjSdsoIOnc0CO7J3LMD3r2rjB5cDzN0PXsKf3Yyu55mJ' +
'djt9u+4fvX1XTTs6FbPidO+A3ELf/L1+/GB4hM6vIKi0m679r/11p' +
'9+w/fzL+4GBbcdG7ugw9zT6X9xl3vqqYf6dMrd31aIY8beQk3lF3R' +
'4Ut2X+PMDT3b7jnv8NmTuvLbWUvb3wCvJDz64M2p0W2upaR1ae5hr' +
'0bMdu6eXXupwrefMve89C4s6jPn6DQ8+Lxq9c/bl5f97jnUapekz7' +
'1u3vfT0np+x95wYf3arqb39Vx6i8+c7PPSSkh/8ePlTuj6L0OP300' +
'974PdJy5b/1OMD3kWdiu7d91CD2bOn0COTuaj43611MXFee+3OQJ9' +
'bXXHu3O/z8Ndf744Z+5Nr/969f/oTJOSaX1zHqlQd5nbcwp/d5Wz2' +
'h0qcV1+9MzamrYc+vrfeeef3SYuWBgGBDz7Z4JCfbnT8+Nhzz/97o' +
'F588WEfAqgF9+g99fTvrT3ktejZjv3R/NgOz07PPnff3qIxf/fd3z' +
'vz/vt30J4HnhSaFZ36g14q/HGUnn++q6P0+BO/H9VTM/b8+Ycd5LY' +
'3TqN++ssO0cRJHZ6F0OMlMOi+U6Ibuj6L/ANuvfJKD8QNeipAY9vj' +
'A94VnYqixVpXnny62NrDn8JDTua/f3Y3PuH30ehi4mQf+aX/gJ8fa' +
'Nz4DvOk5cSd9rcm7P2l668b0doteljbUWHhP7df0aOJ0b7NQRE/8/' +
'i//utff24QUEw888ydvLxffHz/3c6y5R2eXhjMX7tyvkhDY4cz2p/' +
'aNlCLFnfrA5r/d+LPPdehb9OmdfyFwkNci57t2D0plR1eA7gG5J6W' +
'r+jQmcLCLp0Xmdz5Ncaq1bf/OEqHDneptfETOhzVIzN2ypTuD7J7E' +
'wh//SsPEYfboUTXHy9d1PVZlJvbA5+7Q1t6xi89PuBd1KnoQw5mz5' +
'5CtyfzL7/cffnlO0dyfgkO6dg9j4nTr99tAAAAoEd4Tpw+fX4FAAA' +
'AeoTnxOnV6w4AAADQIzwnDol0FwAAAOgRnhMHAAAAAAAAAAAAAAAA' +
'AAAAAAAAAP9f+X8rf8Om');
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,1118738);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, 16777215);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 5, 344);
FreeBitmap(Pic);
FreeBitMap(Pic2);
end;
Procedure DoThePainting;
begin
Clock := [0,0,0];
ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
PrintOnSmart(['AlignsAstralCrafter', 'Time Ran: '+tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2])
, 'Astrals Made: '+IntToStr(RuneCount)], Point(10, 285), 255);
end;
procedure SmallReport(Action: Integer);
begin
ClearDebug;
ActionText := ['Banking','Running to Altar','Crafting', 'Teleporting', 'Resting'];
Clock := [0,0,0];
ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
writeln('-*-*-*-*-*-*AlignsAstralCrafter-*-*-*-*-*-*');
Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
writeln('Current Process: '+ActionText[Action]);
Writeln('Runs Done:' +IntToStr(runs));
Writeln('Astrals Made:' +IntToStr(RuneCount));
SMART_ClearCanvas;
DoThePainting;
End;
Procedure Shutdown;
begin
Writeln('Bot Shutting Down');
Wait(RandomRange(1000,1300));
CloseBank;
Logout;
TerminateScript;
end;
Function TeleHome: Boolean;
Var
TeleHomeIcon:integer;
Begin
GameTab(Tab_Magic);
Wait(RandomRange(100, 200));
TeleHomeIcon := BitmapFromString(5, 5, 'meJxL0/VJVnL4dGSfvowcEAHZEK48' +
'q0SAtDGE+3TvSggXSEJEgAjIXRoYCxSBCwIAb/gU8A==');
If FindBitMapTolerancein(TeleHomeIcon, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(True);
GameTab(Tab_Inv);
Wait(RandomRange(10000, 12500));
End else
Begin
FreeBitMap(TeleHomeIcon);
ShutDown;
End;
FreeBitMap(TeleHomeIcon);
End;
Function TeleToBank: Boolean;
Var
Tele:Integer;
Begin
Tele := BitmapFromString(8, 6, 'meJxLSko6cexIe3vbyqULgQw4SoKJ' +
'b922DSICVDBl6lS4OJANEQcyIOJAlUAEZEBkgQygFm8fn4qycoghQ' +
'EG4gYwMDKq6unApOAIAWNtXbw==');
If (LoggedIn) then
Begin
If Not FindNormalRandoms then
Begin
GameTab(Tab_Magic);
Wait(400);
If FindBitMapTolerancein(Tele,x,y,MIX1,MIY1,MIX2,MIY2,45)then
Begin
SmallReport(3);
MMouse(x,y,5,5);
Wait(RandomRange(600, 800));
ClickMouse2(True);
End else
Begin
ShutDown;
FreeBitMap(Tele);
End;
GameTab(Tab_Inv);
FreeBitMap(Tele);
End;
Wait(4000);
End;
End;
Function EnergyChecker: Boolean;
Begin
If FindColorSpiralTolerance(X, Y, 255, 736, 104, 761, 121, 10)then
Begin
SmallReport(4);
Wait(Randomrange(300, 321));
RestUntil(RandomRange(80,90));
End;
End;
Function WalkingToBank: Boolean;
Begin
If (LoggedIn) then
Begin
If Not FindNormalRandoms then
Begin
SmallReport(0);
SPS_Setup(RUNESCAPE_SURFACE,['0_2']);
ToBank := [Point(241, 973), Point(238, 952)];
SPS_WalkPath(ToBank);
Wait(RandomRange(1000, 1200));
End;
End;
End;
Procedure FindMoonBank;
begin
If (LoggedIn) then
Begin
If Not FindNormalRandoms then
Begin
If (FindObjEx(x, y, ['ank','ooth','k booth','Bank booth'], [5925749,9015446,8420735,2697515, 5794163, 9015189], 25, 50, 150, 95, 288, 165))then
begin
MMouse(x, y, 3, 3);
ClickMouse2(False);
Wait(RandomRange(400, 500));
ChooseOption('Use-quickly');
Wait(RandomRange(2500, 2600));
If PinScreen then
InPin(Players[CurrentPlayer].Pin);
If BankScreen then
Begin
End else
Begin
TeleToBank;
WalkingtoBank;
FindMoonBank;
End;
end else
if (FindObjCustom(X, Y, ['ank','ooth','k booth','Bank booth'], [5925749,9015446,8420735,2697515, 5794163, 9015189], 5)) then
Begin
MMouse(x, y, 3, 3);
ClickMouse2(False);
Wait(RandomRange(400, 500));
ChooseOption('Use-quickly');
Wait(RandomRange(2500, 2600));
If PinScreen then
InPin(Players[CurrentPlayer].Pin);
If BankScreen then
Begin
End else
Begin
TeleToBank;
WalkingtoBank;
FindMoonBank;
End;
End;
end;
end;
end;
Function DepositEss: Boolean;
Begin
Wait(RandomRange(500, 600));
Ess := BitmapFromString(9, 11, 'meJx1zNEKgCAQRNGfDBMRERHbysq' +
'I/r+BIQmWYN7O3RXZRLZlObBaz32/sNZurJQVkzeAMgDlPGM6gMaY' +
'U5owBt/nISQog64MvI9Ufetc+FPQV/tnkLVeK8kYp5U/h2GkMoDyJ' +
'+gB5qx01w==');
If FindBitMapTolerancein(Ess, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(Randomrange(100, 200));
ChooseOption('Deposit-5');
Wait(RandomRange(400, 600));
End;
FreeBitMap(Ess);
End;
Function DepositAstrals: Boolean;
Var
Astral:integer;
Begin
Wait(RandomRange(500, 600));
Astral := BitmapFromString(4, 6, 'meJw7tf7UKQyUkZELYaSkZAARhJ2Q' +
'kJKUlAZkxMQkxMUlAblAdlRUHIQLAKx3KfU=');
If FindBitMapTolerancein(Astral, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(Randomrange(100, 200));
ChooseOption('Deposit-All');
Wait(RandomRange(400, 600));
End;
FreeBitMap(Astral);
End;
Procedure Eating;
Var
MonkFish, Eatingfood:Integer;
Begin
MonkFish := BitmapFromString(7, 5, 'meJzr6V/k6hfl7BPu5BUKRA4ewUCy' +
'tn7R5Omr+iYu6eieCxevqV1Q17DEL6A0IKisqXUaUMTOLQAoCFTs5' +
'ZPv41fYP2lpbcMEGxe/yuq5FZWzgSREtqFxKZANAPTVLcc=');
Repeat
Inc(Eatingfood);
If FindBitMapTolerancein(MonkFish, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
ChooseOption('Eat');
Wait(RandomRange(850, 921));
End;
Until(Eatingfood = 4);
FreeBitMap(MonkFish);
End;
Function WithdrawEss: Boolean;
Begin
Ess := BitmapFromString(9, 11, 'meJx1zNEKgCAQRNGfDBMRERHbysq' +
'I/r+BIQmWYN7O3RXZRLZlObBaz32/sNZurJQVkzeAMgDlPGM6gMaY' +
'U5owBt/nISQog64MvI9Ufetc+FPQV/tnkLVeK8kYp5U/h2GkMoDyJ' +
'+gB5qx01w==');
if BankScreen then
Begin
if FindBitmapToleranceIn(Ess, X, Y, 35, 85, 480, 295, 20) then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(False);
Wait(RandomRange(300, 400));
ChooseOption('All');
end else
ShutDown;
End else
Begin
ShutDown;
End;
FreeBitMap(Ess);
End;
Function HealthChecker: Boolean;
Var
MonkFish, Eat:Integer;
Begin
If FindColorSpiralTolerance(X, Y, 2070783, 720, 25, 745, 40, 20) then
Begin
MonkFish := BitmapFromString(7, 5, 'meJzr6V/k6hfl7BPu5BUKRA4ewUCy' +
'tn7R5Omr+iYu6eieCxevqV1Q17DEL6A0IKisqXUaUMTOLQAoCFTs5' +
'ZPv41fYP2lpbcMEGxe/yuq5FZWzgSREtqFxKZANAPTVLcc=');
Wait(RandomRange(300, 500));
FindMoonBank;
DepositEss;
If FindBitMapTolerancein(MonkFish, X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
Begin
Repeat
Inc(Eat);
MMouse(X, Y, 7, 7);
ClickMouse2(True);
Wait(RandomRange(400, 500));
Until(Eat = 4);
Wait(randomrange(200, 300));
Eating;
repeat
If FindBitMapTolerancein(MonkFish, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Begin
MMouse(X,Y,7,7);
ClickMouse2(True);
Wait(randomRange(300, 321));
End;
until(not FindBitMapTolerancein(MonkFish, X, Y, MIX1, MIY1, MIX2, MIY2, 45));
Wait(RandomRange(800, 1000));
FreeBitMap(MonkFish);
End;
Wait(RandomRange(400, 600));
WithdrawEss;
CloseBank;
End;
End;
Procedure WalkingToAltar;
Begin
if (LoggedIn) then
begin
SmallReport(1);
SPS_Setup(RUNESCAPE_SURFACE,['0_2','1_2']);
ToAltar := [Point(291, 975), Point(291, 1006), Point(291, 1038),
Point(294, 1063), Point(301, 1079), Point(317, 1095), Point(327, 1100),
Point(341, 1112), Point(351, 1125), Point(370, 1132),
Point(383, 1149), Point(379, 1167), Point(381, 1190), Point(406, 1176),
Point(428, 1172), Point(440, 1174), Point(460, 1176)];
SPS_WalkPath(ToAltar);
Wait(RandomRange(300, 400));
If Not (SPS_WalkPath(ToAltar)) then
Begin
TeleToBank;
WalkingToAltar;
End;
End else
ShutDown;
End;
Function FindingAltar: Boolean;
Begin
If (LoggedIn) then
Begin
Wait(RandomRange(300, 400));
If (FindObjEx(x, y, ['Ala', 'Altar'], [8551552, 9080976, 7238259, 7962238, 8752268, 9146769, 8225410, 7633273], 25, 50, 280, 120, 420, 220))then
Begin
MMouse(X, Y, 5, 5);
ClickMouse2(True);
Wait(RandomRange(600,700));
End else
if (FindObjCustom(X, Y, ['Ala','Altar'], [8551552, 9080976, 7238259, 7962238, 8752268, 9146769, 8225410, 7633273], 1)) then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(True);
Wait(RandomRange(600,700));
end else
ShutDown;
End;
End;
Function AstralChecker: Boolean;
Var
Astral:integer;
Begin
Astral := BitmapFromString(4, 6, 'meJw7tf7UKQyUkZELYaSkZAARhJ2Q' +
'kJKUlAZkxMQkxMUlAblAdlRUHIQLAKx3KfU=');
If Not FindBitMapTolerancein(Astral, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Begin
Wait(RandomRange(400, 500));
FindingAltar;
FreeBitMap(Astral);
End else
Begin
FreeBitMap(Astral);
WriteLn('Found the Astrals');
End;
End;
Function EssChecker: Boolean;
Var
Ess:Integer;
Begin
Ess := BitmapFromString(9, 11, 'meJx1zNEKgCAQRNGfDBMRERHbysq' +
'I/r+BIQmWYN7O3RXZRLZlObBaz32/sNZurJQVkzeAMgDlPGM6gMaY' +
'U5owBt/nISQog64MvI9Ufetc+FPQV/tnkLVeK8kYp5U/h2GkMoDyJ' +
'+gB5qx01w==');
if FindBitMapToleranceIn(Ess,X,Y,MIX1,MIY1,MIX2,MIY2,45)then
Begin
FindingAltar;
Wait(RandomRange(700, 843));
EssChecker;
End;
FreeBitMap(Ess);
End;
Function CraftingRunes: Boolean;
Var
Giant, Large, Medium:Integer;
Begin
SmallReport(2);
If UsePouches = ('Yes') then
Begin
Giant := BitmapFromString(9, 7, 'meJxLy8z29Q/08PZx8/B0dHFhYmAw' +
'sHICIkNrp4TklLjEpJCwcKCsi5s7UAoua+nsGRUbFxEdAyS1jc01D' +
'UzlVTUhCoBS5o7upvYuxjZO+ha2tvb2QFkVbX0JGXkrVx9kWaB2e0' +
'cniKyNux+abGBIKNBSoKydVyCmbFhEFNDBAIyLLPk=');
Large := BitmapFromString(11, 7, 'meJwzsHIyACNDa2cgycTAYAATMUC' +
'SAiKgFBDp2blAGMgqIVwTdz8hRU1BOTU4gqt0jU1zDE+wCYyy9A1F' +
'UwNEEMOBapyjU5wik+yCY4DKgOJAlRAEcQNQjY27H1AB0CigGqBp1' +
'v7hQJVAhOwSoBqgAvvQOKAaoAIIAgCPCyuY');
Medium := BitmapFromString(11, 5, 'meJwztnc3cfAAIiYGBmRkbO9uYOU' +
'EREAGEAFFhBQ14UjT3BZZpaG1M5AhrKyDrAaOILLW/uFABVjVAGXd' +
'4jOcIpPsQ+MgytAUAADxCRav');
FindingAltar;
Wait(RandomRange(600, 700));
AstralChecker;
If (LoggedIn) then
Begin
If FindBitMapTolerancein(Giant,x,y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(600, 921));
ChooseOption('Empty');
End;
If FindBitMapTolerancein(Large,x,y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(600, 921));
ChooseOption('Empty');
End;
FindingAltar;
Wait(RandomRange(700, 800));
EssChecker;
If FindBitMapTolerancein(Medium,x,y,MIX1,MIY1,MIX2,MIY2,45)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(700, 921));
ChooseOption('Empty');
End;
FindingAltar;
Wait(RandomRange(700, 800));
EssChecker;
AstralChecker;
EnergyChecker;
FreeBitMap(Giant);
FreeBitMap(Large);
FreeBitMap(Medium);
TeleToBank;
End;
End else
If UsePouches =('No') then
Begin
FindingAltar;
Wait(Randomrange(300, 321));
EssChecker;
EnergyChecker;
TeleToBank;
End;
End;
Function NPCContact: Boolean;
Var
Cosmic, NPCSpell, DarkMage, Air, Astral, Chat, Chat2:Integer;
Begin
Cosmic := BitmapFromString(9, 8, 'meJxTuH5TARUVF1cAUWlpFbJgTk5h' +
'Xl5xfkFpYVE5UBYunpGRm5WVjyybkJACkUpLy0aTjYtLAoonJaWlp' +
'GQgywIFY2ISgLJAvciyEHOiouLQZOG2R0TEoMnCtQMAH95kyw==');
Air := BitmapFromString(10, 5, 'meJy7fv3B9esPMjJyr4MZEFRYVF5' +
'cXAFEQHZKSgayVF5ecX5BKYSdkJCCLJWVlZ+TUwjnxsUlwdlpadlo' +
'VsTEJAAVAE1ISkpDswKIAPPuZ90=');
NPCSpell := BitmapFromString(10, 7, 'meJx79fr1Kxzo19ODyAhN6tOh+it' +
'LFYAkBMEVQKQYGRiQEVAlxBAgA8g1sHICIWtnCAOiAGIOQhaiAIzg' +
'hqArQDUEggAzAmlG');
DarkMage := BitmapFromString(7, 7, 'meJzj4wOBzmVnIKhrxVkg4kMShIhA' +
'BNFEIIJwdvfK80DUs+oCUBDIEA5vgaKINiAXKCgUWCXoX4GMgIKC3' +
'sXy5i5AJGvqBEEALNs97Q==');
Astral := BitmapFromString(4, 6, 'meJw7tf7UKQyUkZELYaSkZAARhJ2Q' +
'kJKUlAZkxMQkxMUlAblAdlRUHIQLAKx3KfU=');
DepositEss;
Wait(RandomRange(300, 400));
If FindBitMapTolerancein(Cosmic,x,y,MSX1,MSY1,MSX2,MSY2,45)then
Begin
MMouse(X,Y,7,7);
ClickMouse2(True);
Wait(RandomRange(400, 500));
If FindBitMapTolerancein(Astral,x,y,MSX1,MSY1,MSX2,MSY2,45) then
Begin
MMouse(X,Y,7,7);
ClickMouse2(True);
Wait(RandomRange(400, 500));
End else
ShutDown;
If FindBitMapTolerancein(Air,X,Y,MSX1,MSY1,MSX2,MSY2,55)then
Begin
MMouse(X,Y,7,7);
ClickMouse2(True);
Wait(RandomRange(100, 300));
ClickMouse2(True);
End;
End;
CloseBank;
Wait(RandomRange(1000, 1200));
GameTab(Tab_Magic);
Wait(RandomRange(800, 921));
If FindBitMapTolerancein(NPCSpell,x,y,MIX1,MIY1,MIX2,MIY2,45)then
Begin
MMouse(x,y,4,4);
ClickMouse2(True);
GameTab(Tab_Inv);
Wait(Randomrange(1200, 1300));
MMouse(460, 240, 10, 10);
ClickMouse2(True);
Wait(RandomRange(300, 400));
If FindBitMapTolerancein(DarkMage,X,Y,MSX1,MSY1,MSX2,MSY2,45)then
Begin
MMouse(x,y,5,5);
ClickMouse2(True);
Wait(RandomRange(6000,6100));
Repeat
Inc(Chat);
TypeSend(' ');
Wait(Randomrange(900, 1000));
Until(Chat > 5); //6 times
MMouse(260, 420, 100, 10);
ClickMouse2(True);
Repeat
Inc(Chat2);
TypeSend(' ');
Wait(Randomrange(1000, 1100));
Until(Chat2 > 1);
End;
End;
FindMoonBank;
WithDrawEss;
FreeBitMap(Astral);
FreeBitMap(Cosmic);
FreeBitMap(Air);
FreeBitMap(DarkMage);
FreeBitMap(NPCSpell);
end;
Function Checker: Boolean;
Var
Law:Integer;
Begin
Law := BitmapFromString(7, 6, 'meJzLzi64oSyXn19SWFhWXFwBZMNR' +
'dnYBLvHc3CKIFFwwMysPLo6sGC6OLJiekQMRBwCtoDKH');
If FindBitMapTolerancein(Law, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
Begin
end else
Begin
WriteLn('No Laws');
FreeBitMap(Law);
ShutDown;
End;
FreeBitMap(Law);
End;
Function PouchBank: Boolean;
Var
Large, Giant, Medium,GiantDeg, LargeDeg:Integer;
Begin
If UsePouches =('Yes') then
Begin
Giant := BitmapFromString(9, 7, 'meJxLy8z29Q/08PZx8/B0dHFhYmAw' +
'sHICIkNrp4TklLjEpJCwcKCsi5s7UAoua+nsGRUbFxEdAyS1jc01D' +
'UzlVTUhCoBS5o7upvYuxjZO+ha2tvb2QFkVbX0JGXkrVx9kWaB2e0' +
'cniKyNux+abGBIKNBSoKydVyCmbFhEFNDBAIyLLPk=');
Large := BitmapFromString(11, 7, 'meJwzsHIyACNDa2cgycTAYAATMUC' +
'SAiKgFBDp2blAGMgqIVwTdz8hRU1BOTU4gqt0jU1zDE+wCYyy9A1F' +
'UwNEEMOBapyjU5wik+yCY4DKgOJAlRAEcQNQjY27H1AB0CigGqBp1' +
'v7hQJVAhOwSoBqgAvvQOKAaoAIIAgCPCyuY');
Medium := BitmapFromString(11, 5, 'meJwztnc3cfAAIiYGBmRkbO9uYOU' +
'EREAGEAFFhBQ14UjT3BZZpaG1M5AhrKyDrAaOILLW/uFABVjVAGXd' +
'4jOcIpPsQ+MgytAUAADxCRav');
GiantDeg := BitmapFromString(10, 8, 'meJx1juEKgjAYRcXXiNAQBiOZc7S' +
'Gk2GskRpjFCJS7/8g3hhIBMFlP3YO936sluwrBaGHgqRJkuccuc/z' +
'ME0uBOt965zqOqF1pHV79cuypbFWGgPKlYLAtQ2vN/5jw+3xNH0fB' +
'dCPcFKYO1YCQfllHPFiGtntM9BNoGWFEFriNiYlBHHWkf4IaMA66D' +
'8BN6xpjDC+');
LargeDeg := BitmapFromString(9, 9, 'meJzTNTRxDQhw9PY2srJSUFYVl5Rm' +
'YmAwsHICIl1DE209Q3tPT1s3d21DQ1kFJSkZOaAsEEGkNLT11DS1I' +
'RohsiKi4shS1i4uBubmQCmILEQKIgu00czeHm4sshRQI9BSExsbDT' +
'09oCxQCtlMZCkDY3NkKYiZWKWc/fwgUkCnAgDtUirq');
If (LoggedIn) then
Begin
If Not FindNormalRandoms then
Begin
If FindBitMapTolerancein(Giant,x,y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(300, 321));
ChooseOption('Fill');
End else
Begin
If FindBitMapTolerancein(GiantDeg,x,y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
NPCContact;
End else
Begin
End;
If FindBitMapTolerancein(Giant,x,y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(300, 321));
ChooseOption('Fill');
End;
End;
If FindBitMapTolerancein(Large,x,y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(300, 321));
ChooseOption('Fill');
End else
Begin
If FindBitMapTolerancein(LargeDeg,X,Y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
NPCContact;
End else
Begin
End;
If FindBitMapTolerancein(Large,x,y,MIX1,MIY1,MIX2,MIY2,25)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(300, 321));
ChooseOption('Fill');
End;
End;
WithdrawEss;
If FindBitMapTolerancein(Medium,x,y,MIX1,MIY1,MIX2,MIY2,45)then
Begin
MMouse(X, Y, 7, 7);
ClickMouse2(False);
Wait(RandomRange(300, 321));
ChooseOption('Fill');
End;
WithdrawEss;
End else
ShutDown;
End else
ShutDown;
FreeBitMap(Giant);
FreeBitMap(Large);
FreeBitMap(Medium);
FreeBitMap(GiantDeg);
FreeBitMap(LargeDeg);
End else
If UsePouches = ('No') then
Begin
End else
ShutDown;
End;
Procedure Bank;
Begin
If PinScreen then
InPin(Players[CurrentPlayer].Pin);
If BankScreen then
Begin
DepositAstrals;
Wait(RandomRange(200, 400));
WithdrawEss;
Wait(RandomRange(200, 400));
PouchBank;
Wait(RandomRange(200, 400));
CloseBank;
End;
End;
begin
MouseSpeed := RandomRange(14,16);
smart_server := 18;
smart_members := false;
smart_signed := true;
smart_superDetail := false;
ClearDebug;
SetupSRL;
SMART_ClearCanvas;
DeclarePlayers;
LoginPlayer;
MakeCompass('N');
SetAngle(True);
If Not (GameTab(Tab_inv)) then
GameTab(Tab_Inv);
DoThePainting;
TeleHome;
SMART_ClearCanvas;
Repeat
DoThePainting;
Checker;
EnergyChecker;
WalkingToBank;
FindMoonBank;
Bank;
HealthChecker;
Wait(RandomRange(1300, 1600));
WalkingToAltar;
Wait(RandomRange(1600, 1700));
CraftingRunes;
Inc(Runs);
IncEx(RuneCount, AstralCounter);
SMART_ClearCanvas;
Until(Not (Loggedin));
SPS_Continue := true;
end.
[/code]
also i have a private pouch scroll make.