Page 5 of 7 FirstFirst ... 34567 LastLast
Results 101 to 125 of 168

Thread: Gilded Altar - by Aegis

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

    Default

    Well i thought since it wasn't working I'd try fix it, so heres what i came up with....

    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 = 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;
        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(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(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;
    
    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;
      ClickNorth(False);
      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;
      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'], [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.
    It works but it uses the fail-safe alot.
    I Reccomend using the fail safe.
    i am going to add some more but for now that works.
    Enjoy

    Evlin


    EDIT: UPDATED IT AGAIN.
    Last edited by John; 01-09-2012 at 11:35 AM.

  2. #102
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hello,
    im new here and need some t\help with this script
    If i try to start this script it says this:
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    What can I do to fix this?

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

    Default

    Quote Originally Posted by armandoow View Post
    Hello,
    im new here and need some t\help with this script
    If i try to start this script it says this:

    What can I do to fix this?
    Change SRL/SRL.scar to SRL/SRL.simba and take a look at the announcement from srl 5. You have to change stuff
    07Scripter
    I mostly write private scripts

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

    Default

    Quote Originally Posted by okokokok View Post
    Change SRL/SRL.scar to SRL/SRL.simba and take a look at the announcement from srl 5. You have to change stuff
    I am just staying at srl 4, so it works fine for me.

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

    Default

    Quote Originally Posted by Evlin View Post
    I am just staying at srl 4, so it works fine for me.
    Same :P
    07Scripter
    I mostly write private scripts

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

    Default

    Quote Originally Posted by okokokok View Post
    Same :P
    okX3 :P check your pm.

  7. #107
    Join Date
    Dec 2011
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it keeps running away from bank, doing failsafe and running again away. I have tried all fixes, but they all still do it.

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

    Default

    Quote Originally Posted by countvidal View Post
    it keeps running away from bank, doing failsafe and running again away. I have tried all fixes, but they all still do it.
    I fixed that Error here use this:
    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 = 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;
        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(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
            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(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(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;
    
    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;
      ClickNorth(False);
      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;
      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'], [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.
    Last edited by John; 01-10-2012 at 09:09 AM.

  9. #109
    Join Date
    Dec 2011
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by aznhalf90 View Post
    um is there any way to make it not click away from edgevile bank
    ya ive been trying to find a fix for that but every time i think ive got it working all of a sudden it starts doing it again.

  10. #110
    Join Date
    Dec 2011
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It can't bank because it couldn't find the color

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

    Default

    Quote Originally Posted by Snowflak View Post
    It can't bank because it couldn't find the color
    have you been using my code? i fixed that error in my code.

  12. #112
    Join Date
    Dec 2011
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Last edited by Snowflak; 01-14-2012 at 06:21 AM.

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

    Default

    is that using my code?

  14. #114
    Join Date
    Dec 2011
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes it is, it just stands there and failsafe for no reason

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

    Default

    Quote Originally Posted by Snowflak View Post
    yes it is, it just stands there and failsafe for no reason
    Can you record yourself setting it up and post it here please, i have no cash to test it again :P

  16. #116
    Join Date
    Nov 2011
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Has anyone got this to work for big bones?

    Or can tell me how to go about adapting this script to run big bones (colours ect.)

    ~A newfag.

  17. #117
    Join Date
    Jan 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so this bot doesnt support BoB. has anyone wrote a script that does?

    And will this script support any type of bones?

  18. #118
    Join Date
    Jan 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    elvin, i tried your version but it doesn't seem to work for me. It always failsafes. I had to edite the 'click north' and other stuff in the code since simba updated and .scar no longer worked. Could you help me figure out y its not working? I have to do about 33k dbones and would really appreciate it!

    Thanks

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

    Default

    ^ i am not updating it atm, learn how to code, it's great then you can add bob yourself and fix it too


    Quote Originally Posted by swiftkitten View Post
    so this bot doesnt support BoB. has anyone wrote a script that does?

    And will this script support any type of bones?
    No BoB/ any bone yes.

  20. #120
    Join Date
    Nov 2011
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmmm...

  21. #121
    Join Date
    Dec 2011
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Is it working ? anyone

  22. #122
    Join Date
    Jan 2008
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What do i do with this ????????? Please help help help

    Quote Originally Posted by aegis View Post
    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.
    STOP READING MY SIG !

  23. #123
    Join Date
    Jan 2008
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''


    thats what i get
    STOP READING MY SIG !

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

    Default

    someone needs to make a new prayer script or fix this one

  25. #125
    Join Date
    Mar 2011
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

Page 5 of 7 FirstFirst ... 34567 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
  •