SCAR Code:
if FindFight then
Begin
x := MMCX;
y := MMCY;
case Lowercase(Players[CurrentPlayer].Strings[3]) of
'n', 'north' : Begin
Mouse(x, y - 50, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x, y + 50, 0, 0, true);
Flag;
end;
'ne', 'north east': Begin
Mouse(x + 50, y - 50, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x - 50, y + 50, 0, 0, true);
Flag;
end;
'e', 'east' : Begin
Mouse(x + 50, y, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x - 50, y, 0, 0, true);
Flag;
end;
'se', 'south east' : Begin
Mouse(x + 50, y + 50, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x - 50, y - 50, 0, 0, true);
Flag;
end;
's', 'south' : Begin
Mouse(x, y + 50, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x, y - 50, 0, 0, true);
end;
'sw', 'south west' : Begin
Mouse(x - 50, y + 50, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x + 50, y - 50, 0, 0, true);
end;
'w', 'west' : Begin
Mouse(x - 50, y, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x + 50, y, 0, 0, true);
end;
'nw', 'north west' : Begin
Mouse(x - 50, y - 50, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x + 50, y + 50, 0, 0, true);
end;
else
Begin
Mouse(x, y + 50, 0, 0, true);
Wait(7000 + random(3500));
Mouse(x, y - 50, 0, 0, true);
end;
end;
end;