Reliable monk fisher that can be left for a few hours with no problem?
Reliable monk fisher that can be left for a few hours with no problem?
What's the problems with the current ones?
nebular one struggles with the banker quite badly at times aswell
Simba Code:program NebulaMonkFisher;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
///////////////////////////// Instructions: ////////////////////////////////////
///////////////////// Start in the Piscatoris Bank /////////////////////////////
////////////////// Have a small net in your Toolbelt ///////////////////////////
/////////// Enter how many Loads of monkfish you want to fish //////////////////
///////////////////Enter what world you want to fish in ////////////////////////
//////////////////// Enter your username + password ////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Var
f, k, g, count:integer; // Failsafes
x, y, MonkfishFished, XpGained, monkfish: integer; //other
MiddleWalk, spot1, spot2, spot3, EastWalk, WestWalk:TPointArray;
items: TIntegerArray;
aFound: extended;
PBox: TBox;
const
Loads = 100; // Amount of loads to do
World = 91; // What world you want to be in
Procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Don't touch this
NumberOfPlayers(HowManyPlayers);// Don't touch this
CurrentPlayer := 0; // Don't touch this
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // Don't touch this
Players[0].Pin := ' '; // Bank Pin, Leave blank if you don't have one
end;
{---------------------Don't touch anything past this line---------------------}
Procedure Antiban;
begin
Wait(RandomRange(400,600));
Case random(75) of
1: Mouse(531, 62, 11, 11, true);
2: begin
HoverSkill('Fishing', false);
Wait(RandomRange(2000, 3000));
Gametab(Tab_Inv);
end;
3: begin
Gametab(Tab_Stats);
Wait(randomrange(750, 2400));
Gametab(Tab_Inv);
end;
4: begin
Gametab(Tab_Friends);
Wait(randomrange(750, 2400));
Gametab(Tab_Inv);
end;
5: MakeCompass(RandomRange(0,20));
6: MouseBox(0, 0, 753, 492, 2);
7: MakeCompass(RandomRange(340, 360));
8: SetAngle(RandomRange(0,30));
10: MouseBox(5, 482, 454, 500, 1);
11: PickUpMouse;
12: PickUpMouse;
13: MouseBox(0, 0, 753, 492, 2);
14: MMouse(333, 225, 300, 215);
15: MMouse(333, 225, 300, 215);
16: MMouse(333, 225, 300, 215);
17: SetAngle(RandomRange(0,30));
18: MakeCompass(RandomRange(0,20));
19: MakeCompass(RandomRange(340, 360));
20: MakeCompass('N');
21: MakeCompass('N');
22: MouseSpeed := RandomRange(15,20);
23: MouseSpeed := RandomRange(15,20);
end;
end;
Procedure LoadDTMS;
begin
monkfish := DTMFromString('mggAAAHicY2NgYBBmZmCQB2JJIOYDYi4gVgficEYGBj8gjgVifyCOguJsD2ugLiYMzM+AHTDiwBAAAFOTA7s=');
end;
Procedure Beginning;
begin
MakeCompass('N');
SetAngle(0);
Writeln('done with beginning');
GameTab(Tab_Inv);
end;
Procedure WalkBankFromMiddle;
begin
MiddleWalk := [Point(1185, 1858), Point(1180, 1870), Point(1176, 1883), Point(1158, 1882)];
SPS_WalkPath(MiddleWalk);
end;
Procedure WalkFishingSpot1;
begin
spot1 := [Point(1180, 1835)];
SPS_WalkPath(spot1);
end;
Procedure WalkFishingSpot2;
begin
spot2 := [Point(1220, 1838)];
SPS_WalkPath(spot2);
end;
Procedure WalkFishingSpot3;
begin
spot3 := [Point(1145, 1841)];
SPS_WalkPath(spot3);
end;
Procedure WalkBankFromEast;
begin
EastWalk := [Point(1242, 1844), Point(1229, 1852), Point(1216, 1860), Point(1204, 1866), Point(1188, 1873), Point(1178, 1883), Point(1156, 1885)];
SPS_WalkPath(EastWalk);
end;
Procedure WalkBankFromWest;
begin
WestWalk := [Point(1096, 1842), Point(1110, 1846), Point(1125, 1849), Point(1142, 1851), Point(1158, 1853), Point(1174, 1857), Point(1176, 1885), Point(1158, 1883)];
SPS_WalkPath(WestWalk);
end;
Function StartFishing: Boolean;
begin
if not findnormalrandoms then
begin
count := 1
f := 0
repeat
inc(count);
x := MSCX;
y := MSCY;
Writeln('Searching');
Wait(randomrange(300,500));
If (FindObjTPA(x, y, 11379098, 10, 1, 20, 20, 2,['Harpoon'])) then
begin
writeln('Found possible spot');
Mouse(x, y, 4, 4, False);
If (WaitOption('Net', 3000)) then
begin
writeln('found spot');
result := true
Break;
end;
end;
until((Count>4) or (true));
If (count>4) then
begin
result := false
end;
end else
begin
Writeln('found random');
Logout;
TerminateScript;
end;
end;
Procedure WhileFishing;
begin
if not findnormalrandoms then
begin
wait(randomrange(2000,2500));
repeat
PBox := IntToBox(245, 130, 285, 195);
repeat
if (AveragePixelShift(PBox, 1, 2500)>=4) then
AntiBan;
until ((AveragePixelShift(PBox, 1, 2500)<3) or (InvFull));
Writeln('pixelshift A done');
if (InvFull) then
begin
writeln('Inv is full');
break;
end else
begin
if (AveragePixelShift(PBox, 250, 2500)<550) then
begin
Writeln('PixelShift B done');
wait(randomrange(10,150));
if not startfishing then
break;
end;
end;
until(InvFull);
end else
begin
writeln('found random event');
Logout;
TerminateScript;
end;
end;
Procedure WalkToBank;
var
P : TPoint;
Begin
SPS_GetMyPos;
Writeln(ToStr(SPS_GetMyPos));
P := SPS_GetMyPos;
if (P.x>1200) then
begin
writeln('Walking East Path');
WalkBankFromEast;
end else
if (P.x<1166) then
begin
writeln('Walking Wast Path');
WalkBankFromWest;
end else
begin
writeln('Walking Middle Path');
WalkBankFromMiddle;
end;
end;
Procedure Banking;
begin
if not findnormalrandoms then
begin
MouseSpeed := RandomRange(100,110);
writeln('done walking to bank2;')
Writeln('Banking');
f := 0;
Wait(randomrange(400,800));
repeat
Wait(randomrange(250, 600));
Inc(f);
x := MSCX;
y := MSCY;
if (FindObjTPA(x, y, 2846095, 15, 1, 4, 5, 4, ['Talk'])) then
begin
Mouse(x, y, 0, 0, false);
if (WaitOption('Bank Ar', 600)) then
begin
g := 0
repeat
Inc(g);
Wait(RandomRange(45, 55))
until((BankScreen) or (g>60) or (PinScreen));
If PinScreen then
InPin(Players[CurrentPlayer].Pin);
end;
end else
begin
MakeCompass(RandomRange(90,270));
end;
until((BankScreen) or (f>5));
if (f>4) then
begin
writeln('couldnt find the banker');
Logout;
TerminateScript;
end else
begin
DepositAll;
Wait(randomRange(400, 800));
IncEx(MonkfishFished, 27);
IncEx(XpGained, 3240);
CloseBank;
end;
end;
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], UpChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,131072);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;
Procedure MakeProggy;
Var
SmartLines: TStringArray;
Clock: TIntegerArray;
XPPH, FishPerHour : integer;
begin
ClearDebug;
Clock := [0,0,0];
XPPH := Round((XpGained * 3600) / (GetTimeRunning / 1000));
FishPerHour := Round((MonkfishFished * 3600) / (GetTimeRunning / 1000));
ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
SetArrayLength(SmartLines, 5);
SmartLines[0]:= 'Time Ran:' + tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]) ;
SmartLines[1]:= 'Exp Gained:' + IntToStr(XpGained);
SmartLines[2]:= 'Exp Per hour:' + IntToStr(XPPH);
SmartLines[3]:= 'Monkfish Fished:' + IntToStr(MonkfishFished);
SmartLines[4]:= 'monkfish per hour:' + IntToStr(FishPerHour);
PrintOnSmart(SmartLines,Point(10,254),clWhite);
end;
Procedure FreeDTMMs;
begin
FreeDTM(monkfish);
end;
begin
MouseSpeed := RandomRange(15,20);
smart_server := World;
smart_members := false;
smart_signed := true;
smart_superDetail := false;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Beginning;
writeln('Starting');
MakeProggy;
SPS_Setup(RUNESCAPE_SURFACE,['2_4']);
repeat
repeat
repeat
SPS_GetMyPos;
if (invfull) then
break
else
if not Startfishing then
begin
MouseSpeed := RandomRange(15,20);
WalkFishingSpot1;
wait(RandomRange(600,1200));
if not Startfishing then
begin
MouseSpeed := RandomRange(15,20);
WalkFishingSpot2;
wait(RandomRange(600,1200));
if not Startfishing then
begin
MouseSpeed := RandomRange(15,20);
WalkFishingSpot1;
wait(RandomRange(600,1200));
if not Startfishing then
begin
MouseSpeed := RandomRange(15,20);
WalkFishingSpot3;
wait(RandomRange(600,1200));
if not Startfishing then
begin
end;
end;
end;
end;
end;
until(true);
WhileFishing;
until(InvFull);
if (InvFull) then
begin
Wait(Randomrange(1300,4000));
WalkToBank;
LoadDTMS;
Banking;
MakeProggy;
inc(k);
Writeln('Done!');
FreeDTMMs;
MouseSpeed := RandomRange(15,20);
end;
until(k=loads);
end.
Last edited by pker x414; 06-09-2012 at 11:24 PM.
Please edit that post and put it in [SIMBA][/ SIMBA] tags![]()
sayyy whattt?
quite new to this simba stuff
Edit that code and put [SIMBA] at the start and [/SIMBA ] at the end (without the space)
there you go
as i say sometimes it banks fine with no problems but other times its just logs me out
I will make my own very first script on this very soon. Just getting quest requirments etc whats taking some time. Patience is key for now if you dont make one yourself![]()
probaly explains why i cant login![]()
U Will Not Regret Trust Me
http://freeminecraft.me/?ref=1102475
lolums
dont know
dont careeeeeee
Bad luck buddy, thats the only problem with simba scripts, if you forget to take pass and shit out, you're fucked. I have done it a couple of times but I have been quick enough to change, sorry for your loss but just get botting and make bank again![]()
Bored of playing rs, and bored of botting it, why am i here?
I cant get account back atm haha
What did you lose?
only about 30m
but i cant recover account for some reason
http://dsl-187-172-235-227-dyn.prod-infinitum.com.mx/ ip...
If you do get the account back post the IP and we can get the guy banned, if the person who stole it sees this I suggest you PM the guy the new password and tell him you are very sorry if you don't want a ban
that was the ip above ^
http://www.ip-adress.com/ip_tracer/d...finitum.com.mx
If we get a mod in here we can see if that IP belongs to somebody here, I think you have to post a screenshot as proof though
I will now im just trying to recover the account and ill post a screenshot
I dont care about the stuff taken Its not my main account anyway just want it back so I can bot to 99 fishing haha
There are currently 1 users browsing this thread. (0 members and 1 guests)