Results 1 to 5 of 5

Thread: Bone looter + Burier - First Script

  1. #1
    Join Date
    Feb 2012
    Location
    UK
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bone looter + Burier - First Script

    I meant to put the problem in the title, my bad. I need help with the loop and maybe a fail safe as it sometimes can't find bones on screen as it went to far up.
    This Is my first attempt at a script, go easy on me
    It loots and burys bones at the choas alter.
    Also i didn't know what to put at the top so i kinda threw everything up there and the same with the timings.
    Edit: Duplicate error now 'FindNormalRandoms' ... I looked around forums and it said that one of my procedures is used in SRL or something?


    Simba Code:
    program BuryBones; //First Script, Laakerules BoneBurier procedure.

      {$DEFINE SMART}
      {.include SRL/SRL.simba}
      {.include SRL/SRL/Skill/Fighting.simba}
      {$DEFINE UseLaptopMouse}

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;

    Var
     BoneColours: TIntegerArray;
     LootCount, BuryCount, x, y: Integer;

    Procedure Antiban;
    begin
      x := Random(500)  case x of 0: HoverSkill('Attack', false);
        1:
          HoverSkill('prayer', false);
        12..15:
          PickUpMouse;
        16..25:
          RandomMovement;
        26..27:
          RandomRClick;
        28..32:
          BoredHuman;
        34:
          RandomAngle(SRL_ANGLE_HIGH);
      end;
      Wait(RandomRange(800, 1200));
    end;
    Procedure AntiRandoms;
    begin
      FindNormalRandoms;
      LampSkill := 'prayer';
    end;

    procedure FindBones;
     var
      Xi, Yi, X1, Y1, X2, Y2: Integer;
     FindNormalRandoms;
    begin
     Writeln('Checking for bones');
       if FindObjEx(Xi, Yi, ['ake', 'ke'], BoneColours, 3, 50, 1, 5, 689, 390) then
    begin
     GetMousePos(Xi, Yi);
     Mouse(Xi, Yi, 0, 0, false);
       if WaitOptionMulti(['ake Bone', 'ake B'], 200) then
    begin
      LootCount := LootCount + 1;
      writeln('looted bones')
    end;
      WaitOptionMulti(['ake Bones', 'ake B'], 200);
      Wait(RandomRange(700, 1200));
       while IsMoving do
    begin
      Wait(250);
    end;
      If not(invfull) then
    begin
      FindBones;
    end;
    end;
    end;

    Procedure Bury; //laakerules's Procedure
      var
        I: Integer;
        FindNormalRandoms;
    begin
        for i := 1 to 28 do
        begin
        InvMouse(I, 3);
          if IsUpText('Bury') then
          begin
            ClickMouse2(True);
            Wait(RandomRange(950, 975));
            BuryCount:= BuryCount +1;
            end;
         end;
            exit;
        end;

    Procedure ProggReport;
     Writeln('Bones Picked up')+ InToStr(LootCount));
     Writeln('Bones Buried')+ InToStr(BuryCount));

    procedure SetupChar;

    begin
     SetupSRL();
     SetAngle(0);
     ClickNorth(0);
    end;

    begin
      Smart_Server := 69;
      Smart_Members:= false;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      MouseSpeed := RandomRange(15, 20);
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      BoneColours:= [12303812, 14408933, 13685209, 13553880, 15000804]

    Begin
    Repeat
    Repeat
    AntiRandoms;
    FindBones;
    until(invfull);
    Bury;
    until ( Not LoggedIn);
    end;
    end.

    I would appreciate any feedback/ improvements, oh and i know it doesn't have anti-ban in yet, i'll add some later

    Thanks in advance
    Last edited by Gl3nn IV; 02-19-2012 at 09:45 PM.

  2. #2
    Join Date
    Feb 2012
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ill try it when rs is back up

  3. #3
    Join Date
    Dec 2011
    Posts
    1,162
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol you didnt update to what i pmed! ":P

  4. #4
    Join Date
    Feb 2012
    Location
    UK
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by laakerules View Post
    lol you didnt update to what i pmed! ":P
    Aha, just updated Along with some simple antiban :P

  5. #5
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    decent script, thanks

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
  •