Page 1 of 7 123 ... LastLast
Results 1 to 25 of 168

Thread: Gilded Altar - by Aegis

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

    Default Gilded Altar - by Aegis

    Gilded Altar - by Aegis

    Well, after working on this script a while, I figured I'd release it. It's not perfect, but, with school finals coming, my free-time is going to be nearly non-existant in the next week or so. Don't get me wrong, the script only really stops because of those pesky randoms you'll ever-so-often receive. Feel free to make/post edits where you see fit. I won't have much time for this, but if you're having problems, feel free to let me know. I'll do my best to correct any issues you may be having. It's not the best, but it does its' job pretty well!

    On the account I've been testing this with:
    http://img97.imageshack.us/img97/5241/screenshot8ty.png



    It has some pesky requirements, so bear with me:

    Basic Requirements:
    • Start the script in Edge Bank
    • You own POH w/ Gilded Altar (75 construction)
    • Mounted Glory
    • (Enabling Ancients is HIGHLY SUGGESTED!!!)


    Bank and House Setup:
    I've not tested it with any other house setups, so I highly suggest trying to recreate mine as best you can. I also suggest you refrain from having many decorative items in your house, as they may have ill-effect the script. (The same goes for your character's clothing/equipment!)

    Clean Marrentil and Bones:
    It doesn't matter which tab, just make sure these are in this location of whatever tab you have visible when the bank opens.



    Inventory:
    Put your tinderbox in your tool belt. Keep all of your house tabs in this inventory slot:



    Altar:
    You absolutely MUST have your altar NORTH of you when entering your house. Also, you should be using using Fancy Stone for your house. And having a room(door) placed south of the portal may cause the script to mess up. Try to match this is closely as possible!



    Mounted Glory:
    Your mounted glory should in the room adjacent (left or right) to your Altar.




    The Script:
    (Temporary Fix by Home)

    Simba 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(100 + Random(600));
        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.
    Last edited by Aegis; 12-18-2011 at 10:01 PM.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Congratulations on the release!
    Nice to see something so soon after you got members and stuff, nice clean setup thread too!

  3. #3
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    A job well done, for sure. Have some rep.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


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

    Default

    Quote Originally Posted by YoHoJo View Post
    Congratulations on the release!
    Nice to see something so soon after you got members and stuff, nice clean setup thread too!
    Quote Originally Posted by Flight View Post
    A job well done, for sure. Have some rep.

    Thanks! I just hope it works for everyone ^.^

  5. #5
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    I will surely test this out by the end of this week when I finish my finals. Can't wait! been waiting for a script like this

  6. #6
    Join Date
    Sep 2006
    Location
    Texas
    Posts
    1,349
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow nice! Fresh new member and you got this!
    October 26th killed RSBuddy but it gave rise to SRL <3

  7. #7
    Join Date
    Sep 2007
    Location
    Oklahoma, U.S.
    Posts
    145
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    To drop 1.2 mill re positioning my gilded altar or not. The prospects with this script are most definitely tempting. I'm more than willing to build a lesser altar to test though.

    Many thanks for a public release!

  8. #8
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    Quote Originally Posted by Whatmatters View Post
    To drop 1.2 mill re positioning my gilded altar or not. The prospects with this script are most definitely tempting. I'm more than willing to build a lesser altar to test though.

    Many thanks for a public release!
    Maybe you could help him out with getting this to work when the altar isn't in the north room? It shouldn't be too difficult to add, it's just a bit hard to test when his is in the north room.

    Nice work, Aegis. Glad you're here to make scripts.

  9. #9
    Join Date
    Sep 2007
    Location
    Oklahoma, U.S.
    Posts
    145
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mine's a bit hard to work with because there's a lot of camera play to see the glory mount from the chapel. Poor house planning is to blame. If I can help with that though, then I would most be delighted to.

  10. #10
    Join Date
    Mar 2006
    Location
    Behind you
    Posts
    3,193
    Mentioned
    61 Post(s)
    Quoted
    63 Post(s)

    Default

    You might be able to have the user set the Direction of the Altar from the Portal. Then when you get into the House just rotate the Camera to that direction. After that everything else should still work fine.

    Good job on the Release. Glad to see such good things from a new member.

    "Sometimes User's don't need the Answer spelled out with Code. Sometimes all they need is guidance and explanation of the logic to get where they are going."

  11. #11
    Join Date
    Dec 2011
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Looks like a nice script! I just wish you could make one that could go to other people's houses since I myself do not have 70 construction.

  12. #12
    Join Date
    May 2011
    Location
    In an Island.
    Posts
    1,413
    Mentioned
    2 Post(s)
    Quoted
    149 Post(s)

    Default

    WOW! A script that I'll definitely use! Perhaps on my road to 200m Xp! Just kidding! But I'll train it, as soon as I get time and money!
    Rep+!
    ''If you want something you've never had, you have to do something you've never done''


    total leve 2715/1b exp +... exterminated.

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

    Default

    Fucking Finally!
    I'm buying 95 Prayer right now!
    Thanks a ton Bro!!

  14. #14
    Join Date
    May 2011
    Location
    In an Island.
    Posts
    1,413
    Mentioned
    2 Post(s)
    Quoted
    149 Post(s)

    Default

    Please, moderate your speak. It's not tolerated in this community.
    ''If you want something you've never had, you have to do something you've never done''


    total leve 2715/1b exp +... exterminated.

  15. #15
    Join Date
    Dec 2011
    Location
    Belgium
    Posts
    623
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    i was waiting for a script like this! thx for making it!

  16. #16
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    Quote Originally Posted by S1N View Post
    I'm buying 95 Prayer right now!
    I would recommend moderation and not buying the entire stack at one time (Just in case Jagex decides to rain on our parade :P)




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

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

    Default

    Awesome, I'm glad to see so many of you happy to see this script!

    Thanks for the comments/feedback, everyone! Let me know how the script goes.

    @Whatmatters, I'm going to PM you.

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

    Default

    working perfectly thanks
    Last edited by dennisl400c; 12-14-2011 at 01:48 AM.

  19. #19
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    I ran it, at edge bank and everything, exact setup as you said etc. and once it lights a burner it cannot detect the other, and just logs out.

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

    Default

    Quote Originally Posted by phamxboa View Post
    I ran it, at edge bank and everything, exact setup as you said etc. and once it lights a burner it cannot detect the other, and just logs out.
    If one is found, then so should the other..

    Not sure what would be causing this. A temporary fix would be to reload the client. Have you tried running it multiple times? I'm guessing it's simply color-variation. I can play around with some color values.

    E: Might be from any new updates, but I doubt it..
    Last edited by Aegis; 12-14-2011 at 03:33 AM.

  21. #21
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Alright, since you said that, I will give it another try

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

    Default

    from the update i think though it cant teleport back after doing the bones it will failsafe it everytime it clicks on the mounted glory but not on the edgeville unless i sit here and hit 1 every time it asks

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

    Default

    Quote Originally Posted by dennisl400c View Post
    from the update i think though it cant teleport back after doing the bones it will failsafe it everytime it clicks on the mounted glory but not on the edgeville unless i sit here and hit 1 every time it asks
    Oh, I didn't know that was updated. For now, we'll have to wait till SRL gets updated. Shouldn't be too long

  24. #24
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    I just tested it again, it doesn't even detect the light this time.

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

    Default

    Quote Originally Posted by phamxboa View Post
    I just tested it again, it doesn't even detect the light this time.
    I just ran it perfectly fine with no problems. Make sure you're using these settings:

    • Safe Mode/Lowest Graphics Settings
    • Brightness on Max
    • Fixed Client Mode
    • Have your POH in Fancy Stone

    Please send me a screenshot of your altar/burners? If it's nothing mentioned above, I don't know what could be causing the problem.

Page 1 of 7 123 ... 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
  •