PercentBlackMM

**Richard** · 06-06-2009, 09:39 PM

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;

**Naum** · 06-06-2009, 09:46 PM

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.

**Richard** · 06-06-2009, 09:48 PM

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.

**Naum** · 06-06-2009, 09:51 PM

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

**Richard** · 06-06-2009, 10:01 PM

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

**Naum** · 06-06-2009, 10:02 PM

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++!

**Richard** · 06-06-2009, 11:00 PM

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?

**ZephyrsFury** · 06-07-2009, 10:50 AM

Originally Posted by Richard

Thanks

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

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)));

**ian.** · 06-07-2009, 10:58 AM

What would this be used for?

haha

**Richard** · 06-07-2009, 06:26 PM

Originally Posted by 99_

What would this be used for?

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.

**MylesMadness** · 06-07-2009, 09:03 PM

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

**Nava2** · 06-07-2009, 09:04 PM

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;

**Pure1993** · 06-07-2009, 11:48 PM

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...

**Richard** · 06-08-2009, 12:34 AM

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

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

**Home** · 06-08-2009, 01:31 AM

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

**ZephyrsFury** · 06-08-2009, 04:31 PM

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?

**Home** · 06-08-2009, 04:59 PM

Originally Posted by ZephyrsFury

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

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

Well whatever

~Home

**Narcle** · 06-08-2009, 05:38 PM

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

**Da 0wner** · 06-08-2009, 05:49 PM

Color > Colour.

But use proper grammar when describing the function and author

.

By: Richard, and Nava2

-> By: Richard and Nava2.

**mastaraymond** · 06-08-2009, 09:56 PM

Patato patato!

**Nava2** · 06-08-2009, 10:50 PM

Originally Posted by mastaraymond

Patato patato!

You just failed so hard..

Potato. xD

**mastaraymond** · 06-08-2009, 11:20 PM

Originally Posted by Nava2

You just failed so hard..

Potato. xD

Proof me wrong

**marpis** · 06-09-2009, 06:14 AM

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.

**ZephyrsFury** · 06-16-2009, 01:59 PM

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.

**Nava2** · 06-16-2009, 08:20 PM

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

Thread: PercentBlackMM

Thread Tools

PercentBlackMM

Thread Information

Users Browsing this Thread

Posting Permissions