Naum I couldn't get yours to work so here:
SCAR Code:
Function ShopScreen : Boolean;
Begin
Result := FindTextTPA(2070783, 10, 58, 303, 85, 317, 'Right', StatChars, Nothing);
End;
Tested with:
SCAR Code:
program New;
{.include SRL/SRL.scar}
Function N_ShopScreen : Boolean;
Begin
Result := FindTextTPA(2070783, 10, 58, 303, 85, 317, 'Right', StatChars, Nothing);
End;
begin
SetUpSRL;
ActivateClient;
if N_ShopScreen then
Writeln('yeeuhh');
end.
Output:
SCAR Code:
New client targeted
Successfully compiled (2062 ms)
SRL Compiled in 15 msec
yeeuhh
Successfully executed