SRL Archive - Help

Finding lobby text


ilklhl1Lihl1

2012-06-05 09:21:31

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

2012-06-05 09:24:25

From: ilklhl1Lihl1
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

2012-06-05 09:28:23

will do in a sec

ilklhl1Lihl1

2012-06-05 09:35:12



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

Abu

2012-06-05 15:57:14

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

2012-06-05 18:07:28

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

2012-06-05 18:16:57

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

2012-06-05 18:18:23

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

2012-06-05 18:28:51

that's what i used before le jingle

Abu

2012-06-05 18:31:18

From: ilklhl1Lihl1
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

2012-06-05 18:58:28

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

2012-06-05 19:25:01

i'll try it thanks :)