Why won't this find my text.

[NexPB]

Title.

function FindInstruction: String;
Var
box: TBox;
begin
box := IntToBox(207, 37, 309, 54);
SMART_DrawBox(box);

if (FindTextTPA(clWhite, 20, box.X1, box.Y1, box. X2, box.Y2, 'Helm', SmallChars, nothing)) then
begin
Writeln('Found instrcution.');
Result := 'helm';
end else
if (FindTextTPA(clWhite, 20, box.X1, box.Y1, box. X2, box.Y2, 'Boots', SmallChars, nothing)) then
begin
Writeln('Found instrcution.');
Result := 'boots';
end else
if (FindTextTPA(clWhite, 20, box.X1, box.Y1, box. X2, box.Y2, 'Chestplate', SmallChars, nothing)) then
begin
Writeln('Found instrcution.');
Result := 'body';
end else
if (FindTextTPA(clWhite, 20, box.X1, box.Y1, box. X2, box.Y2, 'Gauntlets', SmallChars, nothing)) then
begin
Writeln('Found instrcution.');
Result := 'gaunts';
end else
Exit;

end;

[Brandon]

Well firstly, your asking it to find text in a box.. Is this text visible to your eyes? If not, it won't find it.. you might have to move the mouse over each item and find the uptext.. OR right click each one so the text shows.. FindText TPA can only find text that you can see.

Check out some functions like IsXPBarOpen, GetChooseOptions, etc..

[NexPB]

Well firstly, your asking it to find text in a box.. Is this text visible to your eyes? If not, it won't find it.. you might have to move the mouse over each item and find the uptext.. OR right click each one so the text shows.. FindText TPA can only find text that you can see.

Check out some functions like IsXPBarOpen, GetChooseOptions, etc..
As you can see I made it draw a box the box is exactly around the text :s

[Brandon]

As you can see I made it draw a box the box is exactly around the text :s

I think you misunderstood.. regardless if it has the box, the text MUST be visible to your eyes.. if you cannot see it, how can the script see it? Screenshot the text your trying to find only then can we know what the script/you are seeing and be able to help further.

[NexPB]

I think you misunderstood.. regardless if it has the box, the text MUST be visible to your eyes.. if you cannot see it, how can the script see it? Screenshot the text your trying to find only then can we know what the script/you are seeing and be able to help further.
I do see the text let me upload a picture in a sec.

edit:

http://i44.tinypic.com/dzi35x.png

[NexPB]

Someone can help me on this ?:p

[NexPB]

Bump.

[Kyle Undefined]

Are you sure it's the SmallChars? Have you tried other fonts?

[NexPB]

Are you sure it's the SmallChars? Have you tried other fonts?
Yes, cause its the same type I used before to check if the thingy was open to take bars.

edit: Would the size matter? cause its samller than other fonts.

[Zee Best]

Yes, cause its the same type I used before to check if the thingy was open to take bars.

edit: Would the size matter? cause its samller than other fonts.

I'm guessing the way that this program uses OCR is by having the characters and then finding key points etc, so, the size would matter.

[Brandon]

Sorry for the late reply bro.. Never saw the thread again until now..


{$I SRL/SRL.Simba}

Function GetItems: String;
begin
Result:= GetTextAtExWrap(423, 337, 525, 352, 0, 5, 2, 16777215, 5, StatChars);
end;

begin
writeln(GetItems); //Will print Gauntlets..
end.


Change the [423, 337, 525, 352] to the right location.. I went off the bitmap u supplied and it worked.. so it will work for anything else.. To do matching, just do if GetItems = 'Gauntlets' then...

OR THE BEST WAY to do matching is with a RegExpression such as below:


{$I SRL/SRL.Simba}

Function GetItems: String;
begin
Result:= GetTextAtExWrap(423, 337, 525, 352, 0, 5, 2, 16777215, 5, StatChars);
end;

begin
writeln(GetItems); //Will print Gauntlets..

if ExecRegExpr('auntlet', GetItems) then
writeln('Found Gauntlets');
end.

[Kyle Undefined]

Knew it was the font, StatChars :p

[KeepBotting]

Use Safemode..

[NexPB]

Sorry for the late reply bro.. Never saw the thread again until now..


{$I SRL/SRL.Simba}

Function GetItems: String;
begin
Result:= GetTextAtExWrap(423, 337, 525, 352, 0, 5, 2, 16777215, 5, StatChars);
end;

begin
writeln(GetItems); //Will print Gauntlets..
end.


Change the [423, 337, 525, 352] to the right location.. I went off the bitmap u supplied and it worked.. so it will work for anything else.. To do matching, just do if GetItems = 'Gauntlets' then...

OR THE BEST WAY to do matching is with a RegExpression such as below:


{$I SRL/SRL.Simba}

Function GetItems: String;
begin
Result:= GetTextAtExWrap(423, 337, 525, 352, 0, 5, 2, 16777215, 5, StatChars);
end;

begin
writeln(GetItems); //Will print Gauntlets..

if ExecRegExpr('auntlet', GetItems) then
writeln('Found Gauntlets');
end.


Thanks.


Knew it was the font, StatChars :p
Haha soz bro ;p