SRL Archive - SRL Archives

I don't know if this is fixed official or not, but i have a fix (I think)


the new ratio are
723980
1316631
2105376
3026735
between rock color and other rock colors


making FindRockColor

{*******************************************************************************
function FindRockColor: Integer;
By: Tarajunky
Description: Autodetecs Rock (Gray) Color on Minimap
*******************************************************************************}

function FindRockColor: Integer;
var
  GC, a, l, TestColor: integer;
var
  P:array of Tpoint;
begin
  GC := 6444639;
  Flag;
  FindColorsSpiralTolerance(MMCX,MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 75);
  l:=GetArrayLength(P);
  for a:= 0 to l-1 do
  begin
    TestColor := GetColor(P[a].x,P[a].y);
    if (GetColor(P[a].x-1,P[a].y)=TestColor-723980) then
    begin
      Result := TestColor;
      WriteLn('Rock Color = ' + IntToStr(TestColor));
      Exit;
    end;
  end;
  WriteLn('Could not find Rock Color!');
  Result := 0;
end;

I included a little tool that takes colors out of the debug box and find the difference between every odd and even number (1-2) (3-4) (5-6) as well as some pictures of rocks

I used a lot of my first member script attempt(takes colors from debug box and converts to DDTM) for this, so take that to everyone who thought i sucked back then

why not use AC for rocks?
i always wondered :P?

this is pretty reliable and it only changes when they update and that's not that often, so this works well, and it's easy to test