stocky8
07-14-2014, 02:14 AM
http://i.imgur.com/EZ3sjCW.png
Tested for 12 Hours and Caught 9K Fish.
Base Script:
Hexless V2's Rocktail Fisher (https://villavu.com/forum/showthread.php?t=108737)
Edited By:
stocky8
Reminders:
Face directly north or it will break. (Log out and Log back in to ensure true north)
Have the fishing level required for at least Sharks.
No bank pin, if so make insert it before hand so it doesnt break.
Start in the harpoon spot closest to the bank.
Make sure to have the camera zoomed all the way out and all the way up.
Set Simba's target icon to your SoulSplit Client.
This can be pretty buggy from computer to computer, I tested on 3 of my computers and 2/3 worked for 12 hours+
Read the stuff in the first lines of the script to adjust setting any probably solve many of your errors
program sFisher_fixed;
///////////////////////////////////////////////////////////////////////////
{$i SRL-OSR/SRL.simba} //You may have to change this to: {$i SRL/SRL.simba}
///////////////////////////////////////////////////////////////////////////
var rocktails, shark, manta, x , y , FishCount , FishCountPH ,InvsDone , InvsPH:integer;
//Original Script By: Hexless V2
//Edited By: stocky8
//Settings to use;
//Oldschool, 562 gameframe!
//Brightness MAX
//Camera: 0 || FARTHEST OUT!!
//North || Log out and log back in to make sure its true North
//Max Hieght of Camera
//Version: 1.2
//Start At Rocktails Fishing Spot Closest to the bank.
Procedure FishNShiz;
var x,X2,Y2 , y :integer;
Begin
wait(500);
Mouse(255,258,1,1,false);
MoveMouse(255,258 + 40);
Sleep(180);
ClickMouse2(Mouse_Left);
Writeln('Fishing...');
Sleep(85250);
End;
function checkSharks():boolean;
begin
shark := DTMFromString('mbQAAAHicY2VgYOhnZWDoBOKZQDwViKcB8T tGBobHQPwMiBmYGBi+AulZE/qBHEYUDFSKAZgwVEEBALFCCHU=');
result:= findDTM(shark,x,y,548,260,739,520);
end;
function checkMantas():boolean;
begin
manta := DTMFromString('mbQAAAHicY2VgYHjGysDwBohfAPF1IL4FxO ZMDAxaQGwPxAZA7ArEadnTgKoZUTBQKQZgwlAFBQBqvwcf');
result:= findDTM(manta,x,y,548,260,739,520);
end;
function checkRocktails():boolean;
begin
rocktails := DTMFromString('mbQAAAHicY2VgYDjExMBwAoi3APFxIN4OxG cYGRgOAPFtIL4ExX5J/kDVjCiYlQETMGGoggIA6zkI6g==');
result:= findDTM(rocktails,x,y,548,260,739,520);
end;
Procedure BankFish;
var storeAll,openBank: integer;
Begin
storeAll := BitmapFromString(54, 7, 'meJxjYAAB95BYBhjjPxhA2LRAcPO' +
'RrUOTQmbDZTFNoLUL8bgKzYVojvyPBKgliMt8OMDjQrRwRosF NMVo' +
'PkI2H79KXLEMV4bfhXgSA5ERQTDKKIllYkwm0hDMGER2PCUux BVTZ' +
'LuQAQlQnlMAF4tDIQ==');
openBank := BitmapFromString(69, 6, 'meJylU1sOwCAI43a7wH53/2Mwo4l' +
'hlDZkEj4q8qqgu5vZdT9Dfco+/taRY6axhE/yNB2c0/GvxBA0YpWt' +
'S/CK+WO3yV4GajobR0l2xiiy+NZSduycvYng25xOGk2i1l82HFxJ M' +
'9oZl7KQoDMUp5A2UD8aw2XbDLNNY3RWq7FDiFJL2KlyiPXfic 4vRe' +
'ks/w==');
wait(1000);
Mouse(588, 113,0,0,true);
Wait(6250);
Mouse(264,200,1,1,false);
Sleep(250);
findBitmapToleranceIn(openBank, x,y,100,100,368,335,145);
wait(100);
mmouse(x, y, 0,0);
ClickMouse(x,y,MOUSE_LEFT);
wait(2500);
freeBitmap(openBank);
//New Bank Sharks
if checkSharks then
begin
findDTM(shark,x,y,548,260,739,520);
mmouse(x,y,5,5);
clickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(shark);
wait(1200);
end;
//New Bank Rocktails
if checkRocktails then
begin
findDTM(rocktails,x,y,548,260,739,520);
mmouse(x,y,5,5);
clickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(shark);
wait(1200);
end;
//New Bank Manta Rays
if checkMantas then
begin
findDTM(manta,x,y,548,260,739,520);
mmouse(x,y,5,5);
ClickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(manta);
wait(1200);
end;
InvsDone := InvsDone + 1;
FishCount := FishCount + 27;
freeBitmap(storeAll);
End;
Procedure GoFish;
Begin
wait(250);
Mouse(669, 166,0,0,true);
Writeln('Going To Fishing Spot!');
Wait(6750);
Writeln('At Fishing Spot!');
wait(1000);
End;
Procedure Proggy;
Begin
ClearDebug;
Writeln('Total Time: ' + TimeRunning);
Writeln('Inventorys Fished : ' + IntToStr(InvsDone) + ' (' + IntToStr(InvsPH) + ' Per Hour)'); //Ignore the p/h
Writeln('Fish Caught : ' + IntToStr(FishCount) + ' (' + IntToStr(FishCountPH) + ' Per Hour)'); //Ignore the p/h
Writeln('Please leave any bugs on the thread!');
End;
begin
//SetupSRL; Not required
//ActivateClient; Not Required
mouseSpeed := 25; //Need to set mouse speed or it will take ages to click
//BankFish;
//GoFish;
Repeat
FishNShiz;
BankFish;
GoFish;
Proggy;
Until(false);
end.
If you have any problems with the script please contact me! I will try my hardest to help you solve the problem!
Need help with your script?
Ehh, I'll try but I'm not that good at Simba/SRL currently. I've only known how to script for a week maximum.
Thanks to the members on the IRC channel and KeepBotting for misc. support!
Tested for 12 Hours and Caught 9K Fish.
Base Script:
Hexless V2's Rocktail Fisher (https://villavu.com/forum/showthread.php?t=108737)
Edited By:
stocky8
Reminders:
Face directly north or it will break. (Log out and Log back in to ensure true north)
Have the fishing level required for at least Sharks.
No bank pin, if so make insert it before hand so it doesnt break.
Start in the harpoon spot closest to the bank.
Make sure to have the camera zoomed all the way out and all the way up.
Set Simba's target icon to your SoulSplit Client.
This can be pretty buggy from computer to computer, I tested on 3 of my computers and 2/3 worked for 12 hours+
Read the stuff in the first lines of the script to adjust setting any probably solve many of your errors
program sFisher_fixed;
///////////////////////////////////////////////////////////////////////////
{$i SRL-OSR/SRL.simba} //You may have to change this to: {$i SRL/SRL.simba}
///////////////////////////////////////////////////////////////////////////
var rocktails, shark, manta, x , y , FishCount , FishCountPH ,InvsDone , InvsPH:integer;
//Original Script By: Hexless V2
//Edited By: stocky8
//Settings to use;
//Oldschool, 562 gameframe!
//Brightness MAX
//Camera: 0 || FARTHEST OUT!!
//North || Log out and log back in to make sure its true North
//Max Hieght of Camera
//Version: 1.2
//Start At Rocktails Fishing Spot Closest to the bank.
Procedure FishNShiz;
var x,X2,Y2 , y :integer;
Begin
wait(500);
Mouse(255,258,1,1,false);
MoveMouse(255,258 + 40);
Sleep(180);
ClickMouse2(Mouse_Left);
Writeln('Fishing...');
Sleep(85250);
End;
function checkSharks():boolean;
begin
shark := DTMFromString('mbQAAAHicY2VgYOhnZWDoBOKZQDwViKcB8T tGBobHQPwMiBmYGBi+AulZE/qBHEYUDFSKAZgwVEEBALFCCHU=');
result:= findDTM(shark,x,y,548,260,739,520);
end;
function checkMantas():boolean;
begin
manta := DTMFromString('mbQAAAHicY2VgYHjGysDwBohfAPF1IL4FxO ZMDAxaQGwPxAZA7ArEadnTgKoZUTBQKQZgwlAFBQBqvwcf');
result:= findDTM(manta,x,y,548,260,739,520);
end;
function checkRocktails():boolean;
begin
rocktails := DTMFromString('mbQAAAHicY2VgYDjExMBwAoi3APFxIN4OxG cYGRgOAPFtIL4ExX5J/kDVjCiYlQETMGGoggIA6zkI6g==');
result:= findDTM(rocktails,x,y,548,260,739,520);
end;
Procedure BankFish;
var storeAll,openBank: integer;
Begin
storeAll := BitmapFromString(54, 7, 'meJxjYAAB95BYBhjjPxhA2LRAcPO' +
'RrUOTQmbDZTFNoLUL8bgKzYVojvyPBKgliMt8OMDjQrRwRosF NMVo' +
'PkI2H79KXLEMV4bfhXgSA5ERQTDKKIllYkwm0hDMGER2PCUux BVTZ' +
'LuQAQlQnlMAF4tDIQ==');
openBank := BitmapFromString(69, 6, 'meJylU1sOwCAI43a7wH53/2Mwo4l' +
'hlDZkEj4q8qqgu5vZdT9Dfco+/taRY6axhE/yNB2c0/GvxBA0YpWt' +
'S/CK+WO3yV4GajobR0l2xiiy+NZSduycvYng25xOGk2i1l82HFxJ M' +
'9oZl7KQoDMUp5A2UD8aw2XbDLNNY3RWq7FDiFJL2KlyiPXfic 4vRe' +
'ks/w==');
wait(1000);
Mouse(588, 113,0,0,true);
Wait(6250);
Mouse(264,200,1,1,false);
Sleep(250);
findBitmapToleranceIn(openBank, x,y,100,100,368,335,145);
wait(100);
mmouse(x, y, 0,0);
ClickMouse(x,y,MOUSE_LEFT);
wait(2500);
freeBitmap(openBank);
//New Bank Sharks
if checkSharks then
begin
findDTM(shark,x,y,548,260,739,520);
mmouse(x,y,5,5);
clickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(shark);
wait(1200);
end;
//New Bank Rocktails
if checkRocktails then
begin
findDTM(rocktails,x,y,548,260,739,520);
mmouse(x,y,5,5);
clickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(shark);
wait(1200);
end;
//New Bank Manta Rays
if checkMantas then
begin
findDTM(manta,x,y,548,260,739,520);
mmouse(x,y,5,5);
ClickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(manta);
wait(1200);
end;
InvsDone := InvsDone + 1;
FishCount := FishCount + 27;
freeBitmap(storeAll);
End;
Procedure GoFish;
Begin
wait(250);
Mouse(669, 166,0,0,true);
Writeln('Going To Fishing Spot!');
Wait(6750);
Writeln('At Fishing Spot!');
wait(1000);
End;
Procedure Proggy;
Begin
ClearDebug;
Writeln('Total Time: ' + TimeRunning);
Writeln('Inventorys Fished : ' + IntToStr(InvsDone) + ' (' + IntToStr(InvsPH) + ' Per Hour)'); //Ignore the p/h
Writeln('Fish Caught : ' + IntToStr(FishCount) + ' (' + IntToStr(FishCountPH) + ' Per Hour)'); //Ignore the p/h
Writeln('Please leave any bugs on the thread!');
End;
begin
//SetupSRL; Not required
//ActivateClient; Not Required
mouseSpeed := 25; //Need to set mouse speed or it will take ages to click
//BankFish;
//GoFish;
Repeat
FishNShiz;
BankFish;
GoFish;
Proggy;
Until(false);
end.
If you have any problems with the script please contact me! I will try my hardest to help you solve the problem!
Need help with your script?
Ehh, I'll try but I'm not that good at Simba/SRL currently. I've only known how to script for a week maximum.
Thanks to the members on the IRC channel and KeepBotting for misc. support!