Code:

putmsg $chan [encoding convertfrom utf-8 "Lo siento \002$vhostnick\002, no tienes el nick registrado no puedes pedir host."];return}

Code:

putserv "PRIVMSG $::channel Lo siento \002$vhostnick\002, no tienes el nick registrado no puedes pedir host.";return}

Code:

putserv "PRIVMSG hostserv set $checknick $vhostcheck" putserv "PRIVMSG $::channel :tu vhost solicitado se ha aprobado con exito, tipea \2/hs on\2 para activarlo"       putserv "PRIVMSG $::channel :tu nuevo host es \002$vhostcheck\002" putserv "MODE $::channel +b $checknick" putserv "kick $::channel $checknick :reingrese luego, aqui no se permiten idles de nicks"  timer $::bantimevhost [list puthelp "MODE $::channel -b $checknick"]       } 

Code:

putquick "PRIVMSG hostserv set $checknick $vhostcheck"       putserv "PRIVMSG $::channel :tu vhost solicitado se ha aprobado con exito, tipea \2/hs on\2 para activarlo"       putserv "PRIVMSG $::channel :tu nuevo host es \002$vhostcheck\002"       putquick "MODE $::channel +b $checknick"     putquick "kick $::channel $checknick :reingrese luego, aqui no se permiten idles de nicks"     timer $::bantimevhost [list puthelp "MODE $::channel -b $checknick"]       } 

Code:

   global 

Code:

# esta parte es sencible a mayusculas o minusculas escribe bien el nombre# de tu canal. / name of channel assistanceset channel "#vhost"set operid "id-ircop"set operpass "your-pass-ircop"# tiempo de duracion del ban en minutos / bantime in minutesset bantimevhost 1bind evnt - init-server operbind pub -|- !vhost vhostbind pub -|- .vhost vhostbind join -|- * join# lee mensajes privados enviados al BOT, para comparar cuando el bot NickServ envíe resultados acerca de una INFO a un nick.bind msgm - * vhost:registroproc oper init-server { putserv "OPER $::operid $::operpass" }proc join {nick host handle chan } { if { $chan == $::channel } {   putserv "privmsg $chan para obtener tu host tipea \2!vhost tu.host.que-quieras\2 ejemplo !vhost soy.novato \2NOTA\2: el vhost solicitado sera revisado para su aprobación"  }}proc vhost {vhostnick vhosthost vhosthand vhostchan vhosttext} { if { $vhostchan == $::channel } { # cuando solicitan vhost consulto al bot NickServ para saber si el nick está o no registrado putserv "PRIVMSG NickServ :info $vhostnick" # timer de 5 segundos para darle tiempo al bot a procesar la petición utimer 5 [list verarchn $vhostnick $vhosthost $vhosthand $vhostchan $vhosttext ]proc verarchn { vhostnick vhosthost vhosthand vhostchan vhosttext} {# consulta al archivo regtest para saber estado del nick, sino existe archivo se crea.if {![file exists regtest]} {set fs [open "regtest" w+]puts $fs 0close $fsset temp [open "regtest" r]set regtest [gets $temp]set nickregtest [lindex $regtest 0]close $temp} else { set temp [open "regtest" r]set regtest [gets $temp]set nickregtest [lindex $regtest 0]close $temp}# comparo resultado del archivo, si es 1 nick no registrado paro el script, si es 0 nick registrado y continuo con el procesoif {$nickregtest == 1} { putmsg $chan [encoding convertfrom utf-8 "Lo siento \002$vhostnick\002, no tienes el nick registrado no puedes pedir host."];return}if {$nickregtest == 0 } { checkvhost $vhostnick $vhosttext}}} else {return}}set badwords { *<censored>* *maricon* *chupalo* *pico* *conchatumare* *admin* *adminetchat* *services* *ñ* *^* *+* *´<* *#* *ircop* *sex* *irc0p* *Opers*}proc checkvhost { checknick vhostcheck } {globalif {[string match "*.*" [string tolower $vhostcheck]]} {set temp 0set results 0   #$temp<=X X = number of space delimited tokens in the badwords variable.   while {$temp<=47} { foreach x [string tolower $::badwords] { if {[string match $x [string tolower $vhostcheck]]} { incr results }}incr temp   }   unset temp   if { $results > 0 } {   putserv "privmsg $::channel :\2$checknick\2 Lo siento el vhost no puede ser \002$vhostcheck\002"   } else {   putserv "PRIVMSG hostserv set $checknick $vhostcheck"   putserv "PRIVMSG $::channel :tu vhost solicitado se ha aprobado con exito, tipea \2/hs on\2 para activarlo"   putserv "PRIVMSG $::channel :tu nuevo host es \002$vhostcheck\002"putserv "MODE $::channel +b $checknick" putserv "kick $::channel $checknick :reingrese luego, aqui no se permiten idles de nicks" timer $::bantimevhost [list puthelp "MODE $::channel -b $checknick"]   }  } else {putserv "privmsg $::channel :\2$checknick\2 faltan parametros a su peticion, ejemplo \2!vhost soy.novato\2"  }}# proceso que se dispara cuando el bot NickServ nos envía un privado, ante una consulta del comando de mas arriba.proc vhost:registro {nick NickServ!services@servicios.host hand text} {# comparo en el texto enviado por privado del bot si se encuentra la frase "no está registrado", si la encuentra pone valor en archivo de 1if {[string match -glob -ascii "*no está registrado*" $text]} {  set fs [open "regtest" w+]  puts $fs 1  close $fs  set temp [open "regtest" r]  set regtest [gets $temp]  set nickregtest [lindex $regtest 0]  close $temp  return 0 } # comparo en el texto enviado por privado del bot si se encuentra la palabra textual "Registrado", si la encuentra pone valor en archivo de 0 if {[string match -exact "*Registrado*" $text]} { set fs [open "regtest" w+]  puts $fs 0  close $fs  set temp [open "regtest" r]  set regtest [gets $temp]  set nickregtest [lindex $regtest 0]  close $temp  return 0}}

Code:

/msg nick info pepitoperez

Code:

/msg nick info Tarzan

Code:

/whois  NiCK