PercentBlackMM

Printable View

Show 40 post(s) from this thread on one page

PercentBlackMM

I made it a bit more useful, gets the percent of a set area of the MM. Thanks to Zeph and mixster for fixing the annoying errors :)

SCAR Code:

{*******************************************************************************
function PercentBlackMM(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
By: Richard
Description: Gets the percent of an area of the minimap which is black, defined
by the radials, and the radius.
*******************************************************************************}

function PercentBlackMM(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
var
  TPA: TPointArray;
  A, Ps: Integer;
  Sector1, Sector2, Area: Extended;
begin
  A := EndRadial - StartRadial;
  FindColors(TPA, 65536, MMX1, MMY1, MMX2, MMY2);
  FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY);
  Sector1 := (Pi * (StartRadius * StartRadius)) * (A / 360.0);
  Sector2 := (Pi * (EndRadius * EndRadius)) * (A / 360.0);
  Area := Sector2 - Sector1;
  Ps := Length(TPA);
  Result := Round((Ps * 100) / Area);
end;

06-06-2009, 09:46 PM
Naum

aPercentBlackMM(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;

Might want to change that :).

Looks good though, you can get rid of 2 variables by using them directly.
06-06-2009, 09:48 PM
Richard

Quote:

Originally Posted by NaumanAkhlaQ

aPercentBlackMM(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;

Might want to change that :).

Looks good though, you can get rid of 2 variables by using them directly.

Actually I could kill 3 variables, but this way is more readable.
06-06-2009, 09:51 PM
Naum

Quote:

Originally Posted by Richard

Actually I could kill 3 variables, but this way is more readable.

Then to make it more readable, add StartRadius * StartRadius and visa versa, to another variable :)

SCAR Code:

function PercentBlackMM(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
var
  TPA: TPointArray;
begin
  FindColors(TPA, 65536, MMX1, MMY1, MMX2, MMY2);
  FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY);
  Result := Round((Length(TPA) * 100) / ((Pi * (EndRadius * EndRadius)) * ((EndRadial - StartRadial) / 360.0)-((Pi * (StartRadius * StartRadius)) * ((EndRadial - StartRadial) / 360.0))));
end;

There you go dear, if you like long sums :)

Quote:

Originally Posted by Richard

SCAR Code:

function PercentBlackMM(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
var
  TPA: TPointArray;
begin
  FindColors(TPA, 65536, MMX1, MMY1, MMX2, MMY2);
  FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY);
  Result := Round((Length(TPA) * 100) / ((Pi * (EndRadius * EndRadius)) * ((EndRadial - StartRadial) / 360.0)-((Pi * (StartRadius * StartRadius)) * ((EndRadial - StartRadial) / 360.0))));
end;

There you go dear, if you like long sums :)

Ahh yeah! I love long sums!!

Rep++! :)

06-06-2009, 11:00 PM
Richard

Quote:

Originally Posted by NaumanAkhlaQ

Ahh yeah! I love long sums!!

Rep++! :)

Thanks :)

You're saying you would rather have that complicated thing than the easier to read version? :p
06-07-2009, 10:50 AM
ZephyrsFury
Quote:

Originally Posted by Richard

Thanks :)

You're saying you would rather have that complicated thing than the easier to read version? :p

Complicated things make you seem more 1337. Like in Smart.scar:
SCAR Code:
```
SmartSetup('http://'+prefix+'.runescape.com/', 'plugin.js?param=o0,a' + IntToStr((Integer(not(Signed)) + 1) * Integer(not((SuperDetail and Signed)))) + ',m' + IntToStr(Integer(Members)));
```
06-07-2009, 10:58 AM
ian.

What would this be used for? :o haha
06-07-2009, 06:26 PM
Richard

Quote:

Originally Posted by 99_

What would this be used for? :o haha

Dungeon walking mainly, gets you facing the right direction depending on the amount of black.

I'm currently using it for a FoG script me and ToF are working on.

Quote:
Originally Posted by ZephyrsFury
Complicated things make you seem more 1337. Like in Smart.scar:
SCAR Code:
SmartSetup('http://'+prefix+'.runescape.com/', 'plugin.js?param=o0,a' + IntToStr((Integer(not(Signed)) + 1) * Integer(not((SuperDetail and Signed)))) + ',m' + IntToStr(Integer(Members)));
Thats so funny :p

SCAR Code:

function PercentBlackMMEx(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
var
  TPA: TPointArray;
  A: Integer;
  Area: Extended;
begin
  A := EndRadial - StartRadial;
  FindColors(TPA, 65536, MMX1, MMY1, MMX2, MMY2);
  FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY);
  Area := (Pi * A / 360.0) * (sqr(StartRadius + 0.0) - sqr(EndRadius + 0.0));
  Result := Round(Length(TPA) * 100 / Area) ;
end;

Check my math please, not sure if its accurate.. Factored your equations, dropped some variables. :)

Committed:

SCAR Code:

{*******************************************************************************
function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
By: Richard, and Nava2
Description: Returns the percentage of colour on the minimap section defined by
             StartRadial, EndRadial, StartRadius, and EndRadius.
*******************************************************************************}
function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
var
  TPA: TPointArray;
  A: Integer;
  Area: Extended;
begin
  A := EndRadial - StartRadial;
  FindColorsTolerance(TPA, Colour, MMX1, MMY1, MMX2, MMY2, Tol);
  FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY);
  Area := (Pi * A / 360.0) * (sqr(StartRadius + 0.0) - sqr(EndRadius + 0.0));
  Result := Round(Length(TPA) * 100 / Area) ;
end;

06-07-2009, 11:48 PM
Pure1993

Nice, and grats on getting it into srl ^^
Personally, I preffere to create a circle close to the edge of the MM, and check on which points the MM is black. That way I can get every possible moving option... it's included in my essence miner... :)

Quote:
Originally Posted by Nava2
SCAR Code:
function PercentBlackMMEx(StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
var
  TPA: TPointArray;
  A: Integer;
  Area: Extended;
begin
  A := EndRadial - StartRadial;
  FindColors(TPA, 65536, MMX1, MMY1, MMX2, MMY2);
  FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY);
  Area := (Pi * A / 360.0) * (sqr(StartRadius + 0.0) - sqr(EndRadius + 0.0));
  Result := Round(Length(TPA) * 100 / Area) ;
end;
Check my math please, not sure if its accurate.. Factored your equations, dropped some variables. :)

Committed:
SCAR Code:
{*******************************************************************************
function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
By: Richard, and Nava2
Description: Returns the percentage of colour on the minimap section defined by
             StartRadial, EndRadial, StartRadius, and EndRadius.
*******************************************************************************}
function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer;
var
  TPA: TPointArray;
  A: Integer;
  Area: Extended;
begin
  A := EndRadial - StartRadial;
  FindColorsTolerance(TPA, Colour, MMX1, MMY1, MMX2, MMY2, Tol);
  FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY);
  Area := (Pi * A / 360.0) * (sqr(StartRadius + 0.0) - sqr(EndRadius + 0.0));
  Result := Round(Length(TPA) * 100 / Area) ;
end;
So thats how you square in delphi, I was trying x^y but it doesn't like that syntax.

Thanks for committing it :)

Quote:

Originally Posted by Pure1993

Nice, and grats on getting it into srl ^^
Personally, I preffere to create a circle close to the edge of the MM, and check on which points the MM is black. That way I can get every possible moving option... it's included in my essence miner... :)

If you mean a segment of a circle, I could have a go at some fun maths with that.

http://mathworld.wolfram.com/CircularSegment.html

06-08-2009, 01:31 AM
Home

Hey all.. Isn't this wrong ;)

Code:

{******************************************************************************* function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer; By: Richard, and Nava2 Description: Returns the percentage of colour on the minimap section defined by StartRadial, EndRadial, StartRadius, and EndRadius. *******************************************************************************} function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer; var TPA: TPointArray; A: Integer; Area: Extended; begin A := EndRadial - StartRadial; FindColorsTolerance(TPA, Colour, MMX1, MMY1, MMX2, MMY2, Tol); FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY); Area := (Pi * A / 360.0) * (sqr(StartRadius + 0.0) - sqr(EndRadius + 0.0)); Result := Round(Length(TPA) * 100 / Area) ; end;

Isn't it should be Color

~Home
06-08-2009, 04:31 PM
ZephyrsFury

Quote:

Originally Posted by Home

Hey all.. Isn't this wrong ;)

Code:

{******************************************************************************* function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer; By: Richard, and Nava2 Description: Returns the percentage of colour on the minimap section defined by StartRadial, EndRadial, StartRadius, and EndRadius. *******************************************************************************} function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer; var TPA: TPointArray; A: Integer; Area: Extended; begin A := EndRadial - StartRadial; FindColorsTolerance(TPA, Colour, MMX1, MMY1, MMX2, MMY2, Tol); FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY); Area := (Pi * A / 360.0) * (sqr(StartRadius + 0.0) - sqr(EndRadius + 0.0)); Result := Round(Length(TPA) * 100 / Area) ; end;

Isn't it should be Color

~Home

No 'colour' is proper English, what are you thinking? :eek:
06-08-2009, 04:59 PM
Home

Quote:

Originally Posted by ZephyrsFury

No 'colour' is proper English, what are you thinking? :eek:

Once again.. I feel stupid.. It won't compile Zeph.. Because there is Missing Variable..

Well whatever :(

~Home
06-08-2009, 05:38 PM
Narcle

This is what Home was pointing out:

Code:

{******************************************************************************* function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer; By: Richard, and Nava2 Description: Returns the percentage of colour on the minimap section defined by StartRadial, EndRadial, StartRadius, and EndRadius. *******************************************************************************} function PercentColorMMEx(Color, Tol, StartRadial, EndRadial, StartRadius, EndRadius: Integer): integer; var TPA: TPointArray; A: Integer; Area: Extended; begin A := EndRadial - StartRadial; FindColorsTolerance(TPA, Colour, MMX1, MMY1, MMX2, MMY2, Tol); FilterPointsPie(TPA, StartRadial, EndRadial, StartRadius, EndRadius, MMCX, MMCY); Area := (Pi * A / 360.0) * (sqr(StartRadius + 0.0) - sqr(EndRadius + 0.0)); Result := Round(Length(TPA) * 100 / Area) ; end;

Color <> Colour
06-08-2009, 05:49 PM
Da 0wner

Color > Colour.

But use proper grammar when describing the function and author :(.

Quote:

By: Richard, and Nava2

-> By: Richard and Nava2.
06-08-2009, 09:56 PM
mastaraymond

Patato patato!
06-08-2009, 10:50 PM
Nava2

Quote:

Originally Posted by mastaraymond

Patato patato!

You just failed so hard..

Potato. xD
06-08-2009, 11:20 PM
mastaraymond

Quote:

Originally Posted by Nava2

You just failed so hard..

Potato. xD

Proof me wrong
06-09-2009, 06:14 AM
marpis

Quote:

Originally Posted by mastaraymond

Proof me wrong

http://en.wikipedia.org/w/index.php?...h=patato&go=Go
http://es.wikipedia.org/w/index.php?...h=patato&go=Ir

on the topic: very good function indeed.
06-16-2009, 01:59 PM
ZephyrsFury

There's something wrong with the current function. When its used in PercentBlackMM, the Result is -100. I did some testing. The Area for a full minimap (MinRad = 0, MaxRad = 76, Angles 0 - 360) the area turns out to be 18145.8 something, the actual area is 18163.
06-16-2009, 08:20 PM
Nava2

Hmm, the math is right for sure. I triple checked it. Cos bug maybe?

Show 40 post(s) from this thread on one page