SRL Archive - RS3 Outdated / Broken Scripts

Birdtrap is a general purpose birdtrap hunter for low level hunting players. It hunts with one birdtrap and one birdtrap only.

Instructions

Place your low level hunting character at a spot with birds. Have one birdtrap in your inventory. (If you want you can keep upto four spare birdtraps in the lower row of your inventory, they will not be used in the script).


Features

The player will stay at one place. It will not move, unless it needs to pick up a fallen birdtrap. Normally the script will adjust for that, but best keep some space behind the player. Effective from hunt level-1 to approx level-40.


How does it work

Birdtrap's main loop is very simple: It scans for changes in the uptext indicating a change of state in the birdtrap I constantly hover the mouse above the birdtrap. Detectable? Maybe. Works for me. This can be improved ofcourse by applying SRL animation function to see if a bird hits the trap, but I am not clever enough to do that, ghehe.



General Notice

Use with care and caution. Do not leave this script unattended for too long. For low levels only and watch out for legits :)


Proove of Concept.

<============== - Progress Report ===============>
Worked for    1 Hours, 51 Minutes and 30 Seconds
Hunting Level 48
Caught        223 Birds
XP Gained     21185
Placed        198 Traps
Missed        51 Times
Picked Up     18 Fallen Traps
Buried        224 Bones


<============== - Progress Report ===============>
Worked for    2 Hours, 25 Minutes and 15 Seconds
Hunting Level 22
Caught        131 Birds
XP Gained     12445
Placed        228 Traps
Missed        96 Times
Picked Up     1 Fallen Traps
Buried        132 Bones

<============== - Progress Report ===============>
Worked for    5 Hours, 58 Minutes and 29 Seconds
Hunting Level 36
Caught        876 Birds
XP Gained     60970
Placed        633 Traps
Missed        202 Times
Picked Up     55 Fallen Traps
Buried        827 Bones
                                              

0mg f!rst post!

Those progress reports look very promising, if only I had P2P :(

<3

Very nice script! Thank You.

I clicked run and all that happens is my mouse begins to move and in the debug it says:

SRL Compiled in 31 msec

Thanks! Hope this works, I need better hunting.

Looks great :)
Ill try it out soon

Sweet, a hunter script. Gj.

Nice script man !

i'm a high level hunter :(

Lovely :).

Really cool to see a hunter script. My hunter lvl is only 5 lol ill try this out later and try to get you a prog report.

From: omgmike1
I clicked run and all that happens is my mouse begins to move and in the debug it says:

SRL Compiled in 31 msec

got the same error ;)

Please please please make a ferret hunter bot!!!!!

From: naox
Please please please make a ferret hunter bot!!!!!

Learn to Script ;)
And have a go at making one your self :)
Mat

Fawk man you are always so sexy. Your scripts never cease to amaze me and I always enjoy looking at them, even though I am not actively scripting.

thanks man!!! works for me

From: HyperSecret
Fawk man you are always so sexy. Your scripts never cease to amaze me and I always enjoy looking at them, even though I am not actively scripting.

Thanks for the compliment :) It is a simple script proving runescape is a simple game if only you know how to look.

From: nickivey
thanks man!!! works for me

Good. Finally someone that gets it to run :)

From: omgmike1
I clicked run and all that happens is my mouse begins to move and in the debug it says:

SRL Compiled in 31 msec

Did you have one birdtrap in your inventory? Did it try to place the trap at all? What spot you where?

A guide on best spots would be really nice, i never know where to hunt the level 19 ones :P

From: iCURiP
A guide on best spots would be really nice, i never know where to hunt the level 19 ones :P

lvl 19 Tropical.. are right next to the 99 Cape Hunter dude's hut(in other words near the Red Chins)

Area, near the red spot

where can i find those birdys???????

soz for double post but umm how do you run it?
it says compiled it 16 seconds but does nothing? why is this happening?
hehe… is it because i havnt updated my simba cuz i havnt.

seems like the script doesnt go to smart client it makes clicks outside the client for me

From: dgpro
where can i find those birdys???????

Level 1 bird Crimson swift is on the Sand on the map image I posted on the post before yours

You do them till level 19, which you move to the red spot I made on there for the Tropical wagtails.. keep using them until we get another hunter that supports other hunter methods - although if this script supported more traps it would be faster xp(lvl 20 2 traps, lvl 40 3 traps, lvl 60 4 traps).

Its great for starting hunter… maybe someone could play with the code to implement that

grate job , i love this

This is a really good script but it keeps walking one square North every now and then so I have to keep manually moving my player back South.

how do u make this script run?????// doent even run 4 me :S

From: dgpro
how do u make this script run?????// doent even run 4 me :S

same, if i select the runescape client outside simba it works, but it doesnt wanna load SMART.

sorry for the double post but i got it to work by doing this.


if you don't understand the picture:

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

to

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

^^

I never use Smart, I can't seem to tunnel my I.P. from Smart, so I am doomed to use the regular client.

Anyway: gj Kristiaan I suppose? :smarty:

From: WT-Fakawi
I never use Smart, I can't seem to tunnel my I.P. from Smart, so I am doomed to use the regular client.

Anyway: gj Kristiaan I suppose? :smarty:

;) Thank ;D I suppose :smarty: hehe

Can same terminology be used for red chins? :D ? + or - few extra things :D
If i had low hunter or p2p I wud try this out too bad I have neither ATM :( but script looks awesome!" anyways!!

From: bro433
Can same terminology be used for red chins? :D ? + or - few extra things :D
If i had low hunter or p2p I wud try this out too bad I have neither ATM :( but script looks awesome!" anyways!!

Nah. I was never any good at counting objects in RS. It can be used for one chinbox I suppose, but that is a tad silly no?

how do u run it in normal rs client?

From: dgpro
how do u run it in normal rs client?

Yes, I do, but you can also use SMART. Just uncomment the lines Kristiaan posted about (six post earlier)

From: WT-Fakawi
Nah. I was never any good at counting objects in RS. It can be used for one chinbox I suppose, but that is a tad silly no?

nope i'd have to just make it for 5 :P it'd need Mini-map alot tho cuz when u set it up it'd leave a "drop symbol" (the red-dot on pos) so that can identify where it is and some1 wanted me to make one so gonna try after i get into walking and all becuase it needs alot of it to work :/

it'd look like the Graphicly

*-*
-*-
*-*

like an X 2 at top 1 middle 2 bottom should be too hard :/ need to learn walking and stuff tho >.< could work

Well, the good thing with hunting is that you dont need to walk at all. You can just sit somewhere for hours: items are all stacked.

A couple of big problems can occur:

• Legits in the way
• loosing track of where you are standing
• loosing boxes
• standing on top of things

It is not easy keeping track of so many boxes, also since you constantly need to check their state and act accordingly.

From: WT-Fakawi

A couple of big problems can occur:

• Legits in the way
• loosing track of where you are standing
• loosing boxes
• standing on top of things

Thing is i am IDEA MAN :D :spot:
but not the person to make things :( unfortunately

Now here are some solutions ^^

• By this do you mean messing with your Box and stuff? Some Anti-ban can help with this ^^
• SPS could solve the maybe with TPA full of points of where you layed traps?
• Having spare Boxes would be good maybe 5extra or 10 even
• If you stood on something it should show up on the Mini-map? theres a func to get pos of item from Mini-map to Mainscreen maybe right clicking and checking what is under the Character will help ^^

It'd be hard but worth the trouble if it were private

Hmm… Just stands there for me, doesn't do anything.

hopefully it works :p

it works very well ,use this got 1-53 hunter

Hey, I hope you don't mind but I edited your script for use for skillers( doesn't bury bones, it drops them ). Also, I edited the proggy report in the script too.. Here it is:

//----------------------------------------------------------------------------//
// --                      BirdTrap~Skiller Edition~
// --                           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.scar}
{.include SRL\SRL.scar}

var
    DBones, DMeat,  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('=================================================');
  writeln('Caught        '+ IntToStr(Birds)+ ' Birds');
  writeln('-------------------------');
  writeln('XP Gained     '+ IntToStr(Birds * BirdXp));
  writeln('-------------------------');
  writeln('Placed        '+ IntToStr(Traps)+ ' Traps');
  writeln('-------------------------');
  writeln('Missed        '+ IntToStr(Missed)+ ' Times');
  writeln('-------------------------');
  writeln('Picked Up     '+ IntToStr(FallenTraps)+ ' Fallen Traps');
  writeln('-------------------------');
  writeln('Dropped       '+ IntToStr(DMeat)+ ' Pieces of Meat');
  writeln('-------------------------');
  writeln('Dropped       '+ IntToStr(DBones)+ ' Bones');
  WriteLn('=================================================');
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);
        Inc(DMeat);
        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('rop');
        Inc(DBones);
        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.

Here is a really short proggy but I'll post a better one tonight:) :

<============== - Progress Report ===============>
Worked for    6 Minutes and 18 Seconds
Hunting Level 6
=================================================
Caught        6 Birds
-------------------------
XP Gained     570
-------------------------
Placed        9 Traps
-------------------------
Missed        3 Times
-------------------------
Picked Up     0 Fallen Traps
-------------------------
Dropped       6 Pieces of Meat
-------------------------
Dropped       6 Bones
=================================================

Noooo, I don't mind. (It says so too in the disclaimer) I hope the script didnt spoil your skiller with 3 xp :)

From: qingqinghd
it works very well ,use this got 1-53 hunter

Where did you train to from 1-53 hunter?

1-53??????????? it only got me 500xp before it lost all my birdtraps :S

YAAAY a bot THANK YOU DUDE THANK YOU I HAVE LIKE 5 HUNTER
:)

Should drop after it places trap again for maximum speed.
Edited if anyone wants

//----------------------------------------------------------------------------//
// --                      BirdTrap~Skiller Edition~
// --                           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
    DBones, DMeat,  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('=================================================');
  writeln('Caught        '+ IntToStr(Birds)+ ' Birds');
  writeln('-------------------------');
  writeln('XP Gained     '+ IntToStr(Birds * BirdXp));
  writeln('-------------------------');
  writeln('Placed        '+ IntToStr(Traps)+ ' Traps');
  writeln('-------------------------');
  writeln('Missed        '+ IntToStr(Missed)+ ' Times');
  writeln('-------------------------');
  writeln('Picked Up     '+ IntToStr(FallenTraps)+ ' Fallen Traps');
  writeln('-------------------------');
  writeln('Dropped       '+ IntToStr(DMeat)+ ' Pieces of Meat');
  writeln('-------------------------');
  writeln('Dropped       '+ IntToStr(DBones)+ ' Bones');
  WriteLn('=================================================');
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);
        Inc(DMeat);
        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('rop');
        Inc(DBones);
        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
      if InvCount > 10 + Random(10) then DropAndBury; 
      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);
          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.

grate ty upstair

Works great! Only problem I have with it is that it doesn't drop the bird meat, it right clicks it but it just doesn't drop it… Other then that thanks for all the hard work!

From: Themamba
Works great! Only problem I have with it is that it doesn't drop the bird meat, it right clicks it but it just doesn't drop it… Other then that thanks for all the hard work!

Yea but I think this is SRL Problem because the script says 'rop' (Drop)

So big thanks to you for creating this script! HUGE THANKS!!!

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

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!

I will prep this script for SRL 5. Thanks for your report.

From: WT-Fakawi
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

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]"

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.

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

//----------------------------------------------------------------------------//
// --                             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.

From: BottingFTW
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

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

    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

    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

From: nickycee
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?

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

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.

From: masterBB

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?

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

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

help?

From: WT-Fakawi
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:

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.php?p=851555#post851555

From: Qelliami
[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.

ive already updated SRL still nothing..

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.

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

From: jumper tibi
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 \

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.

From: jumper tibi
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}

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

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

thanks for making it!

<============== - 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

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 :D

//----------------------------------------------------------------------------//
// --                             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.
                                                                                          

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

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

when i try run it..

procedure CheckLevels;

that is line 184^

New version is working great for me:) Amazing script

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

@MasterBotter same problem

From: MasterBotter
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.

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

Hello,

can u convert the script for the new srl?

thanks

Specter

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

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.

From: bloodvouge
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+

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.

From: AKCORP
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 :)

From: partyboyrawr

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 :smile:

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

From: AKCORP
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.

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 ''

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

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

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

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

MouseItem(i, True);

From: Jaybumaom0425
where do i change SRL/SRL.scar?
To .sIMBA?

Just change the SRL/SRL.SCAR TO SRL/SRL.SIMBA

From: Jaybumaom0425
MouseItem(i, True);

I am having same issue here.

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.

From: idean
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 :d

//----------------------------------------------------------------------------//
// --                             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.
                                                                                          

thank you so much! :d

Awesome script for something basic, good job.

I have a problem, it lays traps but it doesnt loot them when bird falls in, it just waits till it collapses and then picks it up? any suggestions on what to do?

Been this way for awhile….

Verry good script my friend ! :)

abs….is yours working? It won't collect bird trap here to get the xp. it only picks up broken traps

ahhha nice script, loving the simplicty of it

just what I needed to get my hunter skill going… Thanks!

[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Error] (170:27): Type mismatch at line 169
Compiling failed.


dafuq…? -.-

Is this script compatible with SRL 5? I updated my SRL, SPS, and MSI and I am getting this error: Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
What should I do?

I'm using idean's script, and it works great, now my only problem is it wont drop the bones, and meat. It'll attempt to drop it, but once it right clicks, it goes off screen, and to the next item.

From: kozak94
Is this script compatible with SRL 5? I updated my SRL, SPS, and MSI and I am getting this error: Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
What should I do?

change all the '.scar' to '.simba' should fix that problem.

Error: Exception: Mask is invalid. Width/Height: (16,11). WhiteHi/BlackHi: (-1,175) at line 103
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 3]

Error I receive immediately after It logs in.

Any Help? (I'm running Fixed, On Min, Safe Mode, Brightness Max)

NVM, found the problem. script up and running for now =D


<============== - Progress Report ===============>
Worked for 9 Minutes and 25 Seconds
Hunting Level 21
Caught 10 Birds
XP Gained 950
Placed 14 Traps
Missed 4 Times
Picked Up 0 Fallen Traps
Buried 0 Bones

From: sticker94
Error: Exception: Mask is invalid. Width/Height: (16,11). WhiteHi/BlackHi: (-1,175) at line 103
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 3]

Error I receive immediately after It logs in.

Any Help? (I'm running Fixed, On Min, Safe Mode, Brightness Max)

I'm getting this aswell.. any help?

Error: Exception: Mask is invalid. Width/Height: (16,11). WhiteHi/BlackHi: (-1,175) at line 103
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 3]
[Hint] C:\Simba\Includes\SRL/SRL/core/animation.simba(257:3): Variable 'X' never used at line 256
[Hint] C:\Simba\Includes\SRL/SRL/core/animation.simba(257:3): Variable 'Y' never used at line 256

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

whats that ?

completely broken.

Could there possibly be an update for this script?

/edit: Or atleast an update to bury the bones while catching birds :P

Error: Exception: Mask is invalid. Width/Height: (16,11). WhiteHi/BlackHi: (-1,175) at line 103
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 3]

I keep getting this error:

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

which is: MouseItem(i, True);

From: xXBlakHawkXx
I keep getting this error:

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

which is: MouseItem(i, True);

I got the script to run to that point aswell. Can anybody atleast point me to the right direction so i could try and figure this out myself? (: thanks

I can. There has probably been a little syntax change in MouseItem. Check the SRL documentation, or the include itself!

Says this: [Error] (170:26): Type mismatch at line 169

MouseItem(i, True);

This doesnt support SMART..?

From: WT-Fakawi
I can. There has probably been a little syntax change in MouseItem. Check the SRL documentation, or the include itself!

Thanks Fakawi, ill look into it (:

is there a way to edit the script so it drops the bones instead of burying them?

need to get 71 hunt on my pure and i will try this till grey chins

From: idean
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 :D

//----------------------------------------------------------------------------//
// --                             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.
                                                                                          

Can anyone verify that this doesn't bury bones? Don't wanna mess up my SK.

Is there an edited script to use 2 traps instead of 1. It's alot faster…

Was looking for this everywhere (hunter at lvl 1 takes forever legit) thanks appreciate this rep+ :D

From: omgmike1
I clicked run and all that happens is my mouse begins to move and in the debug it says:

SRL Compiled in 31 msec

Same problem :(

Very nice script, started using from level one. One of my proggy.

 
<============== - Progress Report ===============>
Worked for    2 Hours, 35 Minutes and 5 Seconds
Hunting Level 16
Caught        193 Birds
XP Gained     18335
Placed        296 Traps
Missed        103 Times
Picked Up     0 Fallen Traps
Buried        0 Bones
Found trap
Got da bird :D

It won't run for me, my error says:

Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from ''



I already uncommented
{$include SRL/SRL/Misc/Smart.simba}
{$include SRL\SRL.simba}
but it still does not work.


And when I change the .scar to .simba i get the line 169 error.

there anyway i could get it to drop everything but the red feathers, i really dont need to bury bones..

Hmmm it stop setting up traps after awhile /:

Is this updated to srl5?

From: Annndddrrr

I already uncommented
{$include SRL/SRL/Misc/Smart.simba}
{$include SRL\SRL.simba}
but it still does not work.

The folder is includes, change that and it should work.

Thanks for script.

From: solidus
The folder is includes, change that and it should work.

Thanks, I should have noticed that…

From: Annndddrrr
Thanks, I should have noticed that…

in dont get this?? i changed to smart etc, but im still getting line 170 error?



edit: its ok i sorted now :) cheers ill post a progy if i can

[Error] (47:3): Unknown identifier 'NumberOfPlayers' at line 46
Compiling failed.

Help?

From: Tilley661
in dont get this?? i changed to smart etc, but im still getting line 170 error?



edit: its ok i sorted now :) cheers ill post a progy if i can

how did u fix this?

Uncomment {.include SRL/SRL/Misc/Smart.scar} on 29 :3

I can't get this script to work for crap :c
I really want this

Can we get this updated to SRL 5 please?

inb4doityourself
inb4L2script
inb4idiot