Results 1 to 12 of 12

Thread: Problem making TPA

  1. #1
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Problem making TPA

    Hey

    I am currently working on a Draynor fisher / cooker, and would like to make a TPA of the fishing spot.
    As far as i know i did everything right, but it won't find the fishing spot.
    Instead it hovers over a willow tree (Not bad, but not what im trying at the moment)

    So i think something might be wrong with my procedure.
    Can anyone see what i'm doing wrong here?

    SCAR Code:
    Procedure FindFishSpot;
    begin
      x := MSCx;
      y := MSCy;
      FindColorsSpiralTolerance(x, y, FSpot, 12828347, MSx1, MSy1, MSx2, MSy2, 10);
      if Length(FSpot) = 0 then FindColorsSpiralTolerance(x, y, FSpot, 12235951, MSX1, MSY1, MSX2, MSY2, 10);
      for i := 0 to High(FSpot)do
      begin
        Spot := MiddleTPA(FSpot);
        MMouse (Spot.x, Spot.y, 3, 3);
        If IsUpTextMultiCustom(['Net', 'Fishing', 'Spot', 'Fish']) then
        begin
          Wait(100+random(100));
          Mouse(Spot.X, Spot.Y, 2, 2, False);
          ChooseOption('Net');
          Wait(500+random(250));
          Exit;
        end;
      end;
    end;

    Thanks in advance =]

    ~Sir

  2. #2
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    Isn't there an SRL function that does this for you. Have a look at Fishing.scar in the Skills folders to have a look. I'm pretty sure there is.
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  3. #3
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats what i thought, but there isn't a funcftion like that.
    Thats why i need to make my own TPA, but it doesn't work.

  4. #4
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Try putting a wait after the move and before the IsUpTextMultiCustom.

  5. #5
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Tried that, did not work.
    Any other suggestions?

    ~Sir

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

    Default

    what exacty does it do, find the wrong color or not move at all?
    “Ignorance, the root and the stem of every evil.”

  7. #7
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try this.. xD

    SCAR Code:
    {.include SRL\SRL.scar}

    var
      Pie: TPoint;

    function FindFishSpot(var FFish: TPoint; UpText: TStringArray): Boolean;
    var
      FishColors: array[0..2] of TPointArray;
      Fish: TPointArray;
      Fishs: T2DPointArray;
      I, C: Integer;
    begin
      FindColorsSpiralTolerance(MScX, MScY, FishColors[0], 12235950, MSx1, MSy1, MSx2, MSy2, 30);
      FindColorsSpiralTolerance(MScX, MScY, FishColors[1], 11181975, MSx1, MSy1, MSx2, MSy2, 30);
      FindColorsSpiralTolerance(MScX, MScY, FishColors[2], 10523529, MSx1, MSy1, MSx2, MSy2, 30);
      FishColors[0] := CombineTPA(FishColors[0], FishColors[1]);
      FishColors[0] := CombineTPA(FishColors[0], FishColors[2]);
      if(Length(FishColors[0]) < 1)then
        Exit;
      Fishs := TPAtoATPA(FishColors[0], 30);
      C := High(Fishs);
      SetArrayLength(Fish, C + 1);
      for I := 0 to C do
        Fish[I] := MiddleTPA(Fishs[I]);
      for I := 0 to C do
      begin
        MMouse(Fish[I].X, Fish[I].Y, 5, 5);
        Wait(55 + Random(50));
        if(IsUpTextMultiCustom(UpText))then
        begin
          GetMousePos(FFish.X, FFish.Y);
          Result := True;
          Exit;
        end;
      end;
    end;

    begin
      SetupSRL;
      ActivateClient;
      Wait(2000 + Random(500));
      if (FindFishSpot(Pie, ['et'])) then
        Mouse(Pie.x, Pie.y, 0, 0, True)
      else
        Writeln('PROBLEM MAN!');
    end.

  8. #8
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    i think he might want to make his own:P

    the color and the tolerance might not be all that good. that'll cause problems. then consider splitting the TPA (SplitTPA or TPAToATPA) because there might be similar points all over the map and if you middle the tpa it'll just go to the middle of everything. if you split the tpa it'll go to the middle of each one of them.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  9. #9
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    i think he might want to make his own:P

    the color and the tolerance might not be all that good. that'll cause problems. then consider splitting the TPA (SplitTPA or TPAToATPA) because there might be similar points all over the map and if you middle the tpa it'll just go to the middle of everything. if you split the tpa it'll go to the middle of each one of them.

    ~RM
    The tolerance and colors are fine! xD
    and what are you talking about? I combine the 3 tpas into one then split it, AFTER i combine them... Your just confused... xD

    or you talking to him? The first post?

  10. #10
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by Timer View Post
    or you talking to him? The first post?
    indeed, i was I doubt you'd need much help with TPAs

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  11. #11
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    i think he might want to make his own:P

    the color and the tolerance might not be all that good. that'll cause problems. then consider splitting the TPA (SplitTPA or TPAToATPA) because there might be similar points all over the map and if you middle the tpa it'll just go to the middle of everything. if you split the tpa it'll go to the middle of each one of them.

    ~RM
    Make sure you know the difference between TPAToATPA and SplitTPA, they are different and better for certain situations.

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  12. #12
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    http://www.villavu.com/forum/showthread.php?t=28484

    that tut is the best i've seen explaining the difference between both

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. making about 5m in one day :) for p2p
    By pedilus1 in forum Cash Guides
    Replies: 34
    Last Post: 08-12-2009, 04:50 PM
  2. Making A Pure...
    By Victim14 in forum RuneScape News and General
    Replies: 14
    Last Post: 11-05-2007, 01:13 AM
  3. Making own Alphabet?
    By sollek in forum OSR Help
    Replies: 11
    Last Post: 04-11-2007, 09:52 AM
  4. how to go about making a.....
    By seany in forum OSR Help
    Replies: 4
    Last Post: 01-22-2007, 08:57 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
  •