From: ggzz
Post the functions for both scripts.. Post the new script and the old ones that commit.
Doesn't Work:
program new;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
{$i SRL\SRL\Misc\paintsmart.simba}
Const
SRLStats_Username = '--'; // Your SRL Stats Username
SRLStats_Password = '--'; // Your SRL Stats Password
Drink = 'DS'; //AA, MB, DS
StartingAtBank = False; //True if at bank, false otherwise.
LoadsPerLogin = 15; //How Many Loads To Do Per Login!
LoadsTotal = 9999; //How Many Total Lods To Do Per Character!
Profit = 265; //Profit you're making per prechase (GE Price - 3)
Version = '1.00'; //NO TOUCHY!
Var
TDrinks, StartTime, ChatBox: Integer;
Procedure DeclarePlayers;
Var i:integer;
Begin
NumberOfPlayers(1);
CurrentPlayer := 0;
For i := 0 to 1-1 do
Players[i].BoxRewards := ['Gem', 'ithril', 'oal', 'une', 'oins'];
With Players[0] Do
Begin
Name := '---'; //Player username.
Pass := '---'; //Player password.
Active := True;
End;
End;
Procedure PaintReport ; Forward;
//Procedure TextReport ; Forward;
Procedure LoadBitmap;
Begin
ChatBox:= BitmapFromString(519, 142, 'meJztfYvXXEWVL7ru+EQg4RUIL5GHiveOOqg8rmaBLCBEGAiOogiEEGISMEEMCRGS+A0SQoAQYcIjZhFzvhYxgGFAB1S8Oox2eobxPTL99dx171r3L7nVXefUqcfeVXtX1emvA+dbe32r+3SdeuyqU7/az3PIIe1f+9f+tX/tX/tn/D35wx898sxzOi3427+7fs06QdesWrts/dQdWx9eeM0Ni5euEnT1ijXyv/hJfFi0ZKX4LAur6+ou+V9+FSXFh6Vr775l0xZZXnzw1E9vpa2/rb+tv63/LVI/sTbwuuqe2OGtPf+BXYWOCOLrhgd2irYUnXnuJZ+45PKzFiwU/0UHBIkPoh759bzLrhIfJKnPorAsL/+LGsQH+V8v75Ko8KLFX9ar4rbS1t/W39bf1v8WqV/fjf21YddlzfqGf8eWhwRYXHXDcgkKAiMEIux78cedZ/dLqJKIoNoV/7GaddI7Kb8q8nx1649opa2/rb+tv63/LVI/vTb3ul6b2Oflhi83f4Eg4qICBSmPyDLiv2pakOqJADvxX97okixs3WKRvFfW45K6LmqIa6Wtv62/rb+t/61QP6U27LpOcs+Xm78LCkpGEM1JEmWENCF1R5LkRflBftYLq1sk6Tfqt4v/6le3ftVERCtt/W39bf1t/W/6+um1gdet7il5YSEEChIspg/MdA7MTJfUn1afe/3p3kxRXaw+DOoC1U/V7dZPo1t65fVOT34e3tLRi/WAG+2e6PV3Z4puVaCLFi6sr6pk120II7cDdv3VANECem2dquSwMz37Ys3kriowUAU6FfPNAsPPZg0WiyrOw6Mo2W4X0L7qoyicAsavCGOd1sG5VmP0E3rvQUiMsWC85TMEWdJQ/dB0+J6IpA5wyeywtcacR49BhEWIUkK7tHnslq10RPle/bUof+rXm1JXVDhQY7E6Jvb80z/2qa+sWO2CgtQaCexwHttq4nozbz/kkCCJkvrnmkVdeLAdH/P7hdmNwhiUAy5qYwRuN4GgGiNn/fShAtbFgT5GbFBWt022DAyeA4vEU6CfUINTuAvei5e3xotCD3zveAjfTo3ZSaBMu1xm4vYqaVI8Gyl+IKHVEIWG1M2ZCoWTRMNTen90Hi5P4+Z2Ws+7sfLNkUrTg8AFHRSkZkmpoVRVOkPkJn/yBctPuejWUy+57bRF606/fMMZV23+4NX3fOiLWz/8pQc/ct0jH7hs7XGf/LwoNu9vrjz2o4uO/u+XVLjQl/0nbJhWh+uzrglzA3doqoB+VDbugoEg16bUD9UW3KWNMXagwqEC2hpAatAL0EbkuZh5A0w50VErDG1KHhyn0WQKL3kX+ZtgIOBw4itnLd0EoIH53xlqDPqjM7BboC+3PgEK9Z5QyRSyjLI7v/Pok5VL6vVr1qnrjvpo+HkIBxeuOPXS20+/4q7DF6w+/ILbj7hw7REX3Tnn4g1zLt04Z+HmuZdNzf3cveKzQIoTzr9u/nnXHv+pLx539uJjP3bFCBeArmIsUrogZ1srB8LUKoATHTP7oXaDz0vf/KD1od6pBqbQMVOKP9QCfQfvLGEK4CeTLQ2CQnBmoUfP3588ewjYMYLQwaNMmNjovk3n58RoljIMx+hJDtkBULnbBIot8FMslRVSmdw3L85IpCi0fXVoBRidlpXWRd/8Fy9dJUHhlk1blLfSVTcstzopdvX3X7z6tM/dedj5KwQWfPfpH+/+wU/27Pvp3ud+Nr3/F99/4ZfPvPTaD3/8633/9Jvnf9oTACHEByFQCDgYosM5XxLoYOmRQjPuakLcs31ANw5NXBApWB2zV0jwiS6QJvDzvGoOYAhUAOVexvMVbFMIEnX/dPtJh1pK4axE0YRQDUzkCmN4GEeJzEzvRpJ9JKPax6kK1YEDRFj54L1EPZvWykDTlhuqJHViLPTmtPp1UFBxCkvX3i2vS9u0PnCxn3/gsrXi/H/Yecv/4alnd+55/onpF/7+gcclnfCJ69RnAQ0CF557+YCQGj74+XtPuehWAQcnfvqGESJQHnZlJs621/n1JwjxQIGgnw82gaHVJIJCLBH5E1wn/gLR+1jcjbPO1QyEIXvipuozKyTWgDkw2FcIp3GAcgu/0UAP3ehhXTEyLkD6UqlCH5guQPpgBwtHAW4WKAiRQcY4SFxQnBf7uYADAQrvO/em7U98/zvffeaR3fsUCligIHFBigxzF93z4Wu2iRslKGCSAmi0DZlfiQd+t8DBCgpBUYJuiZg9yvWsRYgSYyfC4ZCnesphAG3cYWlcFLfNYuyCt6AoalL6I1K97UsxoSj/D32ThtdHAkWn4mFRfZBqIuXaKkHh6hVrdLCQTYid/LTP3fn+i1e/71M3bP3OUw/s3CtwQW7+QmR4fO9+ITIIUFCqpOL5V3WRQeDCWdfuOP2Ku06+cMW8v7nSxAXsdAdq3a3PkwYK9OWE2xRqfVd5sfLUqqWnUAEx6X3H2cA3/FiVuO9kju9UzYECm7Kbs5seCHcbZO5O4waFCTiipPdtAi0m0vemr+wI5fVuhQ66+425GFTssw4KQlLQwWJ6hAinXnq72M/f94nrvv3Qk/du3yVwQe75O558WogMUpUkQGFX58XvPv3jp374soAGgQtSdpAig8CFuZdNnbZonXRJQhhCBQXlmW/yATJYo15GA6sAc7JygYJeG/Z59l1Skc0zTl3jL4n+6iBXIxqbvNsUycl5rAfIyeVVw4R6s4BlRpRydExRF2Qcsm470HdUs0UtpEsZlGWMm5IUdLCYHoHCiZ+58dCzr9205ZHNWx9VCqJtj37vocemlSpJQIAUGaT1WXwVIoOlTRLihmtrDm44td+pMVlEVXnQEhQhQcDkxM2BNm5rFox2Cy3crD7e6xF5I2QvJcGywMAIWAtGtBkF6iZsDvSsK32AdZC3c76Ngm1TyHTsz4s1s25rGK8DEiJyMkTR9BpiidxE3/uVzfZGxNXujKmWL7XxyuJcSP+cA/JJr3u7oMqGpIOCkhSUTUGCwvrN2755z/a7v71DbvJCZLhvx26lShIig0ABZX0Wn5XIIMt//4VfPv2P/3z65Rvmn/Mlx6zAMzRzvY+Qz5QCwVOrb+op4brKE6zeS7u1JhD2urQLAEokb7yeHutdNwGppIwCbEo9ACcamjO2Ozm1RdCYvVInUJfSNB+AmscAYcEuVbbm6mSod7U7kNEKJUZU58+iUh+p9BoKFHSwEPWIPfykBTetvfu+dZu2bph6UOzwQmSYun+nUiUJXBAig1QlCTiwRAYJCtLQcPoVd80/71oCKCjCnG1mpmlxCnrkMhDydqDkjHYdaMhPHnHAjCj0VWvuvbblvXDQqtMzAKUwlDwDV1Xo7u0gjAYhIMhwKGwwRnyIkjj86qxZ2Z9TGgWeC64fTr7daWweO7l2b8p5/s1JjuuRNDqXigtdaVCxpa8yY6j8e7pNYeEoO7cCi2kZrXbB8jXrp77xzXsFNIgdXogMSpUkcEGIDFKVJBHhkd37pMggoUGCgrRBn3HlxhPOvw5yQAoO0zxLQyl9hv+BZEpW4bpCfMGEH2Q31Q9yr9EilvkBdHvwAgpJXpg2anDILJDPrNa36vfdxTHo2BmrUvs5HsoMChM/3ib4kKWGsfKHicWZ+1ZIE3NXOpzUrZSPzKhvHQUH1ZWiAgU3TuGOrQ/rYCElhZMvXLHq9rtW37H56xvuETu8FBnu/vYOJTIIXDj98g2imLQySKlBooMEBWmDPuOqzWW0Qkqai2oslNxHhVEJJOg5n8nyQtliYPdGgtrcZeMwAQcUbwHHBEOkXEdBr0rNYv5YbMesynML/mMTT1pQmB3+EHwwZqFvRWlT0HUOpRJplONiIHPl1Wbo6nim4hF0SWHZ+ikdLKZHksIpn111863rVt624dZvbBQ7vIAGITIoK4MUEI688kFpZRCflaFBQIMEBSk4nLl46sTP3FhJCkETMJH/2pqBs6Ryqwr3BCrADlJw+lD7RE1U4qMxOpmgD356H6i7fVZQmADvo7HaFNLD3xoKoKPwYbYMzbFz5EHJvtz2R5blQXWl39HYWH2WHkq1skVFNMtk3RIUrlm1VgeLaQkKF926dOXty25Z+9XVd4odXogMUpskRAaJCIKkyKC+bnv0e9LWIEFBSg0fvPqekxbcNAQFIwU0niZUFyhcnxltgON0OKfkSWOuYRBQwqYWFjQEW4QkmvEK3Um3j+lM3gBENtrz1tAc3XR6NBO7Xc7qCtoo662+GB2SR1mPlOzQrzyU6nrEnuzJfaTAYrrKd3TdTbcu+eptAhrEDi9FBoELCgKklUF9lSSkBgkN4hYpOBxx4dqTL1iubAqO0sNmEVTA3g89/AFMD5I0cwM9YVEKcRPohUZnZnzlxR0ALTYqC2SpnCnOoI5evI4xzvDIE5oQ0cxckMiMN5sC+k0GCg1xKZlAnxB02fSr/aFfWpBLF6N+YbgmysKVgr3KlQrmPrKypBYyeO2S24792BXX3rjqhptXy4wWOkmRQVkZNm99VEgN0m313u27xAeFDqctWnfKZ1cRDc3IYw7uh+gWl0Pj5+sh4PNvtgKbubv2RHfM260gAv3FOlaBOgxBXumWYhcQ3wfbcYIaG71AkkHBO78GJQJ0tNE8ZPKYMSdUp4NXToknzjTNMlhQMgBnTHMBEiUaHZxfrp2rfKuCZdDslYaGytw80H6t3Tv1bKhKUnBTZ4s9/IwrN5584Yrjzl78pRtWCJFBxwUpMkjHJGVlcKHhvh27T730diFxvOsDn47wPnJEA2DiELmD3VDa1HO3TWvL9VtG+g5MACigzEmqBhSY9CuOs1ZhJlrHRzEpRzsvETdtQjHoCR2j9jIDt9HdKVv6i1knf4dThhO+l+k2TI2N4lB/2sySqvZGqT6SVIsJ6j0LlaQgs6EKLEBSZw9BYe5lU2cunpLJTq+5frkQGRQufHX1ncoxSYoMAhqE1CDQQZRR0CDgQIDCu8+8yH2lAt1tBjMocDxezPrNnZCGKbVBHy3f9UsQwDLQa0jQHRHXVYzuKHjO0QoAmjpCx4I2lBQam5t9JuJZn7n8gYfJBYscUJg4s8jtXu6B3SaLYP5nmU3NiH7q5D88JWq7kApncwdVggg5dfYIFz537wevvufUS26bf961AheEyOBmRrVIQoMQHE757KrTFq17z1mLdGsCftrsGx80tUl1PO5PWy811mdHKUkMT1T3hGwAN0W6tAp0es7Ljp3QA/vADyd9tVoEDAQsmPB7K0UTHJrhi7YI8xCksJQ9We8aaKSJXMxEiGGAmG42PjdpFjAu2R0mLZgYszKs7WmKV4F2tZ+kKaEv9UWd2ul0oI/UCeztK0lBIIKe5uKaVWst9ZEksZ8fecXWD33hPpkE+wtfuUniAkYyAlpIDUJGOP3yDe/968VMrZHlOQO4Ylo7raskoYQ8R8ypP4qK3qIjaNgig9N/Izqjo/13mUYcC6tYEvkfzHhwcQk8COUZBXM5jU3umBABh81nxCkuM9FWVJzrUVZKNVfVr0tA9qhqYzQP0oUGEKCksGjJSh0s9JqHuHDlgx++Zttpn7vzpAU3ff7LN0pVknRMWnbLWhXLIH1Wv77hnlMvvf2MKzceeva1tdaI6Iyqc4N/MlR22+IAoC2fzuHF2kE+uxfd+LhgnTocgA2BBQpCDcSeRBN9sBF8Rij41JD2TFJMwRg5GTXS2aU3j+tR9p5EARO3ib4W6yR3v/osXZSBzDPKJWkaerj0eAQFCsvWT4GSgrxd4sJZX94uX45w3NmLj/vk54//1Bfnn/Ol+eddKySIEz9zo8CLky9YLn49bdG6MxdPve+cGxEZwT4Y16QO/zhjg1sll8OF00TC5ML9tBpyfwrG7oFAQzevRws10YOFKUEdATUR8SgFfVYz64rzaGDaN+zMMhFYxLG/xB4nMP/nISJ0DDdFZVMY1A4nXdNfUTNJi5JnLVjoSgpO8NrAmv0hLly1/SPXPXLGVZvFti+kBkGnX75BwIQQCoZ01WaBBR+8+h5Bh52/QiKCZyecJmyGLKYZr5DQK9FEhsTtEbcLB9YADQhsNZFTzKNHQiOaTat3o1bdmFmDpzJHJTSiOIGAnGnClSWPZ28WGmdYaDMdTvAXmnWCIQZYHoV2/q+BAKhkoO2Kff2i/HzmuZcoUPjKitUSFDY8sFMHC7CrYp8/avGOuZdNuTTn0o1zLt5wxGfXHX7B7YcvWG3ICL7DEh5okH7EYmifIg8//AdHb4i5M2AMyXGMpGUgj2IR9XW63u7RucHtHqlYekKDJmgiwtb4bq52z2fD9wnuCXHPyaxgTFzJplXO1bGM4tfsmKOOdq+0R+uupwoU3DQXIMm3LQcpOBZglXLcyaIWOXV/cypnbYxpuyjTD4Qf3pLQt4jOx/gL5XDIj7oLYU7KhHLGgvJqzAkrMo2RsTIbR7cINQXOouxiYybmq/zJYO766pU6BnDUYNEnSwphu7yh4UcS6dvMBxa/n6WB+NNpKF7ArgR84khbVpbn2ux/pkxomN91HrdGbicZmwDvCcoDZFmzz6UcvBtWy+TanWg2+uSJyGcZ8W9WoOKlQc64I4WHQ76IFusqv1O9bwOVyafQfZBqo3P5oVN9BSWFZeundLDA+IBMIha1FOCh35MHYk5AeoW6x9DSONs1XcOMk1UnKbxxTIQtP742iewOynmTQt5BNXFX0xVOlNKbM6L09TzhDlc1zdYcFYbVuLYYFk6ao/qubpUKo2vcIv4LieDjFy600lzIOIU6orlnb1/wuZTq7QlOMboJ0M7SkcsGrzyIfdxIduKQsYFwB9jsmZ+zJ2T0UaQHracWIxLOB8KoqQfd8Q2HM8BZr4GWvCj2iB4msjhMm6PU1DqjRNl1/iLVrnT+L0xvk0LhCPSiGbn5n3fZVVbqbB0skIkADRYBnRvkFdDHCseqVojRW5RtNj0Sp6JuuFomjDI44Odn0s4WR7jFmcOEAFsyHvhn/ZQ+6x3wMxYVMxPqnKyBUxLZNftSDITzXfV6ZSvng4+rIypjuGyTdG/okipBQXdJvXrFGh0suD0nRACZKibSu7eMi8SlwsxInJIbJyFjg/d29EDSoJ6fTaCTbXpgYHBJ82nW3YRyUuPhBrP86nmUiEJ6BKBkx6CmTyYd90lxkliqbX900Uz4U784YKCakAZlsfnraS4WL12lgwXSSUtSQA/85qDqqGqntr57u7ujQg8CVYmN7TOUiUv3ccJaQa8zH0m8h1icC68/ODn8jwg/78XXkDEtT1AvSiBKsAPx3ugZgUaRiUUQHQxRzAnHeArrWHOUDyn65iuY3SDWgWVWKKlb81w9PmqdK4lAfx3n9WvW6WChKqd31Tf2bt8tqRGgRKJYmWVtmBMO0s9aeRU4l/LVvykh7d5FmMHenR6RzSdPD9N0dM3L7JNJk65vGfvA44oZrMu/lsJgRzymwoqj4XQP1K/eLdrYG4uu/nKxWkYoqtdxqoSoOijoYBEcaXqoAoe0PYTqveOGpQBxfJw5TdvifGsPvT2PcylC6E4yOw7zicOM6RtT3IjXt7Dlmhxy0PjzWkyChVoRvLypEEDJkjfux6H2LC0nF8hR0Klgzsq9UGjDNwuUAdEqSE2AgmtTkNdLViDrSuz527697b6p++7dfO/U3VObv7l5450bdbpr3d0cXKCu0sL54MxymRjKeSIiZzB0kLAilHmhrw3oz83Oo60z/JRQeYqtiXIapdUQ3ijgenJGqWPLYAx2xtgR5XHppMsgnpJELuE1sKeSGK1Gc0eBOBmL2iBSk2QE+3Mdd6ZetiWf94K0sdhQAkoKi5as1MHCqMe0C4vd/vEdj+98eOejDz264/4d27duFwCx9Z77LRIXc8sLpKnH53p0i3d9arlB/Ouw+rVXfza8c0PR2YSdM2yb6GCnwR7sdTYknk4MehwAJwFVmCZkoTVg3YigCRFq8tFBEdLeCJHQLd+4CBmTMp8ESC52hXE8s21Yllxg1VZU1wujjKHSV6Cgex8tXrpKBwuVYc/oWHeICNO7p/fu2rvnye899fhTu/5h15OPPCkBQidxRQCHoPisF+MlXTSDyBPpRjyS+YDGfbQ7UuRhb78Qb7FTLs4KpqcW4C1QXqHKa9zr1qwR+R8ok7KxNPk+mrj8QiyClndjw2mgw/ncyAmcSS4ZQ+o9y9q2068GYqrK4Rrc06ah5QAlBT14DbMpiO39Rz/Y//z3n3+28+y+Yt8ze595es/TAiMkQCgSXwVqiOsCMh7c8iBTlQQTf4nO5lnRmSncatCF+4ld99YWyENSEyfqnEwj05V88ROFRYaVB6yNxECHwhq8/DmO2FaYSBAkdZip1sux+Se6XvAGHuowRYVLm2s60GdVYLoMLA6owIQQc+AkQsDwO5qWY9q0Kag0F65NwapfbOw/ef4nP3vxZ7/8p1++8sIrL+578YVnXlAYIQBCkgAL8VVcF/9379y9fet2IiLMumCbvQMZk3c1RynNodH0DCYTHpw22y19RiY42y23hhhXopSxW/EOaVJYsPNgmA9a2NMZ46d+DSKjrzUHbH1y3xhyd0YIAgIXXPURalOo9FFie/+Xn//Lv/7zv/3uN7/r/bL32k9fExjx8v6XBVgIjBD00nMvia8CMsR1ARZCZMhoVsgYhMvOYuGjtPNARn97coryLLxqnDMoUfe3Ntttts6nZ7ttxiKfiw8O/9muLzjR1ctur/oq92k5Ka6e2XiFpXbdWf+1TaFrtyuGLyUCGaSg1EdCUtDBAux5Z4QLf+z9UZDAhddfe737v7oCJn71yq9+/tLPhQQhPoivEiyEsHDbjTfiTqpZd4wY55BMmYVS1wzM55zMaaaTFXnnMXEraLPdMqjZzFeMFtP7HLE5UIZJY0Ui0Ji3hxM1IJVAwVzg1FhqWCizhM/xproLDF5ThmZ5EZud4d7+0ENv/Psb//H6f/z5X/8s0OEPB/7w77/+rQAIQQIphBwhQUEIDgIU1i1frsjGhahDMjuGN2lOx0HssLKxh275exiCMNK8EAbF2EDabLchrtKZGYE1NAV+Usw4gc8N53gJPrYUbw3k2el3jADeQW0FsF+mBrO0A9YPpGKrawANzXruI1dSUGZBCQoSFyT95+/+U5HABSEvCBlhz5PfE4gg6IUnn9TJwgWQJ9kdOfj+z/6sHRk70ATFRmQECszOdufrcJvt1k+Tle2WRKRQXxI6s8vA+3yTchMaEYOnPtNuUS9lrvtvvS6hHpfMjNQ1H5me9r9rGJpdSUG3KbjdVqDw8p6nLJLXFUlQkIqj5x97TJALCiiN7TA8Mem/6FkogzR5zoTxe0uCp1A+N8U22y3KDa2H9BWb8NARToxEhkcecmIfrkB6t+nSClB6ClWByd5J7NqiBNTP6noNAXaCCz3NhUQE3dAs4AAzNCu/piZAIcJnoPFw+Cjy9orykI7jNN6QR31gRviNttluU7hHp9nIdsvhYdItJK/dlPOYE30fXId+xZ2teYNMw249dqMFfIwZGH026xR7vjIoK0lBfNDBAnvK4kBB4gJDUkhYFeQX9qVQRBBB5KMdDTQ+sGv+9WdAf9KkvzbbrUFvlmy3cB/C/LFvoebV9/ecOwusodXKHyvJgMpl1C+6MEIBiaOZrSPm7yobw4EZ+c5NyyX1jq0Pg95HNbdH6zACFPY++KAk0KygM43Lc5q8TyLuvjFee3RmoPHXmSQ6BfqTzXlYD8lps91GMZBOaakgmWP0dxhAWyD7WVyXol2dtb3XSQFhFRhS10iPQ8haYGuHOnZJ4KueAc8t6WYt0COXlaSwbP2U+Iy8o7kmLihYcCARoeCZmONgGokU5t8SQzjA0R5qe8jROp+4PaHJpA1cJpvByG22W4cOzmy3SFotvKsJ6BbkJ5xwDGJUKGjRYwiQuUmrTAW6s2jnQJXRrue+dtnXwzqFke+BJcGfRAT52k39dZxYmgv97QZiV//etm1EULAQIeF07VvGGMRkb4hFyfuqM3ENbNTj927lcqDNdjsNpC8LVT6R2W591wOnfceKar9vJS7eAdwtB073jEO7WkjW7q3swgSzgo/MrQzOKhb32BrjctJrK1AQm//ipaskKNyyaYsOFljNEhQEBUFh9Q03SETw5sQDZjOzZiZT4L8Xd3iK35hJJFGURiihkwEsTkacNtvtmyjb7QBBJUMWsPkAGExd2cERq70rJxzJRf21Tz6LYrucAUC6QcGTn1O5nlqeRba5RKuh0JpQP1ms1kFBSQryJTsU9ZEEhRd37bJIXpckEEGQRAT3yYrLPxBOJ4K57cWYnsEu4eUjN8Ds7kaeCiM0LZROJribNiD7tNludVZMQrbbwomTAh5/j5sr1Qe1Dx7Ro50TGqNqlzajDMgd8zkdqRoMuIRx1rq3Tp0tEEFJCk2AgikgxGyAxJdl4Hyj3wWzlzvdrC4R2QL03GOzaMD03KivbFTSyzFRm+02zKJwtltVTKPqK+ZyyXlaJUy7GngNhhSjelaZMCvqkVo97MHXKR0uAwS0ebRdWy2G9EqegJ5IJisgH2M7OVLt/qraVcEIggQW6OojBRaeQUlcCILCCBFIfn3WoADyWqBcijoJxKklszRNIe7z7tm+Guqhl3J7JY1zCg6GMPZJz3bbGPRHxwVgvzYdK0RUOtUhZnavus4VH2eojAXVR0vX3q2DxTS+PDigUN5iqM4IhpJ8DxRDC8TO8INvdPz403jKvmUlddK7+YfCb7M5rLbZbjPxJAdnqB1guuY6e6O5unh9Zj3dRjesegLOaYYfdfXfOsCDPBk4lddORxBjNcVRaCByCMrFyH3JTlB9NE0ABUh3pE8lJNZVv5rGI2xL93iO0Z003HpmKpEZNxyHokgIThGB0HX/DCJrIPqxjToX0ZYZh6wZZLlbcIcQM+Q4oGyz3aaSf6VpShXPQNSvadNhxxqXdRI409HLe+o0dEr6BjgoaNu71TfVPdVJSPQo+wBKCouWrNTBwtNoFCgEjoJwWr/qXvjsNMIXQ/LFmVYqh8EZNHAKnvrQCmEVpmzgIGDBHDPHiFCXK0RTKNxJXwEnqXteGr8xkR1W9hbNdsvrQ9ABzNNPv2+Ytl00YrcqlMGlV4YhWM3ZmetchxzYZlRter26Er9bl8kW3eOuJpUQTweFZeuniJLC9AgX/KBASGcB9rlv9tYwhbjMKe8i5dgPz7tjVaTczlpOfcjhhLK1MiiUQQ7vMCQH5epkFp/YNtttjk42rTNvalwwVSZaeNk3nsWCMheDomud/51i/oTYdugE8VQZdhjWqz1rwUJXUrhm1VodLHwtVvkuMFCAFUc2r0DO9HUmFNWka/f6GOJ1YPMo7px57Lk+FdyVHO3/mZVqIWg8W0F0K8k8abPdjoPGY1wgs7or/V25jp3E8yGlBriqjsdp2bzLCIopPzjDoWprDdejjlP/kKCqZMkzz71EgYJ6R/OGB3bqYEGZFP2tasAb1vw2R8dd1gjKMHyosLCXEN9gt7qgyjFm5ROcMZTUg4k/QIUkn0B+b6PvQvkTOpJpUTl98Ho6tdlumx/72MAXCdqyrvTqAw/+vFRVsZRFSSIG4BfKUdy5jkZuPYMsVja9Et31VIHCsvVTOlhQuUdoTq3eOh8F9FLRmj9DFZz6KeL5GtjKOibfOuaMcONfaHpREm+DG50jltpRn/6uUro0W+fVNtttmP8HYbbbvDRcJIgbkhXG6BhbGfyxliLliai5pN1LehJJNpTwWRfsKtLzIeuERPDxCxdawWt67iN/nAKPgDHqLrj9QgFB7V5VD9DyVsJG5GU4GnyEBVaXgkmXuP69WnqjlajnNOYZHIuyKKJj3tAhJ6FNm+02qc6JynYL9zDGNR3wGNSu95Ey7kVbgvBKXr4Hqqhk/9rL1MQp5X0Ufm9OfVfsI2z5cwLXgfN2caB+R7OVEE8HC2If3GcKXooww43NX3O7StnTkNQBjBBgp3X8lRyE505XPw4qLWj06IKthCcofRuk7DZeqz2riYigknyH5DbbbQYmexc8v4der28bFDh8I0X0myFXIBP6YGGzKq6IqnWAmvcjPHeWoVm9i1mBgv6O5pySgsMBSzlT8RY9z6ePXScIOt3Cmq8O4zzsuiJrTjtQ0qqGOGxwm+pHTSPCI1wknlEbZgiX2my3OSjxIIQ47ThXzIg2WGpAHUGjJF+p2ZDSAbLs+9CMBw2LENiFksjZhgxXbw83MaxcGpTF5m+9o1kHC42rdouUMNKQQlg7P/cgh2F1JYMvsS+S3RgLvCp0db3WB1x8qKs1suz6nwvYMI1RwEUNZ1rK7tFk/joCtdluM3n2MnmSK3LN//wGn25M/PfMvkeVhGSQIA/E9Ie09jQoK51ZwPMYWhZzlu0SIurolESgv2Tn+jXrdLBgMiowrQgTBmS9PZUwr1RyOv1s3vhmN2pRyI5V13V9DnY4ge1YHKUVr0EHULAkxIQAA0N8Y2sFgcJtttvQYP3zzj2WUCnHaYHkkhfFKKzAgFCDOcyhRIBop9Fb6Pyn1BDDfMjrFeCGMijrkoLMkmpKCrw5RQk4VA8yHT/QpsHhRyiiLQuC64dQXoGHEw6qcjNBOVKAcqai+xQF1m0xDBLv46cvX4eZZHuCse4Fr7fZbuP4RuxkNBHnBZkOxk6LOnDa9USDgtuZgR4+7B8L/ApO5b4Smg6/w4wdhgB1u5YyAH2L1bG6AypITYCCa1OQ1/FJoU6fla/VWTN9joyQ1b8OSQ5PzimEPlmFvQ5N/Ztv8/eOUUvSi+B+XwVldGqZGqvQXRXVcuJsRJ7NtkD1qzzKenTkLaHxW3+Ywzl4s90GjLOSwuvHl/go6ImkP0deUICwwJ4IMvccDbzZNPN9GUCH0biGGQguDQIlhUVLVupgwZH3y2JvO+QQi6zxUhRlhJXAFt9MJwF/6lokzxI0XnheoDkNwQGP5JarAKL6oG/sAZlaF3k6dWKWDMibC1ZSeM7O8NNmu+XwxFuzrV3Hy1idR25h+IQPtG77HHgwR3SE6sg4CueZC4bkbG8pt+uAC21T7TgdYM1+oYGC7n20eOkqmqRg07sP/5DY/9/9nvccf9lGQadefd/p1+0WJD5X0NDXNluyAGsnuMAWgzUpMS5JsjmbUcBxl+0WFXK8p2uE9KmXCti+8ojWXKNnCF6vNixqKzn8UNPiQdAy3mVQ1cCzKffBw17hma822y2tk2maN3BeKDdSfrU3TEiCHj0mXfcWcxY076PKj1qFPg2QRh1PFa/bCXc6CK+qxLgBV+gtXDIQlBT04DWiTUHAgSCx+UsUEHTGN56zSIOGkvPE9aA5umNWA4AVRKkzxE/jYuw2GPuAQ1hfH+wBxwmyQk997tpVaZHRffc9UIyamawoulYCSRW5A6/zclW02W5hijMZUHZvvEAw260v0SKLmTa7Rsc2UHMC1OY/nnWqCmVJYAr4J/CAiyCHrFQ8HJULbEGw6+8aNgWV5gK3KYB+tiNEOOWT7zh0/tyzFwvpwIUDSbrUwFsVPsf+gfY/YoJQFhETYnSckp1AW8FWPO2arm668NgFji7e5mzjMmSosj3r6OMCyN0NnITnTjf8itbww+WNm+Nexwq7Xiisg3GYQgoHvMOTmu22KJnGF7tc0uUCZg4ZKwNPJWX7fEJQpWjghDnQGwIYks8qBKV+Ch93dRKCgMAFV32kg4V/Bxjqiw7/0BGnXezigtj/JV4IEhfFf4kLc89eKnGBYoJ3bT1+Cnkdhx8E4JXrULtRusFo0vz0NF1WBUlJjVrHIS3FhJI+SuSFjWLWHIV4gsR+GsWUZcRv9KG1XuZOabPdRlF0KyyfWGyFIH5xRuHyg6449bdYr/ZSTNbzUQ8K5xA+DT3sntxBEBMGWN/serAtDsqbRO6V2bFAdu5SfSSDFJT6SEgKOliYnbG10GJ7F4gg9nmFC9KgoOQCCRmigI4LlrBQoltYHQf7BlMOriQLb268Jv/qdcPoGrdUBo5BXVXtZRRUdwy8GiEAfy2+dXrOwuuO/FoDg+130A25r2Ao7ITWZrvNfRfKnwaz3TKAhhtZRgmntUad7hmLK5nRQwjm0Qrci+e4JswOLOz7X/MKBq8pQ7O8iGpuR4ggdnux1StckMKCblw4ZsEyhQvivyBTg0RyS/OzIph4hFZPgi3MYjLPxQjQAzguBINCDbNXj9et2dVeAgmdEqPPuFy1wu66bvm+s4YtMaHNdsvdeH1dmoDcI858hcMtw8YO5zBg31iJAFjIDGB+ssQKCiHdSBUn4SMT8DQxOOb2eRoxNOu5j/yGZgUKHlyYd/FacV1cFD99dPqPggRMiK9MnkTuVJmPT1BPQudbv6lanQc8a4ZiUhyjBoNPI9F+AMxFBXkJUzOwG4JYVzqxt9lus3eMm+0WJ0PDH8OBPlKs8kpyn1yorSKWFZGOxHYeb5C8Y/edT2znW4pxULcduJKC3yVVIILY3sX+PzQraLigGxcULsx7/+kCDkRJ8V/ekoXVnhcb6Txh2nHoD2DGRzXDrh5y3EWXQVaqn0198/TMIyMkR6c22y1+hUuUDc1rtSc1gUv6/kORpAH42TKHWfbrwlp4gKsnEH3gbheA9t7JnufEoyGDtSr3OcraCgF8ou2TIYYCFJKbv0QE3dAs4AD0PtJHJEFB/P/wJ8+XuKBAQcoLQyy4eK0oI0iCwjm3PyYRQdxiDRyZ/SA1cUKeFVDISj1M2i33asb5zfNrF9nqe54aNFMIfSz1V69Fqc12S5k1exLDZYrYYzBKsH7VZ5nCQMEdeKVo1a1sA5NvfbAbjZKV6tOrfgSmnqrx7oItwpUAdY56JfZ8ZVBWkoL4oIMFNgtSdyTP/AoUpLlZKZEUvffoY8X/Uz52njRM0yWFfET3f84OCgnWCoyo69nn5hHVMTtwQLkfhC2z1lZAEt+ILmS23tjLJV1dr3WyzXabg1goGQwos/nva8I4V2M+Bh2g6UAfCCuKQmZPaJwnYDFJm+2ThZ3y8p2blkvqHVsfBr2P9AGKXf3YD5yDgYIQDSQuKJJha38157/JMkFQSDSloUwmzWml+sj9yPhMmSE/sTR2GYdbu2mHpe6OV50VSYYPn6ytWGr1xDsvbbZbzjoHS0JMGH+2W8h5DDqDkbx/h254PYtLM9OGf6njlkYGAiIVbs2h/L3N628pjqm+5aRHLitJYdn6KfHZfEezrKe22gdBYd7Fa+XX8uLhHxpqlkZRz0RJgaXl8E4HdyXErBNOV0mPbfa3pYBLBdMMGJk9eHlfKU5fMRzG+s/ks31qarPdMikl2y3QAa+zKIDsRRe8aA8WNCLTuUpxK0WYHK/QBpEl0uIGeVIRujf8VSKCfO2m/jrOYJoLCQrKOgCCgiQZtgCCgkd6JUTkpRK+6yY0lzvLcazundsorLDlP/6wg4dvFrKMpc12a4+l2lcnLNst2BwhnKQPLUvXCX/cNj76OYfpzBDimPWAQKFtDhGUYyNSoCA2/8VLV0lQuGXTFh0swPoVKMgrFiiI/V8mxJOkQtjeceh8qVkyJYV4B+/0hcpxfmtyyVGVIbRBdfuVqt9VHHHDN7AyjC7Rjm2q875eVSFgZvibl3VtttvEvjEKM2rWt3QQ8vquwxLUGe4YAQnFjcdM5xulDxFcRaPzSNm2PQF0NezqoKAkBfmSHUd9ZBAdFKSkIC0LIxfWpab3EY/C3oaK4tUvGTZ/Olql7Sf9qgYkFKhXbyyw5dTlKt/+Cw0h/Kjm048hbbXZbuv+0G3cvEmc5mW7HSDHA1PS8SruAhZ5eGZ9Pm/eSHOKZoZCA38NWZ4Fgi0eKOk+y0pNJBBBSQp0UJC4IMkCBaU40h1TZXRbBtcjstMCfQY1NjIkwUzENNgdgE/+KBJ59nnaoYg1ZNJb/zIextpstwdqKHEc1AdSE8VdtKFTDa6Np2a79UhwrvnY00Ovl3LdAXhGAuP1O2bQ13APrQ3qcArRLX22XKY+q2AEQQILdPWRAguwCRmbIHFBkgsKiixECIgJXf/ovHOdpySlfMPay65SZfcxWPfEQpLlFES+QIjkr87J3B5sjvkrMCnE8H9XU0E/d5EZDhgmCo3tb41st+CGHzY6B3sbPGxjDhVWK8mOXkCL2Hs5Y06D4aYxEzNc2FWdgeqjpWvv1sECa07igiKFCxIUJC5YcFAhAkks5bArL43TXIX6UVefAfG/QD6nsTTZ0m02wX3xE7Oh8By12W5N82sdz9UxrsPTF+RJVLZb2/wdWiSuAX1EbtigX+gIkUedgpRB2UVcxtYbiiMozroHDsQ67CkXI/clO7r6CBup2OEVKSWSAgUdCyQcVIhAGAVNyUZ3W2U5uNLrpM6FOipUClhrE3AOWpgLWd+pM3dXkbt48ggtiXFEh9tst2WBgzrbrQ3ZRBHPvdHuBtNF37sRRa4iSmcypRRIInSNgZLCoiUrdbAg1Dbkgw4NOinUaGZoE06wb2Rh7g86AcH4XMq2JUYfY9g3elxcPA8F8hP9vO30s8126+Fqhmy3nLkIDAS4SNtpYe9rgA8ZjL8UfVFY4PL2M6Adsq94/SIkqYR4OigsWz8VNDRjU6DLDuPFgllXN8GvpfMxjbzn6BtCaAPxth6FF9E2i2jzGSjhxs4O5aEbNdpmu6XMS2K2W3MlI8Zi2NersJurugRThIcJj/9RTxPVRMKhCPQHwaKs56wFC11J4ZpVa3Ww8GkwUmiM2aiaJM3ERtaZ8ERC+mbVCEuDfgvRNg4KN4zYsTbbbQqfowYyMCcoKdst/CZK60p4DTeIm6jjHLzwSJqihPlCNV3e95FRbSIFcv3Mcy9RoKDe0bzhgZ06WJD6H7UdkZ9x6jOb3xZQdxVQBGFwwAmIm+EcHhK9F8ZKCbpQxLzIplkBhaz0Zs12izz4fomYTqDrr95tfv25AhbCNaCGPDTnNqtjyFLXJAXd9VSBwrL1UzpYYK2YAfiNZFysabxJbjvWASnFpMtQSvj8NomulWTKpnA21nDEq0mAW/wbDt2HPzsoJFgrMHorZrtFLSlBijhpsG6JVkZhIgYOTzHkdM/XK+/D6LtRSAQfv3ChFbym5z4C4xQKD5w1RrlAR+VJKLut4ZrDLvvIyh9p9L4UcjbWF6EbieON5wp5mISLhYkYHESYKZDabLdA0/aVict2m5sIbsnZ2gp5nzaeGSOaLSiX5DHAnTL12k0rIZ4OFjiXJlTo1vIoeqDEfb78O2f02WwGVMIz8mC474EKZKVgRa8kEupVG0dZoxViBp4c98G1X7MJDsLCg7Pq6xOQ7TblbEC8F3+tZ3xYQS6VZpy/nCdBDaU8kwZi81fvYlagoL+jWYFCw4atOKsBGtJV/eo99qgPPaZbF69A2FCbQIl9Qylth3f5iXE4A2C12W61RmFtZLqEG6yBniYidWpc3iaZJmk9QQwT0d62lPiaaP0PMjrqMV4alMXmb72jWQcLwgOS0x8A2farQHjvI4MdomhtQWQ3Fzb1Nu8WMpk0y2Ijx7jfZFfbbLd159m9ClYSPd4RgVpivoqPED3ti7uBs9OQ9jeToImj3N4NFFMSgf6SnevXrNPBwsu95OcLSAw+MFasrcbktogJCz6/SsYsmOS8V6sBjuFVccVMrDDlxsaxL4OSNocYQi6ZxhCV/sLs81sr2y2VtzmO0DAH0jqGNs2Pqkuph1G/nnpLkTIo65KCzJKqwCL4XLz9kEMkva36AO5Xqtjb62LVr1ZOY98rp6niud/YGuKYLyURSsHHUNd2xiT5z7iAqT+5Ped2m+PRAaROwgsHx8JT1eYg1gQNTMYSnN4P/my3rLQh9aGagQLaFESFyY+B6EuURpxKCC9RVUFqAhRcm4K87q9B7O3HfGuvReJih1aMGigayXPgp7BvZ3LOE7hp1stK+H3wpqmMr4dEkWdFL3zgrqrkminlG9Z6tdlux2uOROWmwECiy9AZmDfmjupPyOlhSaCksGjJSh0s6vJAWoaB2NhP/P4foN2+ZgWICO/8yKfenv5ihfDEpc5FRICA/4nL8Yzwkwtlbm6iszFUNE4zh0+01LxAUdeIZK+nwKijY7UyZrsNPBfZvTp9utxEUBjQWmmUWE8lo2P6u5iVpLB46SpLUgBms2LFEBR+8OeTX/p/Jz79p+Of+NW8bfuPvmu3tduLryfsfV1gx4n73jh+56vHbNozd/mUFxR8ebTKVedk381DAXzHZPyI/WcgE4g1do4iL4N4yYjQRJvtFp6OvlNn7q4id01ItlsCDbg1cB4l0F/LrM1nKM+RzCQU1g0IdMAtQP/9HAtumKCkoAevjSKaUQFNMOdtAhT2vXHyP/7fEzq/P/6xXxy7Zd9R63ZaeqEhKBS/Fdgh6LhHXhGoMeemjTooIAE12ANFicHxsiV2HtEbmcBkRo/GjYJgAaSP602Sh6o5ApKcTFfPb5vt1mIISM2Iz9FDC4PCOEhJYTk8tQwKuRjZDOzWN+pqIpXmArMpgDMuJYWT9v9vIQuIDf+Yqekjb9tu2ZGliknScTt+cvSGJ+YsvQuUFKxzFzxr+JNIWwbE66kT7W8r9ng2Q6rhIKY22y2h9YM22y3GNPKxxJ+ck754YDEkXRCL5yTuWUGeOHArYz9QQhAQuGCpj/TgNX9CvFIvJEDhuZn5Tx2Y99CLQgpwLQtSUpA0LLP+8SOuX/+ujy/w2xR0RYFcM/YM9gYd36tGEkPSoglvV8JZN5wGs9lEUpEcQ+hNImW02W7HkO2WSmjr3hN1Yi5r3qjxtppRCMdGJWg1FDTxAYxTsGwKBqvNOku90A//cuK+N+Z/99fztu0Hzc3DYt/7N0nzHnzhqDsePeK6O95z3kIfKEDJVYDjWe7IUxb5Z7+DFCNqxWcnCK7NdhvohmcIbbZbzzBj3JaAzvD8zNEWiSuWDjoeiQMQCX2GS59LHis3TvTEgTYFAQriiqU+AnMBDXf7zu+HoPCDPx//xK+O3fos6IYkQWH+np4gARxDUFiy4b0XLJa/ek9osJRXmL8mUkh0pSxg0DsacHhQMaEZE7XltQi02W5LrvJ6DueXGFGb7Tah2828XS4LJan78HHxTxReIgQmWATGKQh0kGAhkUIx3407K40F+94Q/4/f+eqx9z4j0EHs/wIgjvzatvcuuFJanMV/iQgKFObctPHQS6+t6mEnWskyj1G5sDBisb2PAwd3hTA6OSHW5DbbrUFv7Wy30XUmUhNieD4rZ7hy7HVFKZxUdYKSwh1bH9ZtDbKkFWugRAABByc92z+h+O3Qyvz3HQEK8586cNyjP5u74p73nL9IFRsiwlMHpPro6PWPz10+9b7LbwTVR6WtedRD3WRgnfdGQ+jX5etEAWZt8fKmonD0OnG/lcVmMznSBCX4DVOb7Tahq1yiuUDQBxvbOsjnvH1j9tzft+ymScYse3IFpBy9wDiFZeunxFf9JTtYPPIQFJ7+00nPzYjd/rgdPzlm054TOr+fv+u147a/JLb9d59zcQ0KTx2oQeGbu+au2nLY1SsJwWtWKgCTNK8/W1HAprS5xhVfNsSnLYMc1Kh7T5zVoM12+5bKdtvUYON2QsITSmUptyqYQidMV5cemGXEOu/cVbKdFqcw3NWFOCCEAnHgP/6JX81dee97Pn15DQrP/5dyPZLGhXnb9osyh178JQMU9vRO2Pu6KCaw48ivbTv8y1+3QKGjnf/dtYHoeAeZns3cBwAnfZ8vtoK5DBKLjYfabLcHJzV+RMm6ShnmG473aYKPGaeHGM8ddAtPSlHelTR9UusCxincsmmLvKi/ZEd6nx7/2C/m3f/8nJs3S98haWge+qPu/o0EBSECSKnhqNt3CFlACguit1KDNIxl+M7LMpbhiCUb3vnhT+i4MNoo+hAogDDRBzkQ1OSAmfcw0MxIoTi1PC1StrJGsKPNdhtPATxizRfXWWUCst2mrHyWbBiRU5HdjcjlF2vvC4kJ5IQ89TQNwDgFmSXVfEfzQAoFQ9XQjp8cvf7xw668+d1nXyBdUktQePAFCQpDYWHnq0d/c9cR16/XhYWhS2plehiCwvXr33nmxzVQsPUtWpZgWHKPDTwBcpFFEHsutOj16EbHTsB+VZTveR/og1JTBmIuxDRqip42222QRZSf3J5zu+3RYHuuxDgyMQrnyAs3dh8MsJ9I50lhFOG4J2+1Q+rVF6WaSAYpWKmzTVAY2ZT3vTFUH+18dd62/UJYOPSiL0hh4aRn+8MghQoU3vXR/ymwQ+z80nAghQUpaBiSwnV3mKAAMKTQvPr1cXUARBjErIoci6ETqm2k6w6fUrIccaeTBYHKn6dM4IZ7ZlquPv7HM+Y02Ga7db9G10OiMWW7DTIcBU3ENT2VJx5DFZl8cRCJ50Dm02QkJWO6QA8fZDB4TaqPJC5o72geSGWREhYO//LXpRLJAgVxcSg4bNt/1O07Dv/i12pQKH471CwJUPjW3iPXPHjEtd8AQAFygSsMhYMdfOSiBjQFKSIqfC/ldNFBapgl71BwIGBWB6X5AdNPNaF2DtaZql6LCBBoJl1P0qDejNluc4byBXLBNTl8ZmAL24PU3TRy6RysekBD89K1d6uLVfBaGacwtDXv/s1xj/5MCgtywz/xh3+RhuZjNj4lQOG9FyyGQUEAyp7e0ElJgMLI0AxJCn4TT9/SP3QsLOghs5zkiqnVGbOZMxZeLm9AbZa1XV1P0VY5x+qQ6gnBLj8wh08bDoU/WNABvc4I00MM5/nDNynhtJAx6jCROcyBxx+Zgr58SX774TI88OJwNdr4GIenRnpAPXLZ8j6y1EfTEhSe/pMBCp+8qLwod/tNewQoCFFiiBEKFEZlSkARxba/NPQ+unXr4dessUDBSmTUsXtre63rFgdz9oPLLFeUvdVbxgwmBgGVZusu1BZqJDU700M+h5qmlK+mLMQK9ht43TXfyFkXmeicIlJ2VAoxitMf91DaYIQL59QUo4zyEg+Fw+ahiOc6Frn6WOc9pgdPu8UB+ULwGT1yWRmaFy1ZqfxR9Syp5f4/ik2ToGAHL4x2+5Ne+D81KPzdLQYoiHsFKIwEChcU7DnVbB92TkX5wfAd6iOzxmAa3I34klH7lZZNF9F4KHFpYPq4mlr9LvzZWgzgTpJkyiSzohm5I5LSt+gcKsHQKTfnu4mT+paVz6yeJ2sROdPUmE8IyEyMwwzROPSM+I01ZSW695GSFJatn/JJChUo2G9SG+3wpTZp12uigACI9y26QWW6kKonpWUSQkTI0Dxj2ZqhaRpYwgXusMSiwO3W0jJyMY1CLap9mCbrVdEZxYFBR6Zr6CnHY6B8x1wAXk1p3r0i5qBO3Mzds6hf+iNSFJQ0YuDQezJLWXBTGDXGEEsfcyI4H+x53sg7iMjmAK+LV+YpGGpmgOzTfT1yWUkK16xaq+IXxHW5LQ8Nys/NDO0C3/31cY+8Ivb8YcZsIRTs/s2xW58VQsE7Tv9r5WU09DvdtOeIJRve9T/Oq11Sxb3Kc3XlvUKI8ILCwFQZuY4lyqYwKKGhV89asgsH0q5VAEpWQ/DcswK4Sr+pDlDSt36mWXsLmlEB9eWO0KmST1YOV8NJHqKIdixMlxy5C2wSpB70zV+85iZOQmnciyNH3HQKSzt2mi9mTwIvlxzokctKUtjwwM6zFiwEXFLFUV+IAOKoPzUtRACBEYKGyVG//bQQCt7xgY+UbquizP3PC5g49LLrrFcqlE5K39w1d8U9h129EgcF2CGh41OLDVTGJOYUePmPfHZ7O5wpLbVRpzb4Gn47RficD/ChcK5k0cR6odONxQ4SbaECnWFvLNEPfvpuHLu0QswBFaRxPacyJ8vJMxUUmA72qRWCFHAzc2VYqs2FwOFUmZHG/65dsjiggoXtPuuRy9hLdopq1HqW1KHg8Px/nfjDvwzfufytvXOXT/3V+z8kd375/rU5S++SsoPcGEtQGKmVjt7whCh/2OKvgqCgHFBHSvW+vtXX7qlOQLcTyzDgcTvZrUhbFX3rV2wH87+HCyNgiw7kVUscJkDuQ0QIOrOHHN1W9HMEMjldScUdFMeZmUhxO7P2BMVvTZPg1BrYe3OEIUR3gxRe533882qNRkbJoXYa0KhI0m0Hi5euAl+yY3VM9l8KBcPXa37n5WHw8pINEhQ8dMLe16UQcfT6x+fcvPmwK292QUExp6MdubXr1clZwUT9qp1a51ad0nMsV5mstVRk9V3BzR+n48S1Qed8tgeO+VNUjKpHRiA8LznPP0lH4oRbOBTYPHOFmyVQcKmzCuS0/GaZXy4lyxfRUaLAjXTbeiAhWILWSOWUKxyRwSUdFJSkYL1kB5tEuc/Pe+jFo+54VM9u50mpKl/Ec9S6nXNu2ihAATMo6KJNpxpUpYrRDS7m6KT4QNIgYX7sZbZVdUWZfd3yxGAoV02E2Q6mAXHDZotvNjO53QaaI5nMEpoOJR1ym5v8tCHBbTAxAJywzc4aKJCosbAsDs+5LOURRbgmszRYAMSOPlFi0iOXlaTgvmRHP67rG5f72p3pyknJBQWxwVqyA4efpWOPes0ooELplXt4p0KTwqjBLKyp6ztVYfW+AzOet2/2JLhgaE6qvpcxgTXMfvrKvD4zTRoEk9UpsURgUYy/VvImOeZ93pdejBKZ6z+30/jDHkWkvwE0HHrUkucpyICMymrAedb0yOXr16xTksJZCxYqm0JVeFBWXmv1rWEO1PF+aHEYOSbNu//5I9c8aL46oa954IM5FjSGWJ6fddPSgROZ92pvL6rmynZ70jtooNxcsW0QsQIDwV+cIFZUe6P/2oGhoRFEyOLz2RAR9P/pxN2fs7DIJ07SutHISLMO06twmxx33FBPiAoiFoHHhuAbgQveIYoYtgATqD4S6CC9jwQoSJuC7jypvurZD+qRVj23hAIo0MCwAlRXPDzXE/L0O44eRm+iqCd9YO//XSO0wdrbtSnDAz2o2bkT1k8jDw4hxDg0dj8fkLPNmOEGOo+Fh0noZB7RJszbNAhIt5XnVTyOKcCkiURAza1nfHQZjn9StaIUJtzK9chl5ZL6o1de7Ty7v5YUrAT40KOhbdEDc2/XnPO7pWmgQr1BaSaoDChwhBpwIC/FhKLbNw3KersDWBDoGn02eVXBK0E5b60WwBZAfIlq6uZPTsuclE9m3ETYw1kU/RRzb4SWyrgPxnGDzRyIwa/NGxcZz0PCmgEejZyCOcXnHP6JfQgZmMfjyJztyvV09Z2b1Et2HnnmuTu2PvzArqL2PkKyTHSc+VIcKH2HejOW5Ve57ivDsZbyaKhNqq8fqHVi8mKnJz8PTI7BSbP9uVyoExryHjcrx2CFQYW/uUDCogH4OXFfAoeT16skiERIAeLDC9vdwjcGU0IF4oBoncyMGnwXBfsuLqzw48vyFIvbuiPmyKemppLXdkB/Qov6DfXAT1ms5xIUxP4vQ5t1ULh+zTp5ffHSVYLE11s2bblm1dpl66fEr+r61SvWuP9FMfFh0ZKV4rO4UZC6LmvY8MBO+UGUER+Wrr1bVC5LUlpp62/rb+tv62/rl/XLz5T6Vc1Yc+KzAAKx84uqQFCQuCDdUwVJ67OMfZZ6J3ldXpT/ZX4MJYCoG+W98v+Z514iPuglXcJaaetv62/rb+tv67fqFxet+qVFGOyGvIg1JxEBBIV9L/648+x+iQuysApecBuSVzA+qIF//MKFn6hM2+qD+9XfSlt/W39bf1t/Wz9Yuaf+YHMLKhlBbv42KGx5SFwR6KPkBVGDJNmuwCD5QRqjF4ys1XrHFKkb1b06ybtUbRa5rbT1t/W39bf1t/Xr9WPkqR+8UZcRxOYvb5egIH76yorVC6sXN0tafecm9doFeUVGN1jF1EX5QX2WN0qyysv/6rpbQG+lrb+tv62/rb+tX69fv+ipX6/ZbU7s8O6NAk0Oqf7kRR1EJEyoXllNq4uqmNtVGTQtCgjSByj+S0uKLKDf67bS1t/W39bf1t/Wr9evLvrrt65bzYnPrpBySPvX/rV/7V/71/6Zf/8f/ojvbA==');
End;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
{*******************************************************************************
Function CheckAndClick(X,Y:Integer):Boolean;
By: YoHoJo
Description: Moves mouse to x,y, checks for uptext, and clikcs if found
*******************************************************************************}
Function CheckAndClick(UpText, MText:String; X,Y:Integer; RClick:String):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 4000) Then
Begin
GetMousePos(x, y);
Case RClick Of
'R':
Begin
Mouse(x, y, 0, 0, False);
Result:= WaitOption(MText, 2000);
If Result Then FFlag(0);
End;
'L':
Begin
Result:=True;
Mouse(x, y, 0, 0,True);
End;
End;
End;
End;
Function ClickObject(WhatObject:String):Boolean;
var I:Integer;
ObjectInfoI: TIntegerArray;
ObjectInfoE: TExtendedArray;
UpText, Click, ChOp: String;
GatePts:TPointArray;
GatePtsBox: T2DPointArray;
GatePt: TPoint;
HighGate, Pixels:Integer;
Begin
Case WhatObject of
{ObjectInfoI[Color, Tolerance, BoxX, BoxY, Xmov, Ymov, SortX, SortY]}
'Booth':
Begin
StatsGuise('Clicking Bank Booth');
UpText:= 'oo';
ChOp:='';
ObjectInfoE:=[0.09 , 0.22];
ObjectInfoI:=[5338000, 3, 10, 10, 0, 0, MSCX, MSCY];
Pixels:= 50;
Click:= 'L';
End;
End;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(ObjectInfoE[0] , ObjectInfoE[1]);
FindColorsSpiralTolerance(MSCX,MSCY,GatePts,ObjectInfoI[0],MSX1,MSY1,MSX2,MSY2,ObjectInfoI[1]);
SetColorSpeed2Modifiers(0.2,0.2);
ColorToleranceSpeed(1);
GatePtsBox:= TPAtoATPAEx(GatePts,ObjectInfoI[2],ObjectInfoI[3]);
//DebugATPA(GatePtsBox,'');
SortATPAFrom(GatePtsBox,Point(ObjectInfoI[6],ObjectInfoI[7]));
HighGate:=High(GatePtsBox);
For I:=0 To HighGate Do
Begin
If Not(LoggedIn) Then Break;
If GetArrayLength(GatePtsBox[I])>Pixels Then
Begin
GatePt:= MiddleTPA(GatePtsBox[I]);
If CheckAndClick(UpText, ChOp, GatePt.X, GatePt.Y, Click) Then
Begin
Result:=True;
Break;
End Else
Continue;
End;
End;
End;
function Walking(Color, Tolerance, dX, dY: Integer; SortFrom: tpoint): Boolean;
var
i, x, y, rx, ry: Integer;
TPA: TPointArray;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
//Writeln(IntToStr(Length(TPA)));
SortTPAFrom(TPA, SortFrom);
for i := 0 to High(TPA) do
begin
x := TPA[i].x;
y := TPA[i].y;
rx := RandomRange(-2, 2);
ry := RandomRange(-2, 2);
if (not rs_OnMinimap(x + rx, y + ry)) then
Continue;
Mouse(x + rx + dX, y + ry + dY, 0, 0, true);
PaintReport;
Wait(2500 + Random(500));
PaintReport;
FFlag(5);
PaintReport;
PaintReport;
Result := True;
Break;
end;
end;
function LadderColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.68, 3.76);
FindColorsSpiralTolerance(MMCX, MMCY, arP, 536409, MMX1, MMY1, MMX2, MMY2, 2);
if (Length(arP) = 0) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 4.77) and (X <= 5.64) and (Y >= 3.78) and (Y <= 4.60) and (Z >= 0.67) and (Z <= 0.96) then
begin
Result := arC[i];
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
function BankFloor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.14, 0.40);
if not (FindColorsTolerance(arP, 4541591, MMX1, MMY1, MMX2, MMY2, 9)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
Procedure WalkToBar;
Begin
StatsGuise('Walking to Bar');
Walking(LadderColor, 5, -9, 0, Point(692, 77) );
Flag;
While IsMoving Do
Wait(50);
End;
Procedure WalkToBank;
Var
BankSpot, X, Y: Integer;
Angle: Extended;
{Begin
StatsGuise('Walking to Bank');
Walking(BankFloor, 5, 0, -10, Point(MMX1, MMY1) );
FFlag(5);
End;}
Begin
StatsGuise('Walking to Bank');
BankSPot := DTMFromString('mggAAAHicY2NgYOBkZmD4z8TAwAKkOYCYB4gFgPg1UO4TFvzukgrDty98GPg/UE4OC2bEgSEAAAdLFEQ=');
If FindDTMRotated(BankSPot, X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, Angle) Then
Begin
Mouse(X, Y, 3, 3, True);
Flag;
While IsMoving Do
Wait(50);
End;
FreeDTM(BankSpot);
End;
Procedure ClickBarTender;
Var PantPts:TPointArray;
PantPtsBox: T2DPointArray;
PantPt: TPoint;
HighPant, I, X, Y, J:Integer;
Begin
If Not(LoggedIn) Then Exit;
J:= 0;
If WaitUpText('k-', 200) Then
Begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
Inc(J);
End;
If J>0 Then Exit;
PaintReport;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(2.78, 0.47);
FindColorsSpiralTolerance(MSCX, MSCY, PantPts, 1776412, MSX1, MSY1, MSX2, MSY2, 3);
SetColorSpeed2Modifiers(0.2,0.2);
ColorToleranceSpeed(1);
PantPtsBox:= TPAtoATPAEx(PantPts,10,10);
//DebugATPA(PantPtsBox,'');
SortATPAFrom(PantPtsBox,Point(MSX1, MSY1));
HighPant:=High(PantPtsBox);
For I:=0 To HighPant Do
Begin
PaintReport;
StatsGuise('Searching Try:' + IntToStr(I) );
If Not(LoggedIn) Then Break;
If GetArrayLength(PantPtsBox[I])>10 Then
Begin
PantPt:= MiddleTPA(PantPtsBox[I]);
MMouse(PantPt.X, PantPt.Y-7, 0, 0);
If WaitUptext('Ta', 3000) Then
Begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
If DidRedClick Then
Begin
StatsGuise('Found A BarTender!');
Break;
End;
End;
End;
End;
End;
Procedure TalkAndBuy;
Var
TooLong, OldCount, J:Integer;
Begin
If InvFull Then Exit;
J:=0;
StatsGuise('Getting Drinks');
If InvCount > OldCount Then
Begin
Inc(TDrinks);
PaintReport;
End;
OldCount:= InvCount;
If WaitColor(392, 423, 0, 0, 5000) Then // What Can I Get You
Begin
MarkTime(TooLong);
PaintReport;
While Not( GetColor(154, 390) = 0 ) Do //Option 1 Shadow
Begin
PaintReport;
KeyDown( GetKeyCode(' ') );
If TimeFromMark(TooLong) > 10000 Then
Begin
If IsKeyDown(GetKeyCode(' ') ) Then
KeyUp( GetKeyCode(' ') );
Break;
Inc(J);
End;
End;
If J > 0 Then
Exit;
PaintReport;
If IsKeyDown(GetKeyCode(' ') ) Then
KeyUp( GetKeyCode(' ') );
Case Drink Of
'AA': Begin TypeSendEx('1', False); stats_IncVariable('Asgarnian Ale (Bought)', 1); End;
'MB': Begin TypeSendEx('2', False); stats_IncVariable('Wizard'+#39+'s Mind Bomb (Bought)', 1); End;
'DS': Begin TypeSendEx('3', False); stats_IncVariable('Dwarven Stout (Bought)', 1); End;
End;
PaintReport;
WaitColorGone(0,154, 390, 0, 5000); //Option 1 Shadow
KeyDown( GetKeyCode(' ') );
Wait(30+Random(50));
KeyUp( GetKeyCode(' ') );
PaintReport;
End;
End;
Function YBankOpen:Boolean;
Begin
If GetColor(199, 37) = 0 Then
Result:= True;
End;
Procedure YDepositAll;
Begin
Mouse(368, 309, 10, 10, True);
End;
procedure SMART_DrawBitmapWithTextMulti(Clear: Boolean; Bitmap: Integer; BmpPlacement: TPoint; TP: TStringArray; Shadow: Boolean; TxtPlacement: TPoint; Font: string; Colour: TColor);
var
I, B, H, Pic, TPH, Numb: Integer;
Offset: TPoint;
TTP: TPointArray;
Canvas: TCanvas;
begin
if (not SMART_DebugSetup) then
SMART_SetupDebug();
{if (Clear) then
SMART_ClearCanvasArea( PointToBox( Point(MSX1, MSY1) , Point(MSX2, MSY2) ) );
SMART_ClearCanvas();}
TPH := High(TP);
Offset := IntToPoint(TxtPlacement.x - BmpPlacement.x, TxtPlacement.y - BmpPlacement.y);
Pic := CopyBitmap(Bitmap);
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);
if Shadow then
try
FastSetPixel(Pic, TTP[b].x + 1 + Offset.x , TTP[b].y + Numb + 1 + Offset.y,131072);
except
end;
try
FastSetPixel(Pic, TTP[b].x + Offset.x, TTP[b].y + Numb + Offset.y, Colour);
except
end;
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, BmpPlacement.x, BmpPlacement.y);
FreeBitmap(Pic);
end;
Var
TLoads: Integer;
Procedure PaintReport;
Var
Sec, DrinkRate, LoadRate, ProfitMade, ProfitRate:integer;
Begin
Sec:= (1+((Getsystemtime-StartTime)/1000));
DrinkRate:= (3600*(TDrinks))/(Sec);
TLoads:= Round (TDrinks / 28);
LoadRate:= (3600*(TLoads))/(Sec);
ProfitMade:= TDrinks * Profit;
ProfitRate:= (3600*(ProfitMade))/(Sec);
SMART_DrawBitmapWithTextMulti(True, ChatBox, Point(1, 338),
['Worked for: '+ TimeRunning ,
'',
'Bought: '+GroupDigits(TDrinks, ',')+' drinks at a rate of '+GroupDigits(DrinkRate, ',')+' per hour' ,
'',
'',
'Complted: '+IntToStr(TLoads)+' loads at a rate of '+IntToStr(LoadRate)+' per hour',
'',
'Made Profit of:' + GroupDigits(Profit * TDrinks, ',') + 'gp at a rate of ' + GroupDigits(ProfitRate, ',') + 'gp/hr'] ,
False, Point(44, 343), CharsNPC, clTeal );
End;
Procedure ProgressReport;
Var
Sec,DrinkRate:integer;
Begin
Stats_Commit;
Sec:= (1+((Getsystemtime-StartTime)/1000));
DrinkRate:=(3600*(TDrinks))/(Sec);
Writeln(' ');
Writeln ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
Writeln ('|' + ' --> YoHoJo Drink Buyer ' + Version + ' <-- |');
Writeln ('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');;
Writeln('|' + PadR(' Worked for '+ TimeRunning , 70) + '|');
Writeln('|' + PadR(' Bought '+IntToStr(TDrinks)+' drinks at a rate of '+IntToStr(DrinkRate)+' per hour', 70) + '|');
Writeln('|' + PadR(' Made '+ GroupDigits( (TDrinks * Profit) , ',' ) +'gp at a rate of '+ GroupDigits( (DrinkRate * Profit) , ',') +'gp per hour', 70) + '|');
Writeln ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
End;
Begin
Smart_Server := 30;
if (SRLStats_Username = '') then
SetupSRLStats(779, 'Anonymous', 'anon1337')
else
SetupSRLStats(779, SRLStats_Username, SRLStats_Password);
SetupSRL;
MouseSpeed:=30;
LoadBitmap;
DeclarePlayers;
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
MarkTime(StartTime);
If StartingAtBank Then
WalkToBar;
Repeat
If InvFull Then
Begin
WalkToBank;
If ClickObject('Booth') Then
Repeat
Wait(10)
Until (YBankOpen);
YDepositAll;
ProgressReport;
WalkToBar;
End;
ClickBarTender;
TalkAndBuy;
Until(False)
End.
Do Work:
http://villavu.com/forum/showthread.php?t=53148http://villavu.com/forum/showthread.php?t=68426