Looks pretty good, although I haven't tested it yet. Only suggestion that I have is to change this:
SCAR Code:
Procedure GetDuel;
Begin
Repeat
TypeSend('Funning all');
If (Duel) Then Break;
Until(FindColorTolerance(x,y,12926,MCX1,MCY1,MCX2,MCY2,1))
End;
To something like this:
SCAR Code:
Function FunDuel : Boolean;
Var
RandomDuel : Integer;
DuelMsg : String;
Begin
RandomDuel:= random(6)+1;
Case(RandomDuel)Of
0 : DuelMsg:= ('funning all!');
1 : DuelMsg:= ('fun dueling');
2 : DuelMsg:= ('funning everyone!!!');
3 : DuelMsg:= ('dueling for fun!');
4 : DuelMsg:= ('funning!');
5 : DuelMsg:= ('funning anyone!');
End;
TypeSend(DuelMsg);
Result:= True;
End;
^ All this is doing is making your sentences random that you say. This is better for the user to not get banned (as easily) at least.
But other than that, I don't see why you couldn't make this into a pretty nice script. Good Job!