Page 3 of 6 FirstFirst 12345 ... LastLast
Results 51 to 75 of 145

Thread: Birdtrap

  1. #51
    Join Date
    Dec 2011
    Location
    UK
    Posts
    87
    Mentioned
    2 Post(s)
    Quoted
    42 Post(s)

    Default

    The script wasnt working for me, it wouldn't start because of a compiling error at the bury bones section so I changed it to:
    if FindBitmapMaskTolerance(BonesMask, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 20, 50) then
    begin
    if FawkiDebug then writeln('Burying Bones');
    Mouse(Ix - 4, Iy - 4 , 8, 8, False);
    ChooseOption('ury');
    FTWait(8);
    Lines 166 to 171
    I copied the Drop feature and changed it to bury
    Last edited by Mar-TINO; 01-26-2012 at 01:54 PM.
    Only the weak surrender.
    .

  2. #52
    Join Date
    Dec 2011
    Location
    UK
    Posts
    87
    Mentioned
    2 Post(s)
    Quoted
    42 Post(s)

    Default

    Worked for 2 Hours, 51 Minutes and 25 Seconds
    Hunting Level 20
    Caught 176 Birds
    XP Gained 16720
    Placed 298 Traps
    Missed 120 Times
    Picked Up 2 Fallen Traps
    Buried 0 Bones

    PProggy for bones must be broken because it has buried all of them!
    Only the weak surrender.
    .

  3. #53
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    I will prep this script for SRL 5. Thanks for your report.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  4. #54
    Join Date
    Dec 2011
    Location
    UK
    Posts
    87
    Mentioned
    2 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    I will prep this script for SRL 5. Thanks for your report.
    Thanks for the script, its running really well for me! As you can see here...

    Worked for 4 Hours, 45 Minutes and 49 Seconds
    Hunting Level 20
    Caught 300 Birds
    XP Gained 28500
    Placed 465 Traps
    Missed 163 Times
    Picked Up 2 Fallen Traps
    Buried 0 Bones
    Only the weak surrender.
    .

  5. #55
    Join Date
    Dec 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Heyy! I'm using this on my pure, and how do you get it to start? I get this, and then it just doesn't try to open smart or anything. And you should make a small GUI because i might have to sacrifice my 52 pray level to use this on my maxed non-turm pure because i hate hunting and dont wanna legit this shit.

    "Compiled successfully in 655 ms.
    SRL Compiled in 16 msec
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap]"

  6. #56
    Join Date
    Dec 2011
    Location
    UK
    Posts
    87
    Mentioned
    2 Post(s)
    Quoted
    42 Post(s)

    Default

    Hey rob, if you go to page 2, it tells you how to get smart to run. If you read the start of page 3, it tells you how to fix the compiling error! It is only a quick fix until the WT-fakawi updates it himself.
    Only the weak surrender.
    .

  7. #57
    Join Date
    Dec 2011
    Location
    UK
    Posts
    87
    Mentioned
    2 Post(s)
    Quoted
    42 Post(s)

    Default

    Here is what I am using it works for 5 hours Attended use

    Simba Code:
    //----------------------------------------------------------------------------//
    // --                             BirdTrap
    // --                           by WT-Fakawi
    // --                              0.12
    // --
    // --                          HUNTING SCRIPT
    //----------------------------------------------------------------------------//
    // --
    // --                !!!! FOR THE SRL COMMUNITY ONLY !!!!!
    // --               !!!! DO NOT DISTRIBUTE THIS SCRIPT !!!!!
    // --             !!!! USE FOR YOUR OWN PRIVATE PURPOSES !!!!
    // --
    // --        You are free to copy/paste/modify this script or parts
    // --     of this script as long as you credit me and the SRL-community.
    //----------------------------------------------------------------------------//
    // --
    // --  This Script traps birds
    // --  Use it to level your Hunting to 30+
    //----------------------------------------------------------------------------//
    // --                       INSTRUCTIONS

    // --  1. Place your Player at a  Bird Hunting  spot.
    // --  2. Have one (1) birdtrap in invspot 1-24 and have reserve traps in spot 25-28.
    // --  3. This script is NOT designed for MultiPlayer. Use one Player only.
    // --                             Enjoy!
    //----------------------------------------------------------------------------//
    program BirdHunter;

    {.include SRL/SRL/Misc/Smart.simba}
    {.include SRL\SRL.simba}

    var
        BBones,  Birds, Traps, Missed, FallenTraps,  HuntingLevel, HPLevel: integer;

    var
       OBx, OBy, CalTime:Integer;

    Const
         FawkiDebug = False;
         BirdXp = 95;

    //----------------------------------------------------------------------------//

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

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active := True;
    end;

    //----------------------------------------------------------------------------//

    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn(' ');
      WriteLn('<============== - Progress Report ===============>');
      writeln('Worked for    '+ TimeRunning);
      writeln('Hunting Level '+ IntToStr(HuntingLevel));
      writeln('Caught        '+ IntToStr(Birds)+ ' Birds');
      writeln('XP Gained     '+ IntToStr(Birds * BirdXp));
      writeln('Placed        '+ IntToStr(Traps)+ ' Traps');
      writeln('Missed        '+ IntToStr(Missed)+ ' Times');
      writeln('Picked Up     '+ IntToStr(FallenTraps)+ ' Fallen Traps');
      writeln('Buried        '+ IntToStr(BBones)+ ' Bones');
    end;

    //----------------------------------------------------------------------------//

    Procedure Up;

    Begin
      KeyDown(VK_UP);
      Wait(2500 + Random(1000));
      KeyUp(VK_UP);
    End;

    //----------------------------------------------------------------------------//

    procedure FTWait(myLen:Integer);
    var mywait: Integer;
    begin
         for mywait := 1 to myLen do
         begin
              Wait(100 + Random(100));
              FindNormalRandoms;
         end
    end;

    //----------------------------------------------------------------------------//

    Function HaveBirdTrap(var WhereX, WhereY:Integer):Boolean;
    var
      BirdTrap:Integer;
    begin
      BirdTrap := BitmapFromString(16, 11, 'meJxjYECA////M5AICGpBU4Cpni' +
            'QFEPZ/MCBoApHimAbispdUd+K3Ar96NC3EOwCrX/BYgSYCAHr4aJg=');

      if FindBitMapMaskTolerance(BirdTrap, WhereX, WhereY, MIx1, MIy1, MIx2, MIy2 - 42, 10, 10) then
      begin                                           // keep lower row free! for extra reserve traps
          Result := True;
          if FawkiDebug then writeln('HaveBirdTrap returned True');
      end;
    //      if FawkiDebug then writeln('HaveBirdTrap returned False');
      FreeBitmap(BirdTrap);
    end;

    //----------------------------------------------------------------------------//

    Function PlaceTrap(StepForward:Boolean):Boolean;
    var
       BTX, BTy:Integer;
    begin
      if HaveBirdTrap(BTx, BTy) then
      begin
        if StepForward then Mouse(MSCx + 30, MSCy + 5, 10, 10,True);
        FFlag(0);
        FTWait(12);
        Mouse(BTX, BTy, 4, 4, True);
        FTWait(24);
        if pos('lay a trap here',GetBlackChatMessage) <> 0 then
        begin
          Mouse(MSCx + 30, MSCy - 5, 10, 5,True);
        end;
        Inc(Traps);
        Result := True;
        if FawkiDebug then writeln('PlaceTrap:  Placed Trap');
      end
      else
        Result := False;
    end;

    //----------------------------------------------------------------------------//

    procedure DropandBury;
    var
      i, Ix, Iy, RawBirdMeat, BonesMask: Integer;
      TB: TBox;
    begin
      RawBirdMeat := BitmapFromString(8, 6, 'beNpNy9sKQEAYReHHNZj' +
           'fYdQMQ5JccOGdLamd+q5We5tPrsBUOuS6ksW8rI1h61rsoZdjCHLG' +
           '+MeSC997zh82XNSvMYGl4tsfee9COg==');
      BonesMask := BitmapFromString(10, 9, 'meJxjYEAH/8EAQxghCyfhiuEAWQq' +
            'XAoKASGX4TUCzEQ8DWT0Aj6NNsw==');

      MakeCompass('N');
      GameTab(tab_Inv);
      FtWait(1);
      for i := 1 to 28 do
      begin
        TB := InvBox(i);
        if ExistsItem(i) then
        begin
          if FindBitmapToleranceIn(RawBirdMeat, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 50) then
          begin
           if FawkiDebug then writeln('Dropping RawBirdMeat');
            Mouse(Ix - 4, Iy - 4 , 8, 8, False);
            ChooseOption('rop');
            FTWait(2);
          end;
         
          if FindBitmapMaskTolerance(BonesMask, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 20, 50) then
          begin
            if FawkiDebug then writeln('Burying Bones');
            Mouse(Ix - 4, Iy - 4 , 8, 8, False);
            ChooseOption('ury');
            FTWait(8);
          end;
        end;
      end;
      FreeBitmap(RawBirdMeat);
      FreeBitmap(BonesMask);
      ProgressReport;
    end;

    //----------------------------------------------------------------------------//

    procedure CheckLevels;
    begin
         GameTab(Tab_Stats);
         HuntingLevel  := GetSkillLevel('hunting');
         HPLevel  := GetSkillLevel('hitpoints');
         GameTab(Tab_Inv);
    end;

    //----------------------------------------------------------------------------//

    procedure Quit(reason:String);
    begin
      writeln('QUIT: '+ reason + 'QUIT');
      Logout;
      TerminateScript;
    end;


    //----------------------------------------------------------------------------//

    Procedure Setup;
    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      CheckLevels;
    end;

    //----------------------------------------------------------------------------//

    begin
      Setup;
      CalTime := GetSystemTime;

      repeat
          if PlaceTrap(True) then
          begin
          repeat
            FtWait( 1 + Random(3));
            if Random(50) = 0 then SleepAndMoveMouse(1000 + random(200));
           repeat
              if FindColorTolerance(OBx, OBy, 4880299, 265, 143, 331, 185, 20)
                or FindColorTolerance(OBx, OBy, 3956845, 265, 143, 331, 185, 20) then
              begin
                MMouse(OBx, OBy, 0, 0);
                GetMousePos(OBx,OBy);
              end;
            until not IsUpText('Walk here') or not IsUpText('Walk here / ');

            if IsUpText('Dismantle Bird snare / 2 more options') then
            begin
              FtWait(2);
              Mouse(Obx, Oby, 0, 0, True);
              FtWait(12);
              Inc(Missed);
              Break;
            end;
            if IsUpText('Check Bird snare / 2 more options') then
            begin
              FtWait(2);
              Mouse(Obx, Oby, 0, 0, True);
              FtWait(12);
              Inc(Birds);
              if InvCount > 10 + Random(10) then DropAndBury;
              Break;
            end;
            if IsUpText('Take Bird snare / 3 more options') then
            begin
              FtWait(2);
              Mouse(Obx, Oby, 0, 0, True);
              FtWait(12);
              Inc(FallenTraps);
              Break;
            end;
            until False;
       end;
      until not LoggedIn;
      Quit('EOF');
    end.
    Only the weak surrender.
    .

  8. #58
    Join Date
    Dec 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by BottingFTW View Post
    Hey rob, if you go to page 2, it tells you how to get smart to run. If you read the start of page 3, it tells you how to fix the compiling error! It is only a quick fix until the WT-fakawi updates it himself.
    Thanks so much mann i personally hate "leeching" noobs but i guess i am when it comes to simba xD ill try to look between the lines a bit more next time

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

    Cool

    if you dont want your prayer to level up then this is what i tried and it seemed to work ok, dropping bones also rather than burying them

    find this

    Code:
        begin
          if FindBitmapToleranceIn(RawBirdMeat, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 50) then
          begin
           if FawkiDebug then writeln('Dropping RawBirdMeat');
            Mouse(Ix - 4, Iy - 4 , 8, 8, False);
            ChooseOption('rop');
            FTWait(2);
          end;
          
          if FindBitmapMaskTolerance(BonesMask, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 20, 50) then
          begin
            if FawkiDebug then writeln('Burying Bones');
            Mouse(Ix - 4, Iy - 4 , 8, 8, False);
            ChooseOption('ury');
            FTWait(8);
          end;
    and change too

    Code:
        begin
          if FindBitmapToleranceIn(RawBirdMeat, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 50) then
          begin
           if FawkiDebug then writeln('Dropping RawBirdMeat');
            Mouse(Ix - 4, Iy - 4 , 8, 8, False);
            ChooseOption('rop');
            FTWait(2);
          end;
    
          if FindBitmapMaskTolerance(BonesMask, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 20, 50) then
          begin
            if FawkiDebug then writeln('Dropping Bones');
            Mouse(Ix - 4, Iy - 4 , 8, 8, False);
            ChooseOption('rop');
            FTWait(2);
          end;
    if this is okay let me know

  10. #60
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by nickycee View Post
    if this is okay let me know
    If you are adressing me: yes i am fine with this, and yes you have done this properly. Q: Can you also make it a variable, so you can choose to drop or bury? And how would you do that?
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  11. #61
    Join Date
    Jan 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have no idea, was just a guess of how to get the bones to drop mate not done programming since school lol

  12. #62
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    Simba Code:
    if FindBitmapMaskTolerance(BonesMask, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 20, 50) then
      if buryBones then
      begin    
        if FawkiDebug then writeln('Burying Bones');
        Mouse(Ix - 4, Iy - 4 , 8, 8, False);
        ChooseOption('ury');
        FTWait(8);
      end else
      begin
        if FawkiDebug then writeln('Dropping Bones');
        Mouse(Ix - 4, Iy - 4 , 8, 8, False);
        ChooseOption('rop');
        FTWait(2);
      end;

    Of course you need to add the Boolean at the beginning, but this is a simple example how to solve the problem with a variable.
    Working on: Tithe Farmer

  13. #63
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by masterBB View Post
    Simba Code:
    if FindBitmapMaskTolerance(BonesMask, Ix, Iy, TB.x1, TB.y1, TB.x2, TB.y2, 20, 50) then
      if buryBones then
      begin    
        if FawkiDebug then writeln('Burying Bones');
        Mouse(Ix - 4, Iy - 4 , 8, 8, False);
        ChooseOption('ury');
        FTWait(8);
      end else
      begin
        if FawkiDebug then writeln('Dropping Bones');
        Mouse(Ix - 4, Iy - 4 , 8, 8, False);
        ChooseOption('rop');
        FTWait(2);
      end;

    Of course you need to add the Boolean at the beginning, but this is a simple example how to solve the problem with a variable.
    Aaaah, Member? why did you solve it?
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  14. #64
    Join Date
    Jan 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (170:27): Type mismatch at line 169 help?

  15. #65
    Join Date
    Jan 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

    help?

  16. #66
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    Aaaah, Member? why did you solve it?
    He said he had no idea, thought lets show him how. I'm not used to this many new users:P. I have a weak spot in my heart for people who have no idea how to solve problems. Should have post something like:

    Simba Code:
    if buryBone then
    begin
      //your bury code
    end else
    begin
      //your drop code
    end;

    @ Jaybird
    Install SRL, how to can be found on the following thread:
    http://villavu.com/forum/showthread....555#post851555


    Quote Originally Posted by Qelliami View Post
    [Error] (170:27): Type mismatch at line 169 help?
    It works for me, try to update SRL to the newest version. To do so go to SRL and then Check for update.
    Last edited by masterBB; 01-28-2012 at 11:21 PM.
    Working on: Tithe Farmer

  17. #67
    Join Date
    Feb 2012
    Location
    OREGON
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ive already updated SRL still nothing..

  18. #68
    Join Date
    May 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    For some reason dropping isn't working? Have they changed chooseoption or what because it only right clicks item being dropped and won't drop it.

  19. #69
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    what to do?

  20. #70
    Join Date
    May 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by jumper tibi View Post
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    what to do?
    Path is wrong, try to figure correct path to SRL.scar

    wink: there is something wrong with \

  21. #71
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    I will need to take a look into this script.It is outdated because it is not written for SRL 5. It is a small thing really.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  22. #72
    Join Date
    Dec 2011
    Posts
    126
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jumper tibi View Post
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    what to do?

    here past this in and it work but burn itsn ot working on this script



    {$include SRL/SRL/Misc/Smart.simba}
    {$include SRL\SRL.simba}

  23. #73
    Join Date
    Dec 2011
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The .scar just needs to be changed to .simba but the line 169 error still exist.

  24. #74
    Join Date
    Jan 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this script is really nice im training right now, thanks for making it and btw does anyone use the auto-login?

    thanks for making it!

  25. #75
    Join Date
    Feb 2012
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    <============== - Progress Report ===============>
    Worked for 5 Hours, 48 Minutes and 22 Seconds
    Hunting Level 26
    Caught 423 Birds
    XP Gained 40185
    Placed 590 Traps
    Missed 163 Times
    Picked Up 4 Fallen Traps
    Buried 0 Bones

Page 3 of 6 FirstFirst 12345 ... 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
  •