Here's one that should work:
SCAR Code:
program Autoshoot;
const
AlliedColor = 65535;
AxisColor = 16776960;
procedure Chill;
Begin
Wait(1000);
end;
Procedure AimAxis; Forward;
Procedure AimAllies; Forward;
procedure ReAimAxis;
begin
Wait(200+random(500));
AimAxis;
end;
procedure ReAimAllies;
begin
Wait(200+random(500));
AimAllies;
end;
procedure AimAxis;
Var
x, y : Integer;
Begin
if(FindColor(x,y,AlliedColor,0,0,1024,678)) then
begin
ClickMouse(x,y,true);
Writeln('Shot.');
ReAimAxis;
end else
ReAimAxis;
end;
procedure AimAllies;
Var
x, y : Integer;
Begin
if(FindColor(x,y,AxisColor,0,0,1024,678)) then
begin
ClickMouse(x,y,true);
Writeln('Shot.');
ReAimAllies;
end else
ReAimAllies;
end;
begin
Repeat
if IsFKeyDown(2)then
begin
Writeln('F2 Pushed, Started Aiming Allies Side');
ReAimAllies;
end;
if IsFKeyDown(3)then
begin
Writeln('F3 Pushed, Started Aiming Axis Side');
ReAimAxis;
end;
if IsFKeyDown(4)then
begin
Writeln('F4 Pushed to Stop Script');
Chill;
end;
Until(IsFkeyDown(6))
end.
Ps, can I get a link?
~Sandstorm