Results 1 to 12 of 12

Thread: Who "owns" the find bird nest function

  1. #1
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default Who "owns" the find bird nest function

    Who "owns" the find bird nest function , as i would like to use it in my script?
    Where can i get it?
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  2. #2
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    This one in Woodcutting.scar?

    SCAR Code:
    {*******************************************************************************
    procedure FindBirdsNest;
    By: Liquid and Starblaster100
    Description: If a birds nest is found, it will pick it up
    *******************************************************************************}


    procedure FindBirdsNest;
    var
      tries, x, y: Integer;
      s: string;
    begin
      if (not (GetLastChatText(s))) then
        LastChatter(s);
      if (Pos(s, 'A bird') <> 0) then
      begin
        repeat
          if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
            not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
            not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
          begin
            KeyDown(VK_LEFT);
            Wait(700 + Random(500));
            KeyUp(VK_LEFT);
            Wait(400 + Random(300));
          end;
          if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
            not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
            not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
          begin
            x := 648;
            y := 83;
            tries := tries + 1;
            FindColorSpiral(x, y, 241, 570, 5, 725, 155);
            Mouse(x + 3, y + 3, 2, 2, True);
            Flag;
            Wait(200 + Random(100));
          end;
          if (FindObj(x, y, 'Take Bird', 3952984, 10)) or
            (FindObj(x, y, 'Take Bird', 1713706, 10)) or
            (FindObj(x, y, 'Take Bird', 1581604, 10)) then
          begin
            WriteLn('Birds Nest Found');
            Wait(450 + Random(400));
            GetMousePos(x, y);
            Mouse(x, y, 0, 0, True);
            Flag;
            Wait(500 + Random(300));
            if (Screenshots) then
              SaveScreenshot('Birds Nest - SRL - ' + IntToStr(GetTimeRunning) + '.bmp');
            tries := tries + 100;
            Birdsnest := Birdsnest + 1;
            Mouse(583, 226, 2, 2, False);
            Wait(100 + Random(100));
            ChooseOption('Examine');
            Exit;
          end;
        until (FindObj(x, y, 'Take Bird', 3952984, 10)) or
          (FindObj(x, y, 'Take Bird', 1713706, 10)) or
          (FindObj(x, y, 'Take Bird', 1581604, 10)) or (tries > 5)
      end;
    end;
    :-)

  3. #3
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Argh! My eyes!

    I suggest if you want one, make a modern one yourself...

  4. #4
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    The day i make something better then starblaster is the day ...... you grow a third ear!
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by djcheater View Post
    The day i make something better then starblaster is the day ...... you grow a third ear!
    You even i can beat that he used FindObj you could use tpa's
    ~Hermen

  6. #6
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Use the one in Ultra Cut n Bank. Just make sure you credit PriSoner.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  7. #7
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    Ok thanks
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  8. #8
    Join Date
    Jun 2006
    Location
    United Kingdom
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wasn't this made like ... 3 years ago ...
    ANYONE can make a better one than this now a days.

  9. #9
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    Well if your up for the job wink wink
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  10. #10
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by nava2
    Use the one in Ultra Cut n Bank. Just make sure you credit PriSoner.
    ^ His works great. You could also get Trollvete's.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  11. #11
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    hmmm was it prisoner who wrote that, or was it Shuttleu who wrote it in the updated version?

  12. #12
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    PriSoner, correct me if I'm wrong.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Who "owns" the find bird nest function
    By randy marsh in forum OSR Help
    Replies: 0
    Last Post: 08-26-2008, 09:36 AM
  2. Replies: 3
    Last Post: 08-01-2008, 01:22 PM
  3. i cant find a number with "IsTextInAreaEx"
    By tixirius in forum OSR Help
    Replies: 5
    Last Post: 05-21-2008, 03:58 PM
  4. Replies: 3
    Last Post: 04-19-2007, 03:44 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •