Page 4 of 6 FirstFirst ... 23456 LastLast
Results 76 to 100 of 145

Thread: Birdtrap

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

    Default

    This is for all you pures out there it drops the meat and the bones to perfection hope you enjoy it worked perfect for me and it should fix up the srl/sps problem as well hope you all enjoy
    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('Dropping Bones');
            Mouse(Ix - 4, Iy - 4 , 8, 8, False);
            ChooseOption('rop');
            FTWait(2);
          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.

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

    Default

    Stopped detecting the fallen traps for me, and just gets logged out.

  3. #78
    Join Date
    Feb 2012
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (185:1): Identifier expected at line 184
    Compiling failed.

    when i try run it..

    procedure CheckLevels;

    that is line 184^

  4. #79
    Join Date
    Feb 2012
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    New version is working great for me Amazing script

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

    Default

    when i try and run this i get this: Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

  6. #81
    Join Date
    Mar 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @MasterBotter same problem

  7. #82
    Join Date
    Jan 2007
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by MasterBotter View Post
    when i try and run this i get this: Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    The script isn't currently SRL-5 compatible.

    http://villavu.com/forum/showthread.php?t=68529
    Search button often helps.

  8. #83
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't understand what they're saying lol they are presenting some code. Do you paste it into the script code or something?

  9. #84
    Join Date
    Mar 2012
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hello,

    can u convert the script for the new srl?

    thanks

    Specter

  10. #85
    Join Date
    Feb 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have had a few tries but cant get it to support multiple traps.. any ideas?!?

  11. #86
    Join Date
    Nov 2011
    Location
    Jozi, South Africa
    Posts
    249
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The mouse stays / hovers over the trap in order to read the uptext so as to tell when a bird is caught. Using more than one trap would mean having to 'poll' each trap to read the uptext which would look suspicious (aka bot-like). I guess you would have to come up with a another way to monitor more than 1 trap.

    EDIT: For more than one trap perhaps you can try bitmaps of the various trap states and then searching the main screen for these if you want to run multiple traps.
    Last edited by NickMystre; 03-13-2012 at 10:56 AM.
    Ciao
    NM

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

    Default

    Quote Originally Posted by bloodvouge View Post
    i have had a few tries but cant get it to support multiple traps.. any ideas?!?
    It is too hard to count without knowing exactly where you are. You will loose traps for sure. It might be possible if you decide to anchor your script, but it is really only ment to get your hunter level going. I shouldn't use it above say Hunter 40+
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  13. #88
    Join Date
    Mar 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, this script is not working properly, it lays down the trap and then it just takes the mouse/cursor and moves it around my characters hands and just stands there.
    So it just stands there. Please help, btw I copied the script above for the pures, because the script wasn't working initially, so there is something wrong with the script you typed up. Please help.

  14. #89
    Join Date
    Jan 2012
    Location
    Australia :)
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by AKCORP View Post
    Hey, this script is not working properly, it lays down the trap and then it just takes the mouse/cursor and moves it around my characters hands and just stands there.
    So it just stands there. Please help, btw I copied the script above for the pures, because the script wasn't working initially, so there is something wrong with the script you typed up. Please help.
    If your wearing any gloves or something take it off. Mine did that for awhile til I removed some of the stuff i was wearing.

    and very nice script fakawi got my hunter from 1 - 38 in 3 days

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

    Default

    Quote Originally Posted by partyboyrawr View Post
    and very nice script fakawi got my hunter from 1 - 38 in 3 days
    Good! I pushed mine a little further til 54, since I needed the Gloves of Silence
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  16. #91
    Join Date
    Mar 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is it possible to change the code to make it lay 2 bird traps as I have 20+hunter and want to hunt wagtails?

    Cheers
    ~AKCOrP

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

    Default

    Quote Originally Posted by AKCORP View Post
    Is it possible to change the code to make it lay 2 bird traps as I have 20+hunter and want to hunt wagtails?

    Cheers
    ~AKCOrP
    No. Read four posts up please.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  18. #93
    Join Date
    Feb 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Help plox?


    A new update of Simba is available!
    Current version is 982. Latest version is 984
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

  19. #94
    Join Date
    Dec 2011
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Change .scar to .simba that's fairly simple.

  20. #95
    Join Date
    Mar 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    where do i change SRL/SRL.scar?
    To .sIMBA?

  21. #96
    Join Date
    Mar 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mine says Compiling failed, at line 169 in the script help please.

  22. #97
    Join Date
    Mar 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Jaybumaom0425 View Post
    Mine says Compiling failed, at line 169 in the script help please.
    MouseItem(i, True);

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

    Default

    Quote Originally Posted by Jaybumaom0425 View Post
    where do i change SRL/SRL.scar?
    To .sIMBA?
    Just change the SRL/SRL.SCAR TO SRL/SRL.SIMBA

  24. #99
    Join Date
    Dec 2011
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Jaybumaom0425 View Post
    MouseItem(i, True);
    I am having same issue here.

  25. #100
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    The script look great, but I cannot get it to run at all. It just says:

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

    Any idea what the problem could be? I appreciate the help.
    Last edited by Mullet Dude; 03-28-2012 at 05:21 AM. Reason: Ignore this completely hahaha. I feel stupid for not noticing the one above. Sorry!

Page 4 of 6 FirstFirst ... 23456 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
  •