Page 6 of 7 FirstFirst ... 4567 LastLast
Results 126 to 150 of 168

Thread: Gilded Altar - by Aegis

  1. #126
    Join Date
    Dec 2011
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by trials6112 View Post
    how about instead of all the complaining you use this script as a basis for your own and submit a working one?
    View the tut's and implement changes to have it working

    Cuz I'm working on my own script. Don't know how to code a prayer one yet. Do you?

  2. #127
    Join Date
    Nov 2011
    Posts
    88
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Now when I try it It takes the marrentills then takes a random item and thne teles to home

  3. #128
    Join Date
    Jan 2012
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Is this up to date?

  4. #129
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    no^

  5. #130
    Join Date
    Jan 2012
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    guys how do i get msi? or somthing because now when i try to use this script i get this:
    ''Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

    or some one help me to fix it....

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

    Default

    Quote Originally Posted by wolkano View Post
    guys how do i get msi? or somthing because now when i try to use this script i get this:
    ''Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

    or some one help me to fix it....
    That's probably the least of your worries, but SRL went a version up to 5. To fix that in older scripts you just have to change .scar to .simba.

    Then you have to worry about if the script was converted to SRL 5.

  7. #132
    Join Date
    Jan 2012
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    sorry man i dont understand aything of this and of changing and other things

  8. #133
    Join Date
    Dec 2006
    Posts
    185
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wolkano View Post
    sorry man i dont understand aything of this and of changing and other things
    Then you shouldn't be on this site.

  9. #134
    Join Date
    Jan 2012
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by gaetano View Post
    Then you shouldn't be on this site.
    dude gfto reported

    and some one please help me to use this?
    Last edited by Zyt3x; 02-07-2012 at 10:13 PM.

  10. #135
    Join Date
    Dec 2006
    Posts
    185
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think I fixed it.

    Try this, guys

    Code:
    program Gilded_Altar;
    {$DEFINE SMART}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    const
      S_World = 65;
      S_Signed = True;
      S_Member = True;
      Version =  '1.00';
      UseFailSafe = true;  //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
      OldXP, TimeSinceFight, 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'];
        Booleans[ 1] := True;
      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(4206, 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
            ClickNorth(SRL_Angle_High);
          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(1);
      ColFace := 7513036;
      ColGrey := 4995649;
      ColBlue := 4336690;
      ColHair := 2506053;
      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(SRL_Angle_High);
      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;
    
    function isactive: boolean;
    begin
     If IsXPBarOpen Then
        Begin
          If Not( GetXPBarTotal = OldXP) Then
          Begin
            OldXP := GetXPBarTotal;
            MarkTime( TimeSinceFight);
            result := true;
          End Else
            Result := false;
        End else
          result := true;
    end;
    
    procedure StartAltar;
    var
      x, y, T: Integer;
      //TPA:TPointArray;
      //ATPA: T2DPointArray;
    label startagain;
    begin
      startagain: wait( 1);
      if (N > 3) then
        Exit;
      KeyUp(VK_F1);
      N:=0;
      Wait(5500 + Random(200));
      begin
        repeat
        Inc(N);
        if FindObjCustom(X, Y, ['oor','Doo'], [4542809,3883076,9873837], 3) then
          GetMousePos(X, Y);
        Mouse(x, y, 10, 10, false);
        AntiRandoms;
        until ChooseOption('Open') or (N > 3);
      end;
      if (N > 3) then
        Exit;
      ClickNorth(SRL_Angle_High);
      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'], [2142172], 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'], [2410490], 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;
      Wait (1000 + random (300));
      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);
         MarkTime( TimeSinceFight);
         wait( 42000 + random (1000));
         if not isactive then
         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);
         MarkTime( TimeSinceFight);
         wait( 6000);
      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
        Wait (350 + random(350));
          if Withdraw(8, 0, 1) then
        Wait (350 + random(350));
            if Withdraw(9, 0, 25) then
        Wait (350 + random(350));
              if BankScreen then
        Wait (350 + random(350));
                CloseBank;
        Wait(2000 + Random(545))
        AntiRandoms;
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
      end;
    end;
    
    procedure Main;
    begin
      repeat
        If Players[ CurrentPlayer].Booleans[ 1] Then
          ToggleXPBar( True);
        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;
      Marktime( timesincefight);
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      DeclarePlayer;
      if not(LoggedIn) then
        begin
          LogInPlayer;
          Wait(3000 + Random(2000));
          AntiRandoms;
        end;
      SetRun(True);
      Main;
    end.

  11. #136
    Join Date
    Jan 2012
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    guys there is one problem he doesnt right click on the d bone he clicks ''pray on the altar''"(

    nvm fixed it by my self
    Last edited by wolkano; 02-08-2012 at 12:13 PM.

  12. #137
    Join Date
    Dec 2006
    Posts
    185
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wolkano View Post
    guys there is one problem he doesnt right click on the d bone he clicks ''pray on the altar''"(

    nvm fixed it by my self
    Congrats

  13. #138
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i run this script? (sorry kind of a noob)

  14. #139
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i run the script?

  15. #140
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by somestreethobo View Post
    how do i run the script?

  16. #141
    Join Date
    Dec 2011
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wolkano View Post
    guys there is one problem he doesnt right click on the d bone he clicks ''pray on the altar''"(

    nvm fixed it by my self
    How did you fix this please? I have been fiddling around with it for awhile and still can't get that part to work.

  17. #142
    Join Date
    Jan 2012
    Location
    United States, Ohio
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    share the fix!!!!!

  18. #143
    Join Date
    Jan 2012
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    when i have 95 pray i wil share the fix lol i'm now @ 91 pray

  19. #144
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    May i ask why that is?

  20. #145
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    May i ask why that is?
    I agree what's so wrong? You don't make money out of it?



    ^^

  21. #146
    Join Date
    Jan 2012
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Mat View Post
    I agree what's so wrong? You don't make money out of it?
    lol h8ter xD

  22. #147
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Lol Really?



    ^^

  23. #148
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Anybody mind fixing this ? well jsut the using the bones on the altar it doesnt do it, i will pay 1-2m for anybody who can fix it

  24. #149
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    I can guess what it is, does it right click the bones?



    ^^

  25. #150
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    you are right mat, oh and i finished my Gilded altar script

Page 6 of 7 FirstFirst ... 4567 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
  •