SRL Archive - RS3 Script Requests

A quick script that calculates HSL mods, tolerance, and the best color of a given TIntegerArray (CTS 2 Obviously) like ACA does would be awesome. I could probably do it if I saw the source on ACA but I have no idea where that is :p

I'm 90% sure MastaRaymond made something like this a long long time ago. Try searching through the threads he's made or something like that.

Check color.scar in srl core

Pretty sure those don't work.

program new;
{$i SRL\SRL.scar}


var
  Colors: TIntegerArray;

procedure MainLoop;
var
  BestColor, Tol: Integer;
  Mods: TExtendedArray;
begin
  ClearDebug;
  Colors := [1384346, 1450139, 1450140, 1384346, 1450139, 1450140];
  GetBestColor(Colors, 1, Tol, Mods);
  writeln('Best Color: ' + ToSTr(BestColor) + '; Tol: ' + ToStr(Tol) + '; Mods: ' + ToStr(Mods));
end;


begin
  MainLoop;
end.  

Output:

Best Color: 0; Tol: 2; Mods: []
Successfully executed.

It would be helpful to assign the result of GetBestColor to BestColor.

From: Method
It would be helpful to assign the result of GetBestColor to BestColor.

Most helpful indeed, padawan. This would have saved me MINUTES of plugging things into ACA :p Good to know it was me and not the function.