SRL Archive - SRL Archives

I noticed that SRL has no function for getting the name of a sender of some message.

I remember I had an attempt for this in my Program Files\SCAR 2.03\ in some script which never ended up released.

Anyways, now it works perfectly, and clears the ' : ' out of the end of the name.

So, returns only the name, and in its original caption.

Behold -

{*************************************************]
[ Function GetMessageChatter(Msg: String): String ]
[ By: n3ss3s                                      ]
[ Description: If finds the message Msg in the    ]
[ chatbox, returns who sent it.                   ]
[*************************************************}

Function GetMessageChatter(Msg: String): String;
Var
  X, Y: Integer;
Begin
  If (FindText(X, Y, Msg, Smallchars, MCX1, MCY1, MCX2, MCY2)) Then
    Result := Replace(GetTextAtEx(10, y, 5, SmallChars, False, False, 0, 0,
      0, 50, False, tr_allChars), ':', '');
End;

Simple isn't it, but works even better :)

Also, it is SantySafe which means that Santa_Clause has no hope of shortening it =]

I made one for that more than 2 months ago for JackLKrawls Air Runner. He never got around to using it, though.

This is great for autoresponders. And when we are talking about them, I may aswell say that I'm thinking of making a giant one. I have nothing to do ATM anyways :p

-Knives

Nah, make something leeter, do something with DTMs never seen before in SRL's history :p

But I'm warning you, not that I want to ruin the party, but a huge autoresponder takes a lot effort, but it won't be used so much.

Though JuKKa's ChatBoxRespond was a hit obviously…

But, if you like to do stuff with text, only SKy is the limit :)

Is SKy Scripter good with Text? I always though he was that guy who made SCARounter SRLStrike in forms :P

-Knives

Sorry, TYPO, I meant sky lol, used to type SKy -.-


Hey btw, do you have a link for SCARounter SRLStrike?

Use GetTextAtEx with color -1? Then copy(0, to pos(':') )?

The GetTextAtEx part doesn't need the -1 yet, waiting the moment when the multicoloured names come to rs :)

Admit it, my way is atleast as good as yours, your function would use 3 functions in the Result := part, mine has two :)

:p I won :)

SCARounter SRLStrike is not a game :p I just made that up, lol.

And my way was exactly like yours, except that it was 10 times better, lol :P

-Knives

From: n3ss3s
The GetTextAtEx part doesn't need the -1 yet, waiting the moment when the multicoloured names come to rs :)

Admit it, my way is atleast as good as yours, your function would use 3 functions in the Result := part, mine has two :)

:p I won :)

FindBitmapMaskTolerance is very slow. ;)

EDIT: I would only use 2 lines. Maybe just 1…

How?

GetTextAtEx, Copy and Pos.

= 3 :)

Also, then what would you use for the finding of the text?
GetTextAtEx for every line? (not a bad idea btw, if its faster)

Result := Copy(GetTextAtEx, 1, Pos());

S := ?

From: n3ss3s
S := ?

There. Fixed. ;)

-.-

You use three functions there, I didn't say you are using three functions separated…

But, how is that better in any way than mine?

Is Copy 0.000000001 ms faster? :p

You use a bitmap and then get the text.
I just get ALL the text, limit it by, say, size 20. Do a pos ':', and copy everything from 1(start string) to that pos…

If you do GetTextAtEx with MCX1, MCY1 I don't think it gives you all the text in the chat box does it?

And what if it does, you can't get the X and Y of the text you found with the string functions which doesn't then allow you to get the right Y for the name :)

From: n3ss3s
If you do GetTextAtEx with MCX1, MCY1 I don't think it gives you all the text in the chat box does it?

And what if it does, you can't get the X and Y of the text you found with the string functions which doesn't then allow you to get the right Y for the name :)

What was the point of your function.. getting the name right? Then just use GetBlackChatMessages…

cool idea

now our auto responders can actually people's names!

Yeah, like

"Bitch: noob automacrobot! :<"

"SCAR123: Lol, stop bitching bitch"


@Wizzy: Wizzy I go test GetBlackChatMessage…

EDIT: Wizzy ffs, GetBlackChatMessage gets the sender of the newest message in the chatbox, and doesn't remove the ':' though thats nothing big. My function instead, finds the text the user wants to find the owner of and then returns the sender! :(

So, I won! :)

Love this thread :)

Rofl yeah, I was about to say yesterday that its funny how we have been conversating hours about a function :p

But, Wizzy got beaten, and now he ain't gonna post here no more :(

:p

From: n3ss3s
Rofl yeah, I was about to say yesterday that its funny how we have been conversating hours about a function :p

But, Wizzy got beaten, and now he ain't gonna post here no more :(

:p

I feel war coming..

Btw, if you want to make an autoresponder you probably would make your own functions o,0.

From: n3ss3s
I noticed that SRL has no function for getting the name of a sender of some message.

I remember I had an attempt for this in my Program Files\SCAR 2.03\ in some script which never ended up released.

Anyways, now it works perfectly, and clears the ' : ' out of the end of the name.

So, returns only the name, and in its original caption.

Behold -

{*************************************************]
[ Function GetMessageChatter(Msg: String): String ]
[ By: n3ss3s                                      ]
[ Description: If finds the message Msg in the    ]
[ chatbox, returns who sent it.                   ]
[*************************************************}

Function GetMessageChatter(Msg: String): String;
Var
  X, Y: Integer;
Begin
  If (FindText(X, Y, Msg, Smallchars, MCX1, MCY1, MCX2, MCY2)) Then
    Result := Replace(GetTextAtEx(10, y, 5, SmallChars, False, False, 0, 0,
      0, 50, False, tr_allChars), ':', '');
End;

Simple isn't it, but works even better :)

Also, it is SantySafe which means that Santa_Clause has no hope of shortening it =]

Haha, I love you too n3ss3s. Surprised a function like this hasn't been made yet :eek:

Lol, and yes, I am suprised too.

I feel war coming..

I kinda don't think having a war with wizzy, he has luck in finding unique colors - O.o

But seriously, no war :)

From: Santa_Clause
Surprised a function like this hasn't been made yet

I already said I made on more than 2 months ago! Now n3s goes here taking all the credit, lol :p

-Knives