Results 1 to 9 of 9

Thread: i need a more advanced chicken kill procedure because this one is not working

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

    Default i need a more advanced chicken kill procedure because this one is not working

    i need a more advanced chicken kill procedure because this one is not working
    can some1 explain how to search from the middle to all the corners?

    just need some help

    SCAR Code:
    program LumbyAllInOne;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/woodcutting.scar}
    {.include SRL/SRL/skill/cooking.scar}
    {.include SRL/SRL/skill/fighting.scar}

    var
    hometeleport, lx, ly, x, HowWeClick, y:integer;

    const
     Location = 'chicken pen'; //You can use Chicken Pen, Lumbridge, or Other.

    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    procedure loadbitmaps;
     begin
      hometeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
           '3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
           '58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
           '6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
           '5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
           'E870');
     end;

    Procedure casthometeleport;
     begin
      gametab(7);
      wait(400+Random(600));
       If(FindBitmap(hometeleport, lx, ly)) Then
        Begin
        wait(100 + Random(150));
        Mouse(lx, ly, 5, 5, True);
        wait(15000);
        WriteLn('your in limbridge, have a nice day!');
      end
       else
        If Not(FindBitmap(HomeTelePort, lx, ly)) Then
         begin
          WriteLn('couldnt fin spell.');
       end;
    end;


    procedure Move;
    begin
      if Location='Other' then
        begin
          casthometeleport;
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
          WriteLn('to bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
          WriteLn('passed the bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('almost next to goblin house');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('passed goblin house');
          FFlag(4);
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
          WriteLn('next to cows');
          FFlag(6);
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
          WriteLn('next to cows');
          FFlag(5);
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
          WriteLn('in chickenpen');
          FFlag(5);
        SetRun(false);
      end
    if Location='Lumbridge' then
      begin
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
          WriteLn('to bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
          WriteLn('passed the bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('almost next to goblin house');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('passed goblin house');
          FFlag(4);
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
          WriteLn('next to cows');
          FFlag(6);
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
          WriteLn('next to cows');
          FFlag(5);
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
          WriteLn('in chickenpen');
          FFlag(5);
         SetRun(false);
      end
        If Location='Chicken Pen' Then
         Begin
          Exit;
        end;
    end;

    function FindChicken(var x, y: Integer): Boolean;
    begin
      if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,10))then
      begin
        WriteLn('found chicken color')
        Result:=True;
      end else
      begin
        WriteLn('cant find chicken color')
        Result:=False;
      end;
    end;

    procedure KillChicken;
    begin
      if FindChicken(x,y)then
      begin
      case HowWeClick of
        0: if findchicken(x,y)then
           begin
             MMouse(x,y,1,0);
             Mouse(x,y,0,1,true);
           end;
        1: if findchicken(x,y)then
           begin
             MMouse(x,y,0,1);
             Mouse(x,y,1,0,false);
           end;
         else
         WriteLn('cant find chicken color')
        end;
      end;
    end;


    begin
    SetupSrl;
    activateclient;
    loadbitmaps;
    Move;
    killchicken;
    end.
    ~Hermen

  2. #2
    Join Date
    Nov 2006
    Location
    Latvia
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe:
    SCAR Code:
    function FindChicken(var x, y: Integer): Boolean;
    var
     Tolenrace:integer;
    begin
      if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,10))then
      begin
         MMouse(x, y, 1, 1);
          if (IsUpText('Chicken')) then
            begin
              Result:=True;
               writeln('found');
                Exit;
              end;
    end;

    EDIT:
    Maybe:
    SCAR Code:
    procedure KillChicken;
    begin
      if FindChicken(x,y)then
      begin
      case HowWeClick of
        0:
           begin
             Mouse(x, y, 1, 1, true);
           end;
        1:
           begin
             Mouse(x,y,1,0,false);
             ChooseOption('Attck'); // idk what option is on there
           end;
        end;
      end;
    end;

    Something like this, but use else tolerance:=Tolerance+1; and use repear or other loop If need help can call me on MSN! Good Luck!
    http://www.fenjer.com/adnan/SRL/21/5...0by%20JaBa.png -Full Version Be Ready Soon, Free Version Is out If Anyone wanna try, then MSN me
    http://www.fenjer.com/adnan/SRL/9/3/...d%20Runner.png
    http://www.fenjer.com/adnan/SRL/14/5...0Collector.png - After Tutorial Island Runner Finishing...

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

    Default

    msn please thought somthing like that but didnt do it before
    SCAR Code:
    function FindChicken(var x, y: Integer): Boolean;
    var
     Tolenrace:integer;
    begin
      if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,10))then
      begin
         MMouse(x, y, 1, 1);
          if (IsUpText('Chicken')) then
            begin
              Result:=True;
               writeln('found');
                Exit;
              end;
    end;

    procedure KillChicken;
    begin
     repeat
    FindChicken(x,y);
    ClickText(chicken, xs, ys, xe, ye);
    until(false)
    end;
    ~Hermen

  4. #4
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Hermpie, add me on msn, ill tell you what you should fix up and stuff in your script.

    Ill PM u.

  5. #5
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I could be your colors. Try changing them, or messing around with the tolerance.

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

    Default

    k it where the colors i didnt made a fight script before thats why its messy and the new srl to bit confusing
    ~Hermen

  7. #7
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    most problems occur with the color and the tolerence try playing with different colors and the toloerance (probably did but just incase)

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

    Default

    This is very very old
    ~Hermen

  9. #9
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow.. that right there is an INSANE gravedig..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Chopping procedure not working
    By dallas574 in forum OSR Help
    Replies: 7
    Last Post: 08-20-2008, 11:11 PM
  2. SmartDrop - Advanced dropping procedure
    By mixster in forum Research & Development Lounge
    Replies: 2
    Last Post: 05-08-2008, 08:51 PM
  3. A Working Chicken Buyer ?
    By dver in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 05-06-2008, 10:01 PM
  4. procedure Mouse not working?
    By alartt in forum OSR Help
    Replies: 4
    Last Post: 09-30-2007, 01:07 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
  •