Samson420
2014-09-01 18:37:06
Hello SRL-Community
this is not my first script, but it's the first i'm releasing.
It is a realy small and simple Shrimp and Anchovies catcher with banking in Draynor.
The intention of this Script is to get a new Character fast to higher fishing lvl's (like lvl 1-30).
and meanwhile bank something for training cooking later :)
The experience is estimated because it is random if you catch an anchovie or shrimp. The Proggressreport estimates 20 exp per fish
(10exp for shrimp 40 exp for anchovie)
.:. .:. .:. .:. .:. .:. .:. .:. .:. .:.
.:. Samson420`s Slowpoke-fisher
.:. Time Run: 1 Hours, 2 Minutes and 24 Seconds
.:. Fish caught: 672
.:. Fish per Hour: 646
.:. estimated EXP: 13440
.:. estimated EXP per Hour: 12921
.:. .:. .:. .:. .:. .:. .:. .:. .:. .:.
The Anti-Ban is realy small, it will act like a player who is browsing other Tab's while leveling his fishing skill.
the Setup is easy, just start the Script inside Draynor Village Bank!
look at the beginning of the script for this:
//SET-UP SCRIPT HERE//
loginName := 'YYY';
password := 'XXX';
//SET-UP SCRIPT HERE//
YYY= your Login name
XXX= your password
put this png into your "Simba\Includes\SPS\img\runescape_other" folder
[ATTACH=CONFIG]23945[/ATTACH]
GL HF ! :)
credits go to TheMayor for his awesome Tutorial :garfield:
https://villavu.com/forum/showthread.php?t=107757
more tips, tricks and suggestions would be awesome! :garfield:
this is not my first script, but it's the first i'm releasing.
It is a realy small and simple Shrimp and Anchovies catcher with banking in Draynor.
The intention of this Script is to get a new Character fast to higher fishing lvl's (like lvl 1-30).
and meanwhile bank something for training cooking later :)
The experience is estimated because it is random if you catch an anchovie or shrimp. The Proggressreport estimates 20 exp per fish
(10exp for shrimp 40 exp for anchovie)
.:. .:. .:. .:. .:. .:. .:. .:. .:. .:.
.:. Samson420`s Slowpoke-fisher
.:. Time Run: 1 Hours, 2 Minutes and 24 Seconds
.:. Fish caught: 672
.:. Fish per Hour: 646
.:. estimated EXP: 13440
.:. estimated EXP per Hour: 12921
.:. .:. .:. .:. .:. .:. .:. .:. .:. .:.
The Anti-Ban is realy small, it will act like a player who is browsing other Tab's while leveling his fishing skill.
the Setup is easy, just start the Script inside Draynor Village Bank!
look at the beginning of the script for this:
//SET-UP SCRIPT HERE//
loginName := 'YYY';
password := 'XXX';
//SET-UP SCRIPT HERE//
YYY= your Login name
XXX= your password
put this png into your "Simba\Includes\SPS\img\runescape_other" folder
[ATTACH=CONFIG]23945[/ATTACH]
GL HF ! :)
program Samson420FishDrayner;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}
var fish : integer;
procedure declarePlayers();
begin
setLength(players, 1);
with players[0] do
begin
//SET-UP SCRIPT HERE//
loginName := 'YYY';
password := 'XXX';
//SET-UP SCRIPT HERE//
isActive := true;
isMember := false;
end
currentPlayer := 0;
end;
procedure antibanFishing();
begin
case random(100) of
0..80: mouseOffClient(OFF_CLIENT_TOP);
81..90:smallRandomMouse();
91..95:hoverSkill(SKILL_FISHING);
96..100: boredHuman();
end;
end;
procedure goFishing();
var wFish: TPointArray;
begin
if not isLoggedIn() then
begin
players[currentPlayer].login();
exitSquealOfFortune();
minimap.setAngle(MM_DIRECTION_NORTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
end;
wFish := [Point(180, 112), Point(152, 157)];
if SPS.walkPath(wFish) then
minimap.waitPlayerMoving()
else
writeln('Walk to Fish failed!');
end;
procedure getfish();
var
x, y, fail : integer;
begin
repeat
if mainscreen.findObject(x, y, 14864837, 12, ['ishing'], MOUSE_RIGHT) then
begin
writeln('this Fish worked! Failcount now 0');
fail := 0;
chooseOption.select(['et']);
antibanFishing();
wait (randomRange(15000, 20000));
end else
inc(fail);
writeln('can`t find fish :(! failcount: ' +intToStr(fail));
if fail > 20 then
begin
writeln(' 21 failes ?! we look for a new path ...');
goFishing();
end
until tabBackPack.isFull();
end;
procedure goBanking();
var wBank: TPointArray;
begin
if not isLoggedIn() then
begin
players[currentPlayer].login();
exitSquealOfFortune();
minimap.setAngle(MM_DIRECTION_NORTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
end;
wBank := [Point(152, 157), Point(180, 112)];
if SPS.walkPath(wBank) then
minimap.waitPlayerMoving()
else
writeln('Walk to Bank failed!');
end;
procedure doBank();
var x, y : integer;
begin
if not isLoggedIn() then
begin
players[currentPlayer].login();
end;
if mainscreen.findObject(x, y, 11835026, 9, ['eposit'], MOUSE_LEFT) then
begin
wait (randomRange (2000, 3000));
if (depositBox.isOpen()) then
begin
depositBox.quickDeposit(QUICK_DEPOSIT_INVENTORY);
wait(randomRange(300, 1500));
bankScreen.close();
inc(fish);
end else
doBank()
end;
end;
procedure Prog();
var fishC, fishPH, exp, expPH: integer;
begin
fishC := fish * 28;
fishPH := round((fishC * 60) / (getTimeRunning() / 60000));
exp := fishC * 20;
expPH := round((exp * 60) / (getTimeRunning() / 60000));
writeLn(' .:. .:. .:. .:. .:. .:. .:. .:. .:. .:. ');
writeLn(' .:. Samson420`s Slowpoke fish Draynor ');
writeLn(' .:. Time Run: ' + timeRunning);
writeLn(' .:. Fish caught: ' + intToStr(fishC));
writeLn(' .:. Fish per Hour: ' + intToStr(fishPH));
writeLn(' .:. estimated EXP: ' + intToStr(exp));
writeLn(' .:. estimated EXP per Hour: ' + intToStr(expPH));
writeLn(' .:. .:. .:. .:. .:. .:. .:. .:. .:. .:. ');
end;
begin
clearDebug();
smartEnableDrawing := true;
setupSRL();
declarePlayers();
SPS.setup('draynfish2', RUNESCAPE_OTHER);
if not isLoggedIn() then
begin
players[currentPlayer].login();
exitSquealOfFortune();
minimap.setAngle(MM_DIRECTION_NORTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
end;
repeat
goFishing();
Prog();
getFish();
Prog();
goBanking();
Prog();
doBank();
Prog();
until false
end.credits go to TheMayor for his awesome Tutorial :garfield:
https://villavu.com/forum/showthread.php?t=107757
more tips, tricks and suggestions would be awesome! :garfield: