here's my procedure
SCAR Code:
Procedure KillDaCow;
var
p,z,highest,hp: integer;
C: Tpoint;
Cow: TPointArrayArray;
Colors:TPointArray;
Color: array[0..3] of integer;
begin
Color[0] := 3755605;
Color[1] := 5331046;
Color[2] := 8685966;
Color[3] := 6321550
repeat
for p := 0 to 2 do
begin
FightSetup;
if FindColorsTolerance(Colors,Color[p],MSX1,MSY1,MSX2,MSY2,8)then
begin
if length(Colors) > 0 then
begin
Cow := SplitTPAEx(Colors,50,50);
Highest := High(cow);
for p:=0 to highest do
begin
If Length(cow[p]) >= 12 then
begin
C := MiddleTPA(Cow[p]);
if (not(UnderAttack(c.x,c.y))) then
begin
if (c.x <> 0) and (c.y <> 0) then
begin
MMouse(c.x,c.y,10,10);
Wait(97 + random(100));
if isuptext('ttack Cow') then
begin
Mouse(c.x,c.y,10,10,false);
if ChooseOption('ttack') then
begin
FastFlag;
wait2(400+random(500),false);
markTime(z)
if InFight then
begin
repeat
if (not(loggedin)) then exit;
FindNormalRandoms;
AntiBan;
Hp:=HpPercent;
if (Hp > 0) and (Hp < 50) then
begin
runaway('n',true,2,random(5000));
logout;
Proggy;
nextplayer(false);
Exit;
end;
If TimeFromMark(p) >= 15000 then break;
until(not(InFight));
while TimeFromMark(z) < 3000 + random(2000) do
begin
AntiBan;
FindNormalRandoms;
end;
CowsKilled := CowsKilled + 1;
Players[currentplayer].integers[5] := Players[currentplayer].integers[5] + 1;
Collecthide;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
Until(InvFull);
end;
okay, what i need help with is i also have this procedure called YellowDot;
for when it doesn't find a cow it will click on the yellowDot on the minimap.
but i don't know where to put it for it to only happen when it can't find any color, not just one of my four