SRL Archive - RS3 Outdated / Broken Scripts

CABB - Chaos Altar Bone Buryer - By Ultra

Ultra

2009-03-07 16:45:47

Script is no longer maintained.

ian.

2009-03-07 16:56:51

standards ;) lol sorry just bugs me :)

looks really nice :D

program ChaosAltarBoneBuryer;
{.Include SRL/SRL.Scar}
{--------}
{MADE BY: Ultra}
{PURPOSE: Prayer Exp}
{ANTI-RANDOMS: Yes}
{ANTI-BAN: Yes}
{--------}
//FILLOUT NEEDED CODE.
//START AT THE CHAOS-ALTAR IN THE WILDERNESS! DO NOT WEAR ANYTHING!
//DRAG THE CROSS-HAIR ON THE RS WINDOW.
//RUN SCRIPT AND ENJOY!

{SETUP ------------------------------------------------------------------------}
const
HaveBreak = True;//To you want the script to take little breaks to prevent
                 //randoms?
                 //RECOMMENDED.

ShowPerDayReport = True;//Do you want the script to show you how many bones
                        //it can bury in a day, and how much exp it can earn?
                        //RECOMMENDED.

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;//How many players are going to auto in total?
  NumberOfPlayers(HowManyPlayers);//No Touching.
  CurrentPlayer := 0;//Which player will auto first?

  Players[0].Name :='';//Username.
  Players[0].Pass :='';//Password.
  Players[0].Nick :='';//Nickname. If you are not sure what this is, press Alt+F4.
  Players[0].Active := True;//Is this player going to auto?

end;
{END OF SETUP, DO NOT TOUCH BELOW THIS LINE!!! --------------------------------}

var
  X, Y : Integer;
  BX, BY : Integer;
  Buried, Exp, SleepMark, RandomSleepTime : Integer;
  Sleeping : Boolean;
  Version : String;

function FindBones : Boolean;
var
  T : Integer;
begin
  T := 0;
  MakeCompass('s');
  repeat
    if FindObjCustom(X, Y, ['ones'], [13685206, 11908799], 3) then
      Result:=True else MakeCompass('n');
      T := T + 1;
  until(T>=4)or(Result);
  if(T>=4)and(not(Result))then Result:=False;
    BX := X;
    BY := Y;
end;

procedure Report;
var
  PH, PHB, PHE, PDB, PDE : Integer;
begin
  ClearDebug;
  Exp := Buried*5;
  PH := 3600000 div (GetTimeRunning);
  PHB := PH*Buried;
  PHE := PHB*5;
  PDB := PH*24*Buried;
  PDE := PDB*5;
  WriteLn('-----------------------------------------------');
  WriteLn('|Chaos Altar Bone Buryier - By Ultra.|');
  WriteLn('|Version: ' + Version + '.|');
  WriteLn('-----------------------------------------------');
  WriteLn('|Bones: ' + IntToStr(Buried) + '.|');
  WriteLn('|Exp: ' + IntToStr(Exp) + '.|');
  WriteLn('-----------------------------------------------');
  WriteLn('|Bones P/H: ' + IntToStr(PHB) + '.|');
  WriteLn('|Exp P/H: ' + IntToStr(PHE) + '.|');
  WriteLn('-----------------------------------------------');
  if ShowPerDayReport then
  begin
    WriteLn('|Bones Per Day: ' + IntToStr(PDB) + '.|');
    WriteLn('|Exp Per Day: ' + IntToStr(PDE) + '.|');
    WriteLn('-----------------------------------------------');
  end;
  Disguise('['+IntToStr(Buried)+']['+IntToStr(Exp)+']');
end;

procedure DoSleep;
begin
  if (TimeFromMark(SleepMark)>RandomSleepTime) and HaveBreak then
  begin
    MarkTime(SleepMark);
    RandomSleepTime := 6*1000*60+Random(2*1000*60);
    Sleeping := True;
  repeat
    LogOut;
  until(not(LoggedIn));
    Wait(RandomRange(5000, 7000));
    LogInPlayer;
    Sleeping :=False;
  end;
end;

procedure MainLoop;
var
  DTM, M, MT : Integer;
begin
  M := 0;
  SetRun(True);
  repeat
  if FindBones then
  begin
    Mouse(BX, BY, 0, 0, True);
    Flag;
    Wait(500+random(500));
    FindNormalRandoms;
  end else
  begin
    if FindColorTolerance(X, Y, 2105598, MMX1, MMY1, MMX2, MMY2, 10)then
    begin
      Mouse(X, Y, 0, 0, True);
      Flag;
    end;
    begin
      LogOut;
      Exit;
    end;
    MarkTime(M);
    while not FindBones and not(TimeFromMark(M)<30000) do
    begin
      case RandomRange(1, 10)of
        1..2: begin
                case RandomRange(1, 3) of
                  1:MakeCompass('w');
                  2:MakeCompass('n');
                  3:MakeCompass('e');
                end;
                Wait(1000+random(200));
                MakeCompass('s');
              end;
        3..4: RandomMovement;
        5..6: RandomRClick;
        7..10: Wait(500+random(2500));
      end;
      FindNormalRandoms;
    end;
    if(TimeFromMark(M)>30000)then
    begin
      LogOut;
      Exit;
    end else
    if FindBones then
    begin
      Mouse(BX, BY, 0, 0, True);
      Flag;
      Wait(500+random(500));
      FindNormalRandoms;
    end else
    begin
      LogOut;
      Exit;
    end;
  end;
  until(InvFull);
    DTM := DTMFromString('78DA637460626078C28002B6AE5AC5F01F483' +
         '302F17F206004A979CB800618914820ED0A54F38C801A4F22D4F8' +
         '12A1C61CA8E6317E350084D20E1A');
    repeat
    if FindDTM(DTM, X, Y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(X, Y, 0, 0, True);
      MT := 0;
      MarkTime(M);
      while IsUpText('ones')and(TimeFromMark(M)<6000)do
        Wait(200+random(100));
    end;
    if not(IsUpText('ones'))then Buried := Buried + 1;
      Report;
      FindNormalRandoms;
      case RandomRange(1, 20) of
        1..2: begin
              if FindDTM(DTM, X, Y, MIX1, MIY1, MIX2, MIY2) then
                MMouse(X, Y, 6, 5);
                Wait(500+random(300));
              end;
        3..4: begin
                GameTab(Random(14));
                Wait(200+random(1800));
                GameTab(4);
              end;
        5..6: begin
                MMouse(Random(MIX1), Random(MIY1), 0, 0);
                Wait(500+random(300));
              end;
        7..10: Wait(RandomRange(100, 1500));
        11..20: Wait(1);
      end;
    until(not(FindDTM(DTM, X, Y, MIX1, MIY1, MIX2, MIY2)));
    DoSleep;
end;

begin
  Version:='0.1';
  SetUpSRL;
  DeclarePlayers;
  if not LoggedIn then LogInPlayer;
  repeat
    repeat
      MarkTime(SleepMark);
      RandomSleepTime := 6*1000*60+Random(2*1000*60);
      MainLoop;
      Report;
    until(not(LoggedIn))and(not(Sleeping));
    NextPlayer(False);
  until(AllPlayersInactive);
  Report;
end.

{
---
Version Log.
---
0.1
First version of script.
---
}

Ultra

2009-03-07 17:03:27

From: 99_
standards ;) lol sorry just bugs me :)

looks really nice :D

program ChaosAltarBoneBuryer;
{.Include SRL/SRL.Scar}
{--------}
{MADE BY: Ultra}
{PURPOSE: Prayer Exp}
{ANTI-RANDOMS: Yes}
{ANTI-BAN: Yes}
{--------}
//FILLOUT NEEDED CODE.
//START AT THE CHAOS-ALTAR IN THE WILDERNESS! DO NOT WEAR ANYTHING!
//DRAG THE CROSS-HAIR ON THE RS WINDOW.
//RUN SCRIPT AND ENJOY!

{SETUP ------------------------------------------------------------------------}
const
HaveBreak = True;//To you want the script to take little breaks to prevent
                 //randoms?
                 //RECOMMENDED.

ShowPerDayReport = True;//Do you want the script to show you how many bones
                        //it can bury in a day, and how much exp it can earn?
                        //RECOMMENDED.

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;//How many players are going to auto in total?
  NumberOfPlayers(HowManyPlayers);//No Touching.
  CurrentPlayer := 0;//Which player will auto first?

  Players[0].Name :='';//Username.
  Players[0].Pass :='';//Password.
  Players[0].Nick :='';//Nickname. If you are not sure what this is, press Alt+F4.
  Players[0].Active := True;//Is this player going to auto?

end;
{END OF SETUP, DO NOT TOUCH BELOW THIS LINE!!! --------------------------------}

var
  X, Y : Integer;
  BX, BY : Integer;
  Buried, Exp, SleepMark, RandomSleepTime : Integer;
  Sleeping : Boolean;
  Version : String;

function FindBones : Boolean;
var
  T : Integer;
begin
  T := 0;
  MakeCompass('s');
  repeat
    if FindObjCustom(X, Y, ['ones'], [13685206, 11908799], 3) then
      Result:=True else MakeCompass('n');
      T := T + 1;
  until(T>=4)or(Result);
  if(T>=4)and(not(Result))then Result:=False;
    BX := X;
    BY := Y;
end;

procedure Report;
var
  PH, PHB, PHE, PDB, PDE : Integer;
begin
  ClearDebug;
  Exp := Buried*5;
  PH := 3600000 div (GetTimeRunning);
  PHB := PH*Buried;
  PHE := PHB*5;
  PDB := PH*24*Buried;
  PDE := PDB*5;
  WriteLn('-----------------------------------------------');
  WriteLn('|Chaos Altar Bone Buryier - By Ultra.|');
  WriteLn('|Version: ' + Version + '.|');
  WriteLn('-----------------------------------------------');
  WriteLn('|Bones: ' + IntToStr(Buried) + '.|');
  WriteLn('|Exp: ' + IntToStr(Exp) + '.|');
  WriteLn('-----------------------------------------------');
  WriteLn('|Bones P/H: ' + IntToStr(PHB) + '.|');
  WriteLn('|Exp P/H: ' + IntToStr(PHE) + '.|');
  WriteLn('-----------------------------------------------');
  if ShowPerDayReport then
  begin
    WriteLn('|Bones Per Day: ' + IntToStr(PDB) + '.|');
    WriteLn('|Exp Per Day: ' + IntToStr(PDE) + '.|');
    WriteLn('-----------------------------------------------');
  end;
  Disguise('['+IntToStr(Buried)+']['+IntToStr(Exp)+']');
end;

procedure DoSleep;
begin
  if (TimeFromMark(SleepMark)>RandomSleepTime) and HaveBreak then
  begin
    MarkTime(SleepMark);
    RandomSleepTime := 6*1000*60+Random(2*1000*60);
    Sleeping := True;
  repeat
    LogOut;
  until(not(LoggedIn));
    Wait(RandomRange(5000, 7000));
    LogInPlayer;
    Sleeping :=False;
  end;
end;

procedure MainLoop;
var
  DTM, M, MT : Integer;
begin
  M := 0;
  SetRun(True);
  repeat
  if FindBones then
  begin
    Mouse(BX, BY, 0, 0, True);
    Flag;
    Wait(500+random(500));
    FindNormalRandoms;
  end else
  begin
    if FindColorTolerance(X, Y, 2105598, MMX1, MMY1, MMX2, MMY2, 10)then
    begin
      Mouse(X, Y, 0, 0, True);
      Flag;
    end;
    begin
      LogOut;
      Exit;
    end;
    MarkTime(M);
    while not FindBones and not(TimeFromMark(M)<30000) do
    begin
      case RandomRange(1, 10)of
        1..2: begin
                case RandomRange(1, 3) of
                  1:MakeCompass('w');
                  2:MakeCompass('n');
                  3:MakeCompass('e');
                end;
                Wait(1000+random(200));
                MakeCompass('s');
              end;
        3..4: RandomMovement;
        5..6: RandomRClick;
        7..10: Wait(500+random(2500));
      end;
      FindNormalRandoms;
    end;
    if(TimeFromMark(M)>30000)then
    begin
      LogOut;
      Exit;
    end else
    if FindBones then
    begin
      Mouse(BX, BY, 0, 0, True);
      Flag;
      Wait(500+random(500));
      FindNormalRandoms;
    end else
    begin
      LogOut;
      Exit;
    end;
  end;
  until(InvFull);
    DTM := DTMFromString('78DA637460626078C28002B6AE5AC5F01F483' +
         '302F17F206004A979CB800618914820ED0A54F38C801A4F22D4F8' +
         '12A1C61CA8E6317E350084D20E1A');
    repeat
    if FindDTM(DTM, X, Y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(X, Y, 0, 0, True);
      MT := 0;
      MarkTime(M);
      while IsUpText('ones')and(TimeFromMark(M)<6000)do
        Wait(200+random(100));
    end;
    if not(IsUpText('ones'))then Buried := Buried + 1;
      Report;
      FindNormalRandoms;
      case RandomRange(1, 20) of
        1..2: begin
              if FindDTM(DTM, X, Y, MIX1, MIY1, MIX2, MIY2) then
                MMouse(X, Y, 6, 5);
                Wait(500+random(300));
              end;
        3..4: begin
                GameTab(Random(14));
                Wait(200+random(1800));
                GameTab(4);
              end;
        5..6: begin
                MMouse(Random(MIX1), Random(MIY1), 0, 0);
                Wait(500+random(300));
              end;
        7..10: Wait(RandomRange(100, 1500));
        11..20: Wait(1);
      end;
    until(not(FindDTM(DTM, X, Y, MIX1, MIY1, MIX2, MIY2)));
    DoSleep;
end;

begin
  Version:='0.1';
  SetUpSRL;
  DeclarePlayers;
  if not LoggedIn then LogInPlayer;
  repeat
    repeat
      MarkTime(SleepMark);
      RandomSleepTime := 6*1000*60+Random(2*1000*60);
      MainLoop;
      Report;
    until(not(LoggedIn))and(not(Sleeping));
    NextPlayer(False);
  until(AllPlayersInactive);
  Report;
end.

{
---
Version Log.
---
0.1
First version of script.
---
}

Thanks, Credit'ed.

Gavril

2009-03-09 23:13:38

From: Ultra
Rules
By using this script you agree to the following terms:
-Ultra is not responsible for any loss or damage to me or my account whenevever i use this script.
-I will post bugs/comments/idias/errors regarding the script on this thread.
-I will rate the script 4+ stars.
-I will not post this script on any other website and neather will i claim it as my own.

Lmao! Nice try…

Hmm… considers rating the script a 1 just for that

Oh and… *ideas

Ultra

2009-03-10 08:41:31

From: Gavril
Lmao! Nice try…

Hmm… considers rating the script a 1 just for that

Oh and… *ideas

Firstable, those are my rules, dont like 'em? Dont download script and exit the thread. Secondable, dont flame, it't not cool. And thirdable, people sometimes ask to rate their script 5 stars, so why cant i ask huh?

Oh and… thanks for correcting me :P.

lordsaturn

2009-03-10 16:37:38

Bone Burier*

And if you wanna be picky about standards..

case RandomRange(1, 10)of
  1..2:
    begin
      case RandomRange(1, 3) of
        1:MakeCompass('w');
        2:MakeCompass('n');
        3:MakeCompass('e');
      end;
      Wait(1000+random(200));
      MakeCompass('s');
    end;
  3..4: RandomMovement;
  5..6: RandomRClick;
  7..10: Wait(500+random(2500));
end;

Maybe give the user an option to set the break intervals?

Btw, the DTM in your main loop is never freed. :(

Ultra

2009-03-10 18:21:07

From: lordsaturn
Bone Burier*

And if you wanna be picky about standards..

case RandomRange(1, 10)of
  1..2:
    begin
      case RandomRange(1, 3) of
        1:MakeCompass('w');
        2:MakeCompass('n');
        3:MakeCompass('e');
      end;
      Wait(1000+random(200));
      MakeCompass('s');
    end;
  3..4: RandomMovement;
  5..6: RandomRClick;
  7..10: Wait(500+random(2500));
end;

Maybe give the user an option to set the break intervals?

Btw, the DTM in your main loop is never freed. :(

Well lets not be too "picky" about standards :P, i dont think user input for intervals is needed, as 6 to 9 minutes is enough to avoid random events, unless you want randoms… You can edit it i guess :P.

Okay i might add it :P.

lordsaturn

2009-03-10 20:15:57

Burier is spelled incorrectly in the first post. And your latest update conflicts with the scripting regulations.

http://www.srl-forums.com/forum/announcement.php?f=193

Ultra

2009-03-11 12:41:36

From: lordsaturn
Burier is spelled incorrectly in the first post. And your latest update conflicts with the scripting regulations.

http://www.srl-forums.com/forum/announcement.php?f=193

Oh, alright then, i shall remove it :|. But still leeching isnt cool. D:

ShowerThoughts

2009-03-11 13:20:31

I don't like your attitude at all.

Ultra

2009-03-22 21:14:53

I don't like your attitude at all.

What did i do? All i said was that i dont like leeching! What, i cant have an opinion?

djdirtbag

2009-03-22 22:02:23

yeah, um, maybe a dumb question but why is there no download script link? i tried to copy/paste and it just put it all on the same line:p

Ultra

2009-03-23 09:20:17

From: djdirtbag
yeah, um, maybe a dumb question but why is there no download script link? i tried to copy/paste and it just put it all on the same line:p

Oh, wow ok im gonna upload it soon, dont have time now.

superbatman

2009-03-27 23:16:53

From: djdirtbag
yeah, um, maybe a dumb question but why is there no download script link? i tried to copy/paste and it just put it all on the same line:p

[OffTopic] Lolz, I hated it When Mine Did that [/Offtopic]

Lolz, can you yell at me too now plz for wasting a post?

Suggestion, i know its not necessary, but seeing as how im not addicted to these, you should make a form!

Ultra

2009-03-31 16:14:30

From: superbatman
[OffTopic] Lolz, I hated it When Mine Did that [/Offtopic]

Lolz, can you yell at me too now plz for wasting a post?

Suggestion, i know its not necessary, but seeing as how im not addicted to these, you should make a form!

Added download link..

Cerium

2009-06-18 05:39:25

It only does 1 load, and then "NextPlayer(Active: False);"

rohan393

2009-07-12 21:18:18