Results 1 to 9 of 9

Thread: Bone Burrier Tweaking

  1. #1
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bone Burrier Tweaking

    I made a script to bury bones for me. At first i had it pick up the bone then move mouse to coordins of the first inventory slot. Then i changed it to a bitmap because it would sometimes pick up a raw chicken or an egg, and it was working pretty well with bitmap.

    However I'm having the following problems.

    *Picks up eggs and chicken (Fixed?)
    *Wanders off to other places
    *no antirandoms/antiban
    *frequently misses bone (Because of walking) FIXED
    *right as i finished testing started to click randomly (no clue on this one) FIXED

    Could anyone offer suggestions on how I can fix those problems? (And a personal tip for me on how to pick a good color for the bones)
    SCAR Code:
    Program New;
    {.include SRL/SRL.scar}

    Const
    BoneColor=13027278;     //Bone Color. Pick it with the color picker and paste it there.
    var
    x,y : integer;
    Bones : integer;

    Procedure ClickBone1;
    Begin
    SetupSRL;
    If(Findcolor(x, y, Bonecolor, 1, 1, 600, 600))then
    mouse(x, y, 1, 1, true);
    End;

    Procedure LoadBitmapBones;
    begin
    Bones := BitmapFromString2(False, 'aA551D78DAED56ED6EC2300C' +
           '7CA5244DFCF1D3769AF77FA43975278118688351818423191499F' +
           '6723E5F482925ED9E122E9E1636CF90CBCCA97A6E04F37B15CF85' +
           'B69D366BDAD8F66761AADB07B631735DE7BEB6F95DE6330174D6F' +
           '356FA89378E2C438A144418B0C6CE65CD6B2257D1A489000DF502' +
           '6766E3C4AF833F9F662BCACADC48882FF7C524C90FBF3A1E6D879' +
           'E6C185BB6ACAA5977B550A78516701B81BDBE2FD6ADABE9A28B34' +
           '66261AD4A8DDD4D53F3079C65E758CA2202A2299612E32524E84B' +
           'E36CC57F8CCC13976AC58A1B5D17A1D952BFD13F2DCC5B904E708' +
           'ACE9AA55AB30AFDC79210F1C08BE140B16CA13EC2FBA9F7528288' +
           '04009CB7EA25AF6FE46C7619D60B1CD039DF10F7EB2F5A67A73A7' +
           'BEF4121D3950D5F90AABDFA7EB8E8BDC4686AF24556AF428FA15B' +
           'D73ED3769A79ABF2BFF19B94FD24AFD9A0676CC2CAB745753E132' +
           '95251CBD30B56A35D445882BF6988898D0BD72F39C6DCA397888E' +
           '72063C67432058F4CEB4FEEBDF1C983E70B945CF7D1A3786FCC6F' +
           'B01D3BC49470041B02D326DD6948709FA685D1CF76ABCB4FF4F3F' +
           'D441B92988EDFAB223C33EE02C84E891CEFF6E14277BD77BF178A' +
           'F9B52047721EFA69DA3C1E99AF6763EEC5A7506D35742F115BCCF' +
           'F71A3E0F15DFE3BF2E478256E55378A44A352F57879E4679D0D4F' +
           '68B5F6DADF04F9F79DB5395EEB0D1BBE15F26326EB139FB833BE0' +
           '0479');

           end;

    procedure FindBones;
    begin
    FindBitmapToleranceIn(bones, x, y, 560, 214, 734, 457, 25);
    Mouse(x,y,1,1,true);
      end;
    Begin
    LoadBitMapBones;
    repeat
    ClickBone1;
    wait(5000+random(2000));
    FindBones;
    wait(1000+random(2000));
    until(false);
    End.
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  2. #2
    Join Date
    Jul 2007
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here you go bud, i've added randoms... and i fixed that problem about picking up eggs...

    SCAR Code:
    Program New;

    {.include SRL/SRL.scar}

    var
    x, y, z : integer;
    Bones : integer;

    //************************ SETUP ***********************************************
    Const
    BoneColor = 13027278;     //Bone Color. Pick it with the color picker and paste it there.
    BoneTol = 10;
    loads = 2;
    //************************ END SETUP *******************************************

    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;

    procedure randoms;
    begin
      findfastrandoms;
      findnormalrandoms;
    end;

    Procedure ClickBone1;
    Begin
      repeat
        randoms;
        If(FindObj(x, y, 'one', Bonecolor, Bonetol))then
        if isuptext('one') then
        begin
          mouse(x, y, 1, 1, true);
          randoms;
          flag;
        end;
      until(invcount = 28);
    End;

    Procedure LoadBitmapBones;
    begin
      Bones := BitmapFromString2(False, 'aA551D78DAED56ED6EC2300C' +
           '7CA5244DFCF1D3769AF77FA43975278118688351818423191499F' +
           '6723E5F482925ED9E122E9E1636CF90CBCCA97A6E04F37B15CF85' +
           'B69D366BDAD8F66761AADB07B631735DE7BEB6F95DE6330174D6F' +
           '356FA89378E2C438A144418B0C6CE65CD6B2257D1A489000DF502' +
           '6766E3C4AF833F9F662BCACADC48882FF7C524C90FBF3A1E6D879' +
           'E6C185BB6ACAA5977B550A78516701B81BDBE2FD6ADABE9A28B34' +
           '66261AD4A8DDD4D53F3079C65E758CA2202A2299612E32524E84B' +
           'E36CC57F8CCC13976AC58A1B5D17A1D952BFD13F2DCC5B904E708' +
           'ACE9AA55AB30AFDC79210F1C08BE140B16CA13EC2FBA9F7528288' +
           '04009CB7EA25AF6FE46C7619D60B1CD039DF10F7EB2F5A67A73A7' +
           'BEF4121D3950D5F90AABDFA7EB8E8BDC4686AF24556AF428FA15B' +
           'D73ED3769A79ABF2BFF19B94FD24AFD9A0676CC2CAB745753E132' +
           '95251CBD30B56A35D445882BF6988898D0BD72F39C6DCA397888E' +
           '72063C67432058F4CEB4FEEBDF1C983E70B945CF7D1A3786FCC6F' +
           'B01D3BC49470041B02D326DD6948709FA685D1CF76ABCB4FF4F3F' +
           'D441B92988EDFAB223C33EE02C84E891CEFF6E14277BD77BF178A' +
           'F9B52047721EFA69DA3C1E99AF6763EEC5A7506D35742F115BCCF' +
           'F71A3E0F15DFE3BF2E478256E55378A44A352F57879E4679D0D4F' +
           '68B5F6DADF04F9F79DB5395EEB0D1BBE15F26326EB139FB833BE0' +
           '0479');

    end;

    procedure FindBones;
    begin
      repeat
        if FindBitmapToleranceIn(bones, x, y, 560, 214, 734, 457, 25) then
        begin
          Mouse(x,y,1,1,true);
          randoms;
        end;
      until not FindBitmapToleranceIn(bones, x, y, 560, 214, 734, 457, 25);
    end;

    Begin
      setupsrl;
      LoadBitMapBones;
      repeat
        ClickBone1;
        wait(1000+random(2000));
        FindBones;
        wait(1000+random(2000));
        z:= z + 1;
      until(z = loads);
    End.
    Do not propose an idea of peculation without evidence of such action.

    http://cashcrate.com/704591 click here and make money!

  3. #3
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It won't complie. It's got a problem with "x, y, z : integer;"

    Duplicate identifier 'x' in script.

    I deleted X and Y and it complies successfully. I read that with SRL4 you have to declare X and y as integers again, so is somthing wrong with my SRL that i should leave it in there?

    Thank you for taking the time to do this! Is there a tut somewhere so that i can learn to do this myself?



    EDIT : I tested this script and all it does is hover the mouse over the inventory bag tab.
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  4. #4
    Join Date
    Jul 2007
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes, you need to have srl 4, you must not have installed it correctly.

    and yes, there are many tutorials on how to do many things in tutorial island...
    Do not propose an idea of peculation without evidence of such action.

    http://cashcrate.com/704591 click here and make money!

  5. #5
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I followed one of the tuts there, but i guess i fucked it up. I'll go install it again and get back to you.
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  6. #6
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    BUMP/EDIT


    According to what I've read, the error I'm getting means that the script isn't up to date with SRL 4, and is completely my mistake. Could someone please tell me what i put in that isn't up to date with SRL4?
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  7. #7
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    nothing it does compile for me though, re-install your SRL
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  8. #8
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay then, just to clear something up I'm getting unknown identifier mousespeed on line 106. Someone said that means the script isn't updated, is this true? Well now that i know the script works I'll just sort out my fucking problems.
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  9. #9
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by richk1693 View Post
    Okay then, just to clear something up I'm getting unknown identifier mousespeed on line 106. Someone said that means the script isn't updated, is this true? Well now that i know the script works I'll just sort out my fucking problems.
    line 106 of waht?
    your script or somewere in srl?
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. bone bicker and burrier wanted
    By jis777 in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 02-05-2009, 09:33 AM
  2. my first script ever! bone burrier
    By asddsa in forum First Scripts
    Replies: 3
    Last Post: 01-29-2008, 03:55 PM
  3. Bone Picker + Burrier (anywhere)
    By Roofiej0 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 12-24-2007, 06:39 PM
  4. Bone Burrier For Anyones Script
    By Tv-XxX in forum OSR Help
    Replies: 7
    Last Post: 09-22-2007, 09:25 PM
  5. Bone burrier
    By shadowblade in forum OSR Help
    Replies: 5
    Last Post: 12-21-2006, 09:20 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
  •