Wrong version
SCAR Code:
Procedure Fm;
var x, y:integer;
Begin
Addtoreport('Finding monsters');
Wait(1000+random(500));//mol1 is color, same with mol2..mol6
if (FindColorTolerance(x, y, Mo1, Msx1, Msy1, Msx2, Msy2, 10000))
or (FindColorTolerance(x, y, Mo2, Msx1, Msy1, Msx2, Msy2, 10000))
or (FindColorTolerance(x, y, Mo3, Msx1, Msy1, Msx2, Msy2, 10000))
or (FindColorTolerance(x, y, Mo4, Msx1, Msy1, Msx2, Msy2, 10000))
or (FindColorTolerance(x, y, Mo5, Msx1, Msy1, Msx2, Msy2, 10000))
or (FindColorTolerance(x, y, Mo6, Msx1, Msy1, Msx2, Msy2, 10000))
then
begin
Addtoreport('found color');
MMouse(x,y,0,0);
if (IsUpTextMultiCustom(['At','Ang'])) and (IsUpTextMultiCustom([Ml1,Ml2,ML3])) then
begin
Inc(cfed);
Mouse(x,y,0,0,False);
ChooseOption('At');
Wait(random(3000));
end;
end else
Ranc;
End;
Right version
SCAR Code:
Procedure Fm;
var x, y:integer;
Begin
Addtoreport('Finding monsters');
Wait(1000+random(500));//mol1 is color, same with mol2..mol6
if (FindColorTolerance(x, y, Mo1, Msx1, Msy1, Msx2, Msy2, 10))
or (FindColorTolerance(x, y, Mo2, Msx1, Msy1, Msx2, Msy2, 10))
or (FindColorTolerance(x, y, Mo3, Msx1, Msy1, Msx2, Msy2, 10))
or (FindColorTolerance(x, y, Mo4, Msx1, Msy1, Msx2, Msy2, 10))
or (FindColorTolerance(x, y, Mo5, Msx1, Msy1, Msx2, Msy2, 10))
or (FindColorTolerance(x, y, Mo6, Msx1, Msy1, Msx2, Msy2, 10))
then
begin
Addtoreport('found color');
MMouse(x,y,0,0);
if (IsUpTextMultiCustom(['At','Ang'])) and (IsUpTextMultiCustom([Ml1,Ml2,ML3])) then
begin
Inc(cfed);
Mouse(x,y,0,0,False);
ChooseOption('At');
Wait(random(3000));
end;
end else
Ranc;
End;