bind msg -|- vhosthelper msg_vhosthelper
proc msg_vhosthelper {nick host hand arg} {
global vhostniv3
    foreach vhost $vhostniv3 {
        set pseudo [lindex $arg 0]
        if {![string match -nocase $vhost $host]}  {putquick "privmsg #serveur :\0003Ajout d'un vhost \00304Helper.tchat-steffi.fr \00302à \00303$pseudo"; return}
        elseif {$pseudo == ""} {
            putquick "NOTICE $nick :\00304Syntax: \00302/msg <bot> vhosthelper pseudo"
            return 0
        } else {
            putquick "hs set $pseudo Helper.tchat-steffi.fr"
            putquick "privmsg #serveur :\0003Ajout d'un vhost \00304Helper.tchat-steffi.fr \00302à \00303$pseudo"
            return 1
        }
    }
}