Results 1 to 16 of 16

Thread: Chicken Killer

  1. #1
    Join Date
    Sep 2008
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Chicken Killer

    Ok this is my first script. I tried to also have it pick up the feathers but i have trouble with btms.

    Please leave constructive critisim + proggies
    Please don't leave mean comments

    All help to make it better would be appreciated.
    SCAR Code:
    program barbarianl3tschickenkiller;
    {.include SRL/SRL.Scar}

    var
    timesdone:Integer;
    const
    whitechickencolor=7114401; //change to any part of the white chicken
    brownchickencolor=3430514;//change to any part of the brown chicken
    feathercolor=402948;//Try to get the black part of the feather because black is uncommon in rs
    AveradgeTimeToKillAChickenInSeconds=16;//Change this to however long it takes you to kill a chicken in seconds
    YourName='Alphaeater';//your username
    YourPassword='yhnyhn';//your password
    Numberofsets=10;


    procedure login;
     begin;
      Mouse(325,260,20,10,true);
      Wait(100 + random(300));
      TypeSend(YourName);
      Wait(500 + random(200));
      TypeSend(YourPassword);
      Wait(250 + random(300));
      Mouse(382,365,10,10,true);
      Wait(4000+random(200));
      Mouse(369,354,0,0,true);
      Wait(3000);
     end;
     
    procedure killchickens;
    var
    x,y,whitechickenfound:integer;

     begin;
      whitechickenfound:=0;
      FindColorSpiral(x,y,whitechickencolor,0,0,600,600);
      if x=0 then FindColorSpiral(x,y,brownchickencolor,0,0,600,600);
      if x=0 then Exit;
      Mouse(x,y,3,3,true);
      Wait(AveradgeTimeToKillAChickenInSeconds*1000+random(800));
      Wait(1000);
     end;
     
    Procedure pickupfeathers;
     var
     x,y:Integer;

      begin;
       FindColor(x,y,feathercolor,30,30,480,300);
       if x=0 then x:=20;
       if y=0 then y:=20;
       Mouse(x,y,1,1,false);
       Wait(50+random(150));
       TextCoords(1);
       Wait(200+random(50));
       Mouse(x,y,1,1,true)
       Wait(6000);
      end;
     

     

    begin
    MouseSpeed:=15;
    TimesDone:=0;

    if not LoggedIn then login;
    repeat
    killchickens;
    timesdone:=timesdone+1;
    pickupfeathers;
    ClearDebug;
    Writeln('Chickens attacked' + IntToStr(timesdone));
    until(timesdone>numberofsets)
    end.
    Currently I can't click the menu. I right click the feather but don't click on the menu.

  2. #2
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    umm first thing, use declare players instead of the login you made. I'm impressed that you made your own log in, but its unneeded.

    SCAR Code:
    Mouse(x,y,random(3),random(3),true);

    can be

    SCAR Code:
    Mouse(x,y, 3, 3,true);

    and it yeilds the same result.

    SCAR Code:
    Wait(400+random(125));
      Wait(400+random(200));
      Wait(7000+random(200));

    you could just combine them into one wait, instead of having 3 in a row, thats just inefficient. Other than that it ooks alright, congrads on your first script

    -Blumblebee
    “Ignorance, the root and the stem of every evil.”

  3. #3
    Join Date
    Sep 2008
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok thanks for the adivce. Ill go edit that right now.

  4. #4
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can I fix it and post?

    Lol. There's quite a few mistakes =/

  5. #5
    Join Date
    Sep 2008
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sure could you help me with picking up feathers??? I already made a bitmap but can't make it work.

    [edit]Here is my feather bitmap.
    Feather2 := BitmapFromString(20, 25, 'beNpjYBgFIxMcWDoFSB5a' +
    'M+XYuknEqN+3e8KGtV1Q9rJZl/ZvXLmwZ+Witn2re4+s7Mav98Tx6' +
    'RcvrTqwe/bBXQsObJ2/Zcus7SeW7Lu86sDxuccPzTi5q5+g7RdPLQ' +
    'CSty6tO31hxdrj05ce6999bvpoJI6CUYATAABAUToz');
    [/edit]

    I just can't seem to put it into my script

  6. #6
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program ChickenKiller;
    {.include SRL/SRL.Scar}

    const
      ChickensToKill = 5;

    var
      ChickensKilled: Integer;
      ChickenColors: TIntegerArray;

    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
     
      ChickenColors := [0, 0, 0]; // Choose a few colors off of the chickens and put them here.

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;

    function KillChickens: boolean;
    var
      l, i: Integer;
      ChickenPointsATPA: T2DPointArray;
      ChickenPoints: TPointArray;
      ChickenPoint: TPoint;
    begin
      l := High(ChickenColors);
      FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      if Length(ChickenPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      ChickenPointsATPA := SplitTPA(ChickenPoints, 3);
      SortATPASize(ChickenPointsATPA, True);
      for i := 0 to High(ChickenPointsATPA) do
      begin
        ChickenPoint := MiddleTPA(ChickenPointsATPA[i]);
        Mouse(ChickenPoint.x, ChickenPoint.y, 0, 0, False);
        Wait(750);
        if ChooseOption('hicken') then
        begin
          Result := True;
          Exit;
        end;
      end;
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('Chickens Killed: ' + IntToStr(ChickensKilled));
    end;

    begin
      SetupSRL;
      LoginPlayer;
      repeat
        FindNormalRandoms;
        if KillChickens then
          Inc(ChickensKilled);
        ProgressReport;
      until(ChickensKilled=ChickensToKill)
    end.

    EDIT: I'll try to write you a feather picker upper.

    EDIT2: Here you are with a feather picker upper.
    SCAR Code:
    program ChickenKiller;
    {.include SRL/SRL.Scar}

    const
      ChickensToKill = 5;

    var
      ChickensKilled, FeatherColor: Integer;
      ChickenColors: TIntegerArray;

    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
     
      ChickenColors := [0, 0, 0]; // Choose a few colors off of the chickens and put them here.
      FeatherColor := 0; // Choose a color off of the "stem" of the feather.

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;

    function KillChickens: boolean;
    var
      l, i: Integer;
      ChickenPointsATPA: T2DPointArray;
      ChickenPoints: TPointArray;
      ChickenPoint: TPoint;
    begin
      if not LoggedIn then TerminateScript;
      l := High(ChickenColors);
      FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      if Length(ChickenPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      ChickenPointsATPA := SplitTPA(ChickenPoints, 3);
      SortATPASize(ChickenPointsATPA, True);
      for i := 0 to High(ChickenPointsATPA) do
      begin
        ChickenPoint := MiddleTPA(ChickenPointsATPA[i]);
        Mouse(ChickenPoint.x, ChickenPoint.y, 0, 0, False);
        Wait(750);
        if ChooseOption('hicken') then
        begin
          Result := True;
          Exit;
        end;
      end;
    end;

    function PickupFeathers: boolean;
    var
      i: Integer;
      FeatherPoints: TPointArray;
      FeatherPointsATPA: T2DPointArray;
      FeatherPoint: TPoint;
    begin
      if not LoggedIn then TerminateScript;
      FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 5);
      if Length(FeatherPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 10);
      if Length(FeatherPoints)=0 then
        TerminateScript;
      FeatherPointsATPA := SplitTPA(FeatherPoints, 3);
      SortATPASize(FeatherPointsATPA, True);
      for i := 0 to High(FeatherPointsATPA) do
      begin
        FeatherPoint := MiddleTPA(FeatherPointsATPA[i]);
        MMouse(FeatherPoint.x, FeatherPoint.y, 0, 0);
        Wait(750);
        if IsUpText('eather') then
        begin
          Mouse(FeatherPoint.x, FeatherPoint.y, 0, 0, False);
          Wait(750);
          if ChooseOption('eather') then
          begin
            Result := True;
            Exit;
          end;
        end;
      end;
    end;
     
    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('Chickens Killed: ' + IntToStr(ChickensKilled));
    end;

    begin
      SetupSRL;
      LoginPlayer;
      repeat
        FindNormalRandoms;
        if KillChickens then
          Inc(ChickensKilled);
        PickupFeathers;
        ProgressReport;
      until(ChickensKilled=ChickensToKill)
    end.

  7. #7
    Join Date
    Sep 2008
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok I think that that would work better then my current one but doesn't make sense to me yet. + I'm tired. I'll try learning from that tommorow. Thanks for the help though.

  8. #8
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just PM me if you need help.

  9. #9
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice first script keep up the work! if you get a feather finder please Pm me...cause i am looking for how to make my own ( will cred you definatley!)
    IM BACK!!!!!!!!!!!!!!!!!

  10. #10
    Join Date
    Sep 2008
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok I'm still learning from TheVoiceInYourHead's script. I don't want to immplement something I don't fully understand yet into my script so it will be a couple days before my current script looks like yours.

    Thanks for the help and advice all.

  11. #11
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TheVoiceInYourHead View Post
    SCAR Code:
    program ChickenKiller;
    {.include SRL/SRL.Scar}

    const
      ChickensToKill = 5;

    var
      ChickensKilled: Integer;
      ChickenColors: TIntegerArray;

    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
     
      ChickenColors := [0, 0, 0]; // Choose a few colors off of the chickens and put them here.

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;

    function KillChickens: boolean;
    var
      l, i: Integer;
      ChickenPointsATPA: T2DPointArray;
      ChickenPoints: TPointArray;
      ChickenPoint: TPoint;
    begin
      l := High(ChickenColors);
      FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      if Length(ChickenPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      ChickenPointsATPA := SplitTPA(ChickenPoints, 3);
      SortATPASize(ChickenPointsATPA, True);
      for i := 0 to High(ChickenPointsATPA) do
      begin
        ChickenPoint := MiddleTPA(ChickenPointsATPA[i]);
        Mouse(ChickenPoint.x, ChickenPoint.y, 0, 0, False);
        Wait(750);
        if ChooseOption('hicken') then
        begin
          Result := True;
          Exit;
        end;
      end;
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('Chickens Killed: ' + IntToStr(ChickensKilled));
    end;

    begin
      SetupSRL;
      LoginPlayer;
      repeat
        FindNormalRandoms;
        if KillChickens then
          Inc(ChickensKilled);
        ProgressReport;
      until(ChickensKilled=ChickensToKill)
    end.

    EDIT: I'll try to write you a feather picker upper.

    EDIT2: Here you are with a feather picker upper.
    SCAR Code:
    program ChickenKiller;
    {.include SRL/SRL.Scar}

    const
      ChickensToKill = 5;

    var
      ChickensKilled, FeatherColor: Integer;
      ChickenColors: TIntegerArray;

    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
     
      ChickenColors := [0, 0, 0]; // Choose a few colors off of the chickens and put them here.
      FeatherColor := 0; // Choose a color off of the "stem" of the feather.

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;

    function KillChickens: boolean;
    var
      l, i: Integer;
      ChickenPointsATPA: T2DPointArray;
      ChickenPoints: TPointArray;
      ChickenPoint: TPoint;
    begin
      if not LoggedIn then TerminateScript;
      l := High(ChickenColors);
      FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      if Length(ChickenPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      ChickenPointsATPA := SplitTPA(ChickenPoints, 3);
      SortATPASize(ChickenPointsATPA, True);
      for i := 0 to High(ChickenPointsATPA) do
      begin
        ChickenPoint := MiddleTPA(ChickenPointsATPA[i]);
        Mouse(ChickenPoint.x, ChickenPoint.y, 0, 0, False);
        Wait(750);
        if ChooseOption('hicken') then
        begin
          Result := True;
          Exit;
        end;
      end;
    end;

    function PickupFeathers: boolean;
    var
      i: Integer;
      FeatherPoints: TPointArray;
      FeatherPointsATPA: T2DPointArray;
      FeatherPoint: TPoint;
    begin
      if not LoggedIn then TerminateScript;
      FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 5);
      if Length(FeatherPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 10);
      if Length(FeatherPoints)=0 then
        TerminateScript;
      FeatherPointsATPA := SplitTPA(FeatherPoints, 3);
      SortATPASize(FeatherPointsATPA, True);
      for i := 0 to High(FeatherPointsATPA) do
      begin
        FeatherPoint := MiddleTPA(FeatherPointsATPA[i]);
        MMouse(FeatherPoint.x, FeatherPoint.y, 0, 0);
        Wait(750);
        if IsUpText('eather') then
        begin
          Mouse(FeatherPoint.x, FeatherPoint.y, 0, 0, False);
          Wait(750);
          if ChooseOption('eather') then
          begin
            Result := True;
            Exit;
          end;
        end;
      end;
    end;
     
    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('Chickens Killed: ' + IntToStr(ChickensKilled));
    end;

    begin
      SetupSRL;
      LoginPlayer;
      repeat
        FindNormalRandoms;
        if KillChickens then
          Inc(ChickensKilled);
        PickupFeathers;
        ProgressReport;
      until(ChickensKilled=ChickensToKill)
    end.


    Hey do you mind if i use your Feather Part...will add you to creds
    IM BACK!!!!!!!!!!!!!!!!!

  12. #12
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Go ahead. As long as you know how it works.

  13. #13
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by 3goodfriends View Post
    this is a cool web.
    How about you comment on this script/how it ran/suggestions/bugs insetad of just saying its cool etc.

    GOING SKEWL BBAK 8 HOURS
    IM BACK!!!!!!!!!!!!!!!!!

  14. #14
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    joelstar really needs the code where u pick up the feathers, he will cred u and so will i plz help us
    in2it and joelster

  15. #15
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not urgent but if someone can look at my chicken raper V5 then i WILL add feather pickup, please PM me or just add my script + chicken feather pickup in it on my thread will add to creds!
    IM BACK!!!!!!!!!!!!!!!!!

  16. #16
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with chicken killer
    By D1zl3 in forum OSR Help
    Replies: 2
    Last Post: 10-04-2008, 10:11 PM
  2. Chicken Killer (yet another one)
    By dontpanic in forum RS3 Outdated / Broken Scripts
    Replies: 122
    Last Post: 04-20-2008, 05:12 PM
  3. Chicken Killer
    By Electron Man in forum First Scripts
    Replies: 19
    Last Post: 11-19-2007, 12:32 PM
  4. Chicken killer
    By me_ntal in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-17-2007, 04:56 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
  •