Tniffoc
2009-05-28 00:05:10
After the runescape update, FFlag was broken. This is an ALPHA fix. It works with the flag colors that are currently there. If this color turns out to not be static, I"ll go and change it to an autocolor. AFAIK, it is static though. Anyway.. here is the fix.
{*******************************************************************************
function FFlag(Dist: Integer): Boolean;
By: Wizzup? / WT-Fakawi / ZephyrsFury recent fix by Tniffoc
Description: Waits until Flag is within "Distance" distance.
*******************************************************************************}
function FFlag(Dist: Integer): Boolean;
var
Tx, Ty, M, D1, D2: Integer;
begin
Result := False;
M := GetSystemTime;
while (FindColor(Tx, Ty, 9764763, MMX1, MMY1, MMX2, MMY2)) do
begin
D1 := Distance(Tx + 1, Ty + 15, MMCX, MMCY);
if (D1 <= Dist) then
begin
Result := True;
Exit;
end;
Wait(100);
if (GetColor(6, 6) <> 16777215) then
if (GetSystemTime - M > 5000) then
begin
if (D1 = D2) then Exit;
D2 := D1;
M := GetSystemTime;
end;
if (Random(20) = 0) then IdleTime(500, 1000, 0.01);
if SRL_Procs[SRL_AntiBan] <> nil then
SRL_Procs[SRL_AntiBan]();
end;
Wait(RandomRange(200, 400));
end;