Sir R. M8gic1an
2009-12-11 10:09:50
// * Procedure MakeObjEx(Index, MyColor, MyTol: integer; MyHue, // * by Rasta Magician
// * MySat: extended; MyUpTexts, MyOptions: TStringArray); //
// * Procedure SetupSmartColorsDetailsEx(Index, ColorMin, ColorMax, // * by Rasta Magician
// * MaxColors, BoxSize, Tol, Dist, ClickStyle, R_RL_Chance: integer); //
// * Function SmartColorsEx(Index: integer): boolean; // * by Rasta Magician
Following several suggestions and much discussion, a week or so SmartColorsEx was put in OpenDev although I didn't have the time to write this post.
SmartColorsEx, along with it's setup functions take an index, meaning that they directly access the array, greatly increasing the speed as it does not need to case it. It also checks for wrong indexes and so on. Enjoy :)
Changes are still being made to SmartColors as I stress test it with my up and coming guildminer.
~RM