Results 1 to 7 of 7

Thread: Frozen Chicken Killer !!

  1. #1
    Join Date
    Jan 2012
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Frozen Chicken Killer !!

    Hello, this is my first script ever.
    Its a chicken killer whit pick up feature, I did it because someone request it i did it like on 45min.
    You should start on varrock chickens farm. !

    Attachment 13532

    Credits :

    laakerules - for gis awesome item looter.
    Last edited by Frozen Tear; 01-31-2012 at 08:44 PM.

  2. #2
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    http://villavu.com/forum/showthread....ight=standards

    please read that

    i will run the script now and test out how it functions

    EDIT:
    - get rid of your repeat ... until in KillChickens(); it never exits (ur mouse(); is set to true).
    - get rid of ChooseOption('ttack'); in KillChickens(); reason above ^
    - change line 43 to FindObjCustom(x, y, ['Chicken'], [4811140,8960460,1851484], 7);
    - the constant 'feather' is never used, nor do u ever use your feather finding function
    - for feather finding, use TPAtoATPAEx(TPA, 10,10); (line 77)
    - change line 107 to If FeatherFinder([11514827, 8685465, 9608362], ['hicken', 'eather'], MSCX, MSCY) then
    - ^ create an autocolor function for that line
    Last edited by x[Warrior]x3500; 01-31-2012 at 12:18 AM.

  3. #3
    Join Date
    Jan 2012
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by x[Warrior]x3500 View Post
    http://villavu.com/forum/showthread....ight=standards

    please read that

    i will run the script now and test out how it functions
    Thx for that amazing source, and i find that my script dosnt works great :P i will try to fix it.

  4. #4
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    ill be updating my first post with observations and things that could be improved

  5. #5
    Join Date
    Dec 2011
    Posts
    1,162
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmmm nice script bro, except for the pickup feathers! :P

    Simba Code:
    Function FeatherFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
      Var
          T,i,X,Y,b: Integer;
        TPA: TPointArray;
        ATPA: Array of TPointArray;
      Begin
        MarkTime(T);
        Repeat
          SetArrayLength(ATPA, Length(Colors));
          for i := 1 to High(Colors) do
            FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 5);
          TPA := MergeATPA(ATPA);
          ATPA := TPAtoATPAEx(TPA, 2, 2);
          SortATPAFrom(ATPA, Point(MSCX, MSCY));
          if (Length(ATPA) = 0) then
            Exit;

          MiddleTPAEx(ATPA[0], x, y);

          if (TimeFromMark(T) > 5000) then
            Exit;

          MMouse(x, y, 10, 10);
          Wait(randomrange(100,150));
          If(IsUpTextMultiCustom(TheUpText)) then
          begin
            ClickMouse2(False);
            WaitOption('eather', 500);
            if DidRedClick then
            begin
              Inc(Feathers);
              Result := True;
              Break;
            end;
          end;
        Until(Result)
      end;
      Function PickupFeathers:Boolean;
    Var
      X, Y: Integer;
    begin
      FindNormalRandoms;
      If FeatherFinder([10198179, 11053488], ['Take', 'feather'], MSCX, MSCY) then
      Begin
        writeln('You have found the some Feathers!');
        While IsMoving do
        Wait(50);
        FindNormalRandoms;
        Wait(RandomRange(500,750));
      End;
      end;

    And then heres mine from my scripts! :P

    Simba Code:
    Function CharmFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
      Var
          T,i,X,Y,b: Integer;
        TPA: TPointArray;
        ATPA: Array of TPointArray;
      Begin
        MarkTime(T);
        Repeat
          SetArrayLength(ATPA, Length(Colors));
          for i := 1 to High(Colors) do
            FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 5);
          TPA := MergeATPA(ATPA);
          ATPA := TPAtoATPAEx(TPA, 2, 2);
          SortATPAFrom(ATPA, Point(MSCX, MSCY));
          if (Length(ATPA) = 0) then
            Exit;

          MiddleTPAEx(ATPA[0], x, y);

          if (TimeFromMark(T) > 5000) then
            Exit;

          MMouse(x, y, 10, 10);
          Wait(randomrange(100,150));
          If(IsUpTextMultiCustom(TheUpText)) then
          begin
            ClickMouse2(False);
            WaitOption('harm', 500);
            if DidRedClick then
            begin
              Inc(Charms);
              Result := True;
              Break;
            end;
          end;
        Until(Result)
      end;

    Function PickupCharms:Boolean;
    Var
      X, Y: Integer;
    begin
      FindNormalRandoms;
      If CharmFinder([6133669], ['Take', 'charm'], MSCX, MSCY) then
      Begin
        writeln('You have found the some Charms!');
        While IsMoving do
        Wait(50);
        FindNormalRandoms;
        Wait(RandomRange(500,750));
      End;
      end;

    I find that funny how similar they look! :P good work on the attacking method though.

  6. #6
    Join Date
    Jan 2012
    Location
    Australia :)
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the mouse clicks randomly. like it clicks the chicken then it clicks on another chicken. how do we make it so that after it finish killing it goes to the next one?

  7. #7
    Join Date
    Feb 2012
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    um i got this error Exception in Script: Unable to find file 'srl/srl.scar' used from ''
    any1 help new here

Thread Information

Users Browsing this Thread

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

Posting Permissions

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