Log in

View Full Version : Finding lobby text



ilklhl1Lihl1
06-05-2012, 01:21 PM
Hey, i am trying to find text in the friends chat

I am not sure if what i am doing is right, can someone help me? :)

program new;

{$i SRL\SRL.simba}
Var
i : string;
begin
SetupSRL
i:= GetTextAt(69,400,4,4,4,5657343,0,1000,FriendChars) ;
writeln(i);
end.

Justin
06-05-2012, 01:24 PM
Hey, i am trying to find text in the friends chat

I am not sure if what i am doing is right, can someone help me? :)

program new;

{$i SRL\SRL.simba}
Var
i : string;
begin
SetupSRL
i:= GetTextAt(69,400,4,4,4,5657343,0,1000,FriendChars) ;
writeln(i);
end.
Would be better if you posted some pictures of the text you are wanting to read.

ilklhl1Lihl1
06-05-2012, 01:28 PM
will do in a sec

ilklhl1Lihl1
06-05-2012, 01:35 PM
http://www.hapshack.com/images/TFnx.png


I want to find the red text, basically what people are saying :)

Abu
06-05-2012, 07:57 PM
Try:

function GetTextAtExWrap(const xs,ys,xe,ye, minvspacing, maxvspacing, hspacing,color, tol: integer;const font: string): string;

If I'm right it's exactly the same - but you can define the colour of the text.

Also, make sure you're getting the font right.

ilklhl1Lihl1
06-05-2012, 10:07 PM
i got this trying all the fonts and on that "red" colour:

r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?
r? ? ?r ?

Le Jingle
06-05-2012, 10:16 PM
It's not red, use:

5657343

* Use the color picker to grab a color of anything, in this case, the chat color of what people are saying in the lobby.

Hazzah
06-05-2012, 10:18 PM
Haha, glad to see that my name is not on there since I often forget I'm in that chat while I bot :P

ilklhl1Lihl1
06-05-2012, 10:28 PM
that's what i used before le jingle

Abu
06-05-2012, 10:31 PM
that's what i used before le jingle

For minspacing, maxspacing and hspacing put 0.

See if that works and if not, change the maxspacing around till it works.

Home
06-05-2012, 10:58 PM
function ReadThatText: String;
var
Box :TBox;
TPA :TPointArray;
begin
FindColors(TPA, clWhite, 70, 381, 672, 400);
Box := GetTPABounds(TPA);
Result := GetTextAtExWrap(Box.X1, Box.Y1, Box.X2, Box.Y2, 0, 3, 4, clWhite, 0, StatChars);
end;

Edit. Sorry. So you wan't Red text? This only reads White text from Bottom line. But just change the color (clWhite, and Coords)


~Home

ilklhl1Lihl1
06-05-2012, 11:25 PM
i'll try it thanks :)