here is a working version, at least for me… sometimes it doesnt walk back to the bank for some reason, sps might need to be re done.
Program Spiker_Taverly_Summoner; //By Spiker
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/SmartGraphics.Simba}
{$i sps/sps.simba}
{==============================================================================}
{========== INSTRUCTIONS ==========}
{==============================================================================}
{========== Spiker Taverly Summoner V1.4 by Spiker ==========}
{==============================================================================}
{========== 1. Fill out all the information below. ==========}
{========== 2. Start inside the Taverly bank. ==========}
{========== 3. Put the secondary item in the first bank slot. ==========}
{======= 4. Make sure correct bank tab with secondary item is selected. =======}
{========== 5. Make sure pouch tab is selected at obelisk. ==========}
{========== 6. Make sure the filter is on at the obelisk. ==========}
{========== 7. Have charms, shards, and pouches in inventory. ==========}
{========== 8. Post proggies and buggies please. ==========}
{==============================================================================}
Const
World = 22;
Members = True;
Signed = True;
Version = '1.4';
SRLStats_Username = ''; //SRL Stats Username
SRLStats_Password = ''; //SRL Stats Password
AntibanAmount = 1; //Amount of antibans (0 = None, 1 = Below Average, 2 = Average, 3 = Above Average, 4 = Extremely High, 5 = Every Trip)
Var
x, y, AntibanCount, Commit, ObbyWait, Start, TotalTimeRunning, TotalExp, Trips, PouchesHr, OneTime, XpPerTrip, XpToLevel:Integer;
CurrentStatus:String;
XpPerHour:Extended;
Procedure DeclarePlayers; //Declares all of your players' stats/info.
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers)
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Runescape Username
Pass := ''; //Runescape Password
Pin := ''; //Bank Pin
Nick := ''; //3-4 lowercase letters from username; used for random event detection
Member := True; //Do not change
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Summoning;
Active := True; //Set to true if you want to use Player 0
end;
end;
Procedure Setup;
begin
ClearDebug;
SetupSRL;
SetupSRLStats(1016, SRLStats_Username, SRLStats_Password);
DeclarePlayers;
OneTime := 0;
Commit := 0;
AddOnTerminate('SmartProggy');
If Not (LoggedIn) Then
LoginPlayer;
Wait(3000+Random(1000));
ClickNorth(SRL_ANGLE_HIGH);
Wait(1000+Random(500));
XpToLevel := XPTillNextLevel(SKILL_SUMMONING);
Wait(250+Random(250));
Gametab(25);
SetRun(True);
If Not SetChat('off', 2) Then
SetChat('off', 2);
SetAngle(0);
MarkTime(Start);
end;
Procedure StatsCommit; //Commits your SRL stats to villavu.com.
begin
If Commit = 5 Then
begin
Writeln('Committing Your Stats.');
stats_IncVariable('Summoning EXP (Gained)', TotalExp);
Stats_Commit;
Commit := 0;
end
else Inc(Commit);
end;
Procedure SmartProggy; //On-Screen Progress Report
Var
VersionInfo, TimeToLvl, TimeRun, StatusInfo, PouchHr, ExpHr, ExpGained:String;
background:Integer;
begin
TotalTimeRunning := TimeFromMark(Start);
XpPerHour := Round(60.0 * TotalExp / ((TotalTimeRunning/1000.0)/60.0));
PouchesHr := 1125; //((Trips*25)*(Round(TotalTimeRunning/3600000)))*60;
TimeRun := ' Time Running: ' + MsToTime(TotalTimeRunning, Time_Short);
PouchHr := ' Pouches/Hour: ' + IntToStr(PouchesHr);
ExpHr := 'Experience/Hour: ' + FloatToStr(XpPerHour);
ExpGained := 'Total Experience: ' + IntToStr(TotalExp);
TimeToLvl := 'Time To Level: ' + MsToTime(Round((XpToLevel/(XpPerHour+1.0))*3600000), Time_Short);
StatusInfo := ' Status: ' + CurrentStatus;
VersionInfo := ' Version: ' + Version;
background := BitmapFromString(504, 130, 'meJztnfdXG1e7qP+Gu866v5x7' +
'ar706nQ7cSFuGAymd1Rn1LsQSEgCgQAhgXqX6AJ10UQ3xcYVG8eOU' +
'xwnsW/Ouefeddf9L+7GSvj4AMmiGSffu9azxuOZYbRn5p1nXu29Zy' +
't850kYAAAAAAAAAAAAAADg757h1Sdj954ihu/8HLn1Y/jmo9jKT+i' +
'/o6tPRu7+gkDLEb/Nrx5+gQEAAIAdkdB4AmR4RGI+4fmNCxOejx52' +
'gQEAAIAdgeydMDmaid//FYFmUGK/0fzrqo+ucfhlfgEU8BrfzyH85' +
'avCVzIK3smq/KyYRlFbD71UAAAAOwVJe+ze00TejqaJ6hqk9NCNHz' +
'am8RsT+78Hz1dJtX85lf9eVuV5as0pAv+9i9VvnCv9x6NZRJXp0Ms' +
'GAACwI6LP8vn4vafjq0+iNx8NLT0YmL83uHg/dO27kZWfxp6tmrz/' +
'KwLNjD3L/P/0nj9NFHxyifTOudJP8imZmCSXJc+o5h25RPr3U/knq' +
'3lfUcWHXkIAAICdcfu3qngkefvIFXN4zhO/Fly6H7/z09S9X6Yf/D' +
'r78D8RUw+Q6p+M3vlp+O5fiW5lQ23/aGLm9+UJwnd/Xv/o0KEf+xZ' +
'yOY0f5RCOFmIny1mIY0X4x3nkz4vwExVspPpjZcwTRP6hFxIAAGAX' +
'XH78/wYW7ze6gvbwrG/qWnj+VvzGg6mVb2bv/Tj34Oe5b5/Mfvd07' +
'tGvl3/8j8Xvnyx99wuaLv74P2e//2XiwaPJhz+jVTPfP53+7sn0N0' +
'9mv3ky//DplW9/vf79f15/9F8z3/y8+Ph/XX3yf+cf/e/4g6ex1TX' +
'Vh1Z+QZIP3Hka+o1nzt/wCDgU3s4mfJSPHcmuOkcQlAvVZYLmi1jt' +
'BWpNiUhNV9vy+SqUz58kCQ79YgEAAOwC5+RNfqeX22I1Doy0uXy9o' +
'7OxhetjV29P3Lw3cefBxN1vJ77+Pv7g0dS3Py7/8PPSw0eL3/yw9O' +
'2Pc98+mnzw3eT976e/ezz18PHMw8dz3zye/+bx4oOfrzz45frDp8v' +
'f/nLj5/+4/vS/rv3yf9CDYGz1p+jq49jdX0JI9XeeBn5n3fOHaPu3' +
'sqo/KWa8klGEJF/GUzEbzXyNW6TrkpoGGlyhpu7hMyThO1mVp8jCQ' +
'79YAAAAu4MgbVfafPV6jzs06Q3H/fHLwZmlyML12JVbw9fvRG+uxl' +
'YejK8+XP7+p6Wvv5lduT+7+s3l+9/NfP3t1NdrqkdMPfhh9sGPlx/' +
'8uPDgx8X7ayx8/Wj5x6cLj55MP/gpcvub0PWHoZUfond+fqk8n8VS' +
'fliAH8nH0LRAsJbG0+X6mnaPwjLY2j3S4Zts7R2tdwSKBE0f5VPO0' +
'esO/UoBAADsmmKOvNHa0+4e0Dh7+mKTvtEZ/9RCcO5qYOFa6OqtyI' +
'3VsVv3lu59O3P99vji9fHl22u2v/dwavXh5L1vEUj401//MHf/0Rr' +
'3vp9d/W7m7rejN1cjN+76l1Z6528MLNwN3PoOeT5456eXx/P/dDwP' +
'Gf7fMoqKJe05DAVFqpNovS2usK5ntKM/3jk4hTyvcAQuMmTvZldlE' +
'KHeBgCAPzC5mIDbqGs2ewxen9c/3BUe7RueGBifGZicG5pdRLaPXb' +
'05eeV6bGo2ODYZmb48efXG1K07E7dW47fQI2B1/Pa9+Mr9tXqeOw/' +
'QzNjNr0dv3BucXx5cvO6bv9m3cHPoytcon4/d/eVl8PxnpayvKJI3' +
'L1S9l0v+II96iiQmNJgZameNrkvjipgGpwwDE9resbae0UZ3WGLsO' +
'1HBPlrKKKvVHPplAgAA2AtcVbtYrWNJG2x9fsdA0OOPeoLD3shY18' +
'hEf3zOPzUfi8/4I8O+QDQwOjE2tzi+uDy2dCN25Ub0yg30FIhcvRV' +
'dvp0AzSPQF4HozdWR2w8jt7+J3f4hdu+n4dUnh1VvU2sLZDMVnxTS' +
'Pi7Aj1yivJJR9FZm5Tms7jwurZR1Vkg7OBpve9+4yT+j902q3RGFz' +
'S81DTCarSWCpk/yKe9eqHj9bMl5vPa9S8TzDGl1o/HQrxcAAMCOoN' +
'Q0shWtdS2d5m6f2Ttg7Rmw9w06BvyuwaA7GOmJjg+OxKMj8WA4Egh' +
'GI6Px+Mzl8cuLo5eXhheuxBavRhavhhevBRevhZauB6/eCC3fRJIf' +
'vrkav/ft9IOfxu//OHr3MfL8obTDNrhjRXz1p/n42+cq3s8ifFZA+' +
'7yQnkmtKxW1VUi05TXtFKVZYhps7ZvoCMwo3WGZ3Y8Q63uYalsBr/' +
'GzQuxUFfdIDuGDi9UosUf82/HcL8uYh37JAAAAdkQZW8yqb0KZfLv' +
'VafL22rr7HL0+Z9+gc8DvGQr1BEf80bGJ+PTY8OjI8OjE5Oz03OLU' +
'5cWJy4vjC1fjS9eGl5ajS9eR6sNXboSv3YreWIndvBO5tjK++hB5f' +
'uzrRyifD638EFn56QXX2zQ4Ixdx2ZEswie5lEyypISvrhBrMKWZpX' +
'Zy2zxoymx2CHU9Ske4pTduCF+utQ3x9T0iUz/eZMnjKLNodbkseT6' +
'3AU2JMl2tqZ+v9ZwjCTMqOYd+yQAAANKHodDQpU1tjm5r75DR02Nw' +
'etz9/a7eAWdPv6d/0Orp1pnsRotjfGRsLBobCUfQzNTktMFk7urrD' +
'yP9zy+NzC/O3rkXXrgSvXbDPTo+uLCEsvrw8u3AVeT8+8jz4/d+jt' +
'z9ce1dqge/HrTna50RWqunQmZAafzpat77FyreOVd6vJRRJlLz2t1' +
'Si6+5K9bgCqGMndViZ7c6kL0b3WFVV6zeEaiz++lqWw6z/ixZhDyP' +
'8vnz1Bpk+yJBE9reGJpTOoO5DNl7meUv5tJ03XmSM92eM/7KRhqmX' +
'wnfWd7jnglLy9vuM9nyw0KPzsA4c9MZ2ApvHJVz6BDLuV/nfx85uO' +
'AB/lh4YnPsRh27oU3j7DH1DHY6vXqHm8bjqdu1eotVqzd0Gq0Gs12' +
'nt3R0miaQ3kfHJoZHxmPD8dFxTVs7Ur3d7THZXU06vUpvbLLYE6of' +
'u30nfG2t9ibh+dF7PyQ8j/L56NdPD87zqu5xjrbneAX/3SziP32R+' +
'3pGARLy0UIskyJGkmeqbUjpyPBoioRPkGoLOMpycQtX45Lb/Wg5T+' +
'dlaz3I7Z8WUE9VcUvFLWj+RAUbTclKg8oTQZ4XdXafJ4vQg+MFXJ2' +
'cuaEUZtPPvbKXnYPnD5eDPs8HGjzAHwteY2c5u1beaTf2+lut7jaL' +
'zd7bS2IwtEZDV3+fzeGw2xwet9dt99gttpFQeCY+PjsRnxwdmYlPW' +
'PQGu9VqtlptLrfV69U5HBqHK7q4FFm6MjR3eWD2cuDKdf+Vm5HrX4' +
'+sfo88H119jDwfXv1l156P3vs1uPp021VNveO42nGygnesmPlaRvF' +
'HuZTP8rAcujSfKa8QtbCabVLTgMLmr+nsYavtleLWYm7jOYLgRAkj' +
'myphqCxy69Bahm/sq6jVfEXgX2TI0Ew2XZpRzSvkq2jN1lqLT+ObU' +
'LhCSP4f55E/zCUe9KVJfZ/u/W4Fzx8uB3qeDzp4gD8QNLmOJFCI1J' +
'1ad1+LxdVishm93RaPh4BRVa0tFpvNZDJZjGab0WzpMNn0pj6XeyQ' +
'QGItGRsKhmfG41+7o7+r2ut2KhsYOo6ndZNLa7dHZy6PL14LzC5Er' +
'y8HFa0NLKKtfja48TLTD7qX//NpoCXe3X8Vq9+YylZ/kYW9kFB/JI' +
'nyODI/LKsUaTouj3jKoG5joHJxqdIaQ7csEzbk06dqYBmTxqTLW8W' +
'J6AUsh0nU1uSMNjiDK8Kuk2jyOElEiUp+jiE8TBSiTl5gHWvrGWvv' +
'HKQ1GlOe/mlGQiUkO9NLwlp889z5FEJDcbrbv7iPA84fLwZ3nFxA8' +
'wB+IaoGSLWtVGV1tVm+zyWHrG3QPBdQdHUw+T6qUt7a1mAx6JHO70' +
'eTQm/rdHmtHR7fL3ud1oWmov1+HngX6Tr22vb+3t9/n01stHQ5bIB' +
'6fv7MyfGVpcGY2sLDWfz5w5U7wxtfDK48S/W0CK4/3q97GOnGrsXd' +
'cZPIdLWJ8kE1852z5iRLWOYKomNVYLdKwVfZaQ197/5h9eBFN6SrT' +
'BYroZBkjo4KVSRaeI/K/qmSjJWh5W+8I2qDO1HeWKKAqDaXC5hNlz' +
'CxMgmaQ9nk6r7p3tCMw0+CJoDz/ywr2h3lkpTd6oJcmnXwsQddS5v' +
'5+NHj+xXBw5/kQgwd4qbDGb9aa+iVt1ga9o93e3WbztJrtKJm39/Z' +
'22qyVJEIVsZpEqOYw6FKBUIDTuRRcLhA5zCavw+q0GC16ndtsruFw' +
'JAK+iMuhVBMwDKusRv9QGSKRe2hoeHFh9PqNhOcHF275rqyEb3yb6' +
'D+/X55vC8zhra4MoujNM2XvXaj+MJv4UTaxiNmAJM9SWrgqe5M94I' +
'gtaAfGJYae6tq2LKoYGf50Fec8SXCmmotmkOfzWfW1xl5rdF7ni/M' +
'0zjxGfZloren2i2IakjxyPqvNqfNPy51BpTuMN1neyar8KJ9ytJRx' +
'oFdna/PZusQabiLpZW777XuTNxLLN6Z2m0y403x+a5a40RJb124r3' +
'm0LmTiodJyz9fDDy9t3cN1ank3pa7IzufXkb6rf2K8j3XqeG24u76' +
'5I+x486xd90yMjWZCkDrb0g3DX+0m2w63XfXc3ywuO8/2C0e4lSLV' +
'Kg1dr7+1w9LTbPBqLo9lgardY3P19VAaNwWbScYyBUfl0BptEYVRW' +
'86h4t8vpcVodZoPdpPdYTWyMzKJQGFQKC8c4LCaLxcKYjJzioqZOX' +
'WByInR5PlFvM3D5Ru/8jcDyA+T5kXtP996vUuaNVCg6jxN4b2ZVvJ' +
'td9WUZM5MivojV5uB12WRxZhWvmCaTtLkt/hnv+LLC6itiy48XYSe' +
'K8fME3ukK1ueXiEfzSNkUUTFHQZC0Njr8PZM3dP1jFWJ1MbexXLg2' +
'LWAp0PmpMw+ou4dVnojEPCDU91xkyV89XYQ8L7L6DvTqbM1g12Mjx' +
'S2/NbS25nUbY3Knnk92y2+1x7abJSvk+p/vl+fTLM/WM5lYtXX5es' +
'H290i3nueuO8vbXtytRUr2dNuv4NmF57cGW0KwyZanH7Tp7GfvVyf' +
'1zfKC43xHpBjjHW80inQOeYdTY+tSdVgbdCa9u7vD5Wk1Go1ORwWR' +
'wOGyuUwGTiKyqVQhnc7HaHw63WW1WE2dKJl3WU29LjuPjnEwjMdkC' +
'NgsnEwik8ksPq+aSunx+xdWViJz85Gl64GlG/2Xl3tmrw1dXR259+' +
'P4fST2x4mybSSc3ujENQ4/rnHm8Bo+LsZfO1965BIplyVnNFsF7R5' +
'KfWcBo/5sJfdMGSufImHJDQ0WnzUw09Yd47Xa8xlSpHqkd2T7jDJG' +
'JpFfxm+k1uu4Lbb23pHuievavlGKTIvy+VJ+E0mqYzXbag19je4w8' +
'nxzV4zZ6qiW6Y6VMV87U5zNUezvZdpKMgUl1qZ56yVjPcx25Plk9k' +
'inUmVj8rl55+j++v1I98XzOyrPtmdy0x7WZbLvR7rted5RkQ4ueHb' +
'q+WQQprcXY7Ig3PV+9nh1krFf+99pnKcmeuevP9WdaLUMJbF9bbux' +
'pkXX1GlrNtiajHaVydFksTfb7G1Wu85mo9IZGIWCIdvTaYqamlaVs' +
'rVJpWpQep0Oi0FvNxk72lq9DmuTQtasrG9Xq9BUwONiGIazmFQGc3' +
'hyxj8SH1u4Gl64glL6wMKy7/JV/5VbsZUH8XuPke0Tvz+SsPom2yd' +
'D6oqQVFaUw793ifCX0wVvZ5WfxcRYk6nWOtDgCpYJm3JotV+VM5HJ' +
'v8wjZxMFLIVeZRuyBWft0cu6/lFeq62QJbtA4ufiNSVcRaWoid6gF' +
'+vcTa6ALTLXM3ldPxgX6zy4XM9ptkkNfSpXuNkTVdoDNYZevtZTyF' +
'cdK6EjyR+rZIttgwft+a33V87z7JR+6D43hdt2+aavq+uqSafJL0X' +
'+tu09tRfPp3MS1vO0TRsnlm/6iPWN9/1Itz3P6Txkn9sSsffg2S/P' +
'J+NQ9pPm1dn2vL3gOE/T86HfPb+m+g1JsmdsVmGwq4wWrkypc7iaO' +
'61NeqvKYFOa7A1mW6PF3oI8b3Ugz1NIJEJZObG0lFxVTiFWVlaVlZ' +
'QWOu12h9nS5/W4bdb+LjfSu6KuRimVKGQSDptOpVIxJoNCZ8Umpod' +
'iEyOXr4bml0KLV/zzVwfnllBiP3z76/jqD6P3fhi9+3j47uP1X5h6' +
'VtqnKVS/ZvhqwTs51e/nEN7OLP2siFpR0yLWd/O17uo6TQFbfpbAy' +
'6KKc3HJeQLvZCF2tpxFqdUgz7uHF9yjS5bQjNoTknR6+W12bouV3W' +
'xG2q/p8DQ6hgxDE56xK13xZWt4tr13WO2O6PrGOwcm2rqGGxxBlNL' +
'TVOYSQdOJCvbrZ0s+KsJ4xt4XIPlkcZW6qW5raCEH7uKrevp5ZjIP' +
'pLDxgXo+WSqb7K82neRtPX9wR5rO8zR1kQ4ueP5wnt/Hq7OR1M/Hg' +
'4vzPXpepDXjdQ08pUqobNJY7SqdWdVpadRbFUakemvC81qLnc0X8D' +
'gcDo3OwTAmRmbgZAqVSKYQrGaz3WTu7/J67DaLXicRcPksOo9JqxF' +
'yGXQqmUymMuhkGjMan/JFxiPTC/7Z+cD8IpL8wMzC4Pxy5MbdsTvf' +
'jax+n9zz2/eNf/NC1drYkherUVKdSRGxW+06X1xq7kd6fyMj/90zR' +
'SiNP1lCO1vFOVPJRjPnqrnE2ja5sc8SmLKHZ63Baf3AWHt3tM0bbn' +
'b6lZZ+NFW7ArreYVtoBj0LXLF5R2QOYRqc8o5ctUcWVI6gUOvltjr' +
'LxS0ny1nvXqjIIApemOS3Da0EKb6zb5udpn+rpliuR57/2y+tiXhO' +
'VpWdoor7BXs+WeVSYvmmvSXO7SZJJqsh3/uRpp+6bypnOv3e9xg8O' +
'/V8Ys9bz0ay5fu7n71fnYPe/07jPDXP9TxBouSpNHKdXqnVyzXaRq' +
'2pQWdSdpjlBqR6C0rp1RZbu9lGxml0HGfjNC6Oc+gYh4mzOQwuj2W' +
'3WpHnkeSNOq2sRoiTqhlUEotO5bJoVIxEolASng/Hp/rCY6HJy76p' +
'2aG5ed/sYv/0fP/sUnD59sjth7E73+7U86+eLXvldMlH+ZSLWG0RW' +
'85vc7T3jtSb+9E8Unohqx5Njxdhn+ZUH8sno/lSXgO3xaa0DSKTI8' +
'97R5fQtLN/VNsT6+gbQTOmoQnjYNzsn0SPAASaSTwRkOe7Rpetocu' +
'1nT3V4tZLdNnxUsbrp4s+yafw9T0vwO0b2fal9RShssdbNcVy3vL2' +
'T5A/iue3/tW2/t/W86mPaN89v2mHKYr0UgVP6qqw9INtd/vZ+9VJn' +
'RT94TxPrG1gyptRPi/XdCjadUqNQak1KnQmWSdSvRml9M1mK/I8gU' +
'KlYRgLw9lUKp1CxCkEpHGcRvE6nC6LFXne3NmBMnnkeTaNymPTker' +
'RBhQMozIZRBozMjHdHxn3T8z1T0wPzl5GyXzf1OXe6YWhpRuxmw92' +
'4fkLTMW/nCw4VcXNJAgyq7i5FDFBpGY1GPlqW027G+XtIq2bVKfJp' +
'dddxCXFvAZMqRd3dqmcAaR0lKUjz6/l6hvcjqyOMnkE+i9amFiOFj' +
'ojC67ootE3KWr3XKTUfJBZ8f6Fis+LcLbGdXA+T02yvtBbk7qD8zx' +
'haWjbj96X+N/R2zrp96tM8Scby7Pp5KC9bSrhPn5z2XSk6VyvxJ9s' +
'W6Q/SvC8gOV7vzqpj/fFx3lq0snnyeJ6eq2sRtUia9XIWzvlGn19u' +
'0HaYarXm1BK32SyaExWGovNYbEELLaQyUT5PNI4jb7WNuswWxwms9' +
'dhd9usPCaNhVO4DBytpdMo6CmA0WjI89UYPTQ53R+LI8/3jk/6Zua' +
'Q53sn53qm5gcXr0dv3E+8G7sjzyM+KqS9k1X97vmyowWUY4XUD7Mr' +
'P71EzMZqkN7pDYYyfmMeU4Ykn0OrLeIqKfIOmWXA6J9C9jb5x02+c' +
'b1vxIY0Hpt1hGYMg6PGgTFLcMIenE6sTcyjjXvj1+2huY7e0RpdVx' +
'ZJ9NZXRSfKmAy1c1+uzq5JlhtsulsP6FblTb+SM71Npc22cZ6MFPG' +
'fvrXCO/R8io5wycqD9rZVswd0pGme/02Pnp3q4nCD58/q+YOO89Q8' +
'1/PVNQrkea6iUaBQiRpU9S0d9W2dMo2+TmeUdRpRSp/wPMrnMQqFQ' +
'aGifB7JnJnQOE62GU1WvcFltSDVMzEySubZDAxl+zScjDGoVAadSK' +
'eVU/BAfLIvOj4wPtMzNoE875tdRJ7vnrzsW7gWuf71LvL5BCW12uM' +
'E3oeF1NNYzdsXq97Jqvz3U/lHcghHsqtezyh450zJZ5fI54nCMp6K' +
'pjDIjP2dfWPmwTGLf8zuj9uCcUdgIjG1BsbRkm2m/rhndN4Vm2/vH' +
'ZYYes6TRZ8WUC+ylBvL8NfeQXd/fpG/cphMWam6cu3TrbqJjZ7Ze/' +
'zv9CXWND3/3N4R6+XZWiWy8XSlqKHa+5Gm+T7apkfPLl77PcTgAc/' +
'v+qql4Lmex+Tqan4to66eKUEpfbNMrZO1dmzyfJvRgnJ3Bo3GwvBE' +
'/fyazGkUCpXodTidZgvyvMduw0nVKJkXcJkomadiJOR5Cp2GjF9Mp' +
'g6OxbvCo/1j0+ue75u6jDw/ML+8F88jCmrbGMaeS2J1uVJ/SdhUKm' +
'3PYsjeyix/9WQeSvWPFWCZJFGFoJndZFWYBto8EevgmA15PjDuQIb' +
'/HfTfbUG27xqZdwzPIc/XGNcGpfwYeZ7ZsLEAG1/sesG/Zpss2JI1' +
'8R9cPp/ivZudxv9OX/ZPx/PbfGVGh7Bd/fzWHeqR5zccUYqXqvZ+p' +
'Mk22FSkTY+e3Q2PcFjBA57fy1VLxnM9X8KVkEQymkTKqJHy6hU1Da' +
'01qraa5nZxW4ekvaNOp5frOpt0eiIVYzEYYi6PT6fTyAQem87lsYi' +
'kqvjwyPTY+Ex8fDgUFPPYiVSfxcTR2jJCOYmG82R13eGoJxTpjsX7' +
'4jNdY/Ge+GTX+LRndLJrYg55Pnj17tDy3V17fitfkYRflLNQSv9FM' +
'e10JRfl8yWcBuR5pdnXZPdbfXHb0FqujtL4ddB/twXl86k9v+kF3o' +
'Pz/I76a+3XK40plufMbd9Z4iX0/NZMHm2Q4hXRTas2vs+Sk7IlYu9' +
'HmmyDTUXa9Oh5biveyxY84PldxHlqnuv5IraYIKjDxLV0cR1XJhcr' +
'W8SNrcjzolYd8nyttjPheTJOwygUNk7jYBjyPIeJc7hMlM9H/IGRU' +
'HgkHAoN+pDnE11xOGw6nYERcRLO5WgsptDUjDc27ImNe0cm1j3vHZ' +
'tKeD5w5c7g1Tv75fkzuOS9i9X/+mXOOZKwiNdYym/KpUkLGPWMBhP' +
'yvNoZNA/+2Ty/NRSf26Vh3/vbpKi1fq6FDtrzmw424bH0hwLgIc9v' +
'2DLFN5e9H2myDTZ91qZHzy7anQ83eP6Unj/oOE/Ncz1fwBRWcMRkg' +
'RgXSli1UqG8WdTQIlK1CVu0NRpdwvMqbSdPJMapVBqJzMVxJkZm0a' +
'lMFg3Dyd1OV6/T1edy9TgcSPJoFcrn6TQKhUbG2DQKl+0JDIVm5ty' +
'RqDs27hmOI8/3Tkx1x2fWPe9fWvFdWdm753N4DV9WsI9cIr1+uiib' +
'Li3gKGkqs6DdgyuNpNp2rtreYPNrvNE/pee3fZXmQG/VnfafP7j43' +
'9/+8+Et6tvk+RQtzgfn+U2rNhYpnUbYly14wPO7iPPUPNfzuTi3mM' +
'6r5vApPBFdLOFJG/nyJkFDC79ZI2ptR6qv13YgzzeqWzgsFp1META' +
'YyOcMnJxoh3WYzA6D0WEwINYk/+wVKoxKpLHW6vHLMYon6O+JjVj8' +
'AST5tbqav/V8/+Wrgwu3+hZu7tHzKI1/40L5Px7NevN82WmiAHm+V' +
'NjM13rU3liTOyI3+xSWwRZPVNczslPPe0b/AJ7faRflvd+q6Y+vte' +
'v7a1/OzO48n6zdOXWL896PNMUGfzNw4gbPp9Oc97IFz5/Y8wcX56l' +
'5ruezKaxLZEY5g01g8ah8IatGzq5TcupVnEak+lakeqlG26DRaTo6' +
'+VzuuufpGAlJHuGx2d1mi8tkcpvNXAbOY9K4LNpal0s2jUgjV9Iwl' +
'3/QEQxZAkHXcBzhGRlbr5/3xmd7Zhb75653z13bi+crZbo3zq2NYH' +
'aqiltRqzlD4FfUtDLVNqnFp+2PGwOzet9ke8+otnfMMBBHnrcMTVj' +
'9k7bA1Drov8l4STy/1UsphpZ97qsl+3KrbrvzP4fnk3XO2SjVF+z5' +
'ZD1k0jld+xI8iWfc1l2B519MnKfmuZ4/T6BlVVGLMXolnU3i8GiCO' +
'rpYxqhVMORI9c1I9ZKWNnmLprlNw2WzE/U2LJyCPE9nYMjnyPMei9' +
'VjsSCQ59cq55k4Wo4zsTJihUgp7woHnaGwKzZsj4yaw8PO4VGU0qN' +
'k3j0y4R6b7pqa75m+6p5a2rXnc9gKZPj3sio/uFh9Aa/NxCSMZive' +
'aFJ5Is1dsYTnzYHZzoEJhDk4Y/RN/BE9vzXeUpCsKS1nX8e32bZ9M' +
'9nOU3j1BXs+UZ6tZ2aj59OR6kEcaYoNko2OmOYv/e1L8GzLy+n5rY' +
'ecWJ5+k/ROPX/QcZ6a53r+bBV2roxYQMbKcSaBxaFwxFS+BBfLcKm' +
'SqWjkqtTi5hZZc6uqpVXI5yfGPWBQSUwahfksb1/rVGkyo2Qekai0' +
'YT6rz6Gx8JLqMoPX7Q4HLP6AY3jYFIpZIiP26DBK6ZHknbFx58ikZ' +
'2LOO7HoiM/vzvN5vKZ3L1R8mEs8XspAEi7iNVKVBmFHl9zu1/SOmY' +
'JzCP3QtME/0zk4ZRya9oxdtQVnzf5Jg2/ciBL7Z+/AJkY5WHt/amg' +
'CTdEStDyxAVrVNb6IPK/tG5GYejIp4kP0fJo//ZYidHd6a6e+lZKF' +
'dDofmmIcv4Nuh03GRs8n602R+k2ivR9pig2SFSnNV+YPLngO3edpL' +
't/11dnLuG37GOepQeZ8xm+qX/fS+gany7EzJdV5REo5Tq9isEhsPp' +
'krpgrrcImcIW9gNzSJmtS1zS3Nmvaa2jo+l8tlMuhUCotO5bCYNIy' +
'69oaU1dZls3nsNjYNX/M/nUZj0hlcdjGhsn84ahv0tXd1m4JBQyDk' +
'HB13RGLu4VGkekd0bK0aZ3zGHZ+zj86Nrj4aXlP92s/FhtPzPFXte' +
'O8i8UgO4WghdpYoKOQ2YA3GGkNvkzeq9U3oBibaekabPVG1N9beN4' +
'5QuyNK65C2e1g/MJYY0yAx7gGaonlHZC4x4kFiVWLoA7QK5fP22Ky' +
'mJyY2dCXy+RxW43oZXqTn01TWXobUPqCUKYUc9h7/u+hXmfokpDjV' +
'm7bZ9yNNvcG2Rdr7iAfJgifZ0W0a+P1l8/n68r2OD/88z7/gOE8Bc' +
'iYy5wZ5Pg2t/BpY+RVN17c5V0XPrCCfzL5UVE2qxOhEFo/MEWCCGn' +
'qtjF2v5D7zvKS5pb6lRaJU0lhsOpO51sGSTmNQsR63C3neaTEjHBY' +
'zg7Y22BlGo5FoeHF1FVcma7FZ3ZGoNRDUD/jcYyjBDjojUU801j0y' +
'2j0a7xmb6hqZcg5P2WLTY3cfjW7wfDgNz39cRH/jXPnnBdSMcnYeo' +
'55S3ynR9yKrd/gmjYFZlMO3do80uSP1lkFuq5PT4hBqvYI2l7SzW+' +
'0MGn0T1sBaHU5n31qlvcU/bQ/NoRldzwhagpYjTINrwkeet0Vn2rq' +
'jwk7POZLwk0LsED3/3Lv1ua+ubxqXJmdvvye1bRXuc9Wa5o8Vpslz' +
'Pb9tJrz114I2OXzrI3Lbni37e6SpN0izSPsVPNuet61dag/d57to1' +
'Ejn9D7X8y84zlPwu+cfDyfkuZLw/H8g1rd5OyPnXCmpmsm9UFBMZL' +
'ArqPQKnElgcik8EU209p4sSybnyZXSlhaRQoExWRiDSaFQuAwmE3n' +
'e4fxbz9OQ5Cn0Nc9TudwWk8ncN+AKRyz+gK63zxoMIdu7wiF3JPys' +
'O/2oJzbuio7Zw+PG4Hj8medH7/y04dvH03BKz//lTOknhbQvimnni' +
'cIKUQtf4250hlAO39I1jPQuM/vQEgS90VzMbSxkK9E2JTwVJu8Qa1' +
'wtrtBam+zQFJI5As0gsbd3xdAjAK1qdYfbPBEkfGtw2j28kKifF+m' +
'9yPOfFuGH6/lwkkRl23rabUNrY/Dv8fdhk436uCMvHbTnw1sUl9gg' +
'tefT/NHP/T3SnXp+F65IP3i2nrfEKdp0Zg7d5zs9qzu9Oik8/yLjP' +
'AXpeP6znPK3vzx7pqDsy/PZJURKGRkvo9Kr1tpkBbiohiGpY0vruT' +
'K5TK0Wy+UYk4HT6TiVymexWRjutdo8lu3zeYzDsXZ3O4cGLQP91iG' +
'/vn8AZfW2YAhpH+EOx5zhmCM0bA1EjYNRnS+2U89f5DT+84n8D3LJ' +
'KJnPp8voSqPCMtjWNdziidabBkTtHmaTlSTVVYpbkdtRtp+D12VRa' +
's5U8YrYcoKklddqb3IFDUOTltCsKTDdMTDe1h1rdPilxl6R1o3WCj' +
'ROuWUA6d0RmXONzusH4xLTs/FtXgLPp8+BVgkCL4xk9W9pNsICf26' +
'S1Nv8jeePF5A/PJtz8lLJl5kXi4jUEiK1nEKrpK1V1ONCMatWiiQv' +
'kClkTU2SejmNwaDT6QwqJuJwuTjNbTYjzycaYZHqWTQcqR55nkzDK' +
'0lke3e3vb+/w+2y+YZMAz6bP+CORJHkHaEowhaMWfwRw2BY1x/S9I' +
'V/q7d51pqQKFhqz7+XS37tXPmRS5TE8DWCNpfKEVS7I0jynGYbVdZ' +
'RLlRXSzQXsdrP8ygfZFa8mVH4zpmSEyWMc9XcbIqoQtgkbHdpeobN' +
'wZlOX7zFG1E5AzUdXlzRiVahZ0EprwFl/sj5nf2j9hh6FkzVWfpeh' +
'nqbHQGe/3Owref3cVRb4A9NMs9v2uwf3vjo9aOnTueXItXnlFUVVB' +
'JLSdRqGpPK4TOENWyJhF9XJ1Eqa2T1DBYLeZ5OoYq5PC6Oe0ymLuR' +
'5i3Gj52k0GhXHqyhkW5fX3tvb4XTaBvpNfb3m/j7L4JAzGLEHY7ZA' +
'FEne5At39oe0fcG23tBOPf9BHvXdHNKXFdx8phyT6iRar+JZGo8MX' +
'8xW5mK1X+RTMwmCIxcq3/qq6KsKztF86itf5Lx/vvzoJfKJIlo2WY' +
'y2lJt9mu4R9BVAaR2q7ewh12kvEIXHC3HE2UpuAaO+SqxusA4Y/ON' +
'G/6TU2n+WKPi4gJrLVq0XAzwPvAC29Twk88Bv3H3W2eavv6+9vecT' +
'vPbp8YxLxWfzirKLyvLKq8rIGJHBxnlCTk0Nr7ZWVCeVyOrZXC6Lw' +
'aCRKc/y+VSeRyl9p81q8XiMbretr8/c2+McGjT7Bo0DAcNAQN8X0P' +
'X5tT1+TXewpTvQ3BVcb4RN0/MfFdJQPn+iil8iaMIUBqHGzW11ogQ' +
'+i1JzvJiOcnhkeDR9PaOgiPdb+o22fPtsCcrtP8khIo2jhB/9lcLm' +
'X5O8oQ99C8ilST/MrHjtRN6R8+VoJ1kk0SW6DKX9bX3DHUOTdeb+r' +
'wj8j/KxHO5fPf+ssRg8Dxws274HceilAl4Wtnoe5Z8bOtts5L+9+u' +
'7rn504du7iyaxcZPvc8uqE6uk8IVMg5orEtfVynkDIYbIxIknAYrO' +
'31tvgNAaNlvA8TyRuMxg6bTaTx2PwdHW4PM5Bv76nv9XVq3b3Njt7' +
'Vc9odA0onT6ly7/B82vtCGtNCSk9/+rZsg8L8BMEIVFpIiiMFRItm' +
'n5aRH83m/Das/bZIlHrpj/h6/veOF36wYVqxOlKfjYmrapp52m8bL' +
'WT395VwGp463TpkQvVJ0rZb2YUv3uu4hxBdLKMk8dR1lh8Ck9E6Y0' +
'eK2O/nU3IE6gP/8oCAACsc3fTm0dJPZ/gzaMn3z+R8fmZrIyc/OyS' +
'imICuRJjkOgstmDN80JRLZvFIRNIbCaTidGcFqvLYl1rhDVbEAnJr' +
'9XP4zR1u7bDau2wOY3e7laztaFD3+H0KvQmhdktNXvrTV40lVm6pJ' +
'YeqbW/zjbwV8nf2eD5322/lf/x5aV3c0hncenxakG+sOUCU/FlFR9' +
'J+IM8akmtNtnRNXaPHi/jfJxDPl7COlMtrBBr2C0uNC1gN75ztvxo' +
'AY2qMKElaOafP8v+MJt4qpKfz28ul3WydN2Mdi/6lDcvVBVLoFIUA' +
'ICXibs/hxC/ez5Rn5z6T/7lw8/eOpZxurD8TEHZxbKqvAryWsssmS' +
'aQSFk8MY3JFQglOJ3BYfMddqfFaLaazWhGp+1gc3nVZAqFRqfQWRq' +
'DWaXt1FmdDVq91u6WanSNequ03YAMz9VY2Wojp80i7HCiTN4zeW39' +
'o9c9n3gkpfD8X86UvpdLLhS3ZbMbjuRjn5Yw379Eee1cOVJx6qOrr' +
'NUdK2a+d6H6wxxyFi5DXwTOkmq+LGWjVJ9Yb0hsw1A70QZvnS3/ql' +
'qYQRQRGszogyrlhn89VYi+RBTVaA7/sgIAAPxOaIPnA797Pp3Bwf7' +
'h9fc+zbz05tFTl6qwM3kll0oJZKaATOeRaGyOQELGWVQ6p02rN5jt' +
'epPNZHW26vQcYQ3K/KlMHonJFStb6ls6FO0GrqyRJ1fzGlprWjpYy' +
'layrJXebGryhlKV+bdK799tv902KI3/h4/P//OJfOT2V8+WvZFZmf' +
'W3P+eXjKq6jo9yKUjjJ8q5l1gNmdS6d85XvptZRW2wWGJX1zcr4qu' +
'R59++UPVxAZ7JkBeIWv/peN7HRfSNlfMAAAAvA+tj2qyz/numz/3b' +
'V4+e+fBszvky8gcnM7OKCBU4t5rGp3DE3LoGKreGxBJKm7W1CrVEr' +
'pI3tUmbWjkSGbNGypepkNu59c0IpkwlatZylG0IrK4Rkz6vZntlg+' +
'FXfk3heQTS7yfFjI8KaSilT/+ECDv7Pi+k/+Vk4dvnKt7PIrz+VQn' +
'yPLL6ps3EhgG02WtnShFI7//90wtvXqhK81ECAADwwtgq+Y2eT0v1' +
'xy/828cZp4tJx7JKzpcQs0vJBQRGJV1YSGHnVtMq2aJqhqCSxqPya' +
'uk1CkwoQ2IXqtbEjtc2EoUKkkgp0doK6aKsahZdmbTafEOBt3g+ZW' +
'vC7hB09JaK2vI5qhyGIpepZLa4tt0MPRFwtaNSbrjAVJTLOivq9Yd' +
'+QQEAADaR8PzQ72z1fPq/1vR5dsWXl6pO5lUj52dW4KdLKaeKiGfL' +
'sXwyN7sKzyOzCmm8PCq7iM4vY0nycUEZp+50OX4JF+6ktBsMn+BgP' +
'A8AAPCnIR3P7+KHtg+stFs8/7dDrr08xO69jKUCgDUSXezS59ALDO' +
'wNZPKhO099d5+m9nzg2SCWL0FpNxv+xXt+fbh+APijAp7/OyPRxwa' +
'pftvK+dCGFPplUP3WmvmD8Hx0hxz6RQSAnQGe//tjk9iTb5aqE2OC' +
'39X37G2mRHgk3rfdwrPleyj2ytPEFOrnAQAA/vysvCzNBwAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAPvLlg6Zz+HQCwwAAADsCPA8AAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAOwL/x+bmJCc');
SMART_DrawBitmap(true, background,Point(8,344));
SMART_DrawText(99,396,UpChars,TimeRun,clLime);
SMART_DrawText(99,416,UpChars, PouchHr,clLime);
SMART_DrawText(99,436,UpChars,ExpHr,clLime);
SMART_DrawText(99,456,UpChars,ExpGained,clLime);
SMART_DrawText(266,396,UpChars,TimeToLvl,clLime);
SMART_DrawText(266,416,UpChars,StatusInfo,clLime);
SMART_DrawText(266,436,UpChars,' Author: Spiker',clLime);
SMART_DrawText(266,456,UpChars,VersionInfo,clLime);
FreeBitmap(background);
end;
Procedure Antiban; //Helps keep you from becoming banned.
Var
i:Integer;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
Case AntibanAmount Of
0: i := 10000;
1: i := 60;
2: i := 30;
3: i := 15;
4: i := 9;
5: i := 6;
end;
Case Random(i) Of
0: begin CurrentStatus := 'Antiban'; SmartProggy; Writeln('Antiban.') GameTab(tab_Stats) HoverSkill('Summoning', False); Wait(2000+Random(500)); GameTab(25); Inc(AntibanCount); end;
1: begin CurrentStatus := 'Antiban'; SmartProggy; Writeln('Antiban.') SleepAndMoveMouse(7000+Random(500)); Inc(AntibanCount); end;
2: begin CurrentStatus := 'Antiban'; SmartProggy; Writeln('Antiban.') ExamineInv; Wait(1500+Random(500)); Inc(AntibanCount); PickUpMouse; end;
3: begin CurrentStatus := 'Antiban'; SmartProggy; Writeln('Antiban.') GameTab(tab_Stats); Wait(3000+Random(500)); GameTab(25); Inc(AntibanCount); end;
4: begin CurrentStatus := 'Antiban'; SmartProggy; Writeln('Antiban.') PickUpMouse; Wait(1500+Random(500)); PickUpMouse; Inc(AntibanCount); end;
5: begin CurrentStatus := 'Antiban'; SmartProggy; Writeln('Antiban.') MMouse(1200, 900, 10, 10); Wait(7000+Random(500)); Inc(AntibanCount); end;
end;
end;
{*******************************************************************************
Procedure HumanMMouse(eX, eY: Integer);
By: Flight
Description: Human-like miss-and-correct mouse movement
*******************************************************************************}
Procedure HumanMMouse(eX, eY, ranX, ranY:Integer);
var
randSpeed:Extended;
X, Y, X2, Y2, A, Dist, MP:Integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
If MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(X, Y, X2, Y2, 9.0, 3.0, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure HumanMouse(eX, eY, ranX, ranY:Integer; LeftClick:Boolean); //Wrapper for HumanMMouse (It lets you right or left click as well.)
Var
x, y:Integer;
begin
HumanMMouse(eX, eY, ranX, ranY);
GetMousePos(x, y);
Mouse(x, y, 0, 0, LeftClick);
end;
Function BanksColor(var rx, ry:Integer):Boolean; //Searches for the bank booth (paper) color and returns its location if it finds it.
Var
TPA:TPointArray;
ATPA:T2DPointArray;
CTS, i:Integer;
o:TPoint;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.25, 6.96);
FindColorsTolerance(TPA, 15070710, MSX1, MSY1, MSX2, MSY2, 4);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
If(Length(TPA) = 0) then
begin
Exit;
end;
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAToATPA(TPA, 15);
for i := 0 to High(ATPA) do
begin
o := MiddleTPA(ATPA[i]);
HumanMMouse(o.x, o.y, 3, 3);
If(WaitUptextMulti(['ank Coun', 'ounter'], 250+Random(500))) then
begin
Result := True;
GetMousePos(rx, ry);
Writeln('Found the bank.');
Exit;
end;
end;
end;
Function ObeliskColor(var rx, ry:Integer):Boolean; //Searches for the obelisk color and returns its location if it finds it.
Var
TPA:TPointArray;
ATPA:T2DPointArray;
CTS, i:Integer;
o:TPoint;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.70);
FindColorsTolerance(TPA, 9548140, MSX1, MSY1, MSX2, MSY2, 15);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
If(Length(TPA) = 0) then
begin
Exit;
end;
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAToATPA(TPA, 15);
for i := 0 to High(ATPA) do
begin
o := MiddleTPA(ATPA[i]);
HumanMMouse(o.x, o.y, 3, 3);
If(WaitUptextMulti(['ouch Obel', 'belisk', 'nfuse-pouc', 'nfuse', 'ouch'], 250+Random(500))) then
begin
Result := True;
GetMousePos(rx, ry);
Writeln('Found the obelisk.');
Exit;
end;
end;
end;
Procedure WalkToBank;
Var
bankPath:TPointArray;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
CurrentStatus := 'Walking To Bank';
SmartProggy;
Writeln('Walking to bank.');
SPS_Setup(RUNESCAPE_SURFACE,['8_7']);
bankPath := [Point(3530, 2909), Point(3498, 2957), Point(3457, 2993),
Point(3398, 2991), Point(3347, 2985)];
SPS_WalkPath(bankPath);
end;
Procedure WalkToObelisk;
Var
obbyPath:TPointArray;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
CurrentStatus := 'Walking To Obelisk';
SmartProggy;
Writeln('Walking to obelisk.');
SPS_Setup(RUNESCAPE_SURFACE,['8_7']);
obbyPath := [Point(3394, 2987), Point(3451, 2994), Point(3500, 2959),
Point(3529, 2902), Point(3560, 2866)];
SPS_WalkPath(obbyPath);
end;
Function WaitBank:Boolean;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
If PinScreen Then
begin
CurrentStatus := 'Entering Pin';
SmartProggy;
InPin(Players[CurrentPlayer].Pin);
Result:= True;
end;
If BankScreen Then
Result := True;
end;
Function CloseToBank:Boolean;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
If BanksColor(x, y) Then
Result := True
else CloseToBank;
end;
Function ClickObelisk:Boolean;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
Wait(500+Random(250));
If ObeliskColor(x, y) Then
begin
HumanMouse(x, y, 5, 5, True);
Result := True;
end
else
begin
If TimeFromMark(ObbyWait) < 8000 Then
Result := True
else
ClickObelisk;
end;
end;
Procedure WithdrawBank;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
WaitFunc(@WaitBank, 100+Random(50), 4000+Random(1000));
Writeln('Banking.');
Wait(1500+Random(500));
Deposit(5, 5, True);
If GetBankItemAmount(0, 0) > 25 Then
Withdraw(0, 0, 25)
else
begin
Writeln('You do not have enough of your secondary item. Logging out.');
Logout;
end;
end;
Procedure ObeliskScreen;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
CurrentStatus := 'Infusing Pouches';
SmartProggy;
MouseBox(46, 68, 86, 110, 0);
WaitOption('Infuse-All', 2000)
Writeln('Infusing pouches.');
Wait(1800+Random(500));
If Not ObeliskColor(x, y) Then
ObeliskScreen;
Trips := Trips + 1;
If OneTime = 0 Then
begin
XpPerTrip := XpToLevel - XPTillNextLevel(SKILL_SUMMONING);
Inc(OneTime);
end;
TotalExp := TotalExp + XpPerTrip;
If LevelUp Then
begin
XpToLevel := XPTillNextLevel(SKILL_SUMMONING);
Gametab(25);
end;
SmartProggy;
end;
Procedure Rest;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
If Not RunEnergy(40) Then
begin
CurrentStatus := 'Resting';
SmartProggy;
Writeln('Resting.');
RestUntil(95);
Writeln('Done resting.');
end;
end;
begin
repeat
Setup;
repeat
Wait(500+Random(250));
CurrentStatus := 'Banking';
SmartProggy;
If BanksColor(x, y) Then
begin
HumanMouse(x, y, 5, 5, True);
WithdrawBank;
end
else
begin
Writeln('Can not find bank.');
Logout;
end;
WalkToObelisk;
repeat
Wait(100+Random(50));
until(not IsMoving)
Wait(200+Random(50));
MarkTime(ObbyWait);
If ClickObelisk Then
begin
repeat
Wait(500+Random(250));
until(Not ObeliskColor(x, y))
ObeliskScreen;
end
else
begin
Writeln('Can not find obelisk.');
Logout;
end;
Antiban;
Rest;
WalkToBank;
repeat
Wait(100+Random(50));
until(not IsMoving)
Wait(200+Random(50));
Antiban;
Rest;
SmartProggy;
repeat
Wait(100+Random(50));
until(CloseToBank);
StatsCommit;
until(Not LoggedIn);
NextPlayer(Players[CurrentPlayer].Active);
until False;
end.