Detect the username of everynick join achannel

[Reynaldo]

I need ascript, that can detect the specific username of everynick join #
only the first character the username, the character is "space"
ex: ytfwtj is ~zfmq@hots.domain * yohxrtru
fist character the username is "space", so the bot can kick out!!
Thanks,

[De Kus]

I need ascript, that can detect the specific username of everynick join #
only the first character the username, the character is "space"
ex: ytfwtj is ~zfmq@hots.domain * yohxrtru
fist character the username is "space", so the bot can kick out!!
Thanks,

the server raw reply is:
server.com 311 botnick whoisednick ident the.host.com * :Username

so to get the Username with all characters you should bind to RAW 311 and use something like:
set uname [join [lrange [split $arg :] 1 end] :]
this way the only restriction what uname cannot contain this way is a line break, because the server message will be cut there from the bot ^-^.

Code: Select all

tcl: evaluate (.tcl): join [lrange [split "server.com 311 botnick whoisednick ident the.host.com * : Username: I am cool" :] 1 end] :
Tcl:  Username: I am cool
tcl: evaluate (.tcl): join [lrange [split "server.com 311 botnick whoisednick ident the.host.com * : Username \{ I am \$cool\]" :] 1 end] :
Tcl:  Username { I am $cool]

if you look close, you can see the double space between : and Username, what idinticates, that space is part of the return value.

[awyeah]

Which is the space character here?

Code: Select all

ytfwtj ~zfmq@hots.domain * yohxrtru 

If you are talking about "~" you can detect it by:

Code: Select all

if {[string equal "~" [string index [lindex [split $uhost @] 0] 0]]} {

By the way you don't need to /whois or /who the user for the raw bind, its more easy to bind join and use user@host.

[Reynaldo]

There's aspace!!
ytfwtj ~zfmq@hots.domain * yohxrtru
aspace before "yohxrtru", so there is two space between "*" and "yohxrtru"
normaly only 1 space.
i need to ban the nick
is on the spammer bots
(the posting forum disable the space!)

[Alchera]

Code: Select all

~zfmq

Unless i am really missing something here THAT is the username and there is NO space!

Code: Select all

yohxrtru

... and this is the "RealName".

You can use RAW 311 (RPL_WHOISUSER) to get a user's real name, username and server host.

Now, which is it you wish to ban?

[greenbear]

Something like this should get you started

Code: Select all

bind join - * lookup:realname 
proc lookup:realname {nick uhost hand chan} { 
 puthelp "WHOIS $nick" 
} 

bind raw - 311 parse:realname 
proc parse:realname {from key arg} { 
 set nick [lindex [split $arg] 1]
 set ident [lindex [split $arg] 2]
 set host [lindex [split $arg] 3]
 set realname [string trimleft [lrange $arg 5 end] :]

 if {[string first " " $realname]==0} {
   # the first char in realname is a space
 }
}

[Reynaldo]

Here's the script i wrote it in my mirc scripts!

Code: Select all

on 1:join:#chan: { whois $nick }
raw 311:*:if ($len($gettok($rawmsg,8,32)) == 1) { .kick #chan $2 }

ytfwtj ~zfmq@hots.domain_*__yohxrtru <-- that i will kick out!!

i changed the "space" with "_"

ytfwtj ~zfmq@hots.domain_*_yohxrtru <-- anormal user only 1 space "_"

Thanks

[Alchera]

ytfwtj ~zfmq@hots.domain_*_yohxrtru <-- anormal user only 1 space "_"

Actually there's no space, that's the mIRC script formatting I believe.

Code: Select all

set realname  [string range [lrange $arg  4 end] 1 end]

..and if I am correct, the above code will give you what you wish.

[awyeah]

or something like this?

Code: Select all

if {[string equal "  " [string range $arg [expr [lindex $arg 3]-2] [expr [lindex $arg 3]-1]]]} {

if {[string equal "  " [string range $arg [expr [lindex $arg 2]+1] [expr [lindex $arg 2]+2]]]} {

[Reynaldo]

Thanks guys for the scripts.

[Alchera]

We aim to please.