Need a way to calculate the angle and distance:

Hey, i need a way to calculate the Angle and the distance between point A and point B...

;)
I am going to use this to find an object on the mainscreeen by using a sick math ;)

i just don't know srls/scars function to get the distance and angle :D

also EXPLAIN the angle if u know ;);)

function Distance(x1, y1, x2, y2: Integer): Integer;
Returns Distance between Points.

for the angle things get more complicated.

I'd suggest you get a third point, draw a triangle and then use cosine to get the angle.

point 1: TP1
point 2: TP2
point 3: TP3 ; TP3.x := TP1.x ; TP3.y := TP2.y;

Cos A = Distance(TP1, TP3) / Distance(TP1, TP2);
Angle := ArcCos(Cos A);

~RM

i tried to do this with minimap :-\ i phailed...
distance is distance(x1, y1, x2, y2): integer;

Thanks RM!!! ;)
and marpis... erm thanks s'pose :D

just took geometry so i think i follow...
but the triangle has to be a a right triangle no?????????????????? <?> :confused:

this is a pic of my idea so far... coment>>>
http://img13.imageshack.us/img13/751...eronmmcopy.jpg

no, it doesnt need to be a right angle.

You just need to know that all the angles will add up to 180 degrees, then do what RM said.

PointA = a, PointB = b.

Angle = Tangent ^ -1 * (Opposite / Adjacent);
Angle = Tangent ^ -1 * ((b.y - a.y) / (b.x - a.x));

Then just change over to Scar functions for it.
It's just how you would do it without creating an extra TPoint. As it's a right angle, you just draw straight down from point B and straight across from point A. When they meet it creates the right angled triangle - the opposite side is equal to point B's y co-ordinate minus point A's y co-ordinate and similar situation for adjacent side.
You may want to look at Scar's help file for additional trigonometry related functions - I believe there is one that takes in the opposite and adjacent distance to return the angle, which would handle it if the triangle has no width ie point A.x = point B.x, which would otherwise result in a divide by zero error. Likewise, Depending on which function you use you'll be returned the angle in radians or degrees, so you need to make sure you're using the appropriate one for that.

lol, that won't give me the angle, i need the angle... that'd give me the legs or hypot yes... but i don't want them...

Exactly which angle are you looking for?

the angle between mmcx and a point about sw of it ;)
the angle will change though but it should always be sw of the center(mmcx)

If there is anything that marks the spot on the Mini-Map it seems like a RadialWalk would work, right?

Or is that not what your trying to do?

i got stuck in the logic:

angle := pow(Tan((hy-mmcy)/(hx-mmcx)), -1);
Writeln(FloatToStr(angle));

is that close???

maybe i want the slope :p ill look into that more....


@NCDS i am trying to find a spot on mm then convert that to the EXACT spot on ms ;)
im REALLY close now ;)

Tangent ^ -1 would be ArcTan and its variants in Scar - like I said, my post was just an extension of RM's post :)

oh boy, I haven't done Slope in forever. Atleast 3-5 years lol.

In that code you have above, what does 'h' represent?

hy and hx are the points of the point on mm im going after

the 3rd point is not supposed to be random....

TP1 := Point( 5, 10 );
TP2 := Point( 20, 50);
TP3 := Point(TP1.x, TP2.y);

http://i43.tinypic.com/2hwjkz.jpg

meh, on the picture it's actually TP3 := Point(TP2.x , TP1.y);
works the same

IT DOES HAVE TO BE A RIGHT TRIANGLE

~RM

SCAR Code:

procedure CalcAngle(hx, hy: integer);
var
  angle: extended;
  lm, ln, im: integer;

begin
  angle := ArcTan((hy - mmcy) / (hx - mmcx));
  Writeln(FloatToStr(degrees(angle)));
end;


would that work RM? it seems to give me the angle ;)
i need to use the angle and distance to calculate the point on the ms now... :(
i soooo should have done this the easy way.. ;) but now i started i aint STOPPIN!!! ;)

SCAR Code:

function GetAngle(x, y, x2, y2: integer): Extended;
begin
  Result:= (ArcTan2(y2 - y, x2 - x) * (180 / Pi)) + 90;
  if Result < 0.0 then  Result:= Result + 360.0;
end;

This reminds me of something I made that I used that formula in.
It would use the minimap to find something on the mainscreen.
I posted it somewhere around here... Probably like a year ago though.

something is still not working....
if anyone could help that'd be great... thanks so far RM!!! you t3h shiz ;)

SCAR Code:

program New;
{.include srl/srl.scar}
var
  I, x, y, z :integer;
function GetAngle(xc, yc, x2, y2: integer): Extended;
begin
  Result:= (ArcTan2(y2 - yc, x2 - xc) * (180 / Pi)) + 90;
  if Result < 0.0 then
    Result:= Result + 360.0;
end;
procedure CalcAngle(hx, hy: integer);
var
  angle: extended;
  lm, ln, im: integer;
  pnt: tpoint;
begin
  angle := Radians(GetAngle(hx, hy, mscx, mscy));
  pnt := IntToPoint(hx, hy);
  pnt := RotatePoint(pnt, angle, mmcx, mmcy);
  MoveMouse(pnt.x, pnt.y);
  Writeln(IntToStr(pnt.x)+' '+ inttostr(pnt.y));
  Writeln(FloatToStr(degrees(angle)));
end;
begin
  setupSRL;
  x := mmcx;
  y := mmcy;
  FindColorSpiral(x, y, FindLadderColor, mmx1, mmy1, mmx2, mmy2);
  CalcAngle(x, y);
  //writeln(inttostr(x)+' '+ Inttostr(y));
  //Writeln(InttoStr(distance(x, y, mmcx, mmcy)));
end.

it moves the mouse to the mm point lol... ;) it moves the mouse to hx, hy :(

Slope is

(y2 - y)/(x2 - x)

Lol, just did that in my shit math class last month :p

Quote:

---

Originally Posted by NCDS

no, it doesnt need to be a right angle.

You just need to know that all the angles will add up to 180 degrees, then do what RM said.

---

lol at this post (no offense NCDS:(, I hope you still love me?)
It does have to be a right angle, and all the angles in a triangle does ALWAYS add up to 180 :p

footballjds:
if Point1.x > Point2.x then u have to make the triangle a right angle, instead of a left angle as RM's picture shows.

Angle := ArcTan2(d - b, c - a)
(I think that is correct, I haven't tested it yet)

It doesnt have to be a right triangle if you use cosine or sin law...

i need somone to basically get it working for me im way to :confused:
lol
;)

Quote:

---

Originally Posted by XcanadamanX

It doesnt have to be a right triangle if you use cosine or sin law...

---

o rly? :eek:
grrrmf... gotta do homework now... :cartman:

Quote:

---

Originally Posted by Zyt3x

lol at this post (no offense NCDS:(, I hope you still love me?)

---

Ofcourse I do!

Quote:

---

Originally Posted by Zyt3x

It does have to be a right angle,

---

Quote:

---

Originally Posted by XcanadamanX

It doesnt have to be a right triangle if you use cosine or sin law...

---

+1! :p

Quote:

---

Originally Posted by Zyt3x

and all the angles in a triangle does ALWAYS add up to 180 :p

---

Thats what I said! :p

Quote:

---

Originally Posted by XcanadamanX

It doesnt have to be a right triangle if you use cosine or sin law...

---

don't make it too complicated :rolleyes:

besides sin law cannot be used here because it might give you wrong answer is the angle is >90 if i remember right. there are anyways some cases where sin law gives 2 values, so the only one left is cosine law which is bit too complicated to use here (it doesnt give you the wrong answer but why make it the hard way?)

edit: fixed typo