[OSI2][RS07] Map done. MMDotFunctions. Other minor revisions.

[Wanted]

https://github.com/OfficialSCARInclude/OSI2/commit/78582da9b3fcebf72eebed8bfe49428f0d2f10d2

 

[sCAR]cldWhiteDot = 1907997; // December 8, 2011 Wanted 688

cldYellowDot = 4369; // December 8, 2011 Wanted 688

cldRedDot = 29; // March 14, 2013 Wanted ???

cldGreenDot = 4352; // March 14, 2013 Wanted ???

cldBlueDot = 3412992; // March 15, 2013 Wanted ???[/sCAR]

 

White and yellow have been the same forever lol, updated those other 3. Those are all I know of. Purple/Orange (clan dots?) aren't in RS07 AFIAK.

 

[sCAR] * function FindMMDotsEx(ColorDiffs: TIntArray): T2DPointArray;

By: Wanted

* function FindMMDots(cldDot: Integer): TPointArray;

By: Wanted

* function CountMMDotsEx2(ColorDiffs: TIntArray): TIntArray;

By: Wanted

* function CountMMDotsEx(ColorDiffs: TIntArray): Integer;

By: Wanted

* function CountMMDots(cldDot: Integer): Integer;

By: Wanted[/sCAR]

 

[sCAR]{$DEFINE RS07}

//{$DEFINE SMART}

{$DEFINE OSI_RS07_Color_Anti_Randoms}

 

{$I OSI\OSI.scar}

{$I OSI\Divi\Misc\Debug.scar}

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

var

T: LongInt;

ATPA: T2DPointArray;

 

begin

SetUpOSI;

T := GetSystemTime;

ATPA := FindMMDotsEx([cldWhiteDot, cldYellowDot, cldRedDot]); // 47 ms

WriteLn(GetSystemTime - T);

DebugATPA(ATPA);

end.[/sCAR]

 

 

It uses the new function in bitmap.scar

 

[sCAR] * function FindBitmapColorTPAEx(var TPA: TPointArray; Color: LongInt; bmp: TSCARBitmap; SearchTPA: TPointArray): Boolean;

By: Wanted[/sCAR]

 

Also new Login template

 

[sCAR]program New;

 

{$DEFINE RS07} // V - Bright Settings

{$DEFINE SMART} // Comment out to use normal browser

{$DEFINE OSI_RS07_Color_Anti_Randoms}

 

{$I OSI\OSI.scar}

 

procedure DeclarePlayers;

var

I, H: LongInt;

begin

SetLength(Players, 2);

H := High(Players);

for I := 0 to H do

begin

SetLength(Players.Booleans, 1);

SetLength(Players.Integers, 1);

end;

with Players[0] do

begin

Name := 'Zezima'; // Username

Pass := 'runescape4life'; // Password

Pin := '0000'; // Bank pin

Loc := 'Not logged in yet';

LampSkill := Skill_Runecrafting; // Genie Lamp

World := 11; // World to use

Integers[0] := 1000; // How many trips?

Booleans[0] := True; // Use pickaxe?

Active := True; // Player enabled?

end;

with Players[1] do

begin

Name := 'Sumoi'; // Username

Pass := 'frunescape'; // Password

Pin := '0911'; // Bank pin

Loc := 'Not logged in yet';

LampSkill := Skill_Smithing; // Genie Lamp

World := 11; // World to use

Integers[0] := 1000; // How many trips?

Booleans[0] := False; // Use pickaxe?

Active := True; // Player enabled?

end;

end;

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

begin

SetUpOSI;

DeclarePlayers;

Login;

SetCompassAngleAndHeight(Dir_North, True);

end.[/sCAR]

 

Updates will probably be small and more frequent now. If you want me to consider something for RS07 suggesting it will help raise it's priority in my todo list.

 

Thanks again

Edited March 16, 2013 by Wanted

[ScreamingIsMyAir]

Perfect! Keep 'em coming!

[Janilabo]

Yeah, nice work James! Really impressive results. O_o

Perfectly picking up the dots from minimap!

[Wanted]

Overlap detection doesn't work in RS07 because the dots behave differently so I removed that code and doubled the speed down to about 47 ms

 

https://github.com/OfficialSCARInclude/OSI2/commit/ecc51defc4b62483bd4499e628b76dfbb6251d2f

[slacky]

The results of MMDot-finding looks good!!

Funny that you got that partial dot up in the top.. I might have a look at the source, might be able to get a few ideas.

[BryceTheCoder]

Yeah! Login niiiice:)