I will post a proggy soon, thanks for the script![]()
I will post a proggy soon, thanks for the script![]()
When banking is turned off, the power fishing option stuggles, and doesnt seem to drop any. Maybe a quick fix, could save me alot of time cheers!
It has trouble on fish an alch mode. Also doesn't drop properly.
Last edited by lilpjer; 01-17-2012 at 09:40 PM.
Current projects:
[ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]
"I won't fall in your gravity. Open your eyes,
you're the Earth and I'm the sky..."
It keeps walking away from the fishing spot and just stands behind the trees.
getting 1 error, it want drop the fish =[
Wrong Script, you may delete it.
I'm using version 1.3 and it'll start fishing then after a few fish it runs up the hill and stops.
edit: I changed it to powerfishing instead of banking. Now it just kind of sits with a full inventory.
Last edited by dakotist; 01-23-2012 at 04:39 PM.
thanks for the fix
problem-it still has bugs, if the right click menu isnt apearing fast enough, it skips that slot, maybe implement an delay?
mmmmm ): help?[Error] (48:31): Type mismatch at line 47
Compiling failed.
Current projects:
[ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]
"I won't fall in your gravity. Open your eyes,
you're the Earth and I'm the sky..."
what do i do?
I already fixed line 47
Last edited by Zackeri; 02-01-2012 at 01:57 AM.
Just doesn't work D:
You need to replace the ENTIRE procedure from beginning argument to closing argument.
Simba Code:{/////////////////////////////////////////
// ~Barb Fly-Fisher by Flight~ //
// //
// Version: 1.3 //
/////////////////////////////////////////}
program BarbFlyFisher;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SPS/sps.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
DoBanking = True; //True for banking (Edgeville), False for power-fishing
RestAt = 60; //Rest at this (or less) run energy before returning to the fishing spots
FishTimer = 8000; //Fishing detection timer (in miliseconds)
ColorDebug = False; //On-screen color debugging?
SwitchWorlds = True; //Switch worlds after break?
Member = False; //Using member worlds?
//Break settings
BreakIn = 135; //How long before we take a break? (minutes)
BreakFor = 15; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Fishing;
Active := True;
end;
end;
Procedure CheckStats;
begin
if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
begin
case MessageBox('No Stats account entered, would you like to set one up?','SRL Stats',mbYesNoCancel) of
mrYes:
begin
OpenWebPage('http://stats.villavu.com/register');
TerminateScript;
end;
mrNo:
begin
SetupSRLStats(218,'Anonymous','anon1337');
Exit;
end;
mrCancel: TerminateScript;
end;
end else
SetupSRLStats(218,SRLStats_Username,SRLStats_Password);
end;
Var
//General variables
Version: String;
ReportTime,CommitTime,PostID: Integer;
Path_ToBank: TPointArray;
//Dynamics
Trout_Caught,Trout_Ca,
Salmon_Caught,Salmon_Ca,
FishXP,Fish_XP,Loads,
Loads_O,Stage: Integer;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure Loadvars;
begin
Version := '1.3';
PostID := 843604;
MarkTime(CommitTime);
MarkTime(ReportTime);
MouseSpeed := RandomRange(17,19);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
Path_ToBank := [Point(4245, 2920), Point(4200, 2880), Point(4190, 2815), Point(4235, 2780),
Point(4235, 2720), Point(4205, 2685), Point(4205, 2660)];
end;
Procedure CheckVersion;
var
Page,NewVer: String;
begin
Page := GetPage('http://villavu.com/forum/showthread.php?p='+IntToStr(PostID)+'');
NewVer := Between('Current version: ', '<br />', Page);
if Version <> NewVer then
ShowMessage('Your script is out of date!')
else
Exit;
end;
Procedure Report;
begin
ClearDebug;
WriteLn('=-=-=-=-=-=-=-= Barb Fly-Fisher '+Version+' by Flight =-=-=-=-=-=-=');
WriteLn('Time Running: '+TimeRunning);
WriteLn('Trout caught: '+IntToStr(Trout_Caught));
WriteLn('Salmon caught: '+IntToStr(Salmon_Caught));
WriteLn('Fishing XP '+IntToStr(FishXP));
WriteLn('Loads: '+IntToStr(Loads));
WriteLn('Breaks: '+IntToStr(TotalBreaks));
WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
MarkTime(ReportTime);
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(219, 56, 'meJztfWdYVNnSbu8Ou3POTdMBm' +
'tyEJoNESZIzKBkkCyggEkVQgkRJKqCiIoIigghiVsYxzqgz44STZs' +
'75zjn3fs+53/1zw3Of++P+ubVpxzEiOOrMfEPZPxR771WrqlbVW7V' +
'qLXC4NXobITgEj0MICJ6IJ5DwBJRAQPEIEfv5r4te4RP/6+RzjVZC' +
'yI8f/PNqJZAoJDqbJpDwDY3lxlojcwdTGzetztNWtk5AEuJ/rXyqT' +
'R00Zm4aYw8lw5VEYK1Z5G+JEARHRIk0FpXJZ8CHxWdyRRyxoUhhJt' +
'fojCy9TH2jvXPys7Pq0rK7UjcdijA/JpCW0kxOcY6OjoiTGHg68nF' +
'c0Mr5zO3OKD1SWHO6rHq69PD5wT2HdxkkcvG0NbP8LRCCozIo5lpz' +
'v/D1YakhqekpMSlRiVnx5dvLaluq64erd07tOHz94P3P71/8au7od' +
'/sXvp+e/dNk15PGL/72yOGxTJhJlboKENKvi8++b1uzv4n1+NzE/D' +
'LXaJAp2UrjxVM4Zgwc4cPz+d4JweGJCGAk+OBRBCEhCPH5D8QILFj' +
'8p4ElMB2xQsQNJ4tyKGFX3Xs+bb1498K1B1dOPRrd9+WeosfJPg8s' +
'NRNsWS1NmEmRFFH9xx3rjlR69euu3rwi2Uqlaok+wd4kOvHXw6cgn' +
'cIJRdlBqKSEalOrjt0W4V7o4BbpyJaykN+aQQImoTKpKlOlrbONtb' +
'OVpbOZxsFIoZXLzWXPPgbmUrFGyDSkEzjIb26CrxJgMJlKmrQ9Iet' +
'e9In/dtDyJle+iyEuoAlSqaB9MEKjFq5zhTZqc7hfpK/Em0cU4LHY' +
'R8Dtnq41neaIC6kO7vZEykcwyBXyGRYYGWDja2nqbmRoJxWYcBmGV' +
'LIBgcjHI+iH5vH9ExgYx5RpW6wRplEdh42VHQzvg3Ydfe0t7S272u' +
'qr91aWtpbkNKUn1ccllSX6J/uQVYSnAPs3S6BoA7Uspzrr5JMjYX9' +
'wMqihmzdJteXq9XkeUbFRVh5mBlopV80ii0iYHcIfFEeRkwwy2JO3' +
'JuKvB2wtLZEoxPCSXw+fBAbEtecC2Tuz9muIgwiOJMGndyZk3o0q+' +
'S51/G+H5/86vfGxv99t6/hbfhmfRuZ/mrTnTtXioxtNd2pSL0eOjB' +
'8xz1USeQjul0g33wtBiqq2VOW1Zz36y+fO15UZZanWjlqBmkeRYsk' +
'p5lWeVyuWVhDktpK+/r7bTz6JGPV19LejMCi/Oj7fx3AUHpnI/Uj5' +
'2nKE4Fg+aM2Bih0zRVfvXM76MhogsayGDnmlrJJuUE9X7mP6HXfsX' +
'Gh59Phhz5NmZTcjMSOeKPgVcP5OBHmrmYum4Gjmgx/ump3guwW4QO' +
'7wRucAwuExnWN0u+Z2DH7eU7Zrm9zU4CO4x1Xz+TMJwdFZNBMvdeW' +
'uHUHFPh+tjPAmwlMQqhWR5YfSdMTsa/GiPFp2Y4ZroLPSQS7Ucel2' +
'RJIUT2DjAbc0XqmWVtIBZkutRB86g0PwCDD2nvPZpdRVF2xdNJcx8' +
's1AeNt6jdYInMObvk4g4uUaA1DT/Bfn0i5ErY/3ZnAZH0NZq+TzZx' +
'KegJeqxdsqt44vjhaPZNMdiLgPjpGXJcDsZAKEg/CyoFP3x2wWpMG' +
'b/XkyLoIi+qAAAQLlEyhmRO9BO5dFNT+JorE1gnz8g7KE0kh0C1QS' +
'woa04n0ZPxg5T8yNy4kZvtNXdisnY0uaQMZH3qxnMhW19DRLH4377' +
'C/3Qg97WbqZg+N6P6y8Vz5/JpHIRLWLomgk+/Z3n0QN+avsFfgPqt' +
'wVEIFEUFkbNvXufvTdQ69xa7cNzmTGj0ka4Cgyka4icyPJZ+ZO580' +
'mbSnaIjQE+XxAnuHlHBnbK821e6gjriQKs8n3MRo4GQMzWXNr82df' +
'Pwg9s8412HkZQAg8cIWc6LTIxps7er5sidkdojJXfpx4vSo+l3jFY' +
'TW6d1u2EK/ZNMsoTcflpt6HLYk7Y+Qa2ceZ5jIsQYDQBpqXTeVPfX' +
'UyvzPLUCtDiE//i0QhMtQUXhzl5Omx4esDTS1Ncp2ERP2wjgI0IrY' +
'Q7NhbPnl5Ykt1AVNFfS9plN4VNB6rm3syndIbq7EzJpDe+F4IZAYa' +
'WWVjxbUnl+Ou+CVnbQKv9XGyuVXxCTqiMMlMMyrkp1iys0pTwhMQg' +
'YqfUB69+NnN1NnI4IQgJo/5y2JIcAUQETYXZu673dJyty6zOAOVEp' +
'Z+jiPTUYYFWZxOnzgzMfLJwfy+DI2visqmfGi9kCgkqRu/72R3/5W' +
'OkKwAlvh9IDfMFdBtIyx2L1R33tldWF4gUgiX8fMQnTVO6vIjRff+' +
'dNv/qJPOyxalfpTS3ir5BF2gBvjCHflDJw5WN1WhitUhHJimVCccG' +
'h6aeTBZum+LkZ2SSP6Fy83gjgzN5FUtO8a+Oty10MLyJsGMwENSBC' +
'jdgeS+XTd/Yb73eltRb65lkClTwPigwRojBEfjUI2iDQ5dPFA+U2i' +
'xQQPr4ue/FVwBII3UbUlzD2bSZ2M8I91pLOoyPFCZVLsQbfn5/MFH' +
'PemNm5Rmhh8pXq+KTz2zZKSscdu+c+1OreZKRwM8ecV8gqhZVFWIZ' +
'N/5ttaru6I2h3MknA8HVldIECAsnc19DzrkPoxvPboHIWOLDvw/Ox' +
'Dd1r1l4eZ87cXS4tYCM1/jj2GNSzVhroIduM3n1q1bFYdKFI6y5QL' +
'WiglwsqGtQddAx60vFrMGN5k6Gy/jCmCafCkvKX/TkTsHiq5nZGzO' +
'4IjYHyder4rPn55iIaqNItsNViwpc+U6AuPnGXJCSgKu3r5cfnKLi' +
'Y8KpX6EffplaakGFREZATmLZowd2uSLpyGw4qRF9KmZqVP3TiRPh5' +
'fWbDNyVkKkfs9bh8hSbYe0tIf+3JsJKIFvy97T3zB9YyqpMp6ueh8' +
'IAYAWg2Lkb9g4XTN0v3drTYnEaLkNFyxqmBvU7627/+RuzIS/7Xrt' +
'R4vXq+LzhUcJWAUPWQ26J6IEsS2/e3/n9J3J2r3VBhbSF8Z6j77nD' +
'bp+zRfxiFgmdsvRkU3x6gMsfiJFUcY5fOTw5K2Jrnt7/I47ZhdkK7' +
'VyLGiuhL0V7x3AuCgN5Riw5LZSIw8FzZYIq0DfywFj8f3orWca5y7' +
'MUa2I+lIksoQi3llEWMosYftme0zdPl20kBGQ4MfgMZb5PkQNY1dV' +
'xbHiz76+v3v/LgMbCZ74MeL1avnU90m+62Bg/GRZEK//XHfblYawz' +
'A0s8U/pDIIgkM+SeAQw8jeJHfI+EpWENTks61Zfo2vSG1VJIBLMLM' +
'yk22lULVH7iF91q6jrbtP1J5dP3hzt6uvUxWj5ai6BsiLPCONC9k3' +
'k47FS/0tSQl74wERoXArDHoWFkN2Tot7PLBxLz2/IhiQRz0CYUprz' +
'Ztsd88VHjhzR700QRXiZtdjARURWEt7NS0MclFlJGjvrHzy8n3coT' +
'eViQFgmDmLIiqYLs66Y33L78S3vMhcUxn2zDN8jrYpPEDiELVS24j' +
'6Kpc4uZMlHYe6UiAcj8S5wvfTJQvlYkZGXIZH6dCwCEc/isax0lvG' +
'J8dpNJgQm8nKitNSrKZQKHN0cfGO8OcEoVrXGv6zoN+g6c1tDCSrH' +
'v6pKWAVMFtM/wJ/pQYKQHf3vbv/2P3/4/j/+Mn53lOVHIgrwmPGjK' +
'9pIgtkxuHQTR+OEtPik1E0AQV9gnkokCfHwQhKXSCQTqQIy041U1l' +
'4ye2XmzOLp4Qv7p6+etTghNE1SgDFTTImtHa0R570SqqOwNmkKziT' +
'TILzTz7CJkXlgo2ATBeuIXpVt6DOUQG3SeMTMvTMepQ4gjadvwC91' +
'YmNt2E8DCh7FQ44vMhQmFMSM3Dk4cWOM4UgEjWCiWCYaPlPBz6EV8' +
'0kAJskkBpth6CItrS/Ja9hMNiYswx6YLtgPnUtjaxgQdKgWRLKKAH' +
'YisGHX76s9+8lkY3Mjz4yltyhYFEwpw3qDhcFOujiPOnCtq6atkmz' +
'0nCtAsAgiUPPik+K40WSjEdbC5YX6hp14KhbFiBQCKHoZXZ+9ekbZ' +
'zkjJSCGJXiwvIzgyDbXR2ThWWrCDUbsfBH/9f386939OHv1X/9EHg' +
'9GHA0yqxYapPIYLCTXAI8skbktTYIhoxv4Ki0aZIJVidIQlSKeCiP' +
'BURL8S+UpuWlrahi1+Vh7mZAUBZFLTX3n+k5nys4W59ZuZXui6cge' +
'jIZYuzwLL7o0J/secNSfZLG+UYkrYVBt7ev5U49Wq7EsJ9+7fsz4q' +
'94n3APNYhZ7xiEgm8svzAAkHnHPATiKARZNwZDbKFDLYMhZXyeaZs' +
'lg2VIgmTBey+TqNS7R952D7l19/2T7RQpLC9HFpBcl0JxKW8b1OAq' +
'AgigQlifFY78271mhXxiebb8OSO0vsPKydgnUJdVGnb52smd0Wlhh' +
'C5L1m+wBZ4o0hoPO1bFkEN7Y27PiJ471He1Lyk6jmBIYT6fj00c6F' +
'JrtkCwIXexjWI8OQKo5mxRwIklXS/R5q9/61VryF6he+tMeNe7pRw' +
'jai+6S7S8to4CXO/G3U82sTYQ6VpiOCuukKckpa8jK69il3FeVQQw' +
'oC2AaMlwySKWEYJ0k5YeScv0cv/t+L1o95hk10RTvDZJLt/rlRy8O' +
'ambtnUiejdnbUsgNQbIG8zgog6DOldGkoJ7ovUNHCWH/d+tjd4UNT' +
'Q/J6um24JTwFy1ntoJCW0gzqGeYZWLNQeXfJkauD1UfLvNJcRZZ8V' +
'EJgOJPqu2uxAwIMRJRGU/UzI477UDSErMq0TZNhbbN77BqMwU1F9Q' +
'UA0LWvNuVrOCvCTktYGpyJhdZCVkXnhKGZ5+MIPARGYXmhrtGOQWl' +
'+Afk+/mWe4Q0B+X0ZPUe7twxtlu+iu/Saz94/W/+4dGdnHSqHRYXb' +
'2988MDBAsyG+ipcgKvFlvODEIOcaq/T0dIqCSCDjl3qeCa98llA98' +
'ZVerxXzGdkQtGd/Q+zQBtkOutVR6aXP59v/sHPdiBWkXa8WxyDy0j' +
'hUrpZpEMsr3Js7NT955NZgyeXMusM7uBFkhIZwNpBPXT/ZdaINANv' +
'Sdg/Wa8eLI/eMdRVfT8+YjFX1ME2n2cx1JP94XwIb45hAwizWOtnE' +
'fESo6GAMXu2/ev+SMJ3C30jhOtDhJRwdXVaxnK4hHPu0Oq1P9aSLq' +
'S8bpJjuke5sOs259z8W1QdZZA0BFjg4W4oZAbyTuJBqcY3b92Xb4l' +
'fXTy2c9Kiyx1zli+oAXTBFDGEoo/5wddxV/6rTW8UF1LHFY4BFebG' +
'U3Pxc+D6k7dY+lsJsitOMih2CZnUnb5h2KR7OsYw25sk5oDsslyHh' +
'fHPWKf2koP32jnaQQ/xg6MaWaFiAG8bdXIpt+F4MMAayEp8ztWl9h' +
'5OhrfStjghUDCFAJBOaWZqFxAWD9EzPcu7+4dbY+eMHzgxAlFn45M' +
'L52+e6PmnOu7IpeMbVacI49Ih3fmeW1VYl1YqQcyve+Dg7vzhP7/d' +
'6+nv2T/a6xDig3JcHRikklbM8cSBs45Xghn31VAsC+FIzd42Dp72T' +
'pyN8nD2d4AN/cfDUWbtbGjuoBKZcCFiA/Zbg3Cr4jDznlXc2eWziR' +
'NuhloAJJ+/H5vJmRuAOb4XG8KUEGTJouoTK8kGzdqdMX5gavNWXMB' +
'cUeMCtpKwEa5+A7xJwm9qiR24MhdavB8vHHhHiuaHk8VMnF+/d7D2' +
'yDxwCOCKzeY6shq4NMtf3vFGEZMNwoduQpbKL2TmyF+wk7IyHOJ8a' +
'XO8LuoPpKL1kojzqMroGxLU5fzNEXiLrRRAJIZtBtg+0aZipbP9bD' +
'eTXprsl0RujnP0drXzN7UNsNm/OSq9K2dvXOrFw8uvvnjTc2pHalA' +
'hzeWYJoHHAjUI/1vDhofkHs+Mz42Az/HjKkfOH2j/bJUih+CR6YqC' +
'Cg0THR4nyqZfuX5iaOSNIpzjvN7eJNQdE/Sx1hcnKrWU8DZvth6qH' +
'WS6XjcATGrYwwCCra6o5WjpEf7AKWCkHzvQV9efKbMXI29JeeERqK' +
'bJPsbKoNfA5oiv5Iu0//ve/Qv/mIN9Nl9fRjY+xlD1MSTGVn0g22E' +
'33r1yXmp4q9mHjmZhfommJhddSNKfZrhFOeBYCmVpdY+3kudNJeRs' +
'hHLy8rnkMxwTb5it1i49vJPVE725p7Bnp2jQe7jZh5jJh4nTKyHpC' +
'YjbOMxnnaMbYRsMs7QGD5KZYjxxnyNEwD8DFS6yEDinalfAZUrXeL' +
'dkR1jh8PFrtLBe5EDc3RARCFvYTRwgOpZLoKjI7EG0f3jv7yQwk7H' +
'G9odm52SbuRjQFqkfmVFPCmbNnrl27RrPDNArZNM2aOHTs4Nzdc4e' +
'OHQLns9SaSKq6XJw1ulFvwxC1ee6MgE43w0ZGyVAeQNw9HXtUB1gm' +
'xzjmkWo8GQdRDNYUOKVldK23fH0f/stLm4pa+JrUni3r/abFd8DBb' +
'b0rk8/A68svKDY6yAo+ZENC/7Hee9/egUURuSWUJMM/tWcaWeTIhY' +
'D+4OGD2gulunwLgMqxZRHq/azE60EQekSebPgiTUGOK430van97u/' +
'fyHbQICIEJvlx5awXCil4HEoniQ1FGbkZ8gb6F988bl9s4MVRbNtV' +
'6nWGRCY2IpGDZ/ujU1NT3T3dYi3/rQYJ6ZhrqBM3HJVupw3+0F3/r' +
'2KTSQ7LF0vWSAZ4STHNoloetHm9d7CnxlEtMOaS+SSs9RrCloroV+' +
'4xe2c6ayRR5SIH3AgCzC3JHjl7eEdNBc/ohQo5xAihEX9zbfr9x/c' +
'yZmIC831itoZ7jdjm30qKf+wb+K3thj/bp/w1qPDviaX/SKv5Z8G+' +
'f+6++I+ZG3+82nZ314bTLpU1O0CJJhFKQTJFWvEWPo0d1RxjFugFI' +
'D24r437Iutub0vtSjC2Vf+0d4BZIyow41pmqU+eOjlybahwJCu1MF' +
'njomZLmXgqXi9tmphim2nWenHX4PgB/c4OsFHUm3vhzvnKE1sF0TT' +
'MAKiIYTFndnF6YKgfJIA9pUGzKzMh01k3agGBI6E+CryH64xx6Y5S' +
'QP7wEroh5e26/pHPV3/C5DHXJ3pDvtB4b0fy9kSZWvqaGiweB0M7x' +
'FuXzuQGf+Yg2UqF1Ay3lFbz1dzAIp+Zxam9n9bXNFYx7SggK+d4HS' +
'cU9ZuxS92bAHkNjCLQciK6/M98fyL2zx6cEDQ6J0JiJH5184VIIlh' +
'aW6j2cGzuCf78X/4o2UpjB5KD44MYQrq+2kaXUa2y1dOz08W7CgBD' +
'vn0/AgRoTfSocAg75Tn+/YiijQFYKHZH+IbwDbae1ko7OV/DpYrJT' +
'9OQH9kB0UmtRD09PZfuzVd2bZdZSTAnz0MiU8KbpuqbO5sBCD2/tA' +
'Hhi5y4w8cGJx+c3NpRaOZiIrEUSsO4RdUFnt124CtYfijkDgCcACc' +
'DA7CmAG5BvAALBAjH9EC1/uYARVKqNsac9ns7n0u5PGSyUg9+++nm' +
'3ltthaX5guearyBowj/T81IDTztPLU42d+/RBCl4hhyspPPjHEH4M' +
'Iu2jrbcSxu3tRZh/oeK2NUaX/j0fPlUoXu6I+RxmMNRE8o6S27evh' +
'GzOwRLTumIfYQ1N4qs6GAKM6m57RmKNqbtnCy3OUPiJMDKlQQIc9K' +
'QLu/Jv4wur+vXq4uASFXiyqrKsw9Pb1oIiUgMw7pPX0cgcyOdsnV/' +
'04EnnbI6usCZhS1DFkkeKOg+1T771VTmYKLaW46tXBIOgh2EEshE/' +
'HI9IfZhsdhLHHnK97t/fa0ZZ7tUaU21pvDCl8dAcDQGLXBDACRrI/' +
'+13/8HK6YbyXurq4FGhtWdgFsSnmlFyW5NPTR7ENAmU0J/e1IDEmI' +
'gMiuxQQbn0qcXAZcaNtPtXeypTAoGhwivL9QA9FK6GDSfaDh8+8DW' +
'qhKBmg8DgffwiHTNPrNxz8guuaPkp3ZBBEfn0uRRgqMXD+1cKA9K9' +
'eeK2ViIISMgDYhodHuiyJ2j8JSZrFf7R69PSUtJz0zflJuQvj1Z2c' +
'oG4zTLNZSaicEeaBZEUTp1RXyCrNhU+yjrzkvNVRdLfOM8aZzn4jU' +
'Bx7FmCNIoxiOs2vHtAKIgj3ihUAmWRicrfWT+x510swaqbAGgFKM8' +
'ycDF7sbLVXkVOTwztj5E8tzpbeNNYJDCLCqwAfYZWO8BuerQzf7GU' +
'7WAIgBWxbSFaLxUKBtLLQgUvKW3WdiE51t0/QYikAhGtqrt/SVff/' +
'd11HE/q3XmpDccpgPQbuAsHhwZnP5uwvWQOcwRK/IbE9JrN919eKd' +
'wPjU8IwTwM24JtoEfOHbiWNVEKWMdCVMlB/Hc6LrzZtngD12QeXkH' +
'eNOY1FfNAGtalkvDCoK0N4RP/tdDw70MXjzF2cPpaeaIYAEdYPDJ0' +
'2MNp6pUQTIyc2W1YDyOwaHbRlmOXz8Rs+gTvzUKUMFyrhVTFqoJVO' +
'w+X7PnWk1YaghTgJUmwMC0fuaeE9o907Wm69XPCsiwqLlqVnDF+uu' +
'3ru0aqoXU5gX5/3jjBIbZiNhLADhhJU0uAhkN6JeqJdCUKAgNvkvh' +
'oNoos5XwieBxHCk7Mi/01K2xnNNJ5t4aEoX0/KCAeHOa0z2umPXP7' +
'APs9xStPVtDeIQr5mzcnKDYyzAeY0HuDGi/YCKt8ZMdFR1lSmc5gY' +
'YtdTIXtYuzbLvcePn6JbIai9cMN5L9hLL3L80LfzgnzKBCsuCzx9n' +
'CyxQSeX3RAPBeaFJw9c2S5XX9JgIECMkLzOjMV2NZbSkqq9d3n4Kp' +
'sMUsdaLkxNVjPQ9aShq3YHU5Ao6mI/ae6jr1+fFt7UUKWwN9Jx5NR' +
'LFIVp+cO3Fw+ACAHHicqiSV1m5b+HIu5VZY2rZkmfL1zZ9ElGihM/' +
'frdhn74VDOPyJZ61H/NB+BhK93g/AIVY6qcgRzC3Pt3e1iG/4Ko8B' +
'T4eckjNwezLwYGxIfTOfQl30Ax+DTXZMcRq4PFp5Nt/QzIS01G4A5' +
'GbkpzA4JTl0+GZwUROU+bZfFKnKO1P7DfcNXBhJLYniG3FU0nzxfS' +
'wcbE7MScuJWwidIA1Brcd2WT+98Wn6wWGWnePl0Ax5zFx372wcvDD' +
'RMVxX15aoyhWQFVkyGEAaOSG2hXNdoK8qmdoy2srxJG4Y8khZDUo7' +
'EaIPNaVyafhHxFdzN5Zmjdw4fmhzCcigKIt5Cu/Dl+eP/vl/exADl' +
'6ipNLd3MwRr1BXPgSqIW19XVvVXXr58UHuEI2REpYc03ahvuVqRvT' +
'RHJX9N0Bz/BLpDxZHYOtt344mrGaLxigxhAPnBonCY9vziz7XyuR6' +
'ILlYfViyGQAXyqaq24cH1+Y100VoeHZWWDdg913PvTbZcxE+cABwr' +
'9dZVlBEdlUZxCdbEzAY//44HJKbZBNc3S1vLprhmCI9GIVDNi9f7t' +
'PVNdDmnWTDFjhS1S2OlmY0n1rqorjy7FTQRqvd8YBZ59H+BW4tbYC' +
'4vzZcNbVI6GTy0fjxNbCdz32oxcGSrbUcZRsvSMYZsdkbTRuWMNE9' +
'UqfwMK47V18/fMJ4ZyLUXtnW1nbp6u3V0rNhG9VhpgflZFqvzhzG0' +
'z2bMXzh0Y2s8OQlEpni6gOXk6MH1IkHUq9zHrR6vUgyyHM6qorHCB' +
'nK83IRhCrpW19jYvPJiL7goC6AWZbNtQ69hnI47nlcIcimeWs4mNB' +
'pvvT7iUYKiTtQ41vUXXb5oUSMBIuqOuYv6Lc3EX/MPiQl5dkuAbwR' +
'r5zszMPcn3PrtXcaUgoziNocScA2qIT21IXPh0vqFvp0wn0hcnwT/' +
'bBWkrJ0sO3zhgn2mJQUoUYXqSOmaahx71bNwTpbJ4wxGApdO4IXkB' +
'0w9O1/9xq6yaHrDBn8p+2gQI6JGsIIg2U8+cm2zvbuPbs1Z+Th+kZ' +
'GyrKhnIf/zl48wDiRqdevmjUvC/MjNxfcvOSzcv1jftlJiKnjIMS0' +
'aOxpdER856texvFujY+lMDbCN6UKX3+avn6lt3SiwF79yAsSo+QSB' +
'ynbRvqPfglb7EgrifylCvbF+CXiCcqbKF9YPVgHLHZkc9dziARoI2' +
'BkD8df/cuPXmTlEBTd5IT6vdpLAyfIY34C9qN8PqsbI7D27Lt7EAZ' +
'kCeVT9WdfDofpskM1NHY46M/UKHwxIulfsJW2Ya3qLrN0tAY2e0ZS' +
'Dnuz99u+GYOwDI58GP/pojtpAl8GDlNGXcun2r+U5tbGuIxtkIS6Y' +
'g4bUh9QzuO3i5N7xgA0WqD2qIobE8qSIe/G3dpTJZGBcrgbIRoxTp' +
'zOLZkrks/0RfFv+NvfGAo0xyZFPXJ/1PO2ZmZXBlnGfBGhUS6TpS7' +
'9HujrG9ilghQ0RbeQcpTMrKwyJ8zGvxy2uFTTly07cEEfCHKp1hw+' +
'DO09fHU7Zu4siZzzZwISg4htnJdzJm5ma4kdjaJ9AQSJ8PHR3um+t' +
'0SdUxhSvIs94Hn8Ck0tmgZbSxc77FLs5Cv4GCwVTAqGSEslTZeJ6w' +
'uw5MCNGVoR1zzePXRiNa/KP2bLC4zPn7f/+b2QUu0wsFvGfjZQU51' +
'DPDBiBtEaSpmdu2cGue5YOCh1RnixrGau3zLDgqJha5XhoCj7BFLP' +
's0y7OLk2/V9WsI1jud6uBnFzjh/PDbzyq6SsUW/KeS17dnMGkSE5E' +
'mWt5zcN/dz+7U3d4W3xlm52dN59L1u6s8J0b/aG/72SZOEIqnLCUd' +
'XKJrqJOsktb3fUv2hURYgPAyVE6IqQu9cOvCzoFqlb3hco2meCyJq' +
'6mvdsiwomlQfe0djBzlE6iWxOLe/EPnBhMqorlmrFU06y4JNigkUH' +
'OC9fCLh1srt4qVouWbhQgowcTdKHYs8MIncw4ZWpLoOcnjcVQromu' +
'Llducxr5RAwsTvDp/I2V6Yar5WAN2Wd87nzNaJZ/AJADa8onCQ3MH' +
'wXHpa1YEBgJhKyDFF+znpT0srKOPiYqduant8Tm3EgZv9AVNOn/3b' +
'9+U/StNmEalWhBiEmK4oufKaAiOzqN5bnLtu9bRP9cNxgwqtq823T' +
'faCdiexHx56xRBEDIFlVvLNjenXrlz+e26fmX6KA01sdBkFqZrRll' +
'HHw2uK3PQH+sDA4BMR2DIV3hLkysTh2b3L3w9m7YYEbk3ULfemsGj' +
'610THkUkbvyy0S3tx1tACHoThYW5sSEasF/LD1XgIfXNJ5CPjxwdG' +
'b46EFMQAU7vjYB/6Q2EpTo81r2wBKr1GgcbyOvKOD43srurQejGQR' +
'mr65JF6WhoeKjBTvr9R/fKy8skRuLlTxwTULy5p4lmnNVxfTfLF8U' +
'zX8hPwY07brSW76InntsgzqOCa1rXbjNydbiovlCo4f2cAw6r4hMM' +
'EphcP27fPtuEcYjBRexYza7d9X5V7gD2XtjeRZZupWCR6Y6kgq7N9' +
'jfkp+6Off7oc5tv+aoBFk1LcC6wVhorYOI/PYLHMWX0uILoycXxtt' +
'EWsFj4SXNrc+PxOpot8WmLxbOXExAai2ZiqQnODqicLxn4pHtjUTz' +
'PYAVV4ueGo8spFilq9UGWspOZcieU4Y4doiFwELYxA1a6X77HvmOd' +
'Dx8+bP9ql+15mVe9o87LFnzjsyHwKN5onaF2WDo4PKgv1UJQgBQ4a' +
'NhtfOrkyN3Bc9fOUszAzyLccPL+qz2N89WaEMWbAD92lIxN4qpZTA' +
'M6mYUSqARALFhVREUA99swVNs/3bOrs16+XkjjUVd73INAxWsDzTT' +
'j7BvfXqlq3+6+zv0Feb7KDAln7KEU5VId55UQjkHLwMnzzU4kMT61' +
'epPRIebQtf7aM2X5N5Nipv2dE3TgUn5O79mq+AT5W3tZinKoujNyC' +
'KZYlzgZl7o3of1wqyAJ25ugOxCBZyKdQKQQwBQZSqyLSVuh6r3QUT' +
'afJymheV4zk+9icMLJihq2jb31y8cWIBYo0KSyhGvXr0JeQ7fGXO6' +
'2uhLzESFEK2QJs+kb4YBtipxo7KPwq1in7GJ++Y8vwuc97UNtVpvc' +
'ETlIYmms1YKg4Z8lX3//xHOfLScY5YSiATUe3cfab356s//x3qDrD' +
'soeZlJ+oqlOAynw8+gI05q7EuZecCgDREESIXQdcd9wV2ZbMlhmWI' +
'/v6WvjTi3mNDviocnhL/76MGzKw8xb80YfjsdRNETZJk5sRgyEG7o' +
'dkW5PFKRS4tvDBk71lo0Wbq0pMfAQ0vjUdzjOA5IEu6o8VzL8p328' +
'BLJLuAOJs2wogdVqR1TtZ0Zc8tDUihyyrQp25WZuzQA71O/OwNxFT' +
'tywxvVVt7dEfOMK6YCyh2Hmqll5+ffn8wlfVnhIhRlUtwUTCNmyZP' +
'b+g/t7prqCKrxRGR6UG1sW4ZftSbMmgv2An7coUlQPbR+5OFw7Vb6' +
'xOkaeyTVspKt6mQZ1dHcft9eUChEM/NvnWIycPVyxcztHwwSzd0t3' +
'UA0w24f2QvjWF1HJRgSykiBJZ27sinIfN198ciP3h1hhFsXZ12nV1' +
'yksHZysHajcc7fK4ga2Oy+rortcME67HhlxzdNilq/qZ0aXhbn6OU' +
'H4xpIp5OXHQWu2+9TlM4XSUlpa5aayoaKmvt0sbxK4d4BeFZNFyRf' +
'CTM9yvO6Yb3ikgyWpdbJaLm2kImEFgXsPtRwcH9g9UVczWVo2mZ90' +
'PKK4Ld99o5PAgosCbnlX/wMOJK81a9v5XGDVwd2eRHuLrMCxh5UHX' +
'Lx4MfNcnLScpuphemW4YR1oP2JsCpvsFGy/Y7Kk9IcMfiJFt91Mbv' +
'QeLvxZBZ+AORWE+IMhFx6drzpfYriX4XLWOLsrReLJJXNRsMnYqvA' +
'DIwdq9m/vHGlrmqrfOVuRPBmR0BMWlREmsxFLdcLIimC/JlfXMEfI' +
'W1+7zDHYqSJUt1UGZqyHyIXVIRlI1cD2+ZtzreO7U5sTVNt51nXql' +
'oNNzSONAwMD6p3coVMHDOrpTE/Uzsn23W59ARi8odTXr89ZkEJhuJ' +
'AEyRR4oddOp02ZG7Ve5gIVj8QgvumEL3Douc3p9KUJ41GWMJti062' +
'0itPQ5VQiEw+o0qHAKron0K3HUtHOkFXTHTItZarX7ZI/LwESzn2r' +
'LnogQL6bDkBiQ7132KYQmU5ME1Hw6M/VNczULEEp9xQzBPQVuVk8z' +
'rfc1Xa/ghdDDt0SKLESPtuawemvgXLWAMIf+/6QZCstIi6cwVn22M' +
'sH4BOcJC+WvPfUHmUng+lNsq83cQiyYwgBhSOwuklSfFxlhGu3lUE' +
'NzWxAGLEnMCMrXe1qyJIyCBSslY4oxGMN/Hz88koRBDH4LkzMVy8d' +
'aIJV0D3QZXlSJCmhyirpyn6mS7dFaVmp3FcoceMF5/l7NOrCs4LFK' +
'uE7L0+sTiXGQ8AVuXPlLmKZnYhnwqYIydhm1tuSJIjOabVJkd3+7p' +
'W6daHubDkT2+Fd6rLDmnK5CNWCyLNj8rRMhiEV5PB2ZohYLKDbk4Q' +
'ObGCDKiBjXSjv6RgL1nao3xde8feBGUAdLCX9eWvEPCSdYuFnUno2' +
'7+QfDjv1m2kdrd7jhT+r4hNkFbE51CtqndxaSuVRnpVM9agevDrAA' +
'IEji2fOporI+nrd8xN5u2yXks1noQG35IgkMezi4qLo4vDk1GQjDw' +
'VHzSKxiHisiQ4h8hEwJ2ygn0mI/rzGqq8cxExIiAcsgXKJr2mXRd7' +
'pDsN3e+oD0Sts6K+BCt8cMnS7b+fdbWllyVKl5COcVX8Te/pds9cf' +
'QPtxG/39XuKnb/sB7wo+B6G8snZ+lVr7T0zYBpmVbG9X6zd/+Dpky' +
't0rfN3znbFrtEYflZZOBRoHGu6erpt4ciy5O0ZjawQm+kuztUa/U8' +
'IT8AIlL6Y0/NKDheKrmTl5OXwp7xe/CWeNfqe0dGpY5MYZOnZw4cu' +
'5xINhlu5mv/xNOGv0eyWsL1TGtMkymV2crrmyNT0/TWDA/4Uv9lyj' +
'3zGBM2Q7UfYebJl7MFMykG/s8iu4KGyNfq8E7pEhoSnS+OevztbMb' +
'vNN8eSI2WvocY1+GdLfwK8jNh1oPL043tzaJLeR/szN6zVao3cmPB' +
'FPVaDKHMGVK1d2jlWahqjoXNpv91dHrdFvmrArd9hEmg1x4Fjv/vm' +
'e6JIwgZr3i//WjDX6nRKCnTVGDfDrqu1OzY+3drVKnPgQvn9pttbo' +
'd0rYnRVcPMubdHT0aE9/jzSQ9w5Nwmu0Ru+HfjxGUd2xY3dnA/ar9' +
'0SUt14otEZr9KEIwQwyMNc3t2oz3YFEFhHXyuBr9MsSSYpneizdi8' +
't5e4PoGq3RxyD8z/rtD2v0Vvr/QtSCPA==');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 160,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;
Procedure OnScreen;
Var
XPH,TPH,SPH,TTB: Integer;
begin
XPH := Round((FishXP * 3600) / (GetTimeRunning / 1000));
TPH := Round((Trout_Caught * 3600) / (GetTimeRunning / 1000));
SPH := Round((Salmon_Caught * 3600) / (GetTimeRunning / 1000));
TTB := (((w) + (y) + BreakRounds)-GetTimeRunning);
PrintOnSmart(['Version: '+Version+' (by Flight)',
''+MsToTime(GetTimeRunning, Time_Abbrev),
'',
'Trout: '+IntToStr(Trout_Caught)+' ('+IntToStr(TPH)+' / hour)',
'',
'Salmon: '+IntToStr(Salmon_Caught)+' ('+IntToStr(SPH)+' / hour)',
'',
'Fishing XP: '+IntToStr(FishXP)+' ('+IntToStr(XPH)+' / hour)',
'',
'Loads: '+IntToStr(Loads)],Point(15,75),16777215);
PrintOnSmart(['Time till break: '+MsToTime(TTB,Time_Bare)],Point(573,432),65280);
end;
Procedure Commit;
begin
stats_IncVariable('Trout Caught',(Trout_Caught-Trout_Ca));
stats_IncVariable('Salmon Caught',(Salmon_Caught-Salmon_Ca));
stats_IncVariable('Fishing EXP (Gained)',(FishXP-Fish_XP));
stats_IncVariable('Loads Done',(Loads-Loads_O));
Stats_Commit;
Trout_Ca := Trout_Caught;
Salmon_Ca := Salmon_Caught;
Fish_XP := FishXP;
Loads_O := Loads;
MarkTime(CommitTime);
end;
Procedure Shutdown(Reason: String);
begin
WriteLn('{{{==Script shutdown==}}}');
Writeln('----Reason: '+Reason+'----');
Wait(RandomRange(1000,1300));
Logout;
TerminateScript;
end;
Function InvertPath(Points: TPointArray): TPointArray;
Var
i, j: integer;
begin
SetLength(Result, Length(Points));
j := 0;
for i := High(Points) downto 0 do
begin
Result[j] := Points[i];
Inc(j);
end;
end;
Function WalkTo(Where: String): Boolean;
begin
Case Where of
'Bank':
Result := SPS_WalkPath(Path_ToBank);
'Spot':
Result := SPS_WalkPath(InvertPath(Path_ToBank));
end;
end;
Function FindSpotsSpirl: TPointArray;
var
Spot: Integer;
TPA: TPointArray;
begin
Spot := BitmapFromString(3, 9, 'meJz7Nd/wFxgxUAYYGRgOgAEAr8oJ' +
'4A==');
setbitmapname(Spot,'Spot (FindSpotsSpiral)');
if FindBitmapsSpiralTolerance(Spot, MMCX, MMCY, TPA, MMX1, MMY1, MMX2, MMY2, 5) then
Result := TPA;
FreeBitmap(Spot);
end;
Procedure NextSpot;
var
TP: TPoint;
TPA: TPointArray;
begin
FindNormalRandoms;
MakeCompass('W');
TPA := FindSpotsSpirl;
if (Length(TPA) = 0) then
begin
Stage := 2;
Exit;
end;
if (Length(TPA) = 1) then
begin
Writeln('Only 1 spot found, relocating...');
MMouse(TPA[0].X, TPA[0].X-5, 1, 1);
ClickMouse2(True);
FFlag(0);
Wait(randomrange(1500,2875));
Exit;
end;
TP := Point(TPA[1].X, TPA[1].Y);
if ColorDebug then
SMART_DrawBox(IntToBox(TP.X-10,TP.Y-10,TP.X+10,TP.Y+10));
MMouse(TP.X+6, TP.Y-2, 1, 1);
ClickMouse2(True);
if ColorDebug then
begin
Smart_ClearCanvas;
OnScreen;
end;
Wait(randomrange(150,300));
FFlag(0);
While IsMoving do
Wait(1);
end;
Function FindObjSimple(Color, CTS_S, Tol, Bounds, Xs, Ys: Integer; UpText: String; Var X, Y: Integer; DeBug: Boolean): Boolean;
var
TPAA: T2DPointArray;
TPA: TPointArray;
CTS, I: Integer;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(CTS_S);
FindColorsSpiralTolerance(Xs, Ys, TPA, Color, MSX1, MSY1, 470, MSY2, Tol);
ColorToleranceSpeed(CTS);
if DeBug then
SMART_DrawDotsEx(False, TPA, 65280);
TPAA := TPAToATPAEx(TPA, Bounds, Bounds);
SortATPASize(TPAA, True);
for I := 0 To High(TPAA) do
begin
MiddleTPAEx(TPAA[i], X, Y);
MMouse(X, Y, 3, 3);
if WaitUpText(UpText, 300) Then
begin
Result := True;
GetMousePos(X, Y);
Break;
end;
end;
end;
Function InFishingArea: Boolean;
begin
Result := ((Length(FindSpotsSpirl) > 0) and (Length(FindSpotsSpirl) < 3));
end;
Procedure AreaCheck;
begin
if not InFishingArea then
FindNormalRandoms;
end;
Function Antiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
AreaCheck;
i := Random(15);
case i of
1:
begin
RandomRClick;
Result := True;
end;
2:
begin
RandomMovement;
Result := True;
end;
3:
begin
HoverSkill('Fishing', False);
Result := True;
end;
end;
Wait(RandomRange(250,350));
end;
Procedure FastDropSlot(Slot: Integer);
begin
DropItem(Slot);
end;
Procedure DropRemaining;
Var
I,MS,T: Integer;
begin
MS := MouseSpeed;
T := GetTimeRunning;
FastDropSlot(3);
FastDropSlot(4);
For I := 8 downto 5 do
begin
if (I = 9) then
Break;
FastDropSlot(I);
end;
For I := 9 to high(12) do
begin
if (I = 13) then
Break;
FastDropSlot(I);
end;
For I := 16 downto 13 do
begin
if (I = 17) then
Break;
FastDropSlot(I);
end;
For I := 17 to high(20) do
begin
if (I = 21) then
Break;
FastDropSlot(I);
end;
For I := 24 downto 21 do
begin
if (I = 25) then
Break;
FastDropSlot(I);
end;
For I := 25 to high(28) do
begin
if (I = 29) then
Break;
FastDropSlot(I);
end;
Writeln('Dropped fish in '+IntToStr(GetTimeRunning-T)+' ms.');
MouseSpeed := MS;
OnScreen;
end;
Procedure WhileFishing;
var
T,I,I2: Integer;
begin
I := InvCount;
Marktime(T);
repeat
AreaCheck;
if FindNPCChatText('these fish', Nothing) then
Shutdown('Out of equipment');
ClickToContinue;
if (TimeFromMark(T) > FishTimer) then
break;
if InvFull then
break;
GameTab(tab_Inv);
I2 := InvCount;
if (I <> I2) then
begin
Marktime(T);
GameTab(tab_Inv);
I := InvCount;
if AntiBan then
Marktime(T);
end;
until(false)
end;
Function FindObjSimple_F(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
Var
T,i,X,Y: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
MarkTime(T);
Repeat
SetArrayLength(ATPA, Length(Colors));
for i := 0 to High(Colors) do
FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 10);
TPA := MergeATPA(ATPA);
ATPA := TPAtoATPAEx(TPA, 15, 15);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
if (Length(ATPA) = 0) then
Exit;
MiddleTPAEx(ATPA[0], x, y);
if (TimeFromMark(T) > 5000) then
Exit;
MMouse(x, y, 10, 10);
Wait(randomrange(75,125));
If(IsUpTextMultiCustom(TheUpText)) then
begin
if ColorDebug then
SMART_DrawBox(IntToBox(X-15,Y-15,X+15,Y+15));
ClickMouse2(True);
if DidRedClick then
begin
Result := True;
Break;
end;
end;
Until(Result)
end;
Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
Var
h, s, t: Extended;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL : Array[0..1] of Array[1..3] of Extended;
begin;
For I:= 1 to 3 do
begin;
HSL[0][i] := 255;
end;
For I:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
H := (HSL[1][1] - HSL[0][1]);
S := (HSL[1][2] - HSL[0][2]);
T := (HSL[1][3] - HSL[0][3]);
try
HueMods := (H/T);
SatMods := (S/T);
Tolerance := Round(t);
except
HueMods := 0;
SatMods := 0;
Tolerance := Round(0.0);
end;
Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
end;
Function FindFishingSpot(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA: TPointArray;
Hmod,Smod: Extended;
L,i,Tol,CTS,Col: Integer;
ATPA: T2DPointArray;
begin
Result := False;
ReturnValues([11970978, 12169386, 12433588], Hmod, Smod, Col, Tol);
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(Hmod, SMod);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
ATPA := TPAToATPAEx(TPA, 40, 40);
SortATPAFrom(ATPA, Point(MSCX,MSCY));
L := High(ATPA);
SetArrayLength(ATPA, L+1);
for i := 0 to L do
begin
if (GetArrayLength(ATPA[i]) > 20) then
begin
B := GetTPABounds(ATPA[i]);
MiddleTPAEx(ATPA[i], X, Y);
MMouse(X, Y, 15, 15);
if WaitUpTextMulti(['ure F', 'ishing', 'ng s'], 555) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
end;
Procedure StartFishing;
var
X,Y,F,XP1,XP2,TroutDTM,
SalmonDTM,TC,SC: Integer;
label
Start;
begin
if not LoggedIn then
Exit;
AreaCheck;
FFlag(0);
Wait(randomrange(1138, 1875));
if InvFull then
begin
TroutDTM := DTMFromString('mbQAAAHicY2VgYHjGxMDwAohvAfFLIP4GxPyMDAzMQCwExKJAzA7EU/v6gKqZUDA/AyZgxILBAABCqgap');
SalmonDTM := DTMFromString('mbQAAAHicY2VgYNjFxMCwD4g3APF+ID4OxLyMDAzMQCwExKJAzAjE9f5uQNVMKJifARMwYsFgAADHJAUr');
TC := CountItems('dtm', TroutDTM, []);
SC := CountItems('dtm', SalmonDTM, []);
IncEx(Trout_Caught, TC);
IncEx(Salmon_Caught, SC);
XP1 := (TC*50);
XP2 := (SC*70);
IncEx(FishXP, XP1+XP2);
OnScreen;
FreeDTM(TroutDTM);
FreeDTM(SalmonDTM);
if DoBanking then
begin
Stage := 1;
Exit;
end else
begin
Inc(Loads);
DropRemaining;
end;
end;
Start:
if FindFishingSpot(X, Y) then
begin
ClickMouse2(True);
if ColorDebug then
begin
Smart_ClearCanvas;
OnScreen;
end;
if not DidRedClick then
Exit;
FFlag(0);
Wait(RandomRange(2000,2500));
if FindNPCChatText('these fish', Nothing) then
Shutdown('Out of equipment');
WhileFishing;
end else
begin
Inc(F);
if (F > 4) then
NextSpot;
Wait(RandomRange(275, 350));
goto Start;
end;
end;
Function HandleBank: Boolean;
var
S: String;
X,Y,T,F: Integer;
label
ProcStart;
begin
ProcStart:
if not LoggedIn then
Exit;
FindNormalRandoms;
FFlag(0);
Wait(randomrange(1138, 1875));
if FindObjSimple(7631994, 2, 10, 30, MSCX, MSCY, 'posit', X, Y, ColorDebug) then
begin
if ColorDebug then
SMART_DrawBox(IntToBox(X-15,Y-15,X+15,Y+15));
ClickMouse2(True);
if not DidRedClick then
Exit;
if ColorDebug then
begin
Smart_ClearCanvas;
OnScreen;
end;
FFlag(0);
Marktime(T);
repeat
AreaCheck;
ClickToContinue;
if DepositScreen then
break;
if (TimeFromMark(T) > 5000) then
Shutdown('Failed to open deposit box');
until(false)
if DepositScreen then
begin
Deposit(3, 28, True);
Inc(Loads);
Result := True;
end;
end else
begin
Writeln('Box not found!');
Inc(F);
Wait(RandomRange(700, 1100));
if (F >= 5) then
begin
Result := False;
Exit;
end else
goto ProcStart;
end;
if Result then
begin
OnScreen;
if (GetMMLevels('run',S) <= RestAt) then
RestUntil(RandomRange(90,100));
end;
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
OnScreen;
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
ClickNorth(SRL_ANGLE_HIGH);
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
Procedure MasterLoop;
begin
if not LoggedIn then Exit;
if DoBanking then
begin
Case Stage of
0: StartFishing;
1:
if WalkTo('Bank') then
if HandleBank then
Stage := 2
else
Shutdown('Error while banking')
else
Shutdown('Failed to perform walk (to bank)');
2:
if WalkTo('Spot') then
begin
OnScreen;
Stage := 0;
end else
Shutdown('Failed to perform walk (to fishing spots)');
end;
end else
Case Stage of
0: StartFishing;
end;
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
DeclarePlayers;
Loadvars;
CheckStats;
CheckVersion;
if not LoggedIn then
LogInPlayer;
ClickNorth(SRL_ANGLE_HIGH);
Smart_ClearCanvas;
OnScreen;
Wait(500);
SPS_Setup(RUNESCAPE_SURFACE, ['10_7','10_6']);
SPS_Continue := True;
Repeat
if not LoggedIn then LoginPlayer;
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=5000) then
Report;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
AreaCheck;
MasterLoop;
Until(AllPlayersInactive)
end.
No idea if it works or not because I haven't used this script but this compiles so give it a shot.
It works for the first load then fails to loop :l
Updated to V1.4.
Everything should be fixed.
Current projects:
[ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]
"I won't fall in your gravity. Open your eyes,
you're the Earth and I'm the sky..."
Thank You <3 Using it to get 68 fishing for a TT![]()
It seems to be working quite well for right now im using version 1.4
Working great for me! Sometimes it takes a bit and runs between each spot, but for the most part it seems to be trucking alongThanks so much!
EDIT:
Gets about 5 loads done and just goes inbetween each spot. Color update maybe? Also, you should try to make the script a little less ADHD ;D this script is usefull nevertheless
Last edited by Rob0222; 02-07-2012 at 03:32 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)