SRL Archive - Discussions and Debates

I know, I know, this copies Daniels thread, but, I think something recently came up that changes my view on Aligndude's application.

He recently sent me a PM asking for help on his script, and if I could look it over. (It is the second script he added to his application). I said sure, and he sent it over.


This is what he sent over:

program AlignsAstralCrafterLite;
{$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(320, 130, 'meJztnYd/G1t23yntvic9VYqi' +
        'CtUl9l7FXgGikWDvHYUgKgFWgGBXr6TYO6VXdjfOc+KyzV6vvVmvH' +
        'W8c55M4dhzHfrbXXq/jns1/kJzBHV4OZ4DhzAgclQd+zocfcAACEK' +
        'kvf+ee8zv3rq+/Ax9ra6trqyurK8tELC+tLC0SsTi/vDBHxPyLpbl' +
        'ZIl7MLM4+J2Lm6cLzJwvPHkPMP300/+QhxNzjB3OP7kG8eHT3xcM7' +
        'ELMPpmfvT0HM3JucuTsO8fzO2PPp0WdTbiImR55OuIgYH34yNkTE6' +
        'OBj9wARI/2PXA4inPaHzl4ihm0PhqwPBi0Q9wdM9/uNEPf6eu45DB' +
        'B37d13e/UQd2zaO1YNxLSla9rcOWXqIMLYPtnTSoShZcLQTER307i' +
        '+kQhdw5i2jghN7WhXDRGd1e6OKnd7JRFt6pHWciJaylzNKiKalM5G' +
        'ORENsuH6UiLqpEN1EiJqSwZrigarCyEGqgoGKvMh+ivy+tW5EH3l2' +
        'X1lWRAOVaZDeRvCrsiwy9N7ZalElKbYpMlESJKskkQiShIsxXFEFM' +
        'WaC2OIKIg25UcRkRdhzA035tyC6Mm+2ZN1A8KQed1w+ypEd8aV7vT' +
        'LEPq0S/rUMAhd6kVdynkIbfI5bVKoJvEsEQkhXfFniIg73Rl7ioiY' +
        'kx3RJ4iIOt4eeYyIiKNt4Ufabn0I0Xrzg9YbX/XEV1quH4Zovn64C' +
        'cW1w42eaNiJ+quH664ert2JmitEVO9E1ZXDlZeJqNgJ9eXD5ZfIKL' +
        't0WOUJZRgZirDDchQXD8s8UboT0guHJRcOl+xE8Xkiinai8PzhgnN' +
        'E5O9E3rlDuaFk5IQeyvZE1lkyMs8euo0i5FCGJ9JDDr1pNPf/IODF' +
        '/C4vkfwuzpP8zr8g+X0xQ/I785TJLwGvh18CXg+/BLwefgl4PfwS8' +
        'DL5HR8m+R0dJPkd6Sf5ddpJfodtmF8CXg+/BLwefgl4PfwS8Hr4Je' +
        'Bl8mtoIfntbiL51TWQ/GpqSX47q73w21JG8tukJPltkJH81klJfmt' +
        'LML8EvB5+CXg9/BLwevgl4PXwS8DL5FeSRPJbkkDyWxRL8lsQTfKb' +
        'F8Hkl4DXwy8Br4dfAl4PvwS8Hn4JeDG/CSEkv3GnSX5jTpL8Rh0n+' +
        'Y046o3fryB+mzG/10h+qfAy+aXCi/ilwsvklwqvYgdeOQNeJr9UeB' +
        'G/VHhZ+M3E/IaQ/Ka/Q/yurjD53Ud8PfwS8DL5ZRVfkt/JEcwvV/F' +
        'l8ssqviS/xnYmv/uIL+K3TY355Sq+TH5ZxZfktzSFye8+4uvhl4AX' +
        '88tNfJn87iO+Hn4JeBn8sosvC7/s4svkl118WfhlF98cDuL79vO7R' +
        '3yZyTM38WUmz1zFl8kvq/gyk2eu4stMnjmKL5NfVvFlJs9cxZeZPH' +
        'MTXya/+4gvM3nmKr6M5Jmb+DL5ZRdfL/xyE18mvxzFl8lv+jvErzf' +
        'xZfLLVXyZ/LKKLzN55iq+TH65iS+TX3bxZSbPXMWXyS838WXyu4/4' +
        'MpNnbuLL5Jej+LLwyy6+TH7ZxZeFX3bxZfLLLr5ek+e3nN99xNd/l' +
        'Suu4svkl1V8/Vm54ii+TH5ZxdeflStu4svkdx/x9V/liqP4svB77C' +
        'tfBAX9PxRvvHL1bvDrEd+0VOLnNjXxGffKFVfxZfLLKr7M5Jmr+DK' +
        'TZ27i64VfVvFlJs9cxZeZPHMTXya/XsX35plvwS+xLi7fS/LMTXyZ' +
        'yTNf8RVcuSo8F4PJxXGglSsu4pt25h3g12j8Lvpx9Ri+zRTfcfdLd' +
        'G+56nd8Js/c2kaYX95tI8wvN/Fl8su1bbTDL++2EeaXm/gy+eXaNs' +
        'L87hXf0nA9+jVJb2nZk2eu4svgl2PbqE6Q+KI3f/Ho5yC7+TssJ5+' +
        'peYOVq7ecX5w8I/GFmBz/jCm+oaH/B92bkvSnLMkz77YR5pdb2wjz' +
        'y7tthPnl2zbC/HJrG2F+ebeNML8820aYXyy+pP7uW7nyiG/xlRaq2' +
        'F078e/3rVzxFd8abuIbdXIc3gAkz3jx+5EnkSb45Vm54ts2ymIV37' +
        'edX0/yfO7cz9FvkJY8o5Uv/v2WK3/EtXLFrW2E+eXdNsL88mwbYX4' +
        '5to0wv7zbRphfnm0jzC/XttEOv6eO/BX6NXGpXBVfaWUmqyTCnCtX' +
        'fmwboVdPPVODK1cXjn4OV/LOxQgQX8GVK6b4porO7507v4B+GnCD5' +
        'WHUyhX500v9c6+Vq9Tk/4UeMO7c5F654t02wvxyaxsx+fUlvpaGAf' +
        'T+zfV9e5Jnvm0jzO9e8UVPziV55to2wvzyaRuht3Ej+Jv7iu/JD//' +
        'SK7woKq4lcq9c8W0bVXoT3/QzNeilqZVn4BckmJY8kwsEPpUrvm2j' +
        'jL3iKz6/+BdhMv06y8Ow+Bp7vkP+4tS/57VyZdD+Ctzbrfkl3m0jz' +
        'C+3thHml3fbCPPrTXzxD6Sh9Jmv5Jlj2wjzi8U3L3YTPblG0sopee' +
        'bZNsL8sosvXvymhz1mF18arcWXm9HKtyisCV1JCpkUuW2Ekme08sV' +
        'tI4A34sQ4NXkOPzGO3mHW2RhhlStebSMEr8j8Vlb+Pi9+QXwrKn5M' +
        'Xfxy9Vy9rYZnzC8S3+KMX8A/kHrpU78bnqMu/QCeOfj43wqoXPnR8' +
        'Jx+6TG5+I3N92V4ronMpJKbcu4utXJVcT3ZC7+iGJ5Rzyjy5Di75+' +
        'r8ESKjBq6pyfPBtY3E5xdnzijS0v6CDd4dfnHx6q01PAuuXOHMGUX' +
        'sjd/zu+EZPTNQ/GYNzzeDv4kXv16T55rILOqPgtk2KgxrRHcVXqgX' +
        '2fBMW/z68myghwHFB214pibPKSLyC8AibEF50T+Wjd8dz9W50J+Ti' +
        '993wfDcUr6M/xPGR/xn9spV7E0itYDPkDmTS3g+huea/Dv4taKv/J' +
        'ApvtrSdnLpkel+s4ZnVLzaXfwykmf8Dzn5wV96bRsln51GD1BfTRD' +
        'T8IzbvuzimxNKPizxdI04baNUcfmlMcuSQtM8V9TF7x5+eRqeta3/' +
        'Bv8nORvyL343PLdWrDCLLba2EV/i2yibQY9BlWcyhZY85VK5qs2/y' +
        '3wtnVxDE1+8+PWVPAO8HQX18IDTH/2UJr6qxD78zKpEuy/xvX1tBj' +
        '+MxXO1s/h95FV8r5/6FRLeD/+S3vbd8Wwkh0wxxbf8chxcPPHVL2i' +
        'G59zQGvyucs7W+EqeY0+N44f5Et+0neKVL35L9y5+uRuerx0bw69+' +
        '9dgYM3lODI6Gu44c/oImvreOV++uMsTi99y5/wsvB+tf9CXSYrjon' +
        'd8d8Z2a+Ay9z57ubzGT59CzROd337aRtn1P3o4Rporv2TP/DBcFG5' +
        '5DTv8j8yVCTv8Di/ieOfX38BhY/6K2ESTP8OWZk/97X/ENPvF3zNc' +
        'KPv4zZtsIlr3MR5L/q6NWEb8RF76PrlDFN+L892iPb81U0/htSlPQ' +
        'HnMz5Ntek+f6+AL0AOlNLVN8Uy/cp8LLy/B89djn6HupyfOVjz6nv' +
        'TH5xRgav9ILdDNV2NHPvRomLx79nMqvr+T5I4qvkhY3jo/Tkue0M1' +
        '6sXCnB0TTxPfMh+dJUfoM/2POvE4dfVLai0uqri0QTX6OBLD4zk+f' +
        'xkW3yn5D0pyzim5zwJ75+sE7bLIK3q/FTdGXI/Iwqvu212/jBLIZn' +
        'GrxcDM/FGf+WoPXU32PPlanOgb7dWNPLIr40eGmVq6rsCV//WFqo0' +
        '4YRv6eP/TQI6e+O+DLhhci8OUdNnhWxFl/PLIs00MS39JYO3eXV8I' +
        'y/sTriNl/DMyhvkEd/cfLMhBci7tQ4Fd6sszW+3nxGSA2zcvWaEX+' +
        '6hpo8x54iXx30F9LmFI/IQkSdrKbxC8ob5NFfnDzT4BWNX6+o0hTZ' +
        'C7/LSxXqH+/hlyK+mF9Sf72JL/VfCvkzWvmC8tL4VRSTuX1n/Sssv' +
        'vLC71K/PST4n7yO6pfmkrkfUMzd8Iy+xdzQT/VsgPjCxaLUr/syPB' +
        'ckfYK+ESj2WrnyxS9L5Qo9AFQY8ZsdvoiunP7ob9DKF27Aly2ZZVh' +
        '8m9N3lffW2e+gle+pIz8hEbj8lDZtlB5GFp+ZyTPOnFPO3xNgeEbf' +
        'CyqM+E04TSaxx7/6BVr5HvcADvqL+S2lKO+ljz5Hi1/MafTJccxvk' +
        'TfDM47kYO9/BNgrV1h5Y05Vo8UvlV9a2whdP/PB5wjeSx+R+TYQjV' +
        'a+Hx7+QgR+kfgyq81MUV5nTAvCspd4TOjPmZWrbu0vo3/OmHPDq+F' +
        '590ed8D+olauk+D8OQvnzTvJM5ReJb0fdS+avpq16g5k8I/GNj/wD' +
        '7oZnJL6xN39MMzwXpX09yJNC+zI8I/GNvvojlrYR7T0TnSPfbaOO/' +
        'Dryb2DyAPDblksurMLPf4+lbYSfXBFjwpWrjCvP0UVZhIE2bYT4Pf' +
        'nhX9GS55oosuZMZM78Dc/ll2PRt+efqwF4VZfINwYSzGJ4xm8+82w' +
        'NrlxFnyTBTw+poSbPePF7wdP8pa18aT9q1Dlir1wd9UjqtWPjuHJ1' +
        'didJpolvwg7X4Seqgd/40+SXIMG4cpVy8PUrnCd7vTdory4zpwVTU' +
        '/8cHpCa8ufMtlG56nfQt3tNnkND/hXdq5L9Fq1thPRXKfkNXLnC/A' +
        '6ZniDxRV+eDf4nWPy215BVIFn+t5jJM7oL8culbWRpJHtGXg3P6K6' +
        'eaqvX5JnUCOCXg+EZdX4jL/2AZVQf89ueVwvii6SWUF7fhudbod/F' +
        '8FLbRpjfhsQS2qjvDU/z6Ebwr9LEF698i6+2CRjVx/yWXYoBfnEuz' +
        'dI2urSTXSN4cdsI81t8PoY2qo+uR54YZxnVR53fc0c+Zzc8A7bwME' +
        'AYt42u7pSwmMkz5hfIBfHFuXTaXniTgw+WX5Qkozozrf+LA0szc1Q' +
        'fNY8qyv8js22U4rFN4sUvVXzL5P9hR3n/hNY2cva+CCKT5xncNsL8' +
        'ouQ5MeYPCXjP/DOuXEHyDFcSov8rS+WqpXyZi/iislWj7Dnwa67v8' +
        '/oDibn+u+yVq5q8O/sanlHxiugc+TY8l6cOYX6zw5fQbRbDsyLOGk' +
        'Smzd+ltY1uhnwb3bWbPO+M+oLyEr/lsEe0yhXySWLxxfxynDYqOFe' +
        'L+cWZM0vbKHtn2QsU09pGYTtFKuaoPrqeeqaGWrmiGZ5R8SrxdA17' +
        '8oyeCta/CF6svEAx03MVcaIa84szZ2rbSAR+qW4r9lj3MaqP+FV74' +
        '3en+PzbNPF1D6yi5wQJZhqe8eKX2jZKjP3vCFiAd9BILtYGeh7hth' +
        'GQG+RZAjPbRo6uPUvO3rZRFsMzypy5hNe2kaHcQH2MXqnzJb5aaRt' +
        '6jKakhaXtW55CZhogvuiGKrGPxXOFHnPq6F8zPRvkXUd+whzVp/LL' +
        'rFwRK1+W5Nn3tBGkzegZQHzRjdzQGhbxRY85/pUvmG1fdBesgmniW' +
        '7CzBM4/F+NrVD/7LPmYzLMxLG2j63vFFyXSGF5m2xfzC8kz+TfzeD' +
        'VTfA+OX19q6zWAdK/75JB/0vXfZHqu0F3E4nev+CYn/k90F9NzpWn' +
        '5BroLLX6xZwPxmxj7h1h8E2P+G7XtC5kz+kZfhmdaCXq37UsRX2vj' +
        'EPcfSGHyZ74Mz7QSNK3ti8S3MnOU/CvE6rnKjiDb62XJ/fA5Apa9v' +
        'j1XmdfJ1KUpTUETX5w8I35pm0yiuyQ3NVTxxYYrInlmrVz5mjZK3N' +
        'HcPA/IsOxlEd+4nVav9EIMzXOFk2fMLxbf1J31L8s+OSC76DHs4ou' +
        'ABc2NOUXp3gZH+zI8X97R3FsekGHZS/VcYX6TDoxflDl7RZX6MHzd' +
        '6z45VH6p4jvuIovPNMMzFl+V7Ac0z5XTPo9fKynuj6ieDdT8lRd9t' +
        '6P+FXoAre3bVr2Brvdp77AYnqn/zLjw36fxizJnZhSlfYPqucLX2Q' +
        '3P1GeIuvxD2g7PebHEG44M+y12zxXi9/RHP0Ur37bsShbxBdkNQpn' +
        'zXsNzY/Ju0ezmmW8x98kh+b3RRTU8l1xrp/LLtXJFMTwjfmHBi1a+' +
        'yrAYFsPzcU+KizJnqvjCghe/+YtHP6dtUof4Ba5Z9sm5dZx4G3jx6' +
        '1V80xkNXwCZ3fCM+IUFL1r5QhZNS56R+B4QvzhzZh9SoD6ysvI/0f' +
        'idHP9kh99fpYlvt+aXSH73Gp7xypcmvlR4id+15HtUftFFgJcEufA' +
        '7NM9Vv570O7VWrbMbnkF58atIMn8RJ88lt8nFDlr5sozqF6Z8LQhL' +
        'MKvhWa/Q4tfKi9umjuqjxW9uzDq74RnrbxClbOVVfJszlKQSxZppy' +
        'TP1Bwv80sS3LjYf80tNnnf5vdIqbIdnrL+IYhbDs+wiTnFraOJLff' +
        'NMfiM9rqqPML/eRvXR4vfm8XEW8cU9XxRcDM9Yf4N2ylZek+eD4Bd' +
        'nzl7tVcyPXQnemzxjftVlv0szPJcrfwTXYQnsNXmmrXy1rWTanBT/' +
        'xzvF5+9RDc/oXtBfr+L70NmL+S3N+yaXHZ5DTv8DPDjk1D8gfnHmD' +
        'BLMZYfnXQnmMKoffPxnQR7/FXVUn/x/gviliO/pYz+NuPh9bHim8l' +
        'uW1MdieMbJM83wHLSTNu/hlyK+mN+0iw+phmc8bXT95C/tK76A59V' +
        'jv8jCL6x8uSTPNPEN2kmbqfxSN5lEQ/rwmWWTOvIfzuD36Fe+CD3y' +
        'Oc2zAcmzL8Nz5Ilq4BTze4nCL6TQXitXSQfDL35d9gl9/AHKS/6KU' +
        '7+gJs90fimG55SkP93DL6NthOB19S3iN4MMk+h2V+OnWHyHzM+ofx' +
        'uZ4ot6vujekOB/ZJkWxG0jSJ4Rv0h88ZNbGga47PAMykv+uq/9zr4' +
        '7PEPyvIdfzz45XvlFF3MiV/C0EZVf9h2ed/mliC/+3p6sGwhh+Ezb' +
        '4bk2Nm+H3we0UX387VW30piGZyS+147/O/Jv75kJ2rQglV/2aaNYb' +
        '/zi71Xv+DfQ+pe6wzO6TuOXtk8OlV+cPJN/mo6PF5BWZ/INpJ6J9i' +
        'q+kZ5FLmF19sYvi/j6nV9kbA5iHQ+kfcDKF7/VCvWP8Q7PTH7xtBH' +
        'ml+a58uWWBOVFAwvoy2HrDBbfzp01bxDqGfkY1UctJBzxkf/F67Qg' +
        'Ut6gnfwZ4I27Rf51ir35Y+47POMnKUj6xNe0IFLeIDJ/3qLuk4OvI' +
        '37V6U58hTpthPllT56pbd+mVBnAK4827rKTJDFkXscSzMbv3lH966' +
        'd+GT9JSugdquEZT/vuwsuYNsL8MpPnOh9tX+mFGIA3k+KfhPWvmuK' +
        '/ou3wjC6S/PrY4Rk/FeI3/vTuk2PDM9bf6JPVTPEN2WkkRZyoxtOC' +
        'VLcVi/j6nV/85rnDC4F3mAxCo0YefifGPib/aiX/mVd+IWiG5zLZD' +
        '5jwalq+geB12map/KJpI0XRr+FHttdu+9rhGTJn6nO2VqxIc36Z+V' +
        'o4kPham4bxFV47PNcWPthFOPGTgsSPWV6LJr5UfmnRUVC/h9+dnm/' +
        '4TuXZl+cK6y8tAF40sJBx+Qm6cjP4m9QdnjG/N07/CnOHZ5Z/1C4F' +
        'F+q9jurjni+18ux11Jc6Z0QNgBcNLETtlKAhhVb55tfrPle+3nZGS' +
        'AyeFqQOLKQER2PxvUIZQYIFL3VaEPOLKs++xPeA9HffshWNX+omk+' +
        'dCf45H9Xf53TstiPkdHVqjTRtRJRhWvtRR/a5msjREHfXF+psY84f' +
        's04KQPGN4QXnjI//A1+/O1uLCZWekv42y53x3eIbkmfwNnvi76Ks/' +
        '8vVaWnkn82wyyJy9w7t3VB+1jSCybi2yj+pTPc84qNNGDQlF+Dox5' +
        '0vZ4ZnO794dnk9+8Be+/mkgrCz75OTt9H8BZPZRfea0UdDOwCCaFq' +
        'RanfE+OXiTWIJf35tM3jzu5Y8DwEubFsQNX68B8NJG9W/t9H/Djo5' +
        '5bRuhSDxg/xUnfveO6lNHfVNT/gyujLtf0kb1x5xEfyT07L/y2uFZ' +
        'KSEma86e+ZfXGtWnrHxpv4Vm1bwfd3iGQK1eEF9InmmvVZUzyb7Dc' +
        '2TYb+EHR178TV+j+ugBROdov31yFLFm/ITyKCNzVD/9EinBtOMVbp' +
        'z+VbhYE5Xla4fnqpuptH9dcsgUlx2e0YOVYTH7jupTc+bbITXMUX0' +
        'swdRN6tAVYp861k0mzx3ZHQsKPfK511F9WPn6gjcpONrrqD66N+5U' +
        'NEvy/Gb59e/ZZPvuk5MU90dBqPn7ejs8Cz+bTKwdnoWfTfYaOzyLc' +
        'zbZAe3w7PVsMrL+fORzf+3wTFPhyBPVXHZ4Zkme3zy/rGeT8d4nh3' +
        'WHZ/RDUxT/uj/PJhNrh2fhZ5OJtcOz4LPJ+B4MKniHZ8Fnk4m2w7O' +
        'vTSZ9ie8b5Jf32WTc9snxdTZZVxPZlOlq/FTkHZ79fzYZN/H1ww7P' +
        'Qs8m4yq+fAzP/j2bjOvBoAx+OR4M6scdnlnEN+H0G+WX28GgmF9f4' +
        'otqVuw7PKPkOchTvDrAs8l4HgwqeIdn4WeTHcwOz2zJM8+zyUQ7GB' +
        'Tze9AHgwre4Zm9cvU28Mv7YFBvOzzjthFtVB8nz1h8IXkWeYdnMc4' +
        'm43kwqPAdnn2cTebrYFDaDs9CzibjucOzsLPJuIsvk1++OzwL22TS' +
        'l/i+KX69J8+vscMztW1EbC9JEV+l5DfwXSLv8Mz7YFD+Ozy/7tlkf' +
        'trhmUflits+OWLu8Ezjl118X/9gUL47PDP5xeIb/wb59ZY8v84Ozy' +
        'C+LC02tPL1w9lkPA8G5WJ49vPZZKLt8MwY1edYueJ7MOiB7vDsNXn' +
        'mKL6vv8Mz+9lkLMkzEt83wi/XyhXPHZ5pmzz7hFfoDs8shmfelSu+' +
        'Z5PxbBtRd3gW4WwyIW0jH4bngzubjHvbyOsOzyJUrni1jd4wv9wqV' +
        '7zbRp7FL57TJ/vjaNr3gM4m49k28mV4FnA2GdfKFc+2EeaXd9sI88' +
        'utbcRlh+eDPpvsoCtXB9c2QvCKzy/vthHml2fbSPjZZDzbRl53eOZ' +
        'XueJ7NhnPthHml3fbiMPZZF6TZ95tIx87PB/02WQCKlccxff1zybj' +
        'Ir5vmF9ubSPML++DQTG/3MTX6w7P/CpXPNtGtB2eBVSuuLaNML882' +
        '0aYX95tI8wvt7aR1x2exalccRTf169c+bFtFP8G+aUkz7zbRnwMz/' +
        '45m4xn2+h1DM/82kZ7Dc8CKle820bezibjUrni3TbyYXh+nypXHNt' +
        'GLJUr8fn1r+EZ88v1YFDxDc/7jeq/ecMzY1T/bTM8t4hoeOYlvixn' +
        'k3GtXAkyPFPhjROfXxENz1yS54DhOWB4frcMz2+KX5ENzzwqVwHDc' +
        '8Dw7D/Ds+DKFa+20Zvhl6fhWXjlipv4+sHwLLRyJZ7hWWjlSjTDs+' +
        'DKlWiGZ8GVq4MwPFPhFZ9fvxieeVWuAobngOH5fTI8U/mNPSUSv34' +
        'xPHMf1acnz6IZngWP6otmeBY6qi+i4VngqL5ohmcuo/oHZ3imiq+o' +
        '/Prb8CyschUwPAcMz++04ZkqvuLwe3CGZ35to4DhOWB4fvcNz1TxF' +
        'Y9fP43q+0yeebaNhBuehY7qi2d4FjqqL5rhWfxR/ffJ8CwyvwHDc8' +
        'DwHDA8+9HwTE2exeaXZ9vI66j+22V4FjyqL5rhWeiovmiGZ/FH9d9' +
        'pw3Oc+Py+W4ZnoZUr8QzPQitXohmeBVeuAoZn7pUriJgD5jdgeA4Y' +
        'ngOGZ/8ansXm94BG9UUzPAsd1RfP8Cx0VF80w7PgUX3RDM/vUOWKC' +
        'u+B8hswPAcMzwHDs98Nz1R+ow+a34Dh+cAMz13FTWiDoJyo1YDh+c' +
        'tjeH5T/L69hmeho/riGZ69jeqfPva3+HiyN254Fj6qL5bhWXDlSjT' +
        'DM9/K1YHyGzA8H7ThGW/QlxO5EjA8f3kMz1TxPVh+/TuqL5rhWeio' +
        'Pt+2kaGcPIFUr9QJqFyB7Abhg319HAz6pgzPgkf1RWsbCR7VF83wv' +
        'G/lCuCNOnkg/AYMz1zaRgWJHyPK8hNeCTA8q9Od8L3lqUNM8c0OX9' +
        'r/YN+A4fndNDxTxfcA+Q0YnvdrG0Vf/RGirDp3yr+G54jzxEnlpz/' +
        '6m4Dh+b1pG2F+qeJ7oPy+vYZnoaP6/jU8Y36J/NlPo/po5YueNvz8' +
        '9w7O8Cx8VD9geBY6qs8U34PgN2B45mh4Dj7xdwg0/xqe23Kr0dOqE' +
        'h0Bw/P7Z3gWg1+/jOq/74ZnxG/wiZ/51/CcHb5IFq84i+/tqzO4mp' +
        '1x5VnA8Pw2G56pybPf+X1bDM9CK1fiGZ6bVYiX6Cs/5Gt4Pn3spyx' +
        'tI1j2+jrELfPGHE18m1JlzIc1JJa8VuVKLMOz8MqVaIZnoZUrjuJ7' +
        'IPwGDM/cDM9k8Tn+Ja+2UWdRI/rGiIvfR+JbnjLIfnAqDkWclSq+i' +
        'hgTun776nPInBuTJehLWYQhYHimwjt3xz379LHJZNJpevRaI4punQ' +
        'mFQW+2mh0obJY+iF5rP4rh4WG/G56p8Eb6ld+31/AsdFT/4AzP3Sq' +
        '9d373axthfgn99YivL37Zk2esvPIoI1r8NiZhfvX+HNUXy/AsuHLF' +
        'Ir5z0yNOpxMwHBwcbGxs7Hc4B/pcKAb7R1AMDbhHR6ZQjLmnUYyP3' +
        'oFwuVxTU1P+GtVniq//+Q0YnrkZnmvy7uDmEa8dnlHbF9s2UPJMIx' +
        'd1jtgrV6eO/rVHeWdw5epmyLfRtwcMzwjetrY2nU43NDQEN+x2++j' +
        'oqN06jMJhc6Lo63VBDPWPDQ+Mo3AOTqBwDU2OjY3NTLnhGeCPgL8q' +
        'V1R4D5TfgOGZxfAM2CJYdHINr7PJcqJW0Td6NTyHezq/4ee+xy6+t' +
        '6/NwsNOHf0JrjxnXHnGRXy/JIZnmUym0WjMZrPNZmttbe3r69Pr9c' +
        'CyxdgPYTUNoLCZB1EgilH020dQDDjcIyMjVqsVKM67chwU3L+VK4A' +
        '3wn/8vmHDs9BRffEMz3tH9fMTXiFe+O7wjGyTaPHLNDyj4pUq0cEu' +
        'vmTmHG1EbV+svBmXn77NhmfBo/rcxbe1TVNT26TR9mh1Rgid3qTvN' +
        'ncbLBCGHqvBaO4xWeCzo3/QaOqFh1ntgzqD1WwbgLDYhk29w2a70+' +
        'JwWewjVofbPuw09/XDOnjIfcc98Whi8qnLanpNw/MB8hswPHPe4Tn' +
        '6ym9T+eV+Ntlu8Zkhvm05VaRtMquCu/ieOvKTXXi/xIbnxqb2hsa2' +
        'zq5uABbA9Ipwt87kdk1YTHa4brH2mcx2k9mh0ZtN1n4Is3XIaBvaR' +
        'djhAngtfUPWfqet3z04NDU69mhq+jn8N/dL5cqP/L51hmeho/qi7f' +
        'AcfOJnRPP3+M/4juqTi9/8Oqb4qhL72CpXe1e+t85+Rx5lxEvmxiS' +
        'J30b1xTI8Cx7Vp8L7zN3X3qGTK9SgvHCjXF2DKO7SGCCoFBPR1TPz' +
        'dH6wz9Xa3GWz9Nttg4Yem1Zn6jE7jJY+iB7rIEK4p3fYaHearH29f' +
        'cO9fU6TZdBqcw0777pHHzpd96anno0ODD24+0SA4Zkqvv7k96ANz0' +
        'IrV6IZnnmN6gO5QE3U5R/yMjx3FjbgxS9zn5ysW4u7i18fyXNTmoJ' +
        'W7ILk+UtreNbkx0tLVXX1LeqKWoAXsAUVbmvXwu2OTj0EAhnJMYSx' +
        'w7LwbPXu2COjxmbU2U3ddnNPn0Fn6+lxGIx9BpO92+IwWPu6bf0Qh' +
        't4ByK4BXptjGPi1WJ19/RODQ9NDg1P9feOTE48nJx9NTj0Y6zXyMj' +
        'xTxTfihD/5DRieue/wjNjxwi+r+KrThmn8Ukd90eI369YCS/KsiDV' +
        'T4f2SG57zCyTNLZ0ArExeDjeAUEiVAWHQYriIQQaKUVg7HTPT8wsP' +
        'VqaHH/a0W7qaDQ6L09Td16PvNRjs+h6bztSrN9t1FiL0VsfAoLvXP' +
        'mSzDdvtLofdbe91A7nO4Tt3pp9bzEOjo/fuDva2SDIFtI0i/Mfvmz' +
        'E8Cx3VF8/w7HtUX6/Qks3fuG1ehmdY9hLtoWM/9Tqqj56T4Hev+EL' +
        'CfCv0uyS/O54N3PZlim/pLd3JI3/13hueLRaLqqwKsAXxBWYhPS4u' +
        'kVdU1pktDrjY0toFgUAGihHI9raBx8PP1x5sLdxbcWiHtI3GAcuoS' +
        'd/XrbHp9Tat3qYzWLVGm8ZEhNbcO9g3arEMmkz99t4R4NdqcQLCwK' +
        '/N6pwYf+R0Tg07xzvLSnhVrqji6zd+A4ZnPjs84+ZRVfYEL8NzxMX' +
        'v7/LL2GSSyi8WX9I5ef0F8lzdvkZanRtTpF53eAZ44V6C3/fd8Bwb' +
        'G1tT21Rd06hUVaL8GaKpuQNuw2cIGsUQjqb+Gdf80uTa/OTKvcGnA' +
        '7qRfr2zp9Pe3WXTd1l1Oqu226LpsWp6LF1GK4SlZwDU2ah3wGe4bT' +
        'MNO6wjg46xsdEH9XWdz5/Mjrinxsbvjrgn+baNEL/hr81vwPAs4Gy' +
        'y/PiXe/j1iG9e7KYv32Pkxd9E0wokvx/91Os+ObvOKw+/yngbvoIN' +
        'z1T9ZSbPN898C90rvaV9vw3PZWVlVVVVWp0RNBcoBlQB5PqGVlgLN' +
        'zS2gRxD0BCGsNX0rUxsvnAuPh2cW7m7ddfxyNY+0N1sNXT0UhH2UE' +
        'yEtt3co7UbNL1wQ99ptRoHHVZXr3l4wD4K4ut23wX9hSUwfObbNvI' +
        'nvwdkeBY6qi+a4Vnw2WSw7PWF6j78Xvg+uuJ1h2df396crsDTRo0p' +
        'pbs152QJTp4zLj/B19PDHotmeH5Tlavi4uLq6mqQWkiYISqr6quqG' +
        'wBhCMAZKMYBUOMwqKxzQytLY+uzw4szzsUH/c+GDeNNyk5zR5+xyw' +
        'Gc9mh7DToil9Z3WyC0LWaTps+qH7QZBoZ6R6dGHz6Yfn538qnF2G+' +
        '3DlutQ5Bdj48/sPe7Rifu8WoboeT5NfkNGJ6F7fCMis/co7OwgcZv' +
        'e14tc5M6yJy9wJuhpI36njr6E5bXSr/0+L03PHd0dBQVFclkMuAXI' +
        'Qz8UhFGtwFkYBaEGPQXrYItlX0ro1sb058AwksTmwtja89c84Cwoc' +
        'Ha3WjWNZm0rUYITRsZQ6Yxd+/0vZEnL+4vzz1ZeTj1bMgxZuq26zU' +
        'Wc08f8GuzDY9NPBx2TQ8OT/KtXIX7hV/RDM9CR/VFMzxzP5sM588o' +
        'uO+T05FfR+bPPnZ4Dj/36/hpw0N/zeuoPqx8fcFbH1/wZg3PgitXv' +
        'MS3sLAwNzdXqVSWq2sgaAhD4BtIjmvrmpEWm6v6lkY3gd/F0bU59+' +
        'qLkeXF8fXHQ7PtKm27WqetMfY0W22d/QMGp8sy5rJNzEwuPRmde3F' +
        'nafX59tLTtUnXPbPO3tGi13eZDXqLydRvNg8MOadG3PcdfWPu0Qdc' +
        'DM9U8b3lV34Dhmf/7vDM5WwywTs8Y9sVitJw/ZfH8Jyfn69QKFQqV' +
        'Vl5NQRCmEoxVY4RvwjhnkrHvHtj4+5ny5NbwO+TgTlA+PnwgrXBYW' +
        '8eGOhyjRqn7joePnXNvhhfXJhaeTG18nx84enY/CP387H+KXt3v6H' +
        'L3E2Ib69eayLSbL2txzjQPzA5MDhlsbsbSzK5V65ek9+A4fmAzibj' +
        'fTCo0B2ehZ9N9i4bnpOTkzMzM3NycmAJrCqrgqBSjJbD6AZOoZuaO' +
        '1AJS1dhnRlZWb//6dajr2/c+2TWtQwp9Jx7ZWZofnZ44YVzcd69uD' +
        'i2vDy2sjK+ujqxdrf/6bOxhZmJxam+e72afn1Lj6Hd2KM1mQw2nca' +
        'o1VoMBnuXxmo0DQ067/cPAQL39k+eKeL7uvz61/AsdFRfNMOz4FF9' +
        '3geDUgzPIp1NJpbhWfCovr8MzzExMXV1dWVlZdXV1UpVJQpEMTWdR' +
        'hRDoIsQ8IAWhX7S9viZe3nlzsu1ex+DBC+MrUMuvTy+sTJGxJonNn' +
        'biqXNuYXINEHaZxgzNZn1Tt7HTbNJbtJ0G0F/gF/JnfbdDo+11DMA' +
        'S+IHFYuFeuXodfgOGZ95tI6Fnk/E+GFToDs9fEsOzRCLJyMgoLy+H' +
        'VbBCWQFBRZiaTmOQcXRVWsYsD6ftTwHhpamtZ85FAmH36rxzecm1s' +
        'uxaXxvZ2BzZ3HJvbY9ufzxGMD7jXhwzTZtbe/UNPYaWHrPGajHYut' +
        'r1ZqNdAxTrbYaegY4OW49pxGIbn5qacrlcHCtXr8tvwPAs9Gyy19/' +
        'h+cDPJntPDc8REREymaygoADyZ0BYrlBDIISpuTRchNuw+G1u6USj' +
        'Rn39zqHhUWfP1BP3wv3BFzNjqyDBs+6VxfENEN/1ye3NiVebY9tA7' +
        'oZzc2NofX1wbX1gFfidtNw31tt0dT2mVqul0wr6a9AY9Rpjv8PZ1q' +
        'JpbtJpdfb2dqtGN6DVD46Ojjocju7ubo7i+5r88jY8C61ciWZ4Fl6' +
        '54ii+r73Ds/DKlWg7PAutXIlgeL544VJhQXFRgVRaoihXVdVKG+tK' +
        'm+pKGqoL6qvzapuKm3VKva2q190+9sIxv9S3vGRf/MT98dfGv77Vv' +
        '7nhWH95/9XaxCZI7YpzbWtk+2P3xy+d2+v9a2v9a9vul1sTWwuu5R' +
        'ejCwvTS4sPVubuL7Rqulu69M2duqYObWO7pqm1q6lV09jS1dbZ3dl' +
        'l6NL06HTW7u7enh4HqkXbrcPOwQmLycGlciWY34Dh2b9nk/Hd4XmX' +
        'X27i64ezyd4LwzMkz4jfwnyJpFhepqzsqtFBGBrNw3rXw8GnCxPLS' +
        'xPLc8757emX33j0jVfjr1YGVrecm5tDm6uOlY2B9a2726vjG0uuZR' +
        'q/ENuurY3RreURUOSlhYmlx+7nU/13AVscLe3a5jZNcxt81gK/HZ3' +
        'dvviF1JrF8EyF9+Zxofz6xfAsdFRfNMOz4FF93m0jPjs8e02eeZ9N' +
        'JtYOz+KP6rPsk3PhfFhBflFBXklxYalSrh6xjU4N3nk0+mx2en5+a' +
        'nF2bOG5a/bZ0POHtkez/S8Whpc2xze/ce8bn0x8+nJk+2uTn61Nri' +
        '+PrgGka26C31cjr7aHt4Br4HdreAtWvuuj6ytj6/OjCxOmKVODrbG' +
        'lEwJkF8htade1dughAN72Dj3iV6u1+OLXa/Ic/tr8BgzPAgzPfHd4' +
        'Fli54tk2+hLu8JyTcTsvtyAvh0BYJlUVZpSoitRNFW2GFqNDNzjhm' +
        'J4dn1t/uL3xYHt5cmXetbDkXl1xr74YmJ8fmN8Y21h0L0HAFeAUlr' +
        'oANfC7ObgF/G4OboBSw0XIoueGF4fbnK2S9rpGIhqagWJAWIvghcy' +
        'Zyi/RAu5xGI19xJiSdXh4YJzJLzV5psIrkN+A4Zmn4Zl32wjzy7Nt' +
        'JPxssvfd8Iz2yalSyHJz8nOyCIRhCSyXqEvyZPmZxUXZpeUllfVlz' +
        'a2V7W0Vnc/GXzwaegZavHJnfXV6bW5kAZLqpdHl50OzcAP4BV0mis' +
        'yuLUitgdz1/g2C32GC6JdjL5eGVtyt7o7irvqGtobG9samjuaWrpZ' +
        'WTVu7DpHb1tbd3m7o7DRqNGaiBG2wI357LUPAr6mnl0vlCuC9wZNf' +
        '3oZnoaP6ohmehY/q820bcd7hmf1sMh6VK55tI+GGZ6Gj+qIZnjG/n' +
        'VXq7KzcrNt5gDCk0KUSlaRYUVIog5AWqZQStUpSCSDXKRpqZY36hh' +
        '6ncfSO495z99zag62tRy8f25/MDr1YHV3bmCBWu+vDGxtD61tDm8T' +
        '6F+B1bm87twFhuPhQ92iwerCpvrOxsQuiqUnT3KxtadG1tuoh6Pz2' +
        '2IwmYistr/z6qlwJ5DdgeOZveOa1wzNb8syzbST8bLL3y/CMN5kEf' +
        'rMyc26n5wDChfmSwmKJTF5ONHzLquWlZcCyXFpWrqipr2wGkJWF5b' +
        'I8lTK/rKtOO2IdH3dM37c8eD4wsza2vjm5Den02vDaGvDr3FzrXwN' +
        '4X7leAssAMlC82rc6a5xtbdRBtDRod6NRA4H47ejoAX51ejPw22Ps' +
        'BYSB36H+Mcwvu/i+Pr+820ZCR/VFMzwLHtUXzfCM+eVreObbNhJue' +
        'BY6qi/CDs/62nLEb2YGLINLiqSyghIpUFwilckUKoWyAiiWliilxY' +
        'rSEmVlWX2Vqk5RUl6lrK8tb5LkKe4aHzzrmwV+t6a218Y2VjyNpA3' +
        'XxsrA6iv3y49HX20MbkB8PPLqs7FPP3F/3N7UDdHWqG9t0LXUa5rq' +
        'uiAaazs7Wvfw222wdht7DSa7zTxI45ddfHnx+44anoVXrsQyPAuvX' +
        'IlmeBZauRLN8MzxbDL5tY9SU9JBfGH9W1QgLZBIIAqlUgC5RKYolS' +
        'uBYlBkALlMWQmAK2RqCEmRvEpdp5JXLI+sQPK8Pr4x0zf78s6rzx5' +
        '+/ZHlydLw0rJzedW1vjmyuT26ve1+SdS1YGk8vPFgYkbfZm2s7Gyr' +
        '1zZVdzRUd3Q0d3e0GECU21v0gDDRQtKb9aC/nh0s7dbhfvuIQW9hM' +
        'TxTxfc6X34DhueA4fldMzxTj1dA/IL45mYXQv6cX1JC8ltaWiwjEJ' +
        'Z4EAaQVeUVRaDKcsKjVVwihwRbJlUBqivuNU+sAssrY+vrUxuwIob' +
        'P65NbGxObgDbk1eujhJFy3bm+/GRrzHHX0GptrdI0VHRoW43dXbam' +
        '2k4qv5pdfon1L+Z338oVL34PelRfNMOz8FF9sQzPmN+31/AsdFRfN' +
        'MMzy9lkyUmpGWnZ2Zn5+bnFecXFgDAEkuDiUjkgDFEoKVWqKwFkub' +
        'IMQipTKFTlQPNS/xKAuTqyCuILC+HnQ7OfPf/aHdu9SfP0fcfDmZG' +
        '51em1zXvbm3e2Vsc3FkdWnozOzUwuPXA9NbU76pQtrbU6fbu5pV7b' +
        'Bvw2d+/l14747et1devMLMkzVXz58RswPAcMz++a4Zl5MGhSYkpaS' +
        'iYsgXOyCvILiyEKikpgCUwshCWliOLcwmLgV1FeIYV0WlUOooykeW' +
        '1gFTJkwuc8tT3vWnjuevHcPWdpszepWrtq9XZN/2TfnadjswvTS8t' +
        '319fubdwdeDw3vTJ/d81lmmxWdwHCbXV6TZvJK78G6y6/XCpXAvgN' +
        'GJ4Dhud3y/DMPJssIT4pOTEdECay6LxiiLyCIqAYEIaEuVhSCpGbX' +
        '1gKylumBmwRvyDQ6pqareGtT8Y+/nTq0yXX8vqdzZnR+e5GY0N5S4' +
        'W8tkJRU11W31TdbmgzDVlG7o88nLnzYvHexouplaej8/cGnwzo3e3' +
        'V+uaKTk1LT1ujfi+/1m4LwS86Cg3xu2/liju/fqlciWZ4Fj6qL5bh' +
        'WfiovmiGZ+Gj+iIZngWcTYb4jYtNSIxPBYTTU7NgFZyXUwSJdEFeS' +
        'X6BpKBQWlhUChQD0UCx1JNIA7+gyJBjt2u1r1wff+wm+J0bXFieXJ' +
        'nqvaPMLysrraytaqxU15YpK5VyNayUG2pbOtt03RrLU+fcs5E5QHj' +
        '10UtIpG2d/fWq1pYaLQu/DptTrzVxFF8e/AYMzwHD8ztoeJYw+I2J' +
        'jouPTQaEU5IycrIKc7OL8nKKEcKF+RKiKF0ohYwaJBg+QwC/kFrnF' +
        '0smxsdeDb3cGFjfdG2tuNfuWu91VumUheUVZTVV1Q0VNXUg0GVVVa' +
        'qKqjJ1JYSqrMpY1+s2TD0YePp8fPHF1LLbOtlV14P57Wzbn1928eX' +
        'C7wGN6otmeBY+qi+W4Vn4qL5ohmfBo/qiGZ69jeozxRfxGxeTlBCX' +
        'AhKcC/zuIlyCES4qlmVm5+bkEQtk4BfghXCNTWz1by73rqz2r2xPv' +
        '+pr6Zfeltepm+trW6o88CqrKxVVFcrqqvLq6sq6uqq6hnalzlBj7S' +
        'zr7qw0jNvuPna/GDKNdTUZ9+WXxfBMhffaMW78BgzPAcPzu2l4pvF' +
        'bBOvfhIQLFy7A5+jo6PS027czsnKy80B/EbmEKSsfPkvzc6TZt4uK' +
        '8uVE5Cnys0vHXPfmHqyszbx8cX+5t2ewStlQWqRWSCrLFDUQSlWVq' +
        'qxaWV6tUtcoKquUVdUQKlVtWVldRUVjdXVLfX1HU5MGmSeRnVKjMX' +
        'd09DQ0dGq1xF6UcJfZbLbb7ePj4/u2jTjyGzA8BwzP77ThmSa+wO/' +
        'JkyevXr0aERGRlZWVmpIOCGdl5qCJJA+8koI8ALkUFDkro7C4QCEt' +
        'LpMUqQpyZEN944uP1x9PzPb3uJqqO1SSKlmxWl5SUVpSjvlVlFUBw' +
        'oqKGia/dXXtjY1dyAIN/EJ0dZk6O40Ask5ntdtdVutQb29vQ0MDe+' +
        'WKCi8/ft9Ww7PwUX2xDM/CR/VFMzwLHdUXzfDMd1SfyW+RJ4KCgqK' +
        'ioiIjI5trKhITklOS0zLSM7OzclEhyxMlwC9QnJNZXFKolEnUQKhc' +
        'UjncP7H8dHPY6q5WNZYWlAG/5fJapbQKAFfJqxXKSkAY8UsgXFkFA' +
        'fCWl9djfkFqkfIihOEz8AsSjEYIAeeuri6QYI6VK4D36rEgXslzwP' +
        'AcMDy/W4ZnJr/l5eWA8K1bt8LDw2Nj4hPikwBhyKKzM/NzswtRAML' +
        'FhTKgGJQX8IRoqu98eG/m8Z1ZfbtZmq8qyVWoFXU16ma1slZRWqmU' +
        'VQG/HoQrMcJKdSXmt6qquaamFVJoQBhNJLW3G1D+DNHd3Ws09oEKa' +
        'zQajm0jLvz6d1Q/YHgOGJ7FNzzTkmeIwvOHQ0NDr3k+IsKjoqNiAW' +
        'FIpBHCKLJu50uKFaUSVUmRvCC3tDBP1qPvXV7Ysugddermkly5tLC' +
        'sQllfoapTyark0gqlvEKuIAJthQcII4oBXrW6AfELElxb2wYqDBTD' +
        'lwAvYAtrYVBhuNHb6+zrc4P+chdfTvy+HYZn4ZUrsQzPwitXohmeh' +
        'VauRDM8C65ccRdfxG9YWBgsga9fv37jxs3w8IiY6LikxBRUy8rMIK' +
        'aDb6fnALnSEiWRRWcVZt8uMnbbQZQgW5YUqIrz5dIilaykHD5Dgg2' +
        'PRGMOHoT37GaprqiDqKisr6xqqKpurK5pqqltrq1rqatvbW4hpvsh' +
        '0AgDfAl3cTE8U8WXhd+A4TlgeH4/DM9U8UX8FpwjJPgK8XEVEI6Mj' +
        'IqPT0ALYUAYTxdCFp2dWZCXU3w7Pbe1uQskODezGOAtLS6TALaFMt' +
        'BoYBz4lZeWQyhk5YhfvKc0jV+EMERjUwdQDHc1NLZrtEb4EuDt7DJ' +
        'wMTxTxXcfft9Ww7PwUX2xDM/CR/VFMzwLHdUXrW0keFSfXXwRv6dO' +
        'nbpx48alS5evXbseEREZFxefnExIMEIYUuicrIKMtGwgtzBfmp6aX' +
        'a6qlknLgGX4DNkyYAvwqhSVcB3BKy8tA34hlHK1SkGMH0IgeBG/GG' +
        'EIuA3MtnfoQXxBi0G47Y5h7p4rDO++/AYMzwHD87tueGaKL0T+ucM' +
        'ffvhhTEwMrIJBhS9eDEtISIRcGtbCgDAsh9NSMoFfyKVROQso9lS0' +
        '4HMpREkRiC8k2AoU6HapRCmTqhDCiF/qySzocDR0PmlHpx6UuqGxT' +
        'aPtaWvXyuTl3A3PVPH1xW/A8BwwPL83hmem+ObvREhISFRUVHBwcE' +
        'ZGxq1b4ZcvX8nIuJ2bk5+clEq0hlOJXBq0eKc7LKXOKxG7dhRLgVw' +
        'IjLNMolSUlqvkFWWKSgi8FgaE1RW1+FjSUllZt8FSV98CLMOXff1O' +
        'XuKL+b3Cwu8bNTwLH9UXy/AsfFRfNMOz0FH998zw7FV8URw7dgwQP' +
        'nv27PXr18+cORMWdikmJjY09ByocFJiCqyI0aQhai0BxTn5+bkFBR' +
        'B5hYWI5aLCEiI8uiwpkpUSCKsAYaVMrSKK0uT5LIAw9aDhxqZ20Nz' +
        'Oru5e+yDcMJp6uRueqeLrld+A4TlgeH6fDM80fjG8eecOQQQdCgoL' +
        'CwsKCgoPD4+Pj4+Ojrl+/UZsbFxcbAKiGIQYEmlUl87IyYa4nZubl' +
        'ZubnZdH4JxfmJ9XWJBfVJQvKS6QlhSWSosV8hKlEpbJ0rJSuRJCri' +
        'xTqMpV5RVl6sryiip1ZTV8WVvf2NLWAbebW9vZd3j2Jb5s/L5lhmf' +
        'ho/piGZ6Fj+qLZngWOqr/rhuefSXPAG9u6KGvfnD41OkTH3zwwc2b' +
        'N094PmAhHBkJaXU0MekQm4A8WiDEkE6n3M6ASM28nZaVeTs7GyIzJ' +
        'ycbYAaSIcfOLQaKJQWlpUVymYdiSakcQipTEJvjqcqVZWpEcXunpq' +
        '6hCSKvoIjjPjlexZfJr2iGZ+GVK9EMz4IrV6IZnoVWrkQzPItfuWI' +
        'XXya/EB8dO3Ly1HFYBd+6devatWvHj5+4eZPwZyF3B/JogRDDojg+' +
        'IxkiKSMlKT0tOYPoGEMQ9WpAOKsgL7uwKLe4OI9AWFYgkxfK0W4AG' +
        'GEkxEAx2pCnpq7BZu8TXLkCeC9/xMpvwPAcMDy/+4ZnX+KL+YXICT' +
        '105OgHhw4dunDhQmRk5LVrhLkDKMYIx8clAsUxqQkQsWmJCWlJCak' +
        'gy54BiLR0jxjn5WTmF2QXFeYUS3Il0jxpaZ4c7+lBQ7iyuhZuREbH' +
        'ct8nx6v4euf3TRiehY/qi2V4Fj6qL5rhWeiovmiG57enckWDFyI79' +
        'FDW2UNHjhwBhK9cuXr1KjB849bNiMgIMpEGhKNT4lHEpSTEE4Kckp' +
        'QKH4R9OsuDcH5WISBcklMiySmV5spQmRoQLpHKpDv70wK5sOblvsO' +
        'zL34BXhq/AcNzwPD8Xhqe9xXf7B1+IU6fPn3W8wEaDIvisLCwiIiI' +
        'lJSUmyirDg8HgY6Ojo6NjY2Pj09MTExKSkoDDU5Ph1Q6Ozs7Ly+vo' +
        'KCguLi4pKREIpHAl1lZWUqlMjc3V61WS6VSL2eT8WwbYX4vMfkNGJ' +
        '4Dhuf3zvDstXLFFF8UmZ4AVAHh0NDQqKioc+fOnTp1ClCN9nxgcpO' +
        'Tk1M9H2meD0A4IyMDKM7MzMzyfADO8Eggt7W1Fchlnsr9OpUrGr8H' +
        'bXgWPqovmuFZ8Ki+aIZnoaP6ohmeBY/qH7ThmYXfbAa/t1GEHHIZu' +
        '4KCgkB5AdsbN25EosK0B+G4uLiEhASq/gK8QC4wm5OTk+f5gHtBc2' +
        'NPHYJA8LIcDLrvqD4zeabzGzA8BwzP76nh2Wvy7Et8EbwQGSGH0j1' +
        'x7NixkydPogYT3AA5hjQ7ODj4zJkzISEhINPnz59HY00g3MA40ui4' +
        '04cwvLzEl0vl6pI3fkUzPAsf1RfN8Cx4VF80w7PQUX3RDM+CR/UPw' +
        'vDMMXnG4ptB4Rci7cyhVE+keCI5mIiknUgMPpRwmoj4ncDw+uL3NS' +
        'tXVH4DhueA4fm9MTwLrlz5El8EbxoFXhq/iTv8UuGl8UtNnvmKL9X' +
        'wTBXfPfwGDM8Bw/P7bnjmUrniIr6I39cRX8GGZya/B2R4Fj6qL5rh' +
        'WfCovmiGZ6Gj+uIZnoWO6otmeC7gJr7M5Jmj+DL5ZRdf7meTsVeuI' +
        'MIwvwHDc8Dw/OUwPPOtXHERX2byzFF8BbeNML//Hzih8gk=');
  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 FindObjTPA(x, y, 8420735, 5, -1, 35, 25, 1, ['ooth', 'Bank Booth'])}
      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 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=');
    TeleHome;
    Wait(RandomRange(300, 500));
    WalkingToBank;
    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;
    CloseBank;
    Wait(RandomRange(400, 600));
    FindMoonBank;
  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;
    HealthChecker;
    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 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 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: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+');
    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,45)then
      Begin
        MMouse(X, Y, 7, 7);
        ClickMouse2(False);
        Wait(RandomRange(300, 321));
        ChooseOption('Fill');
      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);
    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));
  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;
  HealthChecker;
  WalkingToBank;
  FindMoonBank;
  Bank;
  EnergyChecker;
  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.

Now, I can't show you what I changed because for some reason, my sent messages don't save these type of PMs. (I found the setting under Options). If an Admin could somehow either look through Aligndudes PMs or something to get my version of the script, that would be very helpful. I didn't make any changes that he wouldn't be able to figure out, I also fixed up his standards a bit too.

A little bit later, I get another PM from him.


Now, the code he attached is very similar to his first script he sent me.

If UsePouches = ('No') then

I changed UsePouches from a string, to a boolean and made them correct by

if(UsePouches)then

Thinking he would be able to understand that. (Which he should). I also didn't understand the "end else" when he doesn't even need it.

I responded telling him the reason why I changed the code to use booleans, and this is the response I got:

And that was the last message I received from him, and I can't remember what I said exactly in response to that..

So, like I said above, if an Admin could get my PMs to him, that would help give you both sides of the story.

EDIT:
He's released his "Pro" version, and it looks exactly like the script he sent me, with no changes made at all.
Pro: http://villavu.com/forum/showthread.php?t=70335
Lite: http://villavu.com/forum/showthread.php?t=70018

I was helping him aswell via pm's…. That actually hurts me, I had thought I had found a new pupil to teach…but in a way I was being used.

I did some work for him to help him with the Astral crafter, mostly debugging and proposing ideas for fixes. I would say in all ~50 messages were exchanged between us…

I'm going to have another look at the pm's, I'll edit this with what I find that could be along your lines.

E: Well most of them were just asking for clarification on some parameters, general SRL questions, and asking my opinion on what he should do with the full version of the script.

There was a series of pm's though where I fixed a counting function for him(to count current amount of runes) that he had set up completely incorrect. He didn't really say he didn't understand what I did, he just thanked me for the fix.

I am not sure what to think at this point. Reviewing my pm's I didn't get the feeling he had no idea what he was doing. I would like to take a more detailed look at his script (again) to see exactly where he is getting his procedures and functions from, as I have this unneasy feeling that quite a few of them were taken from other scripts.

Wow, I had no idea. That actually pisses me off too. I took his global arrays down to 2, made more local variables, small code changes.

Yes, please do, as I'm intrigued now. Sounds like you had more stuff done with him than I.

It seems to me that he created the body of the script, then he used us to polish it off for him to make it look neat and tidy, especially in areas where we would most certainly be critical.

In all what I did:
*Fixed his Bitmap recognition
*Fixed his counting function
*Mentioned a few bugs that needed to be fixed
*Fixed some parameter errors
*Taught him basic stat counting(such as total runs, astrals made, etc.)

…….I actually am a little pissed. I was completely alright helping him, it's just I had thought he was showing an interest in scripting(which he still is…i hope). I still like his attitude, but it seems to me like we finished off his script for him.

He's PM'd me a couple times but it was just for advise on what I would suggest to take out of his full Astral crafting script to make it into a lite version. Didn't really ask me for help.

Looks like he used you for the base stuff, and me for the cleanup. Wow.

I do feel a little cheated by this….enough to seriously contemplate changing my vote.

I've already requested my vote to be changed, I will not tolerate this kind of behavior.

Application Script , I believe should be self-coded without any editors.
sad story here.

From: P1nky
Application Script , I believe should be self-coded without any editors.
sad story here.

I totally agree with this, I applied with my own written code. I know it was more a reflection script but all my work. I would have posted my first script I made (G.E oak chopper) but I had to much help with that to say it was my own work.

In my eye's there is nothing wrong with asking questions and sorting the code your self. To get other people to change it for you, well that's wrong, your not doing the work, they are. Bottom line I think an application should be the applicants work only, not someone else's.

Haha, kid desperately wants better scripts, ehh? Seems to me.
Good thing I have never thought he is good for members.
His script logic is very basic. Now I know why, he don't understand advanced logic.

Looking back at my application, I'm surprised I even got in. The code looks horrible, and very simple. I think what helped was my attitude around the forums, and was around a bit before I decided to apply for members.

From: Kyle Undefined
Looking back at my application, I'm surprised I even got in. The code look

Lol I believe we all think like this. I was active even back then, but the script I applied with really was junk…

From: Flight
Lol I believe we all think like this. I was active even back then, but the script I applied with really was junk…

This really makes me laugh irl!
Believe it or not I looked back at my application too with this "drama" going on and man … I made some shitty code back then.
Although it was still much better then most of the current ones tbh.

I was either given a cup or two before I applied, or shortly after getting members. I think it was before, which goes to show, people knew of me before I applied.

I have a gut feeling that he is ripping scripts, and I can't shake that feeling.

This is really disappointing. I thought he was actually here to learn, not to leech off of members for an application script. :/ Shouldn't he be given a cup (Not a good one) and then PM'd explaining why he got that cup? I don't think he really deserves to even step foot near members.

My god my application was… Not worthy of members either :p.

http://villavu.com/forum/showthread.php?t=70335
So that script isn't even his?

That's the one he PM'd me, and looks like none of the changes I made are in there. I updated first post with the two scripts he has.