Finding The Anvil

[Rich]

I'm having trouble getting my script to find the anvil above. I've tried making a TPA, that didn't work, I've tried using normal FCSpiralTolerance, that didn't work...Does anyone have an suggestions that could possibly work? A DTM or bitmap of it maybe?

Thanks,
Richard

[D1zl3]

Well it seems to be the only greyish color there, so use this

FindObjTPA(x, y, 6391421, 10, 20, 10, 10, 1,['ith','nvil']); // What ever uptest is.

[noidea]

No, a TPA should work. Your just not making it right. Show us the one you made.

[benjaa]

FindObjCustom would work.

[Timer]

Try this...

function FindAnvil(FAnvil: TPoint): Boolean;
var
  AnvilColors, Anvil: TPointArray;
  Anvils: T2DPointArray;
  I, C: Integer;
begin
  FindColorsSpiralTolerance(MScX, MScY, AnvilColors, 5131860, MSx1, MSy1, MSx2, MSy2, 30);
  if (Length(AnvilColors) < 1) then
    Exit;
  Anvils := SplitTPA(AnvilColors, 10);
  C := High(Anvils);
  SetArrayLength(Anvil, C + 1);
  for I := 0 to C do
    Anvil[I] := MiddleTPA(Anvils[I]);
  for I := 0 to C do
  begin
    MMouse(Anvil[I].X, Anvil[I].Y, 5, 5);
    Wait(50 + Random(50));
    if (IsUpText('..........???')) then
    begin
      GetMousePos(FAnvil.X, FAnvil.Y);
      Result := True;
      Exit;
    end;
  end;
end;

Use as:

if (FindAnvil(TheAnvil)) then
begin
  Mouse(TheAnvil.x, TheAnvil.y, 0, 0, True);//no randomness as my function has already done it, but if you move the mouse before you Click the anvil, add like 5, 5 randomness.
....
end;

[Kyle Undefined]

Function FindAnvil: Boolean;
Var
  Counter : Integer;
begin
  If not (LoggedIn) then Exit;
  if FindObjTPA(x,y,3947585,11,-1,7,7,20,['options','1 mor','more opt']) then
  begin
  Repeat
    MMouse(x,y,2,2);
    Wait(100+random(200));
    begin
      GetMousePos(x,y);
      Mouse(x,y,2,2,false);
      AntiRandoms;
      Result := True;
      ChooseOption('amine');
      AntiBan;
    end;
      Inc(Counter);
  until ((Result = True) or (Counter = 20));
    if (Counter=20) then
    begin
      WriteLn('Couldn''t find Anvil');
      Logout;
      TerminateScript;
    end;
  end;
end;

This is what I have in mine. I have examine so that way I could see if it was finding the anvil or not. But I'm sure Timers will work better.

~Camo

[D1zl3]

Im pretty sure it should be like this:

Function FindAnvil: Boolean;
Var
  Counter : Integer;
begin
  If not (LoggedIn) then Exit;
  Repeat
    if FindObjTPA(x,y,3947585,11,-1,7,7,20,['options','1 mor','more opt']) then
    begin
      MMouse(x,y,2,2);
      Wait(100+random(200));
      begin
        GetMousePos(x,y);
        Mouse(x,y,2,2,false);
        AntiRandoms;
        Result := True;
        ChooseOption('amine');
        AntiBan;
        Inc(Counter);
      end;
  until ((Result = True) or (Counter = 20));
    if (Counter=20) then
    begin
      WriteLn('Couldn''t find Anvil');
      Logout;
      TerminateScript;
    end;
  end;
end;