Results 1 to 5 of 5

Thread: LOOKING For quick HElp!

  1. #1
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    LOOKING For quick HElp!

    As i said I am hoping to release my new version of my script today, but I need EVERYONE's help. IF you read my other threads I was having trouble with my TPA but now its good. Well kind of, the problem is that it is REALLY detectable for some reason, it keeps hovering around the color of the iron in the rock until it finds the "perfect color"...I just want it to click anywher on the rock and not look for the actual color and hover the rock..Please help...
    This is the part of the script of my rock finding/clicking..
    SCAR Code:
    function FindOres(var tx, ty: Integer):boolean;
    var
      i: integer;
      IronPoints: TPointArray;
      Iron2D : T2DPointArray;
      IronPoint : TPoint;
    begin
      if not LoggedIn then exit;
      x:= MSCX;
      y:= MSCY;
      begin
        FindColorsSpiralTolerance(tx,ty,IronPoints,2832989,MSX1,MSY1,MSX2,MSY2,6);
        Iron2D:= TPAtoATPAEx(IronPoints,3,3);
        for i:= 0 to length(Iron2D)-1 do
        begin
          if not LoggedIn then exit;
          Ironpoint:= MiddleTPA(Iron2D[i]);
          tx:= IronPoint.X;
          ty:= IronPoint.Y;
          MMouse(tx,ty,2,2);
          wait(90+random(50));
          if isuptext('ine')then
          begin
            GetMousePos(tx,ty);
            result:= true;
          end else Continue;
        end;
      end;
    end;

    procedure MinedaRock;
    var
      i, MiningTime : Integer;
      Blacktext : string;
    begin
      MakeCompass('N');
      SetAngle(True);
      for i := 0 to 2 do
      repeat
        if Not(LoggedIn) then exit;
        writeln('start');
        Myrandom;
        if not FindOres(x, y) then
        begin
        repeat
          wait(100+ random(50));
        until FindOres(x, y);
        writeln('uhoh');
        end else
        writeln('brap');
        Mouse(x,y,2,2,True);
        MarkTime(MiningTime);
        Wait(1500+ random(250));
        repeat
          BlackText := GetBlackChatMessage;
          if (getcolor(486, 384) = 0) then
          Wait(250+Random(300));
        until (Pos('anage', BlackText) <> 0) or (Pos('vailable', BlackText) <> 0) or (TimeFromMark(MiningTime) > (WaitperRock +random(250)));
      until (InvFull);
      if (InvFull) then
      begin
        writeln( 'Inventory Full walking to bank.' );
      end;
    end;

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Try this:
    SCAR Code:
    function FindOres(var tx, ty: Integer):boolean;
    var
      i: integer;
      IronPoints: TPointArray;
      Iron2D : T2DPointArray;
      IronPoint : TPoint;
    begin
      if not LoggedIn then exit;
      x:= MSCX;
      y:= MSCY;
      begin
        FindColorsSpiralTolerance(tx,ty,IronPoints,2832989,MSX1,MSY1,MSX2,MSY2,25);
        Iron2D:= TPAtoATPAEx(IronPoints,3,3);
        for i:= 0 to length(Iron2D)-1 do
        begin
          if not LoggedIn then exit;
          Ironpoint:= MiddleTPA(Iron2D[i]);
          tx:= IronPoint.X;
          ty:= IronPoint.Y;
          MMouse(tx,ty,2,2);
          wait(90+random(50));
          if isuptext('ine')then
          begin
            GetMousePos(tx,ty);
            result:= true;
          end else Continue;
        end;
      end;
    end;
     
    procedure MinedaRock;
    var
      i, MiningTime : Integer;
      Blacktext : string;
    begin
      MakeCompass('N');
      SetAngle(True);
      for i := 0 to 2 do
      repeat
        if Not(LoggedIn) then exit;
        writeln('start');
        Myrandom;
        if not FindOres(x, y) then
        begin
        repeat
          wait(100+ random(50));
        until FindOres(x, y);
        writeln('uhoh');
        end else
        writeln('brap');
        Mouse(x,y,2,2,True);
        MarkTime(MiningTime);
        Wait(1500+ random(250));
        repeat
          BlackText := GetBlackChatMessage;
          if (getcolor(486, 384) = 0) then
          Wait(250+Random(300));
        until (Pos('anage', BlackText) <> 0) or (Pos('vailable', BlackText) <> 0) or (TimeFromMark(MiningTime) > (WaitperRock +random(250)));
      until (InvFull);
      if (InvFull) then
      begin
        writeln( 'Inventory Full walking to bank.' );
      end;
    end;

    Need more tol, Hope I Helped .

  3. #3
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    thanks, but the problem was that I didn't have an "exit" after the result=true,
    Check out my new version! It's pretty good! http://www.villavu.com/forum/showthread.php?t=28581

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

    Default

    Quote Originally Posted by faster789 View Post
    thanks, but the problem was that I didn't have an "exit" after the result=true,
    Check out my new version! It's pretty good! http://www.villavu.com/forum/showthread.php?t=28581
    Yeah i forgot that to on my first tpa , btw you have got some endless loop because you got

    repeat
    wait(1000);
    until (findore(blax,blay);

    or something like that what if you get in a random and it will never find the color? or something else?
    ~Hermen

  5. #5
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Hermpie View Post
    Yeah i forgot that to on my first tpa , btw you have got some endless loop because you got

    repeat
    wait(1000);
    until (findore(blax,blay);

    or something like that what if you get in a random and it will never find the color? or something else?
    O ye...thx..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Just a quick question? Did I say quick?
    By SeanJohn in forum OSR Help
    Replies: 3
    Last Post: 01-28-2009, 12:03 AM
  2. I need some quick help
    By AJ2VM in forum OSR Help
    Replies: 45
    Last Post: 12-19-2007, 03:17 PM
  3. quick ? plz
    By rjbk1989 in forum OSR Help
    Replies: 3
    Last Post: 05-07-2007, 12:43 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
  •