2 Attachment(s)
[SRL-OSR] Mafia Miles Fly Fisher[SMART]
http://s11.postimg.org/7fvtr0r9f/RSFLYFISH.png
Mafia Miles Fisher
Introducing my Barbarian Village Fly Fisher.
As soon as it recognizes that there is a fish in the inventory it will drop it. Later versions will include cooking and dropping the cooked fish. I might add a banking feature if SPSWALK on rs Gets fixed.
IMPORTANT
Only keep 7 items in first 7 inventory spots. Fly fish rod BRING MULTIPLE, feathers
Only Afk if your willing to die. Randoms appear, No antirandom yet.
BabySit Your Bot!
Realeasing because I can only use SRL-OSR in my simba. The other fly fisher has a p07 include that I cant get to run.
Code:
program Fisher1;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Misc/Debug.Simba}
var x, y, i: integer;
const
AccountLogin = '';
AccountPass = '';
CharacterName = '';
version = '1.1'; //fish1drop1 Wont Drop Featers or Rod When Placed In
//the 1st-7th spot. Fill 1-7 invy spot with feathers and Rods :)
//Declare your username and password
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := AccountLogin;
Players[0].Pass := AccountPass;
Players[0].Nick := CharacterName; //Important for antirandoms
Players[0].Active := True;
end;
Procedure AntiBan;
begin
//writeln('antiban debug!');
Case Random(130) Of
1: HoverSkill(skill_fishing, false);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: PickUpMouse;
6: RandomMovement;
7: RandomRClick;
8: MakeCompass('random');
end;
end;
Procedure DebugShiftCount;
Var
PBox: TBox;
Begin
PBox := IntToBox(245, 130, 285, 195);
Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
End;
Function isfishing: Boolean; //Average PixelShift from Flights TuT (THANKS FLIGHT!!)
var
PBox: TBox;
begin
PBox := IntToBox(230, 165, 290, 260);
Result := (AveragePixelShift(PBox, 300, 600) > 100); //Only 50 cause you are the only thing moving, so a little movement means chopping :)
end;
Procedure DropFish;
var
i: Integer;
begin
Writeln('Inventory full! Dropping Fishys!');
if(InvFull) then
for i := 7 to 28 do
begin
if ExistsItem(i) then
DropItem(i);
wait(50+random(50));
end;
end;
procedure Fish;
var
x, y, i: integer;
begin
if not(isfishing) then
wait(500);
if (FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
begin
wait(600 + random(500));
mouse(x,y,1,1,1)
wait(5000 + random(100));
Repeat
if(InvFull) then
DropFish;
Until not(isfishing)
end;
end;
begin
SetupSRL;
activateclient;
DeclarePlayer;
LoginPlayer;
wait(500);
repeat
begin
Antiban;
Fish;
end;
until(false);
end.
Attachment 20452
Attachment 20515
