18/07/2009, 12:00
Code :
bind join -|- * vip
proc vip { nick uhost hand chan } {
bind raw - 307 whois_nick
puthelp "whois $nick"
}
proc whois_nick {from keyword arg} {
set pseudo [lindex $arg 1]
set vip [lindex $arg 4]
set sivip "registered"
if {$vip == $sivip } {
putquick "privmsg #tonsalon bonjour $pseudo "
} else {
putquick "privmsg $pseudo inscrivez-vous en tant que VIP sur blablabla"
unbind raw - 307 whois_nick
}
}
voila une petite exemple a vous de modifier si il ya un erreur
++