rj
2013-08-19 20:18:48
So I am attempting to get the Uptext (RSPS) using GetTextATPA:
It is returning nothing.. yes the font is correct and here is the debug:

Am I doing something wrong?
{$I SRL/SRL.Simba}
{$i SRL/srl/misc/debug.simba}
var
BMP:Integer;
function getText:T2DPointArray;
var
TPA:TPointArray;
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.21, 1.29);
FindColorsTolerance(TPA, 13625361, 6, 7, 199, 21, 10);
ColorToleranceSpeed(1);
SetColorSpeed2Modifiers(0.02, 0.02);
if (Length(TPA) > 0) then
begin
// Writeln(length(TPA));
result := TPAToATPAEx(TPA2, 200, 13);
DebugTPA(TPA, 'bmp');
end;
end;
function t_getUpText:string;
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.21, 1.29);
ColorToleranceSpeed(1);
SetColorSpeed2Modifiers(0.02, 0.02);
result := GetTextATPA(getText, 0, 'ssupchars');
end;
begin
wait(1500);
Writeln(t_getuptext);
end.It is returning nothing.. yes the font is correct and here is the debug:

Am I doing something wrong?
