Mrc to TCL !!! (CTCP VERSIÓN)

[ORATEGOD]

When a user who occupies a mIRC Client join #mIRC-Chat it assigns him the mode +h

On @*:join:#mIRC-Chat:{
if $hget(ctcp_version,0).item > 10 { return }
.ctcp $nick version
hadd -mu20 ctcp_version $nick 1
}

On !*:ctcpreply:version *:{
if $hget(ctcp_version,$nick) {
if mIRC isin $2- && $nick isreg #chan {
mode #mIRC-Chat +h $nick
}
hdel ctcp_version $nick
halt
}
}

I appreciate your help ... have a great day

[CrazyCat]

I already made you a script based on version: forum.egghelp.org/viewtopic.php?p=110098
You can use it as example, or just adapt it to add what you need