Page 10 of 24 FirstFirst ... 8910111220 ... LastLast
Results 226 to 250 of 600

Thread: Evlin's Gilded Altar

  1. #226
    Join Date
    Mar 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by pkownage135 View Post
    still got a problem sometimes it don't detect 1 burner/altar its stupid
    on v2.1 it always detect both altar for me detection never failed but you could just like i did instant of the detect object just use MOUSE(blah....) until option burn

    i ran the bot 1hr without problems

  2. #227
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by killer06 View Post
    on v2.1 it always detect both altar for me detection never failed but you could just like i did instant of the detect object just use MOUSE(blah....) until option burn

    i ran the bot 1hr without problems
    can u send me the version of 2.1 without summoning

  3. #228
    Join Date
    Mar 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    2.1 have problems with altar detection but burners works perfect just replace the lburn and rburn functions from 1.x with the from 2.1

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

    Default

    For these DTM's i cannot make them work for every one.

  5. #230
    Join Date
    Mar 2012
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    couple questions:
    does it only work with marble burners? i got mahogany ones
    and does it have to be exact set-up? i got my altar on my west :3

  6. #231
    Join Date
    Mar 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    is ther a tutorial to make own dtms?

    @saul goodman
    altar must be north an glory west of altar else u must change the script code but you will ne to change it anyways to make it work for you

    btw already made pray 87 to 90 with that script n d bones
    Last edited by killer06; 03-22-2012 at 09:50 PM.

  7. #232
    Join Date
    Mar 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    double post, sorry lagged somehow

    #remove pls

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

    Default

    I re-edited this whole script :P took me like 1-2 hours but it paid off I guess lol. Got it running stable for 1 1/2 hours as of now.

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

    Default

    Your all starting to script , funny thing is that i started scripting via trying to fix aegis altar script xD

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

    Default

    (---Evlins Gilded Altar`---)
    Time Running 1:45:49
    Current Process: Useing
    Runs Done:52


    Small proggy hehe

  11. #236
    Join Date
    Jan 2012
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do you have a updated version without summoning? D: please?

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

    Default

    Sorry mate, i have no time to update it, maybe ask the others on this thread how to fix the none summoning script?

    And thanks for the proggy

  13. #238
    Join Date
    Mar 2012
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very sweet! Good job man, trying to fix some of the errors myself as practice.

  14. #239
    Join Date
    Mar 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Evlin View Post
    Your all starting to script , funny thing is that i started scripting via trying to fix aegis altar script xD
    jep fixing your script was the first simba script i ever worked on :P

    btw never coded with pascal befor but i have alot knowlegs in langs like c++

    pascal sucks like visual basic :/

    my version of the script

    -made it a bid more stable & faster
    -no more door detection just clicks
    -no more altar detection just clicks

    i ran the script for like 3hrs without problems (while playing bf3) 40laps per hour

    Code:
    program Gilded_Altar; //By Evlin
    {$i srl/srl/misc/smart.simba}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    
    var
      Clock: TIntegerArray;
      ActionText: TStringArray;
      Runs,Used:Integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // just leave it as is.
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    ///////////////////////////////////////////////////////////////////////////////
    ///////////////No Further Than Here(Unless Permission Was granted)/////////////
    ///////////////////////////////////////////////////////////////////////////////
    procedure SmallReport(Action: Integer);
    begin
      ClearDebug;
      ActionText := ['BankandTele','Useing','UseBankNPC'];
      Clock := [0,0,0];
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      writeln('(---Evlins Gilded Altar`---)');
      Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
      writeln('Current Process: '+ActionText[Action]);
      Writeln('Runs Done:' +IntToStr(runs));
    end;
    
    
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      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, N: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      if (N > 3) then
        begin
          Exit;
        end;
      ClickNorth(SRL_Angle_High);
      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);
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          Exit;
        end;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText('dgev', ClickLeft);
      Wait(3500 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4210, 2682)]);
        FFlag(0);
        Wait(1500 + Random(200));
        N:=0;
      end;
    end;
    
    
    Procedure OpenDoor;
    var
    x, y : integer;
    
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      KeyUp(VK_F1);
      Wait(5500 + Random(250));
      begin
    
        if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
          GetMousePos(X, Y);
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
    
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        OpenDoor;
        end;
        end;
        end;
    
      end;
    end;
    
    
    
    procedure RBurner;
    var
     Rburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw==');
    
    if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
       writeln('Found Right Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
       if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       RBurner;
       end
    
      end else
      if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(RBurn);
    end;
    
    
     procedure LBurner;
    var
     Lburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE=');
    
    if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Left Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
        if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       LBurner;
       end
    
      end else
      if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(LBurn);
    end;
    
    
    procedure BankandTele;
    begin
      //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah');
      //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
      begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      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))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
        SmallReport(1);
      end;
    end;
    
    
    
     procedure GAltar;
    var
     Altar,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
    //  Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk=');
    
    
    
    //if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
    
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       begin
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       Begin
    
         Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End
        end;
        end;
    
    
       Begin
    
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
      wait(1500 + random(100));
    if isuptext('Bury') then
    Begin
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    End
    else
    Begin
    writeln('Something went wrong there was no bones or no altar found')
    //TeleToBank;
    End;
       End;
    
    
       //ClickMouse2(True);
    //  end else
    //  if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
    //  writeln('Found No GAltar');
    //  FreeDTM(Altar);
    end;
    end;
    
    
    
    procedure Useing;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
    if isuptext('Bury') then
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    
      SmallReport(1);
    end;
    
    
    
    
    
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := 15;
      Smart_Signed := True;
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Writeln('Gilded Altar By Evlin updated by killer06');
      Writeln('Version 2.13');
      repeat
      BankandTele;
      OpenDoor;
      Wait(2500 + random(230));
      MouseBox(250, 40, 268, 73, 1);
      Wait(3000 + random(275));
      RBurner;
      Wait(3300 + random(175));
      LBurner;
      Wait(3000 + random(188));
      Useing;
     // Wait(35000 + random (200));
      //TakeBoB;
    
      TeleToBank;
    
      Inc(Runs);
      IncEx(Used,25);
      Until(Not Loggedin)
    end.
    (without summo)

    hope this is going to work for ya guys
    start at bank have your camera to north and up

    altar must be north and glory west of it
    Last edited by killer06; 03-23-2012 at 03:38 PM.

  15. #240
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by killer06 View Post
    jep fixing your script was the first simba script i ever worked on :P

    btw never coded with pascal befor but i have alot knowlegs in langs like c++

    pascal sucks like visual basic :/

    my version of the script

    -made it a bid more stable & faster
    -no more door detection just clicks
    -no more altar detection just clicks

    i ran the script for like 3hrs without problems (while playing bf3) 40laps per hour

    Code:
    program Gilded_Altar; //By Evlin
    {$i srl/srl/misc/smart.simba}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    
    var
      Clock: TIntegerArray;
      ActionText: TStringArray;
      Runs,Used:Integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // just leave it as is.
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    ///////////////////////////////////////////////////////////////////////////////
    ///////////////No Further Than Here(Unless Permission Was granted)/////////////
    ///////////////////////////////////////////////////////////////////////////////
    procedure SmallReport(Action: Integer);
    begin
      ClearDebug;
      ActionText := ['BankandTele','Useing','UseBankNPC'];
      Clock := [0,0,0];
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      writeln('(---Evlins Gilded Altar`---)');
      Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
      writeln('Current Process: '+ActionText[Action]);
      Writeln('Runs Done:' +IntToStr(runs));
    end;
    
    
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      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, N: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      if (N > 3) then
        begin
          Exit;
        end;
      ClickNorth(SRL_Angle_High);
      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);
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          Exit;
        end;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText('dgev', ClickLeft);
      Wait(3500 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4210, 2682)]);
        FFlag(0);
        Wait(1500 + Random(200));
        N:=0;
      end;
    end;
    
    
    Procedure OpenDoor;
    var
    x, y : integer;
    
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      KeyUp(VK_F1);
      Wait(5500 + Random(250));
      begin
    
        if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
          GetMousePos(X, Y);
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
    
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        OpenDoor;
        end;
        end;
        end;
    
      end;
    end;
    
    
    
    procedure RBurner;
    var
     Rburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw==');
    
    if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Right Burner, Lighting it.')
        MMouse(x, y, 7, 7);
       Mouse(x, y, 0, 0, True);
      end else
      if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(RBurn);
    end;
    
    
     procedure LBurner;
    var
     Lburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE=');
    
    if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Left Burner, Lighting it.')
        MMouse(x, y, 7, 7);
       Mouse(x, y, 0, 0, True);
      end else
      if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(LBurn);
    end;
    
    
    procedure BankandTele;
    begin
      //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah');
      //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
      begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      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))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
        SmallReport(1);
      end;
    end;
    
    
    
     procedure GAltar;
    var
     Altar,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
    //  Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk=');
    
    
    
    //if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
    
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       begin
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       Begin
    
         Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End
        end;
        end;
    
    
       Begin
    
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
      wait(1500 + random(100));
    if isuptext('Bury') then
    Begin
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    End
    else
    Begin
    writeln('Something went wrong there was no bones or no altar found')
    //TeleToBank;
    End;
       End;
    
    
       //ClickMouse2(True);
    //  end else
    //  if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
    //  writeln('Found No GAltar');
    //  FreeDTM(Altar);
    end;
    end;
    
    
    
    procedure Useing;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
    if isuptext('Bury') then
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    
      SmallReport(1);
    end;
    
    
    
    
    
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := 15;
      Smart_Signed := True;
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Writeln('Gilded Altar By Evlin updated by killer06');
      Writeln('Version 2.12');
      repeat
      BankandTele;
      OpenDoor;
      Wait(2500 + random(230));
      MouseBox(250, 40, 268, 73, 1);
      Wait(3000 + random(275));
      RBurner;
      Wait(3300 + random(175));
      LBurner;
      Wait(3000 + random(188));
      Useing;
     // Wait(35000 + random (200));
      //TakeBoB;
    
      TeleToBank;
    
      Inc(Runs);
      IncEx(Used,25);
      Until(Not Loggedin)
    end.
    (without summo)

    hope this is going to work for ya guys
    start at bank have your camera to north and up

    altar must be north and glory west of it
    Thanks Bro Still better then my version!

  16. #241
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nah not better it misclicks the burners all the time

  17. #242
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    program Gilded_Altar; //By Evlin Edited by Pkownage135
    {$i srl/srl/misc/smart.simba}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    
    var
      Clock: TIntegerArray;
      ActionText: TStringArray;
      Runs,Used:Integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // just leave it as is.
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    ///////////////////////////////////////////////////////////////////////////////
    ///////////////No Further Than Here(Unless Permission Was granted)/////////////
    ///////////////////////////////////////////////////////////////////////////////
    procedure SmallReport(Action: Integer);
    begin
      ClearDebug;
      ActionText := ['BankandTele','Useing','UseBankNPC'];
      Clock := [0,0,0];
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      writeln('(---Evlins Gilded Altar`---)');
      Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
      writeln('Current Process: '+ActionText[Action]);
      Writeln('Runs Done:' +IntToStr(runs));
    end;
    
    
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      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 + 3000);
          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, N: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      if (N > 3) then
        begin
          Exit;
        end;
      ClickNorth(SRL_Angle_High);
      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);
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          Exit;
        end;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText('dgev', ClickLeft);
      Wait(3000 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4214, 2686)]);
        FFlag(0);
        Wait(2000 + Random(200));
        N:=0;
      end;
    end;
    
    
    Procedure OpenDoor;
    var
    x, y : integer;
    
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      KeyUp(VK_F1);
      Wait(5500 + Random(200));
      begin
        repeat
        if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
          GetMousePos(X, Y);
        Mouse(x, y, 10, 10, false);
        until ChooseOption('Open');
      end;
    end;
    
    
    
    procedure RBurner;
    var
     Rburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      RBurn := DTMFromString('mlwAAAHicY2dgYDjKyMCwG4hPQ/F+ID4GxIeBeCJQfi4QzwPiTiDuAOJGqNib168Ywp0MGPystRkSvcwYQh30GX4cVQKLSQLlcWFGPBgKAFYAEqk=');
    
    if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Right Burner, Lighting it.')
        MMouse(x, y, 7, 7);
       Mouse(x, y, 0, 0, True);
      end else
      if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(RBurn);
    end;
    
    
     procedure LBurner;
    var
     Lburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      LBurn := DTMFromString('mrAAAAHic42BgYOBlZGBgBuIfQDYTkBYBYnEg5oKK7waKrwLijUB8BIq3AvESIN4HxMFBgQxTy0QYMgOsGCKdDRl8rbQZbPQUwTjM0YBBDqgGH2YkgGEAAAYzDmM=');
    
    if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Left Burner, Lighting it.')
        MMouse(x, y, 7, 7);
       Mouse(x, y, 0, 0, True);
      end else
      if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(LBurn);
    end;
    
    
     procedure GAltar;
    var
     Altar,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      Altar := DTMFromString('mggAAAHicY2NgYHjIyMDwD4hPAPF9IH4MxNeAeAtQbh0QbwLiA0C8AohXAnGkixHDtePyDHdvnWUIsNVlWD9dkiEjRI9BBCiHDTPiwBAAAB4tEgE=');
    if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found The GAltar Using bones.')
        MMouse(x, y, 7, 7);
       Wait(250);
       ClickMouse2(True);
      end else
      if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found No GAltar');
      FreeDTM(Altar);
    end;
    
    
    
    procedure Useing;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
    if isuptext('Bury') then
      ClickMouse2(False);
      wait(200);
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
      Wait(4000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
      SmallReport(1);
    end;
    
    
    procedure BankandTele;
    begin
      //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah');
      //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
      begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      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))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
        SmallReport(1);
      end;
    end;
    
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := 15;
      Smart_Signed := True;
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Writeln('Gilded Altar By Evlin /Edited By Pkownage135');
      Writeln('Version 1.50');
      repeat
      BankandTele;
      OpenDoor;
      Wait(2200 + random(75));
      MouseBox(250, 40, 268, 73, 1);
      Wait(6200 + random(75));
      RBurner;
      Wait(5000 + random(75));
      LBurner;
      Wait(5100 + random(88));
      Useing;
      Wait(41000 + random(125));
      TeleToBank;
      Inc(Runs);
      IncEx(Used,25);
      Until(Not Loggedin)
    end.
    Use this 1 my version

  18. #243
    Join Date
    Oct 2011
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by killer06 View Post
    jep fixing your script was the first simba script i ever worked on :P

    btw never coded with pascal befor but i have alot knowlegs in langs like c++

    pascal sucks like visual basic :/

    my version of the script

    -made it a bid more stable & faster
    -no more door detection just clicks
    -no more altar detection just clicks

    i ran the script for like 3hrs without problems (while playing bf3) 40laps per hour

    Code:
    program Gilded_Altar; //By Evlin
    {$i srl/srl/misc/smart.simba}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    
    var
      Clock: TIntegerArray;
      ActionText: TStringArray;
      Runs,Used:Integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // just leave it as is.
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    ///////////////////////////////////////////////////////////////////////////////
    ///////////////No Further Than Here(Unless Permission Was granted)/////////////
    ///////////////////////////////////////////////////////////////////////////////
    procedure SmallReport(Action: Integer);
    begin
      ClearDebug;
      ActionText := ['BankandTele','Useing','UseBankNPC'];
      Clock := [0,0,0];
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      writeln('(---Evlins Gilded Altar`---)');
      Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
      writeln('Current Process: '+ActionText[Action]);
      Writeln('Runs Done:' +IntToStr(runs));
    end;
    
    
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      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, N: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      if (N > 3) then
        begin
          Exit;
        end;
      ClickNorth(SRL_Angle_High);
      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);
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          Exit;
        end;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText('dgev', ClickLeft);
      Wait(3500 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4210, 2682)]);
        FFlag(0);
        Wait(1500 + Random(200));
        N:=0;
      end;
    end;
    
    
    Procedure OpenDoor;
    var
    x, y : integer;
    
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      KeyUp(VK_F1);
      Wait(5500 + Random(250));
      begin
    
        if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
          GetMousePos(X, Y);
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
    
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        OpenDoor;
        end;
        end;
        end;
    
      end;
    end;
    
    
    
    procedure RBurner;
    var
     Rburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw==');
    
    if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
       writeln('Found Right Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
       if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       RBurner;
       end
    
      end else
      if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(RBurn);
    end;
    
    
     procedure LBurner;
    var
     Lburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE=');
    
    if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Left Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
        if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       LBurner;
       end
    
      end else
      if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(LBurn);
    end;
    
    
    procedure BankandTele;
    begin
      //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah');
      //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
      begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      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))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
        SmallReport(1);
      end;
    end;
    
    
    
     procedure GAltar;
    var
     Altar,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
    //  Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk=');
    
    
    
    //if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
    
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       begin
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       Begin
    
         Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End
        end;
        end;
    
    
       Begin
    
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
      wait(1500 + random(100));
    if isuptext('Bury') then
    Begin
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    End
    else
    Begin
    writeln('Something went wrong there was no bones or no altar found')
    //TeleToBank;
    End;
       End;
    
    
       //ClickMouse2(True);
    //  end else
    //  if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
    //  writeln('Found No GAltar');
    //  FreeDTM(Altar);
    end;
    end;
    
    
    
    procedure Useing;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
    if isuptext('Bury') then
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    
      SmallReport(1);
    end;
    
    
    
    
    
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := 15;
      Smart_Signed := True;
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Writeln('Gilded Altar By Evlin updated by killer06');
      Writeln('Version 2.13');
      repeat
      BankandTele;
      OpenDoor;
      Wait(2500 + random(230));
      MouseBox(250, 40, 268, 73, 1);
      Wait(3000 + random(275));
      RBurner;
      Wait(3300 + random(175));
      LBurner;
      Wait(3000 + random(188));
      Useing;
     // Wait(35000 + random (200));
      //TakeBoB;
    
      TeleToBank;
    
      Inc(Runs);
      IncEx(Used,25);
      Until(Not Loggedin)
    end.
    (without summo)

    hope this is going to work for ya guys
    start at bank have your camera to north and up

    altar must be north and glory west of it



    Nice failsafes and good edits. Thanks!!

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

    Default

    If you guys wanna send me your versions as .Simba files, i'll add it to the main thread for you.

  20. #245
    Join Date
    Dec 2011
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Got it to work
    Last edited by Incanumix; 03-24-2012 at 05:25 AM.

  21. #246
    Join Date
    Dec 2011
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by killer06 View Post
    jep fixing your script was the first simba script i ever worked on :P

    btw never coded with pascal befor but i have alot knowlegs in langs like c++

    pascal sucks like visual basic :/

    my version of the script

    -made it a bid more stable & faster
    -no more door detection just clicks
    -no more altar detection just clicks

    i ran the script for like 3hrs without problems (while playing bf3) 40laps per hour

    Code:
    program Gilded_Altar; //By Evlin
    {$i srl/srl/misc/smart.simba}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    
    var
      Clock: TIntegerArray;
      ActionText: TStringArray;
      Runs,Used:Integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // just leave it as is.
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    ///////////////////////////////////////////////////////////////////////////////
    ///////////////No Further Than Here(Unless Permission Was granted)/////////////
    ///////////////////////////////////////////////////////////////////////////////
    procedure SmallReport(Action: Integer);
    begin
      ClearDebug;
      ActionText := ['BankandTele','Useing','UseBankNPC'];
      Clock := [0,0,0];
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      writeln('(---Evlins Gilded Altar`---)');
      Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
      writeln('Current Process: '+ActionText[Action]);
      Writeln('Runs Done:' +IntToStr(runs));
    end;
    
    
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      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, N: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      if (N > 3) then
        begin
          Exit;
        end;
      ClickNorth(SRL_Angle_High);
      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);
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          Exit;
        end;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText('dgev', ClickLeft);
      Wait(3500 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4210, 2682)]);
        FFlag(0);
        Wait(1500 + Random(200));
        N:=0;
      end;
    end;
    
    
    Procedure OpenDoor;
    var
    x, y : integer;
    
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      KeyUp(VK_F1);
      Wait(5500 + Random(250));
      begin
    
        if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
          GetMousePos(X, Y);
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
    
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        OpenDoor;
        end;
        end;
        end;
    
      end;
    end;
    
    
    
    procedure RBurner;
    var
     Rburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw==');
    
    if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
       writeln('Found Right Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
       if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       RBurner;
       end
    
      end else
      if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(RBurn);
    end;
    
    
     procedure LBurner;
    var
     Lburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE=');
    
    if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Left Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
        if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       LBurner;
       end
    
      end else
      if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(LBurn);
    end;
    
    
    procedure BankandTele;
    begin
      //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah');
      //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
      begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      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))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
        SmallReport(1);
      end;
    end;
    
    
    
     procedure GAltar;
    var
     Altar,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
    //  Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk=');
    
    
    
    //if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
    
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       begin
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       Begin
    
         Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End
        end;
        end;
    
    
       Begin
    
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
      wait(1500 + random(100));
    if isuptext('Bury') then
    Begin
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    End
    else
    Begin
    writeln('Something went wrong there was no bones or no altar found')
    //TeleToBank;
    End;
       End;
    
    
       //ClickMouse2(True);
    //  end else
    //  if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
    //  writeln('Found No GAltar');
    //  FreeDTM(Altar);
    end;
    end;
    
    
    
    procedure Useing;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
    if isuptext('Bury') then
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    
      SmallReport(1);
    end;
    
    
    
    
    
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := 15;
      Smart_Signed := True;
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Writeln('Gilded Altar By Evlin updated by killer06');
      Writeln('Version 2.13');
      repeat
      BankandTele;
      OpenDoor;
      Wait(2500 + random(230));
      MouseBox(250, 40, 268, 73, 1);
      Wait(3000 + random(275));
      RBurner;
      Wait(3300 + random(175));
      LBurner;
      Wait(3000 + random(188));
      Useing;
     // Wait(35000 + random (200));
      //TakeBoB;
    
      TeleToBank;
    
      Inc(Runs);
      IncEx(Used,25);
      Until(Not Loggedin)
    end.
    (without summo)

    hope this is going to work for ya guys
    start at bank have your camera to north and up

    altar must be north and glory west of it
    Works perfectly ^_^

    Evlin needs to fix up a few things, I think he needs to include fail safes.

  22. #247
    Join Date
    Mar 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    i also added now a check so no more burner missclicks + a check if he didnt tele somehow and another check if he didnt take bones.

    in v2.13 updated by killer06

  23. #248
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    program Gilded_Altar; //By Evlin Edited By Pkownage135
    {$i srl/srl/misc/smart.simba}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    
    var
      Clock: TIntegerArray;
      ActionText: TStringArray;
      Runs,Used:Integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // just leave it as is.
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    ///////////////////////////////////////////////////////////////////////////////
    ///////////////No Further Than Here(Unless Permission Was granted)/////////////
    ///////////////////////////////////////////////////////////////////////////////
    procedure SmallReport(Action: Integer);
    begin
      ClearDebug;
      ActionText := ['BankandTele','Useing','UseBankNPC'];
      Clock := [0,0,0];
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      writeln('(---Evlins Gilded Altar`---)');
      Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
      writeln('Current Process: '+ActionText[Action]);
      Writeln('Runs Done:' +IntToStr(runs));
    end;
    
    function XPPerHour : integer;
    Begin
      Result:= Round((XPPerhour / (GetTimeRunning / 1000)) * 3600);
    end;
    
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      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, N: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      if (N > 3) then
        begin
          Exit;
        end;
      ClickNorth(SRL_Angle_High);
      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);
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          Exit;
        end;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText('dgev', ClickLeft);
      Wait(3500 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4210, 2682)]);
        FFlag(0);
        Wait(1500 + Random(200));
        N:=0;
      end;
    end;
    
    
    Procedure OpenDoor;
    var
    x, y : integer;
    
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      KeyUp(VK_F1);
      Wait(5500 + Random(250));
      begin
    
        if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
          GetMousePos(X, Y);
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
    
        begin
    
        end else
        begin
    
        Mouse(260, 66, 30, 30, false);
        if ChooseOption('Open') then
        begin
    
        end else
        begin
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        OpenDoor;
        end;
        end;
        end;
    
      end;
    end;
    
    
    
    procedure RBurner;
    var
     Rburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw==');
    
    if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
       writeln('Found Right Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
       if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       RBurner;
       end
    
      end else
      if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(RBurn);
    end;
    
    
     procedure LBurner;
    var
     Lburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE=');
    
    if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Left Burner, Lighting it.')
        MMouse(x, y, 7, 7);
    
        if isuptext('burner') then
        begin
       Mouse(x, y, 0, 0, True);
       end else
        if isuptext('2 more') then
        begin
    
        end else
       begin
       LBurner;
       end
    
      end else
      if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(LBurn);
    end;
    
    
    procedure BankandTele;
    begin
      //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah');
      //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
      begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      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))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        //FreeDTM(Marrentil);
        //FreeDTM(DragonBones);
        SmallReport(1);
      end;
    end;
    
    
    
     procedure GAltar;
    var
     Altar,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
    //  Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk=');
    
    
    
    //if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
    
    
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       begin
    
       Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End  else
       Begin
    
         Mouse(320, 120, 30, 30, false);
       if ChooseOption('> Altar') then
       Begin
       writeln('Found The GAltar Using bones.')
         Wait(3000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
       Wait(43000 + random(3225));
       End
        end;
        end;
    
    
       Begin
    
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
      wait(1500 + random(100));
    if isuptext('Bury') then
    Begin
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    End
    else
    Begin
    writeln('Something went wrong there was no bones or no altar found')
    //TeleToBank;
    End;
       End;
    
    
       //ClickMouse2(True);
    //  end else
    //  if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
    //  writeln('Found No GAltar');
    //  FreeDTM(Altar);
    end;
    end;
    
    
    
    procedure Useing;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
    if isuptext('Bury') then
      ClickMouse2(False);
      wait(200 + Random(50));
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
    
      SmallReport(1);
    end;
    
    
    
    
    
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := 15;
      Smart_Signed := True;
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Writeln('Gilded Altar By Evlin updated by Pkownage135/Killer06');
      Writeln('Version 2.13');
      WriteLn('XP Per Hour: '+IntToStr(XPPerHour))
      repeat
      BankandTele;
      OpenDoor;
      Wait(2500 + random(230));
      MouseBox(250, 40, 268, 73, 1);
      Wait(3000 + random(275));
      RBurner;
      Wait(3300 + random(175));
      LBurner;
      Wait(3000 + random(188));
      Useing;
     // Wait(35000 + random (200));
      //TakeBoB;
    
      TeleToBank;
    
      Inc(Runs);
      IncEx(Used,25);
      Until(Not Loggedin)
    end.
    This is the updated version with an xp/hour Progress Report

  24. #249
    Join Date
    Mar 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The bot doesn't log in for me or run
    Last edited by Pendulum_From_Rid; 03-24-2012 at 05:55 PM.

  25. #250
    Join Date
    Dec 2011
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by killer06 View Post
    i also added now a check so no more burner missclicks + a check if he didnt tele somehow and another check if he didnt take bones.

    in v2.13 updated by killer06
    [Error] (1:1): Unexpected end of file at line 0
    Compiling failed.

    Error.
    Last edited by Incanumix; 03-24-2012 at 07:45 PM.

Page 10 of 24 FirstFirst ... 8910111220 ... 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
  •