SRL Archive - RS3 Script Requests

if anyone could make it would be way nice i kno it jsut came out but big suggestion

Wow, go away please.

i am sure it would be fairly easy, find fire, use logs on fire, wait till empty invent.

easy skill just became easier, perhaps someone should make a bonfire+cooking script, eg add one load of logs, next load cook somethings, etc?

Yes I would really love to see bonfire script in action.

I think it shouldn't be hard to make it - it's pretty much same concept as cooking. Not much clicking to do.

bonfire in poh with demon butler support no ban :) and fast xp

calm yourself down were working on it but i might quit because the xp ph with maple is 200k + so u get a random almost every hour and im trying to figure out where u can fm without randoms.

From: superbuster4
where u can fm without randoms.

Nowhere :D

I'm making a script for it at the moment, but yeah the randoms are annoying. Getting tons of good charms though.

POH in build mode = no random events :)

From: roflccopter
POH in build mode = no random events :)

Right. But then you lose out on the charms in the fire spirit random event. And butler runs away after a while now if I recall correctly. I guess I'll try that.

It's pretty incredible how quickly people start begging for scripts after an update.

i thought poh but yet again that butler. ugh… by chance could u light a fire on the boat of pest control people alch their no randoms. il test it out.

Some of you guys here need to stop requesting new activity scripts like 5 minutes after every patch. Someone will eventually get to it - don't worry about that for us. ;)

From: Harry
Right. But then you lose out on the charms in the fire spirit random event. And butler runs away after a while now if I recall correctly. I guess I'll try that.

butler won't leave since you will be contacting him constantly to get un-note more logs - similar to when you train making Oak Larders/Doors

The charms reward from the fire spirit is so worth it :) … but wondering the same, no idea if it appears while inside the house burning

The spirit does indeed appear inside your POH, even in building mode. I tried this out myself legit, and I got a spirit in there.

From: Aufi
The spirit does indeed appear inside your POH, even in building mode. I tried this out myself legit, and I got a spirit in there.

I've been trying in POH building to get a spirit for the past 30 minutes. None. Yet when I do my own log in GE I get one every few minutes.

Edit: höhö just got one.

apparently you cant get a random while in monkey mode so light fires with a gree gree? il see if u can wear gree gree in varock.

Really basic. Close to no failsafes but it completes most of the trips. Also loots the Fire Spirit etc.

Start at Varrock West bank, most north/west banker.
Made for maple logs but all logs should work I think.

program JJsBonFires;
{$DEFINE SMART}
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i ObjectDTM/ObjDTMInclude.simba}

var
  StartTime, BurnedLogs, LogXp: integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  with Players[0] do
    begin
      { Fill this in with your details }
      Name := '';
      Pass := '';
      Pin := '';
      Active := True;
    end;

   LogXp  := 60;  {Replace 60 with your Firemaking xp value}
end;

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 10;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  StartTime:=GetSystemTime;
  Wait(1000 + Random(3000));
  ClickNorth(0);
end;

procedure Antiban;
begin
  case Random(5000) of
    0..2: begin; HoverSkill('firemaking', False); Wait(300 + Random(500)); MMouse(256, 161, 250, 160); end;
    3: begin; HoverSkill('random', False); Wait(300 + Random(500)); MMouse(256, 161, 250, 160); end;
    4..6: RandomRClick;
    7..8: PickUpMouse;
    9..12: RandomMovement;
    13..14: BoredHuman;
    15: ExamineInv;
    16..19: SleepAndMoveMouse(Random(5000));
  end;
end;

function DetectSpirit: String;
var
  SpiritColors: TPointArray;
  SpiritColorsSplit: T2DPointArray;
  P: TPoint;

begin
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.16, 0.30);

  if CountColorTolerance(4219032, MSX1, MSY1, MSX2, MSY2, 12) > 75 then
  begin
    WriteLn('Spirit detected');
    if FindColorsTolerance(SpiritColors, 4219032, MSX1, MSY1, MSX2, MSY2, 12) then
    begin
      SortTPAFrom(SpiritColors, Point(MSCX, MSCY));
      SpiritColorsSplit := SplitTPAEx(SpiritColors, 10, 20);
      SortATPASize(SpiritColorsSplit, True);
      P := MiddleTPA(SpiritColorsSplit[0]);
      MMouse(P.X, P.Y, 2, 2);
      if WaitUpTextMulti(['ollec', 'eward', 'ire s', 'irit'], 250) then
        begin
          ClickMouse2(1);
          Result := 'Yes';
          Wait(3000 + Random(3000));
        end;
    end;
  end;
end;

procedure Bankbooth;
var
  arP: TPointArray;
  ararP: T2DPointArray;
  i, arL, X, Y: Integer;
  P: TPoint;

begin
  FindNormalRandoms;
  { Detects the bank booth }
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.22);
  FindColorsSpiralTolerance(X, Y, arP, 2905702, 156, 88, 239, 192, 5);
  SortTPAFrom(arP, Point(MSCX, MSCY));
  ararP := SplitTPAEx(arP, 80, 80);
  arL := High(ararP);
  for i := 0 to arL do
    begin
      { Banks via the bank booth }
      P := MiddleTPA(ararP[i]);
      MMouse(P.x, P.y, RandomRange(-20, -5), RandomRange(-5, 5));
      Wait(50 + Random(50));
      if WaitUpTextMulti(['Bank', 'ank'], 250) then
        GetMousePos(X, Y);
          case Random(4) of
            0..2: begin; Mouse(X, Y, 0, 0, 0); WaitOptionMulti(['Bank', 'ank'], 250); end;
            3: Mouse(X, Y, 0, 0, 1);
          end;
        Wait(1250 + Random(750));
        if(PinScreen) then
          InPin(Players[0].Pin);
          if BankScreen then
            begin
                { Check if needed to empty inv }
                if not(InvEmpty) then
                begin
                  { Deposits everything in the inventory }
                  Mousebox(352, 297, 385, 320, 1);
                  Wait(200 + Random(200));
                  Mousebox(38, 92, 73, 123, 0);
                  WaitOptionMulti(['aw-A', 'w-A', 'Withdraw-All'], 250);
                  WriteLn('Withdrawed logs');
                  Wait(200 + Random(200));
                end else
                begin
                  Mousebox(38, 92, 73, 123, 0);
                  WaitOptionMulti(['aw-A', 'w-A', 'Withdraw-All'], 250);
                  WriteLn('Withdrawed logs');
                  Wait(200 + Random(200));
                end;
          end;
    end;
end;

procedure Banker;
var
  arP: TPointArray;
  ararP: T2DPointArray;
  i, arL, X, Y: Integer;
  P: TPoint;

begin
  FindNormalRandoms;
  { Detects the banker }
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.07, 0.14);
  FindColorsSpiralTolerance(X, Y, arP, 4862264, 129, 111, 188, 176, 15);
  SortTPAFrom(arP, Point(MSCX, MSCY));
  ararP := SplitTPAEx(arP, 10, 20);
  arL := High(ararP);
  for i := 0 to arL do
    begin
      { Banks via the banker }
      P := MiddleTPA(ararP[i]);
      MMouse(P.x, P.y, 5, 5);
      Wait(50 + Random(50));
      if WaitUpTextMulti(['alk', 'alk-to', 'Talk'], 250) then
        GetMousePos(X, Y);
        Mouse(X, Y, 0, 0, 0);
        if WaitOptionMulti(['ank Ba', 'Bank Banker'], 250) then
          Wait(1250 + Random(750));
          if(PinScreen) then
            InPin(Players[0].Pin);
            if BankScreen then
              begin
                { Check if needed to empty inv }
                if not(InvEmpty) then
                begin
                  { Deposits everything in the inventory }
                  Mousebox(352, 297, 385, 320, 1);
                  Wait(200 + Random(200));
                  Mousebox(38, 92, 73, 123, 0);
                  WaitOptionMulti(['aw-A', 'w-A', 'Withdraw-All'], 250);
                  WriteLn('Withdrawed logs');
                  Wait(200 + Random(200));
                end else
                begin
                  Mousebox(38, 92, 73, 123, 0);
                  WaitOptionMulti(['aw-A', 'w-A', 'Withdraw-All'], 250);
                  WriteLn('Withdrawed logs');
                  Wait(200 + Random(200));
                end;
              end else
                begin;
                  Bankbooth;
                end;
    end;
end;

procedure Banking;
begin;
  Case Random(7) of
    0..4: Bankbooth;
    5..6: Banker;
  end;
end;

procedure MakeFire;
var
  X, Y, Logs, q, xCoord, yCoord, xCoord2, yCoord2: Integer;
  PBox: TBox;

begin;
  { Walking to a firemaking spot }
  WriteLn('Walking to a firemaking spot');

  xCoord := RandomRange(91, 99);
  yCoord := RandomRange(52, 56);
  ObjDTM_Walk(''+(IntToStr(xCoord))+':'+(IntToStr(yCoord))+':5:1:7:61:38:1:7:33:84:3:7:121:54:10:7:115:76:10:7:70:79', 3, 5, 5, True);

  Wait(1250 + Random(1000));
  FindNormalRandoms;
  if GetCurrentTab = (tab_Inv) then
    begin
      WriteLn('Current tab is the inventory tab, correct')
    end else
    begin
      FTab(tab_Inv);
      WriteLn('Changed tabs to the inventory tab')
    end;
  if not(InvFull) then
    begin
      xCoord2 := RandomRange(82, 90);
      yCoord2 := RandomRange(100, 106);
      ObjDTM_Walk(''+(IntToStr(xCoord2))+':'+(IntToStr(yCoord2))+':5:1:7:31:104:3:7:123:75:1:7:61:58:10:7:117:121:10:7:69:117', 3, 5, 5, True);
      Wait(1000 + Random(2000));
      Banking;
      ObjDTM_Walk(''+(IntToStr(xCoord))+':'+(IntToStr(yCoord))+':5:1:7:61:38:1:7:33:84:3:7:121:54:10:7:115:76:10:7:70:79', 3, 5, 5, True);
      Wait(1000 + Random(2000));
    end else

  { Failsafe when standing on a fire }
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 1.20);
  if CountColorTolerance(2067940, 244, 159, 276, 193, 16) > 30 then
    { Standing in a fire, moving }
    begin;
      MouseBox(211, 99, 318, 161, 1);
      Wait(1200 + Random(800));
    end;

   FindNormalRandoms;

  //ColorToleranceSpeed(2);
  //SetColorSpeed2Modifiers(0.15, 2.06);
  //if CountColorTolerance(4891101, MSX1, MSY1, MSX2, MSY2, 14) < 150 then
  //begin
    { Light a log }
    Logs := DTMFromString('mrAAAAHic42BgYJjHBsETgXgyEM8H4jVAvAqIVwDxYSYGhp1AvA+Iz0DxCSA+CMS7gNhNjwtoChNO/B9I4sOMBDAMAAAVzhPn');
    if FindDTM(Logs, X, Y, MIX1, MIY1, MIX2, MIY2) then
      begin
        MMouse(X, Y, 2, 2);
        Mouse(X, Y, 0, 0, 0);
        WaitOptionMulti(['ight', 'Light'], 150);
        Wait(150 + Random(300));
        Inc(BurnedLogs);
      end;
    FreeDTM(Logs);
    { Check for fire animation }
    PBox := IntToBox(282, 145, 320, 195);
    FindNormalRandoms;
    Marktime(q);
    repeat
      Wait(50 + Random(50));
      Antiban;
      Wait(50 + Random(50));
    until (Animating(PBox, 100, 200)) or (TimeFromMark(q)>10000);
    WriteLn('We have ignited a log')
    Wait(150 + Random(250));
  //end else
  //begin
    //WriteLn('There is a fire already');
  //end;
end;

function AddLogs: Boolean;
var
  FireColors: TPointArray;
  FireColorsSplit: T2DPointArray;
  P: TPoint;

begin;
  FindNormalRandoms;

  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 1.20);
  if FindColorsTolerance(FireColors, 2067940, 202, 128, 310, 229, 16) then
  begin
    SortTPAFrom(FireColors, Point(MSCX, MSCY));
    FireColorsSplit := SplitTPAEx(FireColors, 15, 15);
    SortATPASize(FireColorsSplit, True);
    P := MiddleTPA(FireColorsSplit[0]);
    MMouse(P.X, P.Y, 2, 2);
    Wait(15 + Random(75))
    ClickMouse2(0);
    if WaitOptionMulti(['dd-l', 'add-', 'add-logs'], 250) then
      begin
        Result:=True;
        Exit;
      end else
      begin
        AddLogs;
      end;
  end;
end;

procedure WaitFiremaking;
var
  X, Y, Logs, e: Integer;

begin
  FindNormalRandoms;

  MarkTime(e);
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.39, 0.80);
  Logs := DTMFromString('mrAAAAHic42BgYJjHBsETgXgyEM8H4jVAvAqIVwDxYSYGhp1AvA+Iz0DxCSA+CMS7gNhNjwtoChNO/B9I4sOMBDAMAAAVzhPn');
  repeat
    Wait(200 + Random(400));
    Antiban;
    if DetectSpirit = 'Yes' then
      begin
        AddLogs;
      end;
  until not(FindDTM(Logs, X, Y, MIX1, MIY1, MIX2, MIY2)) or (TimeFromMark(e) > RandomRange(95000, 97500));
  {if (CountColorTolerance(13620186, 202, 128, 310, 229, 7) > 40) then
    begin
      if AddLogs then
      begin
        MarkTime(w);
        repeat
          Wait(200 + Random(400));
          Antiban;
          if DetectSpirit = 'Yes' then
          begin
            AddLogs;
          end;
        until not(FindDTM(Logs, X, Y, MIX1, MIY1, MIX2, MIY2)) or (TimeFromMark(w) > 45000);
      end else
      begin
        if FindDTM(Logs, X, Y, MIX1, MIY1, MIX2, MIY2) then
          begin
            MMouse(X, Y, 2, 2);
            ClickMouse2(0);
            Wait(25 + random(75));
            WaitOptionMulti(['ight', 'Light'], 250);
            Wait(2500 + Random(2000));
            AddLogs;
          end;
      end;
    end else
    begin
      WriteLn('No ashes next to us');
    end;}
  FreeDTM(logs);
end;

procedure WalkToBanker;
var
  xCoord2, yCoord2: Integer;

begin
  FindNormalRandoms;

  xCoord2 := RandomRange(83, 89);
  yCoord2 := RandomRange(102, 106);
  ObjDTM_Walk(''+(IntToStr(xCoord2))+':'+(IntToStr(yCoord2))+':5:1:7:31:104:3:7:123:75:1:7:61:58:10:7:117:121:10:7:69:117', 3, 5, 5, True);
  Wait(1500 + Random(1000));
end;

procedure Test;
begin
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 2.06);
  WriteLn('Fire colors: '+IntToStr(CountColorTolerance(4891101, MSX1, MSY1, MSX2, MSY2, 14))+'');
end;

begin
  SetUpLogin;
  Wait(1000 + Random(3000));
  ObjDTM_Setup;
  repeat
    Banking;
    MakeFire;
    if AddLogs then
      begin
        WaitFiremaking;
        WalkToBanker;
      end;
  until not(LoggedIn);
end.

Still misses a lot but I don't have more time right now, final exams :(
In about 2-3 weeks I will be making an advanced script if there is none yet :o

it doenst work wel..

5 posts…*facedesk hard*

Wait, this was released? Damn! I missed my chance to make the first epic bonfire script! :(

From: Kyle Undefined
Wait, this was released? Damn! I missed my chance to make the first epic bonfire script! :(

Haha mine is not even close to being release worthy :P It works fairly well though. You can still release the first epic one, I just posted a very rough bonfire script.

I would love to see a script that makes multiple bots work together for more xp/h :fiery:

Soulwars=no randoms?

From: Kyle Undefined
Wait, this was released? Damn! I missed my chance to make the first epic bonfire script! :(

You could definitely make an epic one, like how you did with RuneSpan.

From: Kyle Undefined
Wait, this was released? Damn! I missed my chance to make the first epic bonfire script! :(

You can still make it! W00t GO KYLE! <3 I believe in you! :D

Hopefully I'll claim that first though :p

Try this one out. http://villavu.com/forum/showthread.php?p=1014379#post1014379

Working great for me so far, no randoms etc.

From: Ucantseemebot
Soulwars=no randoms?

Ever tried lighting a fire in SW?:sasmokin:

Soul Wars= No randoms?

EDIT: NVM

I made a bonfire script. Here

From: Andres
It's pretty incredible how quickly people start begging for scripts after an update.

u call this beggging son this is a request im not begging i think it would be dope so maybe get you ass out of your head and do something productive on the forums other than be a asshole thanks!

L2UseSearchButton >.<
EDIT: Thanks Bwuk didn't quite notice :P

From: SeaBass
L2UseSearchButton >.<

He requestet this before anyone even made a script.

From: mid flows
u call this beggging son this is a request im not begging i think it would be dope so maybe get you ass out of your head and do something productive on the forums other than be a asshole thanks!

Please watch the language.

Hopefully I'll have mine done by the end of the week. I'm not rushing it…I want it done properly.

I'm also making one atm and will be releasing perhaps later today or tomorrow