PDA

View Full Version : Barbarian Village Power Fisher![07Scape]



Spartan 117
03-25-2013, 04:31 AM
NEWS: I will be pretty busy finishing up school here the next couple of months. Anyone can take over this script if they wish. If you change it up enough I don't even need credit lol but please do credit me if you please:) Like i said the script is now for anyone to take edit(make better because it's pretty bad right now lol) and post as their own. Happy Botting!




I introduce to you my first 07Scape script! (and third script ever publicly released lol)

current version: 1.01

I feel this script will be very useful ( especially when banking and all anti-randoms are introduced) so I plan on keeping the script updated and improving it to run longer about once a week!

The script powerfishes in barbarian village for lots of xp!

Credit to Huntdafuzzma for MOST of the anti-randoms. (I have not been able to test many of them)

NOTE: you must have Danny's P07 include!
NOTE: start with the compass facing as close to north as possible!

Instructions:
1. Start with feathers in 1st inv slot (not very many if afking!)
2. have rod in second slot
3. begin at either fishing spot
4. Start script!

Features:
-Some antirandom
-Flawless fishing(in my experience)
-drops all fish(except one every now and then)
-Antiban

Features to add:
-Banking(having trouble with this
-Verfiy/fix all antirandom(help from the community would be awesome as i'm working on another script!)
-Add failsafes
-river troll anitrandom
-SMART(top priority): expect by weekend!
-suggestions?

Anti-randoms verified/fixed
Find Rod on Ground [Fixed and Verified]

Version Log
-1.0: initial release(uploaded correct one now!)
-1.01: fixed dropping issue and looping issue

Bicep
03-25-2013, 11:53 AM
looking forward to testing this

Hypocyber
03-25-2013, 01:27 PM
It won't compile "Unknown identifier 'b2two' at line 14"

Spartan 117
03-25-2013, 02:49 PM
Wow this is embarassing. I uploaded the wrong script lol! oops! I will upload the updated version when I get home!

matty521521
03-25-2013, 02:50 PM
Im about to test while im off at school :o, does it runaway from rivertrolls?

Spartan 117
03-25-2013, 02:57 PM
Im about to test while im off at school :o, does it runaway from rivertrolls?
Well I'm not sure about that one. I died one time while afking which might have been river troll. But don't use it right now. It does not work yet. I uploaded the wrong script. New one will be uploaded about 8 PM central time tonight!

Nthan
03-25-2013, 04:29 PM
Does this cut the fish to make more bait?

Edit: Sorry, my bad. Thought it was barbarian fishing (didn't read the thread title properly).:spongebob:

Spartan 117
03-25-2013, 05:30 PM
Does this cut the fish to make more bait?

Can you do that with trout / salmon?

Bicep
03-25-2013, 05:34 PM
is the right script up yet? i'm ready to test it :D

Spartan 117
03-25-2013, 05:49 PM
is the right script up yet? i'm ready to test it :D

Sorry bud not yet. Be checking back here around 8-9 pm central time. I have school then track practice then I will update the thread!

zacb
03-25-2013, 08:01 PM
so what bot is it that's up now, it's some sort of fishing bot lol

Spartan 117
03-26-2013, 12:12 AM
That was a bad version I was using to test walking functions....they didnt work lol but now the correct version is uploaded! the current version is 1.0! download and test it now!

ktman
03-26-2013, 01:27 AM
That was a bad version I was using to test walking functions....they didnt work lol but now the correct version is uploaded! the current version is 1.0! download and test it now!

Doesn't open SMART8.0? I wanted to run it minimized so I could partially AFK but it seems like it's not running smart 8

shane9000100
03-26-2013, 01:48 AM
What kind of Randoms does this support?

TheGreatestMidEver
03-26-2013, 01:51 AM
when it's supposed to drop, for some reason all it does is right click a blank invy spot and there's the option cancel

Spartan 117
03-26-2013, 03:56 AM
when it's supposed to drop, for some reason all it does is right click a blank invy spot and there's the option cancel

hmm thats odd it won't do that for me. Isyour brightness all the way up?

Spartan 117
03-26-2013, 04:49 AM
What kind of Randoms does this support?

If you look at the code the titles of the procedures will tell you that ;) but they do not ways work. I fixed the finding rod on ground random to work very well but other than that I haven't had time to test them. Any feedback on the ransoms would be great though! Even though the random dev team will be finished with their randoms soon

cento330
03-26-2013, 06:04 AM
This may be a very basic question, but where would I input the loop coding to have the script repeat itself? It appears to only perform once for me? And what code would be used?

Thanks for a bomb fishing script, it's awesome brother :D

TheGreatestMidEver
03-26-2013, 11:28 AM
Ok I tried the bot again, and when I get a full invy it just keeps clicking on the fishing spot, and I keep getting the message that says you have a full inventory.

Spartan 117
03-26-2013, 03:31 PM
This may be a very basic question, but where would I input the loop coding to have the script repeat itself? It appears to only perform once for me? And what code would be used?

Thanks for a bomb fishing script, it's awesome brother :D

I noticed that on my cousin's computer. I will upload a fixed script today or tomorrow.

Spartan 117
03-26-2013, 03:36 PM
Ok I tried the bot again, and when I get a full invy it just keeps clicking on the fishing spot, and I keep getting the message that says you have a full inventory.

this is version 1.0 that does that? if so that's pretty odd. It must not be detecting that the inventory is full so i'll add a check and break failsafe for that. Thanks for the input.

samba
03-26-2013, 05:26 PM
Working quite nicely, but there are some things that could be better:

- Fish dropping: it misses many clicks when trying to drop fishes, and even misclicked my feathers to be dropped. It's also quite slow.
- Spot changing: there are 2 different groups of fishing spots in barbarian village, and the bot can't go to other group when there's no fishing spot in other.

Overall very nice work!

Spartan 117
03-26-2013, 05:34 PM
Working quite nicely, but there are some things that could be better:

- Fish dropping: it misses many clicks when trying to drop fishes, and even misclicked my feathers to be dropped. It's also quite slow.
- Spot changing: there are 2 different groups of fishing spots in barbarian village, and the bot can't go to other group when there's no fishing spot in other.

Overall very nice work!

Hmm thanks for the input. It changed spots en running on my computer. And if you feathers are not in the first inv slot it will drop them. I made it slowish dropping for antiban.
I do realize it waits a while to click the fishing spot. That is something ill work on.

Problems with the dropping are probably due to the p07 include so I may have to customize a dropping function

ubex
03-26-2013, 06:22 PM
Working nice, but sometimes dropping feathers.

cento330
03-26-2013, 07:54 PM
Looking forward to the fix. Somebody helped me with the code and this is the edited script with a fix for the loop issue. The last section changes to:


begin
SetupP07Include;
activateclient;
CHANGE_COUNT:= 0;
wait(500);
repeat
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);
Drop;
until(IskeyDown(VK_ENTER));
end.

spin3x
03-26-2013, 11:11 PM
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.

jeffles
03-27-2013, 12:09 AM
Anyone having any success with this script so far? Really want to power lvl so I can get into fishing guild =]

Spartan 117
03-27-2013, 01:29 AM
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.

You can actually do this yourself so I won't have to mess with the script. It's really simple.

In the drop function on to for loop it says 3 to 28. just change the 3 to the number "5". this will fix your problem!

Spartan 117
03-27-2013, 01:31 AM
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!

tetro
03-27-2013, 02:31 AM
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

Spartan 117
03-27-2013, 03:25 AM
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

it clicks? makes some sort of sense that it might hover but should not click on them. I will have to work on that for the 1.1 update this weekend. Is your script changing spots successfully?

ubex
03-27-2013, 06:26 AM
I changed the code just a bit and its working fine now but dropping needs more update, it missclicks many times..

lo0ol
03-27-2013, 11:19 AM
Does it support smart?

rudeboy99999
03-27-2013, 12:17 PM
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)

rudeboy99999
03-27-2013, 01:08 PM
also bugs out when someone with a blue wizards hat is nearby

tetro
03-27-2013, 05:54 PM
it clicks? makes some sort of sense that it might hover but should not click on them. I will have to work on that for the 1.1 update this weekend. Is your script changing spots successfully?

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!

mayren100
03-27-2013, 07:34 PM
Hello all,

Here is the script with SMART integrated, just copy paste it in simba or download the attachment.
Happy botting!

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('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOA SIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
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('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOA SIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
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('mlwAAAHicY2dgYOBhZmDgA2IRZghbAIjZoP gJIwPDcyB+DMSvGCH8d1B2baAHw87yLIaNhWkMB6pzGRZmxDAc XbmMYeesKQz4ACMeDAUASDwSFQ==');
trout := DTMFromString('m1gAAAHic42JgYOBlZmDggWJOIGYGYgEgFg ZicSDmB2J2INZiYmDQBWJDIDaFYn0g1gZiNSA2guLs5GSGCW1t DMf27mU4vGsnw/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.

20263

thisismebro
03-28-2013, 07:30 AM
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

Runehack123
03-28-2013, 07:37 AM
this is actually really good script good job I likedd

thisismebro
03-28-2013, 07:54 AM
this is actually really good script good job I likedd

How did you get the bot to work? I keep getting the error above!

DLarex
03-28-2013, 12:19 PM
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!

xThereturn
03-28-2013, 03:04 PM
Worked fine, until a random came along -.- sandwich lady raped me :(

Rum0ur
03-28-2013, 05:04 PM
Hello all,

Here is the script with SMART integrated, just copy paste it in simba or download the attachment.
Happy botting!

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('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOA SIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
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('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOA SIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
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('mlwAAAHicY2dgYOBhZmDgA2IRZghbAIjZoP gJIwPDcyB+DMSvGCH8d1B2baAHw87yLIaNhWkMB6pzGRZmxDAc XbmMYeesKQz4ACMeDAUASDwSFQ==');
trout := DTMFromString('m1gAAAHic42JgYOBlZmDggWJOIGYGYgEgFg ZicSDmB2J2INZiYmDQBWJDIDaFYn0g1gZiNSA2guLs5GSGCW1t DMf27mU4vGsnw/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.

20263

Seems to bring up the EOC client in SMART using this.. Any ideas?

belkin
03-28-2013, 05:40 PM
Seems to bring up the EOC client in SMART using this.. Any ideas?

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 :)

thisismebro
03-29-2013, 07:52 AM
I can never get the bot to click on the fishing spot...

blakyn
03-29-2013, 11:29 PM
possibly a banking?

Kobe Bryant
03-30-2013, 02:44 AM
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.

Kobe Bryant
03-30-2013, 02:45 AM
Seems to bring up the EOC client in SMART using this.. Any ideas?
Install the 07 globals smart and login.

Kobe Bryant
03-30-2013, 02:46 AM
You can actually do this yourself so I won't have to mess with the script. It's really simple.

In the drop function on to for loop it says 3 to 28. just change the 3 to the number "5". this will fix your problem!

Exactly what line is this on? Couldnt seem to find it.

xdragon23
03-30-2013, 03:47 AM
Exactly what line is this on? Couldnt seem to find it.

line 308

Kobe Bryant
03-30-2013, 04:47 PM
line 308
Thanks

matty521521
03-30-2013, 06:10 PM
Where do I declare player and password ETC?

Bicep
03-31-2013, 02:12 AM
this script runs flawless. is it possible to make it smart compatible?

matty521521
03-31-2013, 03:35 AM
Is there anyone to let me know how to declare player and password ETC so I can test this scripts? :D

Kobe Bryant
04-01-2013, 12:23 AM
this script runs flawless. is it possible to make it smart compatible?

It already has been done, go back a few pages and you will see the code posted with smart being compatible.

spin3x
04-01-2013, 02:08 AM
I've found a bug. When it goes to check your fishing xp, once it goes back to inventory it accidently clicked the hp skill making the interface come up and basically script stops as there's no fail safe to exit the interface.

Also, is there any way to improve the dropping, this is my average inventory after a drop; 20419

Other than that this script is a fucking beast. Ily for making this.

Bicep
04-01-2013, 12:07 PM
It already has been done, go back a few pages and you will see the code posted with smart being compatible.

thanks for this mate :)

the_king5100
04-01-2013, 09:30 PM
It drops my fishing rod very often, why is that?

mgz
04-07-2013, 01:18 AM
So far not bad!

I'm currently running this script at the barbarian fishing lake (by barbarian agility outpost) and it's doing good finding the pools, fishing, and dropping

Of course it can't use knife to cut them though

However I have to watch it every 20-30 mins for failures such as:
Drops rod rarely
Fails every random
Rarely can't find a pool and freezes
Rarely accidentally 'use's a fish instead of dropping so it freezes

otherwise nice script!

aatykkimies
04-13-2013, 12:47 AM
Does it support banking ? i mean in the scipts it reads somekind "banking" methods that really interested me :0 if it doest banking then how?

Seek
04-13-2013, 07:33 AM
I keep getting this: Exception in Script: Unable to find file 'sps/sps.simba' used from ''
I have Danny's P07 include as well as sps-osr. Anyone idea what other file I need?

djm995
04-13-2013, 09:29 AM
I keep getting this: Exception in Script: Unable to find file 'sps/sps.simba' used from ''
I have Danny's P07 include as well as sps-osr. Anyone idea what other file I need?

you sure you have sps? re-download it just incase: http://villavu.com/forum/showthread.php?t=98324

djmargus
04-13-2013, 07:33 PM
wtf ? whats wrong ? if i hit run then the script taking control on my mouse

brett87a
04-14-2013, 06:05 PM
when I try to run its talks bout the "hint" which I have no clue what to do with, then when I try to run it just takes control of my mouse -.-, someone help please?

RoflRawr
04-22-2013, 08:43 AM
Not opening with RS07 only new runescape...?

exo89
05-05-2013, 11:35 PM
I tried this script and I get:

Compiled successfully in 1263 ms.
Checking P07Include VersionNumber
Local : 1.7 / Latest : 1.7
You Have The Latest Version of P07Include
Successfully executed.
[Hint] (7:1): Variable 'B' never used at line 6
[Hint] (7:1): Variable 'B1' never used at line 6
[Hint] (7:1): Variable 'B2' never used at line 6
[Hint] (7:1): Variable 'B2ONE' never used at line 6
[Hint] (7:1): Variable 'B3' never used at line 6
[Hint] (7:1): Variable 'B3ONE' never used at line 6
[Hint] (7:1): Variable 'B3TWO' never used at line 6
[Hint] (7:1): Variable 'B4' never used at line 6
[Hint] (7:1): Variable 'B5' never used at line 6
[Hint] (7:1): Variable 'B6' never used at line 6
Compiled successfully in 1248 ms.
Checking P07Include VersionNumber
Local : 1.7 / Latest : 1.7
You Have The Latest Version of P07Include
Successfully executed.


However it just hovers over the fishing spot, nothing else. I have it setup as stated. Any thoughts?

haymundo
06-23-2013, 03:29 PM
I too get this message, help would be much appreciated from anyone. However mine does not even hover over the fishing spot.

maiskis
06-25-2013, 10:47 AM
[Error] C:\Simba\Scripts\P07Include.Simba(57:51): Invalid number of parameters at line 56
Compiling failed.
????

Lazslo
06-26-2013, 01:18 PM
dont run it for too long otherwise you can get banned..happened to me

Ashaman88
11-27-2013, 09:21 PM
P07include outdated. Please use official one - shoot me a PM when/if this is updated.