SCAR Code:
Procedure FightMonster;
Var
FightTime: integer;
Begin
FindRandoms;
AntiBan;
MarkTime(FightTime);
Begin
If FindColorTolerance(x, y, StrToInt(Color1.Text), MSX1, MSY1, MSX2, MSY2, 15) Or
FindColorTolerance(x, y, StrToInt(Color2.Text), MSX1, MSY1, MSX2, MSY2, 15) Or
FindColorTolerance(x, y, StrToInt(Color3.Text), MSX1, MSY1, MSX2, MSY2, 15) Then
Begin
IsUpText('tack')
Repeat
Mouse(x, y, 1, 1, False)
ChooseOption('tack')
Until Not(InFight) or (TimeFromMark(FightTime)) > (MaxKillTime);
End;
End;
End;
im sure time is an integer