SCAR Code:
{*************************************************************************************************
SetRunEx
By: Tv-XxX, modded by MasterKill
Description: Only Runs If Run Amount Is Greater Than Choosen
eg. SetRunEx('med') Will Only Run If Run % Is Greater Than 50
Amount Can Be ... 'low', 'med' or 'high'
*************************************************************************************************}
Procedure SetRunEx2(Amount: String);
Var
Tx, Ty : Integer;
Begin
Case Lowercase(Amount) Of
'high': If FindColorTolerance(Tx, Ty, 65280, 743, 105, 756, 116, 4) Then
SetRun(True);
'med': If FindColorTolerance(Tx, Ty, 65535, 743, 105, 756, 116, 4)
Or FindColorTolerance(Tx, Ty, 65280, 743, 105, 756, 116, 4) Then
SetRun(True);
'low': If FindColorTolerance(Tx, Ty, 255, 743, 105, 756, 116, 4)
Or FindColorTolerance(Tx, Ty, 2070783, 743, 105, 756, 116, 4)
Or FindColorTolerance(Tx, Ty, 65535, 743, 105, 756, 116, 4)
Or FindColorTolerance(Tx, Ty, 65280, 743, 105, 756, 116, 4) Then
SetRun(True);
End;
End;