Results 1 to 8 of 8

Thread: Falconry by Fre

  1. #1
    Join Date
    Apr 2007
    Posts
    373
    Mentioned
    2 Post(s)
    Quoted
    24 Post(s)

    Default Falconry by Fre

    It would be awesome is some people could test this script, and tell me what i can improve.

    Thx

    This script only catch the Spotted kebbit, not the higher lvl kebbits.
    Start at the south part in the falconry.
    Drops everything except the 4 last items (item 25,26,27 and 28)

    Worked for 4hours so far.
    Last edited by Sir R. M8gic1an; 11-14-2009 at 03:22 PM.

  2. #2
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    I see you are -for walking- not using "Flag" or "FFlag(distance)". These procedures will wait until the flag is gone from the Minimap, you just do a wait.
    Also I don't get DropCrap; it just clicks on the MM some places?
    Anyway, I fixed the standards here and there so it's more clear to read, and added Flag's where needed:
    SCAR Code:
    program falconry;
    // BY Fre
    {.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}

    var
      x, y, kebbit: Integer;

    procedure Declareplayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := 'nickname';
      Players[0].Pass := 'pass';
      Players[0].Nick := 'part of nick';
      Players[0].Active := True;
    end;

    procedure AntiBan;
    begin
      FindNormalRandoms;
    end;

    procedure Drop24; //By Lorax (edited by Fre)
    var
      i: Integer;
    begin
      for i := 1 to 24 do
        DropItem(i);
    end;

    procedure Catch;
    begin
      if not FindColorSpiralTolerance(x, y, 4679038, MSX1, MSY1, MSX2, MSY2, 5) then
      begin
        if FindSymbol(x, y, 'hunter training') then
        begin
          Mouse(x-20, y+20, 40, 10, True);
          Flag;
        end else
        begin
          Mouse(648, 66, 15, 15, True);
          Flag;
        end;
      end;
      if FindColorSpiralTolerance(x, y, 4679038, MSX1, MSY1, MSX2, MSY2, 5) then
      begin
        MMouse(x, y, 5, 5)
        if IsUpText('atch Spotted') then
        begin
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, True);
          Flag;
        end;
        Wait(100 + Random(20));
      end;
    end;

    procedure GetFalcon;
    begin
      if not FindcolorSpiralTolerance(x, y, 1626879, MSX1, MSY1, MSX2, MSY2, 5) then
      begin
        if FindColorSpiralTolerance(x, y, 4632542, MSX1, MSY1, MSX2, MSY2, 2) then
        begin
          Mouse(x, y, 10, 10, True);
          Flag;
        end;
      end;
      if FindcolorSpiralTolerance(x, y, 1626879, MSX1, MSY1, MSX2, MSY2, 5) then
      begin
        Mouse(x-5, y+10, 15, 15,true);
        Flag;
        Wait(500 + Random(500));
      end;
      Wait(100 + Random(20));
    end;

    procedure DropCrap;
    begin
      Mouse(621, 25, 10, 10, True)
      Flag;
      AntiBan;
      Mouse(621, 25, 10, 10, True)
      Drop24;
      Mouse(625, 131, 10, 10, True);
      Flag;
      Mouse(625, 131, 10, 10, True);
      AntiBan;
      Flag;
      mouse(625, 131, 10, 10, True);
    end;

    procedure Proggy;
    begin
      WriteLn('I caught '+ IntToStr(kebbit) +' Spotted Kebbits!');
    end;

    begin
      SetupSRL;
      SmartSetupEx(69, True, True, false);
      Wait(1000);
      SetTargetDC(SmartGetDC);
      DeclarePlayers;
      LoginPlayer;
      SetRun(true);
      SetAngle(true);
      repeat
        Catch;
        AntiBan;
        Wait(Random(100));
        GetFalcon;
        AntiBan;
        Wait(Random(100));
        if (InvCount > 26) then
        begin
          DropCrap;
          IncEx(kebbit, 12);
        end;
        ClearDebug;
        Proggy;
      until(False)
    end.
    Ce ne sont que des gueux


  3. #3
    Join Date
    Apr 2007
    Posts
    373
    Mentioned
    2 Post(s)
    Quoted
    24 Post(s)

    Default

    I left out flag, and flagd procedures with a point...
    It is more humanlike to wait some time (randomtime)
    then wait till the flag has disappeared from the MM or you are at a certain distance from the flag on the MM.
    That is why i did it.

    THe procedure dropcrap;
    walks to the north then drop all but 4 last inv slots.Then walks back. The reason that i goes north and drop the bones and furs there is because of the same color of the furs and the live spotted kebbits. If i would drop it at the place where i hunt the mouse with always go to the furs instead of the Spotted kebbits. If you have a solution for this i am glad to hear.

    Please tell me if i am wrong i am here to learn.

  4. #4
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    fre you could do FFag(random(20));
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

  5. #5
    Join Date
    Apr 2007
    Posts
    373
    Mentioned
    2 Post(s)
    Quoted
    24 Post(s)

    Default

    Update V1 better falcon pickup.

  6. #6
    Join Date
    Nov 2008
    Posts
    102
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    keep working on this script. make it number 1!

  7. #7
    Join Date
    Jan 2008
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very good, We need more hunter scripts, Hope you can make em like Red Chimpchompas en normal script.

  8. #8
    Join Date
    May 2008
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Watch out for Gravedigging <.< Naryasha.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Falconry Script
    By VivaLaRofl in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 02-18-2008, 07:52 PM

Posting Permissions

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