[Script] Probleme Le TCL Invite pas les pseudo

[aliasangelius]

set vhostsaj {
"*@StaffAnim.monsite.net" "#canal"
}

bind join - "*" xjoin
proc xjoin {nick host hand arg} {
foreach vhost [array names $::vhostsaj] {
if {[string match -nocase $vhost $host]]} {
putserv "SAJOIN $nick $::vhostsaj($vhost)"
}
}
}

"Envoyé depuis mon GT-N7000 avec Tapatalk"

---

Y avais un exemple sur le forum je l'ai récupérer.. voila

"Envoyé depuis mon GT-N7000 avec Tapatalk"