Page 2 of 7 FirstFirst 1234 ... LastLast
Results 26 to 50 of 168

Thread: Gilded Altar - by Aegis

  1. #26
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    It's failing now because of that new chat update, it offers all the bones to the altar, clicks the glory, but then flops when it's supposed to click "Edgeville".

  2. #27
    Join Date
    Oct 2011
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    It's failing now because of that new chat update, it offers all the bones to the altar, clicks the glory, but then flops when it's supposed to click "Edgeville".
    As stated earlier, I'm going to wait till SRL is updated.

  3. #28
    Join Date
    Nov 2011
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    It's failing now because of that new chat update, it offers all the bones to the altar, clicks the glory, but then flops when it's supposed to click "Edgeville".
    ya if ur gonna use it before it updated just sit there and hit 1 whenever it pops up what ive been doing watching a movie on half the screen

  4. #29
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    SRL updated i believe.

  5. #30
    Join Date
    May 2007
    Location
    Waterloo, Ontario, Canada
    Posts
    1,008
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Works like a charm for me, Thanks Aegis. This thing is pretty close to flawless, I'm impressed.



  6. #31
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by XxX Toxin XxX View Post
    Works like a charm for me, Thanks Aegis. This thing is pretty close to flawless, I'm impressed.
    Wait it clicks the "Edgeville"?

  7. #32
    Join Date
    May 2007
    Location
    Waterloo, Ontario, Canada
    Posts
    1,008
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    Wait it clicks the "Edgeville"?
    I fixed it myself... It's not like the fix is rocket science.



  8. #33
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by XxX Toxin XxX View Post
    I fixed it myself... It's not like the fix is rocket science.
    Mind telling me the fix :S

    EDIT*
    I'm a noob at PASCAL, but I think i got it.
    Code:
    Inc(N);
    Wait(500);
    until FindNpcChatText('dgev', ClickLeft) or (N > 10);
    Replace the bolded text to the mouse position of "Edgeville".
    Also I might increase the sleep timer a bit more to take in lag and stuff.
    Last edited by Sin; 12-15-2011 at 03:53 PM.

  9. #34
    Join Date
    May 2007
    Location
    Waterloo, Ontario, Canada
    Posts
    1,008
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    Mind telling me the fix :S

    EDIT*
    I'm a noob at PASCAL, but I think i got it.
    Code:
    Inc(N);
    Wait(500);
    until FindNpcChatText('dgev', ClickLeft) or (N > 10);
    Replace the bolded text to the mouse position of "Edgeville".
    Also I might increase the sleep timer a bit more to take in lag and stuff.
    That should do the trick, also, make sure that you have the newest updates of SRL, there was an update pushed I believe that deals with FindNPCChatText(this is only if it's not working currently)



  10. #35
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by XxX Toxin XxX View Post
    That should do the trick, also, make sure that you have the newest updates of SRL, there was an update pushed I believe that deals with FindNPCChatText(this is only if it's not working currently)
    Awesome! Thanks for the info, +rep as soon as I get on my laptop.
    On my phone atm :P

  11. #36
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    script looks good will be using for 95-99 prayer what level is for mounted glory hope 75 is high enough

  12. #37
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Are we going to be seeing a fix anytime soon?
    I have 110k Big Bones banked :3

  13. #38
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    Are we going to be seeing a fix anytime soon?
    I have 110k Big Bones banked :3
    It's all about SRL developers at the moment.

    Fixes are pretty much made. (Which will fix common problems)
    There are still one problem, but it's not much used in scripts.


    ~Home

  14. #39
    Join Date
    Nov 2011
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Is there anyway to get this script to run to other homes? I am in a dedicated friend's chat in yanille that host around the clock. I don't have 75 cons.

  15. #40
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by TheRedGlow View Post
    Is there anyway to get this script to run to other homes? I am in a dedicated friend's chat in yanille that host around the clock. I don't have 75 cons.
    Jeez, spend the 5M to get 72 Con and just use a Crystal saw.

  16. #41
    Join Date
    Nov 2011
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    Jeez, spend the 5M to get 72 Con and just use a Crystal saw.
    Perhaps after purchasing turmoil I do not have 5m, or a crystal saw because I am a turmoil pure.

    My question still stands.

  17. #42
    Join Date
    Oct 2011
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by TheRedGlow View Post
    Perhaps after purchasing turmoil I do not have 5m, or a crystal saw because I am a turmoil pure.

    My question still stands.
    No, you can't. Maybe in the future, but not now. However, getting 75 Construction literally takes a day. It's worth it, don't worry. Unless you don't feel like paying an extra 5m-ish to save 30+ rigorous hours

    Guys, I'm really sorry about the script not working. I honestly didn't think the fix would've taken this long, or else I would have implemented some kind of simple fix myself. I apologize. Apparently there's just more complications than anticipated. I haven't had much free-time on my hands.
    Last edited by Aegis; 12-17-2011 at 02:59 AM.

  18. #43
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    It teles and stuff for me.
    Here's the script I use -
    Code:
    program Gilded_Altar;
    {$DEFINE SMART}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.scar}
    {$i SPS\SPS.simba}
    
    const
      S_World = 65;
      S_Signed = True;
      S_Member = True;
      Version =  '1.00';
      UseFailSafe = False;  //READ THIS@@@@@@@@@
                           //For fail-safes to be effectively used, the user must be on the Ancients Spellbook.
                           //If you are on Ancients, leave this True. Otherwise, change it to False.
                           //  (it's HIGHLY suggested you are on Ancients!)
    
    var
      N, HouseTab, EdgeHome, Marrentil, DragonBones: Integer;
    
    procedure DeclarePlayer;
    begin
      with Players[0] do
      begin
        Name := '';   //USERNAME
        Pass := '';    //PASSWORD
        Pin := '';      //PIN (if any)
        Active := True;
        Strings[0] := 'eb';
        BoxRewards := ['Xp'];
        LampSkill := 'prayer'; // or change to whatever skill exp you want
      end;
    end;
    
    
    
    Function FindNPCChatText_F(Option: String; Action: fnct_ActionOptions): Boolean;
      var
        X,Y: Integer;
      begin
        Result := False;
    
        if Option = '' then
        begin
          srl_Warn('FindNPCChatText', 'txt is empty', warn_AllVersions);
          Exit;
        end;
    
        if FindText(X, Y, Option, UpChars, MCX1, MCY1, MCX2, MCY2) then
        begin
          Result := True;
          case Action of
            Move: MMouse(X, Y + 2, Random(Length(Option) * 5), 4);
            ClickLeft: Mouse(X, Y + 2, Random(Length(Option) * 5), 4, True);
            ClickRight: Mouse(X, Y + 2, Random(Length(Option) * 5), 4, False);
          end;
        end;
      end;
    
    procedure RightClickBurner;
    var
      MyTPA : TPointArray;
      MyPoint : TPoint;
      x, y, i : Integer;
    begin
      x := MSCx;
      y := MSCy;
      FindColorsSpiralTolerance(x, y, MyTPA, 2409460, MSx1, MSy1, MSx2, MSy2, 10);
      if Length(MyTPA) = 0 then
        FindColorsSpiralTolerance(x, y, MyTPA, 2078161, MSX1, MSY1, MSX2, MSY2, 10);
      for i := 0 to High(MyTPA) do
      begin
        MyPoint := MyTPA[i]
        MMouse (MyPoint.x, MyPoint.y, 5, 12);
        if WaitUpTextMulti(['Inc','se bu','ner'], 1000) then
        begin
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, False);
        end;
      Exit;
      end;
    end;
    
    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      LevelUp;
    end;
    
    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('Running for: ' + TimeRunning);
    end;
    
    procedure FailSafe;
    var
      X, Y: Integer;
    begin
      if UseFailSafe=False then
        begin
          Logout;
          TerminateScript;
        end;
      AntiRandoms;
      N:=0;
      EdgeHome := DTMFromString('mbQAAAHicY2VgYOBggABeIBYAYmYgZgdibiDmA2IWqPy+I58Y2ubcQMFuDJiAEQsGAwBv+wr5');
      Writeln('Error, using failsafe!');
      begin
        repeat
        if GameTab(tab_Magic) then
          if FindDTM(EdgeHome, X, Y, MIX1, MIY1, MIX2, MIY2) then
            Mouse(x, y, 5, 5, false);
        until ChooseOption('Cast');
      end;
      Wait(14500 + Random(1000));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4214, 2686)]);
        FFlag(0);
        AntiRandoms;
        FreeDTM(EdgeHome);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
        Wait(2200 + Random(400));
      end;
    end;
    
    
    procedure AntiBan;
    begin
      If(not LoggedIn)then Exit;
      MouseSpeed := 12 + Random(5);
      Case Random(20) of
        0:  MMouse(Random(MIX2), Random(MIY2), 10, 10);
        1:  HoverSkill(SKILL_prayer, False);
        2:  PickUpMouse;
        3:  GameTab(RandomRange(tab_Combat, tab_Notes));
        4:  SleepAndMoveMouse(400+Random(Random(4000)));
        5:  IdleTime(100+random(700), 100+Random(100), 0.2+RandomE/2);
        6, 8, 9:  MakeCompass(IntToStr(Random(360)));
        10:
          begin
            SetAngle(False);
            SetAngle(True);
          end;
        11, 12, 13, 15, 16: Wait(1000 + Random(800));
        17, 18, 19, 20:  Exit;
      end;
    end;
    
    {*******************************************************************************
    function OpenBankNPC/UseBankNPC(Modified): Boolean;
    By: Home
    Description: Modifed to correctly bank at Edge NPC.
    *******************************************************************************}
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      Result := (LoggedIn) and (BankScreen or PinScreen);
      if (Result) then exit;
      Speed := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      ColFace := 4468276;
      ColGrey := 4995649;
      ColBlue := 4468276;
      ColHair := 5125177;
      if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
        ['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
      begin
        Mouse(bx, by, 0, 0, False);
        if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
        begin
          t := (GetSystemTime + 5000);
          repeat
            if (BankScreen) or (PinScreen) then
            begin
              Result := true;
              Break;
            end;
            Wait(50);
          until(GetSystemTime > t);
          if (Length(Players) > 0) then
            if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
              InPin(Players[CurrentPlayer].Pin);
          Result := (BankScreen) or (PinScreen);
        end;
      end;
      ColorToleranceSpeed(Speed);
    end;
    {******************************************************************************}
    
    procedure TeleToBank;
    var
      x, y: Integer;
    begin
      if (N > 3) then
        begin
          Failsafe;
          Exit;
        end;
      N:=0;
      ClickNorth(True);
      AntiRandoms;
      begin
        repeat
        Inc(N);
        //if FindObjTPA(x, y, 6982558, 10, 2, 25, 20, w, ['mulet']) then
        if FindObjCustom(X, Y, ['mulet','et Gl','lory'], [7114144,6982558], 3) then
          GetMousePos(X, Y);
        Mouse(x, y, 0, 0, false);
        AntiRandoms;
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          FailSafe;
          Exit;
        end;
      Antiban;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText_F('dgev', ClickLeft) or (N > 10);
      //Wait(4912 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4214, 2686)]);
        Antiban;
        FFlag(0);
        Wait(2500 + Random(200));
        AntiRandoms;
        N:=0;
      end;
    end;
    
    procedure StartAltar;
    var
      x, y, T: Integer;
      //TPA:TPointArray;
      //ATPA: T2DPointArray;
    begin
      if (N > 3) then
        Exit;
      N:=0;
      ClickNorth(False);
      Wait(5500 + Random(200));
      begin
        repeat
        Inc(N);
        if FindObjCustom(X, Y, ['oor','Doo'], [4740445,3883076,5400700], 3) then
          GetMousePos(X, Y);
        Mouse(x, y, 10, 10, false);
        AntiRandoms;
        until ChooseOption('Open') or (N > 3);
      end;
      if (N > 3) then
        Exit;
      SetAngle(True);
      FFlag(2);
      Wait(900 + Random(100));
      Mouse(185, 37, 130, 50, true);
      FFlag(2);
      Wait(1000 + Random(300));
      N:=0;
      begin
        repeat
        Inc(N);
        //RightClickBurner;
        if FindObjCustom(X, Y, ['Inc','se bu','ner'], [2476026], 6) then
          GetMousePos(X, Y);
        Mouse(x, y, 3, 5, false);
        AntiRandoms;
        until WaitOption('Light', 2000) or (N > 3);
      end;
      if (N > 3) then
        Exit;
      FFlag(2);
      Wait(2000 + Random(300));
      N:=0;
      begin
        repeat
        Inc(N);
        //RightClickBurner;
        if FindObjCustom(X, Y, ['Inc','se bu','ner'], [2476026], 6) then
          GetMousePos(X, Y);
        Mouse(x, y, 3, 5, false);
        AntiRandoms;
        until WaitOption('Light', 2000) or (N > 3);
      end;
      if (N > 3) then
        Exit;
      InvMouse(5, 2);
      ChooseOption('Use');
      ProgressReport;
      FFlag(0);
      Wait(600 + Random(250));
      if FindObjCustom(X, Y, ['Alt', 'tar'], [11840684], 3) then
        Mouse(x, y, 0, 0, true);
      MouseBox(227, 405, 284, 435, 3);
      T := GetSystemTime + 44000;
      while (GetSystemTime < T) and not(FindColor(x, y, 2070783, 251, 434, 286, 446)) do
        Wait(100 + Random(100));
      if not(FindColor(x, y, 2070783, 251, 434, 286, 446)) then
        Exit;
      GetMousePos(x, y);
      if not(PointInBox(Point(x, y), IntToBox(227, 405, 284, 435))) then
        MouseBox(227, 405, 284, 435, 1)
      else
        ClickMouse2(True);
      while (GetSystemTime < T) do
      begin
        if LevelUp then
        Wait(800 + Random(100));
        AntiBan;
        AntiRandoms;
      end;
    end;
    
    procedure BankandTele;
    begin
      N:=0;
      //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah');
      //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
      AntiRandoms;
      begin
        repeat
        Inc(N);
        UseBankNPC;
        until BankScreen or (N > 3);
      end;
      if (N > 3) then
        Exit;
      begin
        //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then
          //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then
            //WithdrawItem(DragonBones, 'dtm', 25, 'ragon', []) then
        if Withdraw(8, 0, 1) then
          if Withdraw(8, 0, 1) then
            if Withdraw(9, 0, 25) then
              if BankScreen then
                CloseBank;
        Wait(1000 + Random(350))
        AntiRandoms;
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
      end;
    end;
    
    procedure Main;
    begin
      repeat
        ProgressReport;
        BankandTele;
        StartAltar;
        TeleToBank;
      until not(LoggedIn);
    end;
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := S_World;
      Smart_Signed := S_Signed;
      Smart_Members := S_Member;
      Smart_SuperDetail := False;
      SetupSRL;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      DeclarePlayer;
      if not(LoggedIn) then
        begin
          LogInPlayer;
          Wait(3000 + Random(2000));
          AntiRandoms;
        end;
      SetRun(True);
      Main;
    end.
    Thanks to "Home" who fixed it for me.
    But the script stops sometimes randomly...

  19. #44
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    do you have to have the glory ?

  20. #45
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Yes, it teles via the Mounted Glory to Edgeville.

  21. #46
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok S1N im using your fix its good but banking is slow other then that its perfect.

  22. #47
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How can i make it use bank faster ?

    Sorry for double post

  23. #48
    Join Date
    Oct 2011
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by illuminatiswag View Post
    How can i make it use bank faster ?

    Sorry for double post
    Do you mind elaborating? If it's only a 1-2 second delay, then it's just antiban.

    I'll shorten it though.

  24. #49
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Aegis, the script randomly stops while i am running it. if it wasnt for my iPad and me restarting it during the night via VNC connection, the bot would never run. I will try with Ancients and see how it goes...

  25. #50
    Join Date
    Oct 2011
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    Aegis, the script randomly stops while i am running it. if it wasnt for my iPad and me restarting it during the night via VNC connection, the bot would never run. I will try with Ancients and see how it goes...
    It's made to be used with Ancients. So, I'm sure you'll have much better success with it enabled.

Page 2 of 7 FirstFirst 1234 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •