SRL Archive - RS3 Script Requests

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

From: pker x414
nebular one struggles with the banker quite badly at times aswell

Then post on the thread and maybe he will fix it, if not post the code here and we will come up with some better stuff

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.

Please edit that post and put it in

tags :)

sayyy whattt?
quite new to this simba stuff

Edit that code and put

 at the start and 

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

From: pker x414
there you go
as i say sometimes it banks fine with no problems but other times its just logs me out

How far through the banking procedure does it get? which bank is this btw?

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

u lefted ur account there

probaly explains why i cant login :)

http://www.quickmeme.com/meme/3pnie2/

lolums

pker x414 do u lose everything ??

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

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/dsl-187-172-235-227-dyn.prod-infinitum.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

Btw if you want to make the part where the script finds the banker more reliable then go to this line:

 if (FindObjTPA(x, y, 2846095, 15, 1, 4, 5, 4, ['Talk'])) then

and change this

['Talk']

to more shorter strings for the uptext e.g.:

['Talk', 'alk', 'to', 'Banker', 'anker', 'ank']

Make sure you get the case (upper or lower) of the text correct though

Thanks mate been a real help through me being an idiot!

also


I dont knoww why its blue haha but heres the ip shot

Was there anything taken?

yeppp around about 30-35m

From: fretje12
http://www.quickmeme.com/meme/3pnie2/

From: fretje12
pker x414 do u lose everything ??

Well, I guess we should be asking you this.

Considering your IP matches the screen shot and posted IPs.

• fretje12 187.172.235.227 [Find Posts by User] [View Other IP Addresses for this User]

Have an explanation?

Also:

• Best S 187.192.115.161 [Find Posts by User] [View Other IP Addresses for this User]
• fretje12 187.192.115.161 [Find Posts by User] [View Other IP Addresses for this User]
• Frozen Tear 187.192.115.161 [Find Posts by User] [View Other IP Addresses for this User]
• Helper 187.192.115.161 [Find Posts by User] [View Other IP Addresses for this User]
• Laz 187.192.115.161 [Find Posts by User] [View Other IP Addresses for this User]
• Vilenueve 187.192.115.161 [Find Posts by User] [View Other IP Addresses for this User]
• Mortar 77.250.129.216 [Find Posts by User] [View Other IP Addresses for this User]

I'm listening.

From: fretje12
http://www.quickmeme.com/meme/3pnie2/

he sort of admitted it already :P ^

From: fretje12
http://www.quickmeme.com/meme/3pnie2/

I didn't even check this link, I assumed it was the face palm one…

yehhh haha I think I was the only one facepalming to be honest
also script working alot better thanks jonny