Could you make it so it ignores the whole top row. I usually bring feathers and 3 rods so if 1 gets lost theres still 1-2 left.
Could you make it so it ignores the whole top row. I usually bring feathers and 3 rods so if 1 gets lost theres still 1-2 left.
Anyone having any success with this script so far? Really want to power lvl so I can get into fishing guild =]
Okay version 1.01 is now uploaded. It should speed up the script. It should fix the drop problems and the problems detecting the inventory full! the script will still be pretty slow but most human fishers are pretty slow. The changing spot is not fixed as to my knowledge there is no problem as it works for me. I will add a failsafe for that this weekend though along with adding smart compatibility!
working great so far thanks for the hard work!
only kink that ive noticed is when someone walks by with a blue magic hat on, the mouse will hover over it and click on it once instead of the water
Last edited by tetro; 03-27-2013 at 02:33 AM.
I changed the code just a bit and its working fine now but dropping needs more update, it missclicks many times..
Does it support smart?
works good, not had any random work though
it would be better if it moved between fishing spots for more experience per hour.. maybe by rotating the camera so it can see the other spot
works fine with smart8
edit: not so brilliantly after all... after the third inventory it dropped my feathers.. (yes they are in the correct 1st slot and the drop function is set to start at slot 3)
Last edited by rudeboy99999; 03-27-2013 at 12:21 PM.
also bugs out when someone with a blue wizards hat is nearby
it clicks once and ill run over there.. then the mouse will just hover the hat either until the guy moves, or i rotate the camera so it is off the screen. And for changing spots do you mean the bridge spot to the spot up north? or just within one area.
it will change spots in one area perfectly but not actually run to another location. <--- hope i covered what you were asking!
Hello all,
Here is the script with SMART integrated, just copy paste it in simba or download the attachment.
Happy botting!
Simba Code:program Fisher;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
{$i sps/sps.simba}
var
CHANGE_COUNT, b, b1, b2, b2one, b3, b3one, b3two, b4, b5, b6: integer;
Procedure AntiBan;
begin
case(random(250)) of
0: MMouse(random(500), random(500), 1, 2);
10: P07_HoverSkill('Fishing',1000+Random(4000));
20: P07_HoverSkill('Fishing',1000+Random(4000));
30: P07_MakeCameraAngleHigh;
40: P07_MakeCameraAngleLow;
50: P07_MakeCompassDegree(random(360));
end;
end;
procedure FindRod;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['rod'],[1208726,1141389],5) Then
begin
ClickMouse2(mouse_left);
wait(1250+random(200))
end;
end;
procedure ClickGenie;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['enie'],[5704020, 4786501, 9376393, 8719998, 4390976],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['enie'],[1650385],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['enie'],[1650385],10))
end;
end;
procedure ClickMan;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ious','alk'],[5849352],10))
end;
end;
procedure RunSwarm;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
wait(8000+random(500))
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
If P07_FindObjCustom(x,y,['alk','ere'],[3179891],10) Then
begin
ClickMouse2(mouse_left);
wait(3000+random(1000))
end;
end;
end;
end;
procedure ClickJekyll;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ekyll'],[594262],10))
end;
end;
procedure ClickFruit;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
begin
wait(5000+random(1000))
ClickMouse2(mouse_left);
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10))
end;
end;
procedure ClickDwarf;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
begin
ClickMouse2(mouse_left);
wait(2000+random(1000))
P07_ClickToContinue;
wait(500+random(100))
If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['warf'],[1844602],10))
end;
end;
procedure ClickHand;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['and'],[3549040],10))
end;
end;
procedure ClickRick;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10))
end;
end;
Function IsFishing1: Boolean;
var
i, i2: integer;
begin
i := P07_InvCount;
wait(8000 + random(100));
i2 := p07_InvCount;
AntiBan;
if (i2 > i) then
begin
result:=true
writeln('we are fishing');
end else
begin
result:= false;
writeln('not currently fishing');
end;
end;
//if at top spot returns 1 and bottom returns two
Function CheckSpot: Integer;
var
x, y, FishDTM: integer;
begin
P07_MakeCompassNorth;
wait(500);
FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
if findDTM(FishDTM, x, y, 550,1, 727, 61) then
begin
result:= 2;
writeln('Fishing at bottom location');
end else
begin
result:= 1;
writeln('Fishing at top location');
end;
FreeDTM(FishDTM);
end;
Procedure changeSpot;
var
x, y, FishDTM: integer;
begin
FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
if (Checkspot = 1) then
begin
if (FindDTM(FishDTM, x, y, 530, 100, 695, 151)) then
begin
mouse(x, y, 1, 1, 1);
writeln('moving to bottom location');
wait(3000 + random(100));
end;
end;
if (Checkspot = 2) then
begin
if (FindDTM(FishDTM, x, y, 550,1, 727, 61)) then
begin
mouse(x, y, 1, 1, 1);
writeln('moving to top location');
wait(3000 + random(100));
end;
end;
FreeDTM(FishDTM);
end;
procedure Fish;
var
x, y: integer;
begin
if (P07_FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
begin
mouse(x,y,1,1,1)
wait(1000 + random(50));
end else
begin
changeSpot;
end;
end;
Procedure Bank;
var
x, y,salmon, trout: integer;
begin
salmon := DTMFromString('mlwAAAHicY2dgYOBhZmDgA2IRZghbAIjZoPgJIwPDcyB+DMSvGCH8d1B2baAHw87yLIaNhWkMB6pzGRZmxDAcXbmMYeesKQz4ACMeDAUASDwSFQ==');
trout := DTMFromString('m1gAAAHic42JgYOBlZmDggWJOIGYGYgEgFgZicSDmB2J2INZiYmDQBWJDIDaFYn0g1gZiNSA2guLs5GSGCW1tDMf27mU4vGsnw/VLFxmO7NnNsGzWTIYZvT0Md65fZzhz9AgDsYCRSIwAAGGDFv8=');
if (not P07_BankScreen) then
begin
writeln('bank not open');
if P07_FindObjCustom(x, y, ['ank', 'ooth'], [609382, 607580, 3239562, 2843002, 2974589, 608609], 5) then
begin
case random(4) of
0..2:
begin
mouse(x, y, 1, 1, 1);
wait(randomrange(2000, 2500));
end;
3:
begin
MMouse(x, y, 1, 1);
wait(randomrange(75, 150));
ClickMouse2(mouse_right);
wait(randomrange(75,150));
P07_ChooseOptionMulti(['k B', 'ooth', 'ank']);
wait(randomrange(2000, 2500));
end;
end;
end;
end;
if (P07_InvCount > 3) then
begin
if (findDTM(salmon, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
begin
MMouse(x, y, 1, 1);
wait(randomrange(75, 150));
ClickMouse2(Mouse_Right);
wait(randomrange(75, 150));
P07_ChooseOptionMulti(['ank', 'll', 'all']);
wait(randomrange(75,150));
end;
if (findDTM(trout, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
begin
MMouse(x, y, 1, 1);
wait(randomrange(75, 150));
ClickMouse2(Mouse_Right);
wait(randomrange(75, 150));
P07_ChooseOptionMulti(['ank', 'll', 'all']);
wait(randomrange(75,150));
end;
end;
FreeDTM(salmon);
FreeDTM(trout);
end;
Procedure Drop;
var
i: integer;
begin
repeat
for i:= 3 to 28 do
begin
if (P07_ItemExists(i)) then
begin
P07_DropInventorySlot(i);
Wait(randomRange(50, 75));
end;
end;
if (P07_InvCount > 3) then break;
until(P07_InvCount < 3);
end;
begin
SetupSRL;
SetupP07Include;
activateclient;
CHANGE_COUNT:= 0;
wait(500);
repeat
Fish;
repeat
if (not isfishing1) then
begin
if (Not P07_ItemExists(2)) then
FindRod;
ClickGenie;
ClickMan;
RunSwarm;
ClickJekyll;
ClickFruit;
ClickDwarf;
ClickHand;
ClickRick;
Fish;
end;
until(P07_InvFull or P07_ItemExists(28));
Drop;
until(false);
end.
GrahahamFisherv1,01.simba
For me to bot won't select the fishing spot, I have to click the spot for it but it drops the fish well.
It says "Fishing at top location" endlessly
Last edited by thisismebro; 03-28-2013 at 07:33 AM.
this is actually really good script good job I likedd
dude nice! this is the only script working for me so far! others keep saying that i have error in 228 line or something but this works!
Worked fine, until a random came along -.- sandwich lady raped me![]()
I had the same problem, There was an SRL update just re-download the attachments here http://villavu.com/forum/showthread.php?t=97599 and put them in the correct folder and it should work. did for me![]()
I can never get the bot to click on the fishing spot...
possibly a banking?
Only problem I face at time is the bot switching locations from the 2nd location to the first. Also after a few inventories the bot accidently drops the Rod.
There are currently 1 users browsing this thread. (0 members and 1 guests)