Code:

user: !vhost i.want.this.vhostvhost: Your vhost is changed to i.want.this.vhost (Chanel Notice)vhost: Your vhost is activated and can be used permanently. (Channel Notice)

Code:

# based in http://forum.egghelp.org/viewtopic.php?t=13836&highlight=vhost# updated for Arnold_X-P email urquizoandrade@gmail.com /server irc.dal.net channel #tcls my nick's Arnold_X-P & sedition 29/OCT/2017 # tambien estoy en irc.chatzona.org canal #tcl mi correo urquizoandrade@hotmail.com mis nicks Arnold_X-P y sedition#set this to channelset scan(chan) "#vhost"# Set this to the bot's O-Line username #set oper(username) "you-opernick"# Set this to the bots O-Line password #set oper(password) "you-pass-ircop"# Set here the words that are not alowed in the vhost #set dvb_badvhost {   "*admin*"   "*bitch*"   "*operator*"   "*ircop*"      "*netadmin*"   "*N3TADM1N*"   "*ñ*"   "*^*"   "*+*"   "*´*"   "*<*"   "*#*"   "*irc0p*"   "*Opers*"   "*`*"   "*&*"   "*¿*"   "*¡*"   "*,*"}## dont change below unless your know what your doing ##bind msg o !oper oper-upbind join - "$scan(chan) *" tls:joinbind raw - 307 tls:identbind pub -|- !vhost tls:vhostbind pub -|- .vhost tls:vhostbind evnt - "init-server" oper:connectproc oper:connect init-server {putserv "OPER $::oper(username) $::oper(password)"}proc oper-up {nick host chan text} {  global operid operpass owner2  putserv "OPER $::oper(username) $::oper(password)"  putserv "NOTICE $nick :I Opered up"}proc tls:join {nick host hand chan} { global tls_nick tls_ident botnick if {![string match -nocase *$nick* $botnick]} {  set tls_ident "1"  set tls_nick $nick  putserv "WHOIS $nick"  utimer 3 tls:not:ident} }proc tls:vhost {nick host hand chan vhost} { global tls_nick tls_ident tls_vhost   if {$chan != "$::scan(chan)"} {      putserv "NOTICE $nick :\2$nick\2 Don't Use This Command Outside $::scan(chan)"   return 0  } if {$vhost == ""} { if {$chan == "$::scan(chan)"} { putserv "PRIVMSG $chan :With the command 4!vhost you can make a vhost." putserv "PRIVMSG $chan :Do it this way, 4!vhost This.is.my.vhost.com"  putserv "PRIVMSG $chan :You can only use this service if you have your nick registered and identified"  putserv "PRIVMSG $chan :For more information type 4/MSG nickserv HELP"   return 0  } }  set tls_ident "2"  set tls_vhost [lindex $vhost 0]  set tls_nick $nick  putserv "WHOIS $nick"  utimer 3 tls:not:ident}proc tls:ident {from key args } { global tls_ident tls_nick tls_vhost  set args [join $args]  set nick [string tolower [lindex $args 1]]  set regist [strlwr [lindex [lrange [split $args ":"] 1 end] 0]]  if {$tls_ident == "1" && $regist == "is identified for this nick"} { foreach j [utimers] {   if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }   continue }  putserv "PRIVMSG $::scan(chan) :$nick your nick is registered and identified use 4!vhost <vhost>"   }  if {$tls_ident == "2" && $regist == "is identified for this nick"} { foreach j [utimers] {    if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }   continue }  global dvb_badvhostforeach i $dvb_badvhost {if {[string match -nocase "$i" $tls_vhost]} { putserv "PRIVMSG $::scan(chan) :Your vhost is not changed 3$tls_vhost3"  putserv "PRIVMSG $::scan(chan) :Its not a valid vhost 3$tls_vhost for 3$i"   return 1  } }  putserv "PRIVMSG hostserv : set $tls_nick $tls_vhost"  putserv "chghost $tls_nick $tls_vhost"  putserv "NOTICE $tls_nick :Your vhost is changed in 3$tls_vhost3"  putserv "NOTICE $tls_nick :Type 4/msg hostserv on"  }  return 0}proc tls:not:ident {} { global tls_nick putserv "PRIVMSG $::scan(chan) :\2$tls_nick\2 is not registered or identified." putserv "PRIVMSG $::scan(chan) :Type: 4/MSG nickserv HELP for info how to register and identify you nick."}putlog "vhost was successfully loaded. updated for Arnold_X-P (DALnet)"

Code:

# based in http://forum.egghelp.org/viewtopic.php?t=13836&highlight=vhost#set this to channelset scan(chan) "#vhost"# Set this to the bot's O-Line username #set oper(username) "xxx"# Set this to the bots O-Line password #set oper(password) "xxxx"# Set here the words that are not alowed in the vhost #set dvb_badvhost {   "*admin*"   "*bitch*"   "*operator*"   "*ircop*"      "Marro*"   "*Maro*"   "*netadmin*"   "*N3TADM1N*"   "*ñ*"    "*^"    "*+"    "*´"    "*<"   "*#*"   "*irc0p*"    "*Opers*"   "*`"   "*&"   "*¿"   "*¡"}## dont change below unless your know what your doing ##bind msg o oper oper-upbind join - "$scan(chan) *" tls:join bind raw - 307 tls:identbind pub -|- !vhost tls:vhostbind pub -|- .vhost tls:vhostbind evnt - init-server oper:connectproc oper:connect init-server {putserv "OPER $::oper(username) $::oper(password)"putserv "ns identify benita28"}proc oper-up {nick host chan text} {  global operid operpass owner2  putserv "OPER $::oper(username) $::oper(password)"  putserv "NOTICE $nick :I Opered up"}proc tls:join {nick host hand chan} { global tls_nick tls_ident botnick if {![string match -nocase *$nick* $botnick]} {  set tls_ident "1"  set tls_nick $nick   putserv "WHOIS $nick"  utimer 3 tls:not:ident} }proc tls:vhost {nick host hand chan vhost} { global tls_nick tls_ident tls_vhost    if {$chan != "$::scan(chan)"} {       putserv "NOTICE $nick :\2$nick\2 Don't Use This Command Outside $::scan(chan)"return 0  } if {$vhost == ""} {  if {$chan == "$::scan(chan)"} {  putserv "PRIVMSG $chan :With the command 4!vhost you can make a vhost." putserv "PRIVMSG $chan :Do it this way, 4!vhost This.is.my.vhost.com"  putserv "PRIVMSG $chan :You can only use this service if you have your nick registered and identified"  putserv "PRIVMSG $chan :For more information type 4/MSG nickserv HELP"   return 0  } }  set tls_ident "2"  set tls_vhost [lindex $vhost 0]  set tls_nick $nick   putserv "WHOIS $nick"  utimer 3 tls:not:ident} proc tls:ident {from key args } {  global tls_ident tls_nick tls_vhost    set args [join $args]  set nick [string tolower [lindex $args 1]]  set regist [strlwr [lindex [lrange [split $args ":"] 1 end] 0]]  if {$tls_ident == "1" && $regist == "is identified for this nick"} {    foreach j [utimers] {        if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }      }  putserv "PRIVMSG $::scan(chan) :$nick your nick is registered and identified use 4!vhost <vhost>"   }  if {$tls_ident == "2" && $regist == "is identified for this nick"} {    foreach j [utimers] {        if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }   }      global dvb_badvhostforeach i $dvb_badvhost {if {[string match -nocase $i $tls_vhost]} {  putserv "PRIVMSG $::scan(chan) :Your vhost is not changed 3$tls_vhost3"  putserv "PRIVMSG $::scan(chan) :Its not a valid vhost 3$tls_vhost for 3$i"    return 0   }   }  putserv "PRIVMSG hostserv : set $tls_nick $tls_vhost"  putserv "chghost $tls_nick $tls_vhost"  putserv "NOTICE $tls_nick :Your vhost is changed in 3$tls_vhost3"  putserv "NOTICE $tls_nick :Type 4/msg hostserv on"  unset j ; unset tls_nick ;   }  return 0} proc tls:not:ident {} { global tls_nick putserv "PRIVMSG $::scan(chan) :\2$tls_nick\2 is not registered or identified." putserv "PRIVMSG $::scan(chan) :Type: 4/MSG nickserv HELP for info how to register and identify you nick." return 0} putlog "vhost was successfully loaded."