Page 1 of 2 12 LastLast
Results 1 to 25 of 40

Thread: Bone Picker + Burier

  1. #1
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Prayer Up Easy

    This is my first script. It Pickes up bones from the ground and burys them. It works very good and ide like some people to look through it to see if there is antyhing that should be changed, removed, added, or whatever. Are there any failsafes i might need or something? Ide love some feedback on this script. Tyvm.


    (Also, can a forum mod please change the title of this thread to "Prayer Up Easy" if possible lol)
    SCAR Code:
    //------------------------------------------------------------------------\\
    //    ________                                       _____  __            \\
    //    ___  __ \____________ _____  ______________    __  / / /_______     \\
    //    __  /_/ /_  ___/  __ `/_  / / /  _ \_  ___/    _  / / /___  __ \    \\
    //    _  ____/_  /   / /_/ /_  /_/ //  __/  /        / /_/ / __  /_/ /    \\
    //    /_/     /_/    \__,_/ _\__, / \___//_/         \____/  _  .___/     \\
    //                          /____/                           /_/          \\
    //                    __________                                          \\
    //                    ___  ____/_____ ____________  __                    \\
    //                    __  __/  _  __ `/_  ___/_  / / /                    \\
    //                    _  /___  / /_/ /_(__  )_  /_/ /                     \\
    //                    /_____/  \__,_/ /____/ _\__, /                      \\
    //                                           /____/                       \\
    //------------------------------------------------------------------------\\
    // Setup Lines : 34-36                                                    \\
    //               42-68                                                    \\
    //------------------------------------------------------------------------\\
    //                                                                        \\
    //------------------------------------------------------------------------\\
    //                             Instructions                               \\
    //------------------------------------------------------------------------\\
    // 1. Set Runescape on low detail and on Very Bright.                     \\
    // 2. Join a crowded world where people dont pick up thier bones.         \\
    // 3. Start logged in or out where lots of bones are laying around.       \\
    // 4. Click on play and watch it get your prayer up for you.              \\
    //------------------------------------------------------------------------\\
    program BoneBurier;
    {.include SRL\SRL.scar}

    Var
    Buried, Picked: Integer;

    const
    Bonecolor = 15066600; //bone color on ground
    RunDirection = 'N'; //direction you run away from random events(N,E,S,W)
    Skillforlamp = 'Prayer'; //what to use a genie lamp on

    //-------------------------------Players----------------------------------\\

    procedure DeclarePlayers;
    begin
     HowManyPlayers := 4;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :='Username'; //Username goes here.
     Players[0].Pass :='Password'; //Password goes here.
     Players[0].Nick :='sern'; //Type 3-4 letters of your runescape username.
     Players[0].Integer1 := 56; //Bones to bury until it switches players.
     Players[0].Active :=true; //Is this player active?

     Players[1].Name :='Username';
     Players[1].Pass :='Password';
     Players[1].Nick :='sern';
     Players[1].Integer1 := 56;
     Players[1].Active :=false;

     Players[2].Name :='Username';
     Players[2].Pass :='Password';
     Players[2].Nick :='sern';
     Players[2].Integer1 := 56;
     Players[2].Active :=false;

     Players[3].Name :='Username';
     Players[3].Pass :='Password';
     Players[3].Nick :='sern';
     Players[3].Integer1 := 56;
     Players[3].Active :=false;
     
    end;

    //-------------------------------Anti Ban---------------------------------\\

    procedure Stopban;
      begin
         LeaveScreenEvery(4 + random(7));
         RandomRClickEvery(3+Random(9));
         PickUpMouseEvery(6 + random(5));
         RandomChatEvery(11 + Random(6));
         HoverEvery(7+random(5),'prayer');
         LeaveScreenEvery(10 + Random(10));
         RandomRClickEvery(8+Random(8));
         RandomRClickEvery(5 + random(5));
    end;

    //------------------------------Progress Report-----------------------------\\

    Procedure ProgressReport;
      begin
      Writeln('//----------------------------------------\\');
      Writeln('//--------Progress On Bone Burying--------\\');
      Writeln('//----------------------------------------\\');
      Writeln('//-----Ran for '+TimeRunning+'--------\\');
      Writeln('//-----Picked up '+IntToStr(picked)+' bones-----------------\\');
      WriteLn('//-----Buried '+IntToStr(Buried)+' bones--------------------\\')
      WriteLn('//-----Gained '+IntToStr((Buried)*5)+' xp total----------------\\')
      Writeln('//----------------------------------------\\');
    end;

    //-----------------------------Anti Randoms-------------------------------\\

    Procedure AntiRandoms;
    Begin
      FindNormalRandoms;
      FindTalk;
      FindLamp(Skillforlamp);
      UseBoxSolver := True
      UseCerterSolver := True
      UseSandwichSolver :=True
      FindMod;
      FindMime;
      FindDead;
      FindMaze;
      DwarfItem;
      FindDemon;
      Solvepinball;
      FindScapeRune;
      Stopban;
      if (findfight) then begin
       RunAwayDirection(RunDirection);
       SleepAndMoveMouse(9500+Random(2500));
       RunBack;
      if InBlack then
       begin
        Players[CurrentPlayer].Active := false;
        Writeln(Players[CurrentPlayer].Name + ' is stuck in a random event!');
        ProgressReport;
        NextPlayer(True);
        wait(3000 + random(3000));
      end;
      if FindDead then
       begin
        Players[CurrentPlayer].Active := false;
        Writeln(Players[CurrentPlayer].Name + ' has died!');
        ProgressReport;
        NextPlayer(True);
        wait(3000 + random(3000));
      end;
     end;
    end;

    //------------------------------Responding--------------------------------\\

    Procedure AutoRespond;
    begin
     if(InChat('Prayer lvls?')   or
        InChat('Prayer lvls')    or
        InChat('Prayer lvl?')    or
        InChat('Prayer lvl')     or
        InChat('Pray lvls?')     or
        InChat('Pray lvls')      or
        InChat('Pray lvl?')      or
        InChat('Pray lvl'))      then
      begin
        TypeSend(IntToStr(GetSkillLevel('Prayer')))
      end;

     if (InChat('Cooking lvls?') or
        InChat('Cooking lvls')   or
        InChat('Cooking lvl?')   or
        Inchat('Cookin lvls?')   or
        InChat('Cookin lvls')    or
        Inchat('Cookin lvl?')    or
        InChat('Cookin lvl')     or
        InChat('Cook lvls?')     or
        Inchat('Cook lvls')      or
        InChat('Cook lvl?')      or
        InChat('Cook lvl'))      then
      begin
        TypeSend(IntToStr(GetSkillLevel('Cooking')))
      end;
     AntiRandoms;
     ProgressReport;
    end;

    //------------------------------Bury bones--------------------------------\\

    Procedure Bury;
    var
      Boneinv: Integer;
    begin
      Boneinv := DTMFromString('78DA633CC6C4C0B09B91011530229140FA085' +
           '0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06001F' +
           'BF07A1');
      repeat;
      if(FindDTM(Boneinv, x, y, 550, 200, 745, 465))then
      MMouse(x, y, 1, 1);
       if (IsUpText('Bury') or IsUpText('ury')) then
        GetMousePos(x, y);
        wait(100+random(75))
        Mouse(x, y, 3, 3, True);
        Buried:=Buried+1;
        wait(500+random(200))
        SRLRandomsReport;
        AntiRandoms;
        until(invcount >= 2)
       ProgressReport;
      FreeDTM(Boneinv);
    end;

    //-----------------------------Pick up bones------------------------------\\

    Procedure Pickup;
    var
    Takebonewhite, Takeboneyellow: Integer;
    Begin
      Takebonewhite := BitmapFromString(59, 1, 'z78DA737343000324' +
           'E086216EEA626A6262EE86034064914937BC00D92E4CBDA8E6581' +
           'A9818404854970CBC382689E92F00146F4FAE');
      Takeboneyellow := BitmapFromString(59, 1, 'z78DA73737373333' +
           '0700393C8C00D43DCD4C5D4C4C41C591C9984C82293B85462DA85' +
           'A917D51C4B0313030889EA928117C72431FD050090804D72');
        repeat;
        if(Findcolor(x,y,Bonecolor,5,5,515,340))then
         MMouse(x,y,1,1);
           if (IsUpText('Bone') or IsUpText('ones') or IsUpText('eathe') or IsUpText('aw chic') or IsUpText('hicke')) then
           GetMousePos(x,y);
           Mouse(x, y, 1, 1, False);
           if(FindBitmap(Takebonewhite, x, y)) or (FindBitmap(Takeboneyellow, x, y))then
           MMouse(x,y,1,1);
           GetMousePos(x,y);
           Mouse(x, y, 1, 1, True);
           Flag;
          wait(300+random(200))
         Picked:=Picked+1;
         SRLRandomsReport;
         AntiRandoms;
         until(invcount >= 5)
         if(invcount >= 5)then
         Bury;
       Freebitmap(Takebonewhite);
      Freebitmap(Takeboneyellow);
    end;

    //------------------------------------------------------------------------\\

    Begin
    SetupSRL;
    DisguiseScar('iTunes');
    Activateclient;
    DeclarePlayers;
    repeat
    If (Not(LoggedIn)) then
    begin
    Loginplayer;
    SetChat('on', 1);
    SetChat('friends', 2);
    SetChat('off', 3);
    HighestAngle;
    Setrun(true);
    Makecompass('N')
    end;
    repeat
    Pickup;
    Bury;
    AntiRandoms;
    until(LoggedIn) and (Buried >= Players[CurrentPlayer].Integer1)
    If(LoggedIn) and (Buried >= Players[CurrentPlayer].Integer1)then
    Writeln('Bones to bury has been reached, switching players.')
    Logout;
    ProgressReport;
    Wait(20000+random(10000))
    NextPlayer(True);
    until (false);
    end.
    I just need some ideas where i might be able to put failsafes and other things that could improve this.

  2. #2
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, here is 1 progress report

    //--------------------------------------------\\
    //----------Progress On Bone Burying----------\\
    //--------------------------------------------\\
    //------Ran for 41 Minutes and 14 Seconds-----\\
    //------Picked up 37 bones total--------------\\
    //------Buried 36 bones total-----------------\\
    //------Gained 180 xp total-------------------\\
    //--------------------------------------------\\

    I know it can go much longer though, i was just getting bored so i stopped it so i could do other things on my comp.

  3. #3
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I fixed the script so it goes MUCH faster now


    //--------------------------------------------\\
    //----------Progress On Bone Burying----------\\
    //--------------------------------------------\\
    //------Ran for 6 Minutes and 42 Seconds----\\
    //------Picked up 27 bones total--------------\\
    //------Buried 33 bones total-----------------\\
    //------Gained 165 xp total-------------------\\
    //--------------------------------------------\\

  4. #4
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default

    Ooooh pretty good, for a first.
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

  5. #5
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thx, im still trying to fix the "Bonestobury" so it sill switch players when its doen the required bone count and i think other then that, its almost flawless from what i think lol. But im still lookin for other sugestions

  6. #6
    Join Date
    Mar 2007
    Posts
    129
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have a question. why would you switch players if you where training prayer?

  7. #7
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Why not?

  8. #8
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    If one players gets an unsolveabe Random (Leo) it could switch to the next player .
    Hup Holland Hup!

  9. #9
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You know its not safe to let a player auto for like 3 hours or more in a day because that increases its chance to get banned very greatly. Hvaing it switch every 30 min or so would be best. Ide love to try to find a way for it to switch players every 30 mins or but i havent yet, though i am still looking for a way to fix this problem.

  10. #10
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by x_² View Post
    i have a question. why would you switch players if you where training prayer?
    cuz the leo random kills all bone burying scripts...

    that is until someone makes a leo solver

    They are sisters...
    Runescape Classic

  11. #11
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I still need someone to tell me why it won't switch players when the amount of bones you wanted buried is reached.

  12. #12
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Apparently, Fawki's Goblin Scheduler has a Leo Solver. Ask him if he could help you make one. I doubt he has any time though

  13. #13
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am still looking for help on whats wrong with my "bonestobury" const because it wont switch players when the bones to bury you want is reached.

  14. #14
    Join Date
    Jun 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Failed when compiling
    Line 76: [Error] (14826:1): Unknown identifier 'LeaveScreenEvery' in script

    help plz thanks for the script tho

  15. #15
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    nice script!

  16. #16
    Join Date
    May 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i cant get the script to work it says this at the bottom:

    Failed when compiling
    Line 502: [Error] (14912:1): Unknown identifier 'LeaveScreenEvery' in script D:\Program Files\SCAR 3.06\Scripts\Prayer Up Easy v1.4.scar

  17. #17
    Join Date
    Sep 2007
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i cant use it , error on line 1 . unexeptcing start .

  18. #18
    Join Date
    Sep 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rune Hacker View Post
    I still need someone to tell me why it won't switch players when the amount of bones you wanted buried is reached.
    would it be that the players.active is set to false? another thing is that buried: integer; is constantly growing so once your first player reaches the set "integer1:= 53" the rest reach it also. so maybe make another integer "buried2" or something to use for switching characters. reset buried2to = 0 just before switching players.

  19. #19
    Join Date
    Apr 2007
    Posts
    221
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rune Hacker View Post
    Well, here is 1 progress report

    //--------------------------------------------\\
    //----------Progress On Bone Burying----------\\
    //--------------------------------------------\\
    //------Ran for 41 Minutes and 14 Seconds-----\\
    //------Picked up 37 bones total--------------\\
    //------Buried 36 bones total-----------------\\
    //------Gained 180 xp total-------------------\\
    //--------------------------------------------\\

    I know it can go much longer though, i was just getting bored so i stopped it so i could do other things on my comp.
    Quote Originally Posted by Rune Hacker View Post
    I fixed the script so it goes MUCH faster now


    //--------------------------------------------\\
    //----------Progress On Bone Burying----------\\
    //--------------------------------------------\\
    //------Ran for 6 Minutes and 42 Seconds----\\
    //------Picked up 27 bones total--------------\\
    //------Buried 33 bones total-----------------\\
    //------Gained 165 xp total-------------------\\
    //--------------------------------------------\\
    BIG, BIG difference there is right there...

  20. #20
    Join Date
    Sep 2007
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script, haven't ran it yet, but i like the InChat('prayer lvl') and the DisguiseScar('iTunes'). good use of srl

  21. #21
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The bones to bury probelm could be...I'm not sure here

    that you used an "=" for checking if then number is reached instead of

    ">" or "<" this could cause problems if it burries more than one bone before it checks if the value is reached...

    don't know because I was a little bit to lazy to read the whole thing.

  22. #22
    Join Date
    Sep 2007
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by JuvenileHall View Post
    error on line 39 ''Integer1'', could u some help what should i do?
    I have the same error

  23. #23
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It doesnt pick up bones on my comp what happens?
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

    http://www.fenjer.com/adnan/SRLStats/2720.png

  24. #24
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Variable's "Intenger1, leavescreenevery and etc doesnt work, so the script doesnt work too.
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

    http://www.fenjer.com/adnan/SRLStats/2720.png

  25. #25
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    For the player switch you could do

    if timefrommark(300000)then
    Nextplayer(true);

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Working Bone Picker and Burier
    By W4RH4WK in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 06-02-2008, 06:10 PM
  2. A bone picker, and burier
    By cheater95 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 02-09-2008, 11:25 AM
  3. RS2 Bone picker and burier
    By m0u53m4t in forum RS3 Outdated / Broken Scripts
    Replies: 19
    Last Post: 07-14-2007, 01:41 AM
  4. Chicken killer + bone picker/burier or feather picker?
    By codx1 in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 07-01-2007, 01:17 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •