SCAR Code:
procedure KillChickens;
var
Tx, Ty, Ttx, Tty, I: Integer;
TempResult: Boolean;
begin
If (not(loggedin)) then LoginPlayer
Tx:= Random(MSX2);
Ty:= Random(MSY2);
Tried:= 0
FindRandoms;
repeat
for I:= 1 to 6 do
case I of
1: if FindColorSpiralTolerance(Tx, Ty, ChickenColor1, MSX1, MSY1, MSX2, MSY2, 4)then
begin
TempResult:= True;
Ttx:= Tx;
Tty:= Ty;
if(Random(5) = 1)then
break;
end;
2: if FindColorSpiralTolerance(Tx, Ty, ChickenColor2, MSX1, MSY1, MSX2, MSY2, 4)then
begin
TempResult:= True;
Ttx:= Tx;
Tty:= Ty;
if(Random(5) = 1)then
break;
end;
3: if FindColorSpiralTolerance(Tx, Ty, ChickenColor3, MSX1, MSY1, MSX2, MSY2, 4)then
begin
TempResult:= True;
Ttx:= Tx;
Tty:= Ty;
if(Random(5) = 1)then
break;
end;
4: if FindColorSpiralTolerance(Tx, Ty, ChickenColor4, MSX1, MSY1, MSX2, MSY2, 4)then
begin
TempResult:= True;
Ttx:= Tx;
Tty:= Ty;
if(Random(5) = 1)then
break;
end;
5: if FindColorSpiralTolerance(Tx, Ty, ChickenColor5, MSX1, MSY1, MSX2, MSY2, 4)then
begin
TempResult:= True;
Ttx:= Tx;
Tty:= Ty;
if(Random(5) = 1)then
break;
end;
6: if FindColorSpiralTolerance(Tx, Ty, ChickenColor6, MSX1, MSY1, MSX2, MSY2, 4)then
begin
TempResult:= True;
Ttx:= Tx;
Tty:= Ty;
if(Random(5) = 1)then
break;
end;
end;
if(TempResult)then
MMouse(Ttx,Tty,3,3)
Tried:= Tried + 1;
if (Tried>Tries) then
begin
Writeln('Could not find a chicken')
NextPlayer(False);
end;
Wait(100+random(100));
until (IsUpTextMulti('Attack', 'tac', 'Chicken'))
if(TempResult)then
Mouse(Ttx, Tty, 1, 1, True)
FindRandoms;
NoBan;
Wait(1000+random(250));
if (InFight) then
begin
OutFight;
ChickensKilled:= ChickensKilled + 1;
ReportVars[0] := ReportVars[0] + 1;
ReportVars[2] := ReportVars[2] + 12;
end;
end;
Try that. I made it not always break.