Page 3 of 7 FirstFirst 12345 ... LastLast
Results 51 to 75 of 168

Thread: Gilded Altar - by Aegis

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

    Default

    Quote Originally Posted by Aegis View Post
    It's made to be used with Ancients. So, I'm sure you'll have much better success with it enabled.
    No need to do it anymore got 99 pray just now done with it unless other people want it faster up to you thx for awesome script

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

    Default

    Did you use Ancients?

  3. #53
    Join Date
    Mar 2011
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    On my way to 99 prayer now. not sure if i should just chuck alot of money in to get it real quick or just buy baby drag bones.

    =/ mm any thoughts?

    wonderful script btw

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

    Default

    Quote Originally Posted by S1N View Post
    Did you use Ancients?
    yes i did

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

    Default

    Quote Originally Posted by trials6112 View Post
    On my way to 99 prayer now. not sure if i should just chuck alot of money in to get it real quick or just buy baby drag bones.

    =/ mm any thoughts?

    wonderful script btw
    Bots = No need to spend hours grinding.
    I'm doing it with Accursed Ashes...

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

    Default

    it works, but when it gains a level, it freezes and just teles. + Cannot detect the banker and then uses HT on the ancients

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

    Default

    Quote Originally Posted by phamxboa View Post
    it works, but when it gains a level, it freezes and just teles. + Cannot detect the banker and then uses HT on the ancients
    Maybe LevelUp is currently broken. Possibly some more color changes with the banker?

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

    Default

    It clicks further than the far right of the banker causing it to run outside behind the bank, and it clicks "bank" but the wall on the bank blocks the player from moving

  9. #59
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by Aegis View Post
    Maybe LevelUp is currently broken. Possibly some more color changes with the banker?
    I tried this and solved the problem with the banker, added some new colors works like a charm.

    Quote Originally Posted by phamxboa View Post
    It clicks further than the far right of the banker causing it to run outside behind the bank, and it clicks "bank" but the wall on the bank blocks the player from moving
    I have the same problem now too! I have been looking into the script, but due to my poor PASCAL skills* i couldnt manage to fix it, but i think the defect is in the following part:

    Quote Originally Posted by Aegis View Post
    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;
    I have tried increasing the waiting time, but that doesnt work. What happens is that it clicks to the coördinates in front of the banker. When the bot is walking, it will click randomly on the minimap. Maybe this can be fixed by changing the leftclick into a rightclick and than walk. Im not really sure, but i dont have any other ideas left.

    Besides this I LOVE ur script soooo much thanks for making it and keep up the good work <3
    Last edited by okokokok; 12-21-2011 at 10:16 AM.

  10. #60
    Join Date
    Dec 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is it possible to add Beast of burden support? would that require alot of work?

  11. #61
    Join Date
    Nov 2011
    Posts
    73
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does this script work properly atm?

  12. #62
    Join Date
    Dec 2011
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    members only again no

  13. #63
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    What? It's not Members only?
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  14. #64
    Join Date
    Dec 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    What? It's not Members only?
    he mean if the beast of burden support is members only?

  15. #65
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by sadzx1 View Post
    he mean if the beast of burden support is members only?
    Guys it doesnt matter if he adds bob support, a PoH is a members only object. So yes the script is members only!
    07Scripter
    I mostly write private scripts

  16. #66
    Join Date
    Dec 2011
    Location
    Argentina
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    congratz on release mate seems a nice script!

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

    Default

    The script is REALLY slow.
    It waits about 15 seconds before moving on to the second task...

  18. #68
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Yoyoyo peepz,

    Aegis, your script now does not click random on the minimap anymore, but i cant get it to work for more than 2 runs, due to the fact that it sometimes will light 1 burner and after that it will go to the mounted glory, try to click it as an burner and logout.

    greetz

    Edit: I have found a fix, replace the lines 274 till 294 with this:

    Simba Code:
    if FindObjCustom(X, Y, ['Inc','se bu','ner'], [855310,5066064], 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'], [855310,5066064], 6) then
          GetMousePos(X, Y);
        Mouse(x, y, 3, 5, false);
        AntiRandoms;
        until WaitOption('Light', 2000) or (N > 3);
      end;
    Last edited by okokokok; 12-24-2011 at 11:18 PM.
    07Scripter
    I mostly write private scripts

  19. #69
    Join Date
    Nov 2011
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for this, going to try out now, need it for 95 pray :P

    EDIT

    Doesn't even seem to be choosing worlds/logging in

  20. #70
    Join Date
    Nov 2011
    Posts
    73
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    doesn't the script work atm???

  21. #71
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by rswiz View Post
    doesn't the script work atm???
    it works with my fix
    07Scripter
    I mostly write private scripts

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

    Default

    it does not work even with your fix.

  23. #73
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by phamxboa View Post
    it does not work even with your fix.
    Well it´s a hard script where many errors may occure. With my script i can run it up to 1 hour. Anyway it´s better to have it done for you then have to do it yourself. It gained me 95 pray, so im not complaining. Aegis did a great job and with some minor fixes i´ve made on my own, the script worked pretty good for me.
    07Scripter
    I mostly write private scripts

  24. #74
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Ok i have found another problem with the script. I have added myself a lot, so it will work out the most of the errors. The only problem it seems to have atm, is that sometimes it won't light a burner. After that, the script cant detect the unlit burner. It will then light the burner, but has already clicked on logout. Here is my adjusted script:

    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'], [855310,5066064], 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'], [855310,5066064], 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');
      Wait(5000 + Random(200));
      ProgressReport;
      FFlag(0);
      Wait(600 + Random(250));
      if FindObjCustom(X, Y, ['Alt', 'tar'], [10854046], 3) then Wait(800 + random(100));
        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(1200 + 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.

    I have added some new colors, because there were some conflicts with the colors and i have added a wait option after the script clickes the use option of the dbones.
    07Scripter
    I mostly write private scripts

  25. #75
    Join Date
    Dec 2011
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Amazing :O going to test it out

Page 3 of 7 FirstFirst 12345 ... 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
  •