Sorted, sorry to all who spent there time trying to fix it, to find it was purely a bad browser...
I have this problem with a fletching function I'm making, where it activates the client fine, but doesn't move the mouse anywhere (like it should do by the coords defined).
SCAR Code:
program New;
{.include SRL/SRL.scar}
{*******************************************************************************
Function FletchingInterface: Boolean;
By: Richard
Description: Returns true if the fletching interface is in the chatbox
*******************************************************************************}
Function FletchingInterface: Boolean;
Begin
Result := (GetColor(370, 462) = 0) or (GetColor(421, 446) = 0);
end;
{*******************************************************************************
Function: MakeBow(BowType: String; Amount: Integer): Boolean;
By: Richard
Description: Clicks on the correct bow, and makes the desired amount
*******************************************************************************}
Function MakeBow(BowType: String; Amount: Integer): Boolean;
Var
BoxPoint: TPoint;
Begin
If not(FletchingInterface) then
Exit;
BoxPoint.y := 415;
Begin
If (GetColor(80, 408) = 734808) then
Begin
Case lowercase(BowType) of
'arrow shafts' : BoxPoint.x := 75;
'short bow' : BoxPoint.x := 197;
'long bow' : BoxPoint.x := 317;
'crossbow stock' : BoxPoint.x := 437;
else
srl_Warn('MakeBow', BowType+ ' is not a valid bow type', warn_AllVersions);
end;
end else
Begin
Case lowercase(BowType) of
'short bow' : BoxPoint.x := 109;
'long bow' : BoxPoint.x := 260;
'crossbow stock' : BoxPoint.x := 406;
else
srl_Warn('MakeBow', BowType+ ' is not a valid bow type', warn_AllVersions);
end;
end;
end;
Mouse(BoxPoint.x, BoxPoint.y, 10, 10, False);
If InStrArr(IntToStr(Amount), ['1', '5', '10'], True) Then
Result := ChooseOption('ake ' + IntToStr(Amount))
else
Begin
Result := ChooseOption('ake X');
TypeSend(IntToStr(Amount));
end;
end;
begin
SetupSRL;
ActivateClient;
Wait(3000);
MakeBow('short bow', 1);
end.
Thanks all.