NicBaz, Can you read the script first?
SCAR Code:
Program FeatherFinder;
Const
FeatherColor = 12303556;
Procedure GetFeathers;
Var
x,y,Counter: Integer;
Stopper: Boolean;
Begin
FindColorTolerance(x,y,FeatherColor,8,10,515,336,30);
MMouse(x,y,5,5); //MMouse or Mouse, not the SCAr ones. The Srl ones.
if Isuptext('eather') then //if the uptext is feather
begin
Mouse(x,y,5,5,false); //Rightclick
Chooseoption('eather'); //Chooseoption
end;
{ Stopper:=False;
Repeat
Wait(5000) //Stopper will never become true, so it just waits.
Until(Stopper=True)}
Flag;
wait(1000 + random(250));
End;
Begin
MoveToTray;
ActivateClient;
Repeat
GetFeathers;
until(isfkeydown(11))
End.
End;
WriteIn ('FeatherFinder started.')
WriteIn (FeatherCount) //?