Hardest Request yet ;P

Quote:

---

Originally Posted by rogeruk

Symbol finding works great. Just check for yellow dot within the size of the symbol. pretty simple. Dunno what all the fuss is about.

---

It has to be a fuss :)

One of these should be added to SRL. Instead of keep hovering over the tree, makes it way less botty.

Let me see.. Will get back to you.

EDIT:

This should work.

SCAR Code:

program New;

const
  MMX1 = 570;
  MMY1 = 5;
  MMX2 = 715;
  MMY2 = 160;

const
  MMCX = 643;
  MMCY = 84;

Function FindEntMM: Boolean;

Var
   Tree: TPoint;
   Trees, Dots: TPointArray;
   aTrees: Array Of TPointArray;
   I, C: Integer;
   
Begin
  FindColorsTolerance(Trees, 2269727, MMX1, MMY1, MMX2, MMY2, 50);
  FindColorsTolerance(Dots, 65536, MMX1, MMY1, MMX2, MMY2, 0);
  aTrees := TPAToATPA(Trees, 20);
  For I := 0 To High(aTrees) Do
  Begin
    If Length(aTrees[I]) < 10 Then
      Continue;
    If Sqrt(Sqr(MMCX - Tree.X) + Sqr(MMCY - Tree.Y)) > 30 Then // Distance between symbol and you is lower than 30.
      Continue;
    Tree := MiddleTPA(aTrees[I]);
    For C := 0 To High(Dots) Do
      If Sqrt(Sqr(Dots[I].X - Tree.X) + Sqr(Dots[I].Y - Tree.Y)) < 30 Then
      Begin
        Result := True;
        WriteLn('Wizzy spotted an Ent');
        Exit;
      End;
  End;
End;

Var
   t: Integer;
   
begin
  t := GetSystemTime;
  FindEntMM;
  WriteLn(IntToStr(GetSystemTime - t));
end.

Quote:

---

Originally Posted by Wizzup?

Let me see.. Will get back to you.

EDIT:

This should work.

SCAR Code:

program New;

const
  MMX1 = 570;
  MMY1 = 5;
  MMX2 = 715;
  MMY2 = 160;

Function FindEntMM: Boolean;

Var
   Tree: TPoint;
   Trees, Dots: TPointArray;
   aTrees: Array Of TPointArray;
   I, C: Integer;
   
Begin
  FindColorsTolerance(Trees, 2269727, MMX1, MMY1, MMX2, MMY2, 50);
  FindColorsTolerance(Dots, 65536, MMX1, MMY1, MMX2, MMY2, 0);
  aTrees := TPAToATPA(Trees, 20);
  For I := 0 To High(aTrees) Do
  Begin
    If Length(aTrees[I]) < 10 Then
      Continue;
    Tree := MiddleTPA(aTrees[I]);
    //MoveMouse(Tree.X, Tree.Y);
    For C := 0 To High(Dots) Do
      If Sqrt(Sqr(Dots[I].X - Tree.X) + Sqr(Dots[I].Y - Tree.Y)) < 30 Then
      Begin
        Result := True;
        WriteLn('Wizzy spotted an Ent');
        Exit;
      End;
  End;
End;

begin
  FindEntMM;
end.

---

Looks good, gonna try it now.

Ill get back to ya.

One note, this does the finding on all trees.

You might want to add:

SCAR Code:

If Sqrt(Sqr(MMCX - Tree.X) + Sqr(MMCY - Tree.Y)) > 30 Then // Distance between symbol and you is lower than 30.
      Continue;

EDIT: Edited post above.

Kk, ill test again.

Quote:

---

Originally Posted by BobboHobbo

Kk, ill test again.

---

I have been very stupid. It has to be > and not <.
EDIT: Fixed in the two above posts..

Quote:

---

Originally Posted by Wizzup?

I have been very stupid. It has to be > and not <.
EDIT: Fixed in the two above posts..

---

Lol.. Mmm maybe that why it found like 100 ents :)

Quote:

---

Originally Posted by Wizzup?

One note, this does the finding on all trees.

You might want to add:

SCAR Code:

If Sqrt(Sqr(MMCX - Tree.X) + Sqr(MMCY - Tree.Y)) > 30 Then // Distance between symbol and you is lower than 30.
      Continue;

EDIT: Edited post above.

---

Use Dist?

SCAR Code:

if Dist((MMCX - Tree.X), (MMCY - Tree.Y)) > 30 then
  Continue;