Results 1 to 9 of 9

Thread: I need to make a feather picker...

  1. #1
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I need to make a feather picker...

    I have the fighting perfected, yet i need something more for it! so i decided to make a feather picker to add onto it! I made one, and it doesn't work, any suggestions please?

  2. #2
    Join Date
    Dec 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What isnt working?

    Edit: where it says that it isnt working, send that procedure/function and the mainloop and i think i can help u

  3. #3
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ouch, banned.... anyway, its that it isn't accurate, not that its not working...

  4. #4
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try putting WriteLn's after anywhere it can mess up. By finding where it stopped working you can find the problem.
    But for feather picking in general I suggest using dtm's.

    If you post the script too I could help you.
    -You can call me Mick-



  5. #5
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Post the script here, i will easly help you with feather picking .
    Woot woot.

  6. #6
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, here it is (YAY 200 LINES lol)
    SCAR Code:
    ////////////////////////////////////////////////////////
    //////////Thank You For Using Wade007s ChickenKiller////
    //////To use it just go to the chickens and press play!/
    //////It is in beta, So don't be harsh!/////////////////
    //////To stop it, just press F2/////////////////////////
    ////////////////////////////////////////////////////////
    program ChickenKiller;

    {.include srl/srl.scar}

    var x,y: integer;

    Feather:boolean;

    Const

    ChickenColor = 1055613;
    FeatherColor = 11053236;
    Procedure CheckIfLoggedIn;
     begin
     Writeln('You are running ChickenKiller by wade007')
     wait(1000)
     If(Not(loggedin)) then
     begin
     Writeln('Please login before running script')
     end;
    end;


    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '*******';
      Players[0].Pass := '******';
      Players[0].Nick := '****'; //3 - 4 letters of YOUR username,example: "sern"
      Players[0].Active :=True; //Do not use capital letters or numbers.
    end;



    Procedure Startup;
    begin
    If(Not(LoggedIn)) then LoginPlayer;
    end;


    Procedure AttackChicken;
     begin

      If (FindColorTolerance(x,y, ChickenColor , 3, 11 , 331, 478,30)) then
       begin
       MMouse(x,y,1,1)
       If IsUptextMulti('cken','hicken','chic')
       then
        begin
        Mouse(x,y,1,1, false)
        chooseoption('tack')
        FindNormalRandoms
        if InBlackChat('omeone') then exit;
        end;
       end;
    end;

    Procedure Pickupfeather;
    begin
    If (FindColorTolerance(x,y, featherColor , 3,11,331 , 478, 10)) then
    begin
    MMouse(x,y,1,1)
    if (isuptextmulti('eath','ther','eather')) then
    begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1, false)
    Chooseoption('eather')
    end;
    end;
    end;


    Procedure Responder;
    begin
    if inchatmulti('yo','hi','hey') then typesend('what''s up?')
    wait(250+random(250))
    if inchatmulti('nm','uch','othing') then typesend('Cool, im just getting bored training!')
    wait(250+random(250))
    if inchatmulti('same','i bet','yeah') then typesend('totally...')
    end;


    procedure PPickUpMouse;
    var
      cx, cy, XX, YY: Integer;
    begin
      GetMousePos(cx, cy);
      XX := cx;
      YY := cy;
      case Random(2) of
        0: MMouse(cx - 3 - Random(5), cy - 8 - Random(17), 0, 0);
        1: MMouse(cx + 3 + Random(5), cy - 8 - Random(17), 0, 0);
      end;
      Wait(1131 + Random(358));
      case Random(2) of
        0: MMouse(XX + 3 + Random(5), YY + 8 + Random(9), 0, 0);
        1: MMouse(XX - 3 - Random(5), YY + 8 + Random(9), 0, 0);
      end;
    end;

    procedure AAlmostLogout;
    var
      e, f, TempMouseSpeed: Integer;
    begin
      GameTab(10);
      TempMouseSpeed := MouseSpeed;
      MouseSpeed := MouseSpeed + 20;
      e := 5 + Random(6);
      for f := 0 to e do
      begin
        case Random(3) of
          0, 1: MMouse(583 + Random(120), 361 + Random(20), 0, 0);
          2: IdleTime(300 + Random(300), 500, 0.5);
        end;
        FTwait(2 + Random(1));
      end;
      MouseSpeed := TempMouseSpeed;
      GameTab(4);
    end;

    procedure Debug;
    begin
    Writeln('______________________________________|')
    writeln('| Thank you for using my ChickenKiller|')
    wait(400+random(100))
    Writeln('| It is still in beta, so don''t be too harsh|')
    wait(200+random(200))
    Writeln('|I have added a responder and Anti-Randoms in this release! i hope it runs better!|')
    wait(300+random(100))
    writeln('|Wade007s chickenkiller has run for '+timerunning)
    Writeln('|Thank you for using')
    Writeln('m')
    wait(50)
    writeln('my')
    wait(50)
    writeln('my c')
    wait(50)
    writeln('my ch')
    wait(50)
    writeln('my chi')
    wait(50)
    writeln('my chic')
    wait(50)
    writeln('my chick')
    wait(50)
    writeln('my chicke')
    wait(50)
    writeln('my chicken')
    wait(50)
    writeln('my chicken k')
    wait(50)
    writeln('my chicken ki')
    wait(50)
    writeln('my chicken kil')
    wait(50)
    writeln('my chicken kill')
    wait(50)
    writeln('my chicken kille')
    wait(50)
    writeln('my chicken killer!')
    wait(50)
    writeln('Please post how well it worked, how long it worked, and ONLY CONSTRUCTIVE CRITICISM')
    wait(50)
    writeln('I hope you enjoyed my script, it will be updated soon!')
    wait(50)
    writeln('oh, just so you know, it is no longer in beta! W00000T!!!')
    Writeln('-----------------------------------------------------------------------------------')
    end;

    begin
    SetupSrl;
    declarePlayers;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    activateClient
    MakeCompass('N')
      repeat
      StartUp
      HighestAngle;
      AttackChicken
      AttackChicken
      AttackChicken
      responder
      AttackChicken
      PPickUpMouse
      PickupFeather
      BoredHuman;
      gametab(2)
      Until(isfkeydown(2))
      debug
      Exit;
    end.
    Thanks guys! Happy New Years!

  7. #7
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Function Findfeather(var fex, fey : integer) : boolean;
    var FeatherPoints : TPointArray;
    var FeatherMid : TPoint;
    begin
      if FindColorSpiralTolerance(fex, fey, 403717, MSX1, MSY1, MSX2, MSY2, 5) then
      FindColorsSpiralTolerance(mscx,mscy,FeatherPoints,403717 ,fex - 15,fey-15,fex+15,fey+15,6);
      if length(featherPoints)>20 then exit;
      if length(featherPoints)>0 then
      begin
        FeatherMid:=MiddleTPA(FeatherPoints);
        fex := FeatherMid.x;
        fey := FeatherMid.y;
        Result := True;
      end;
    end;

    procedure PickFeather;
    var fx, fy : integer;
    begin
      fx := MMCX;
      fy := MMCY
      if Findfeather(fx ,fy) then
      begin
        MMouse(fx ,fy ,3 ,3 );
        wait(100 + random(50));
        if IsUpText('eather') then
        begin
          Mouse(fx, fy, 0,0, true)
          else
          begin
            Mouse(fx, fy, 0,0, false)
            ChooseOption('eather')
          end;
        end;
        ftwait(1);
        FindNormalRandomsTime;
        flag;
      end;
    end;


    Took from my chickenkiller
    EDIT: It may be nooby because I'm not good with TPoints...but it works good
    I made procedures seperated because i needed to make loop break if not findfeather(x,y);
    EDIT: Sorry dude, your script is terrible
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  8. #8
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Negaal View Post
    EDIT: Sorry dude, your script is terrible
    I lol'ed. Still laughing actually. Maybe its just funny since its 5:30 am and I haven't gone yet.

    Everyone starts somewhere. And you're better than 90% of the 30,000 at SRL for even trying to script. I started out making a pathetic dummy killer and bam a month and a half later: SRL Member.
    -You can call me Mick-



  9. #9
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, ill go test it(Thanks Neegal ill give you credits) Yeah mick, this is my first script basically i know its terrible lol.

    EDIT: when i try to run it it says Identifier expected in script Ill go try and fix
    EDIT2: SHIT my account got hacked.....I lost about a mill or two on there!!!!!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Chicken Killer and Feather Picker!
    By Fruity-Lo0py in forum First Scripts
    Replies: 26
    Last Post: 03-25-2008, 04:52 AM
  2. Chiken killer feather picker.
    By owned1112 in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 10-06-2007, 09:10 AM
  3. Feather Picker
    By rotflmfwao in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 07-02-2007, 04:09 PM
  4. Chicken killer + bone picker/burier or feather picker?
    By codx1 in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 07-01-2007, 01:17 PM
  5. anyone have chicken killer with feather picker??HELP!!
    By mitch453 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 06-08-2007, 02:09 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
  •