set dernier_aide "" bind pub - !aide pub_aide proc pub_aide {nick uhost hand chan args} { global dernier_aide if {$nick != $dernier_aide} { set aidants "" foreach user [chanlist $chan] { if [isvoice $user $chan] { append aidants "$user, " } } if {$aidants != ""} { putbot Aide "notice $nick Pose simplement ta question sur le canal. Un membre va te répondre sous peu ($aidantsest (sont) là pour ça en ce moment) ...et sois patient(e) STP! (Si toutefois il n'y a pas de membre disponible, essaie /msg AideBot !aide pour de l'aide automatisée. Merci!" set dernier_aide $nick timer 1 { set dernier_aide "" } } else { dccputchan 0 "4ATTENTION ! Il y a $nick qui demande de l'aide sur $chan !!! ***" set dernier_aide $nick timer 5 { set dernier_aide "" } putbot Aide "notice $nick $nick, ton appel a été entendu, s'il y a des membres présents, ils vont venir t'aider sous peu! Sois patient STP! (Si toutefois il n'y a pas de membre disponible, essaie /msg AideBot !aide pour de l'aide automatisée. Merci!" } } } ######################## set dernier_masque "" set pmnick "" set pmuhost "" set pmhand "" set pmchan "" set pmtext "" proc pub_masque {nick uhost hand chan text} { global pmnick pmuhost pmhand pmchan pmtext global dernier_masque set pmnick $nick set pmuhost $uhost set pmhand $hand set pmchan $chan set pmtext $text if [catch pub_masque_nobug] { putbot Aide "msg $chan Désolé, je ne peux donner le masque d'adresse ou le ip/domaine d'une personne ayant des accolades ou des crochets dans son alias. Change de /nick stp!" set dernier_masque "" } } bind pub - !ip pub_masque bind pub - !dns pub_masque bind pub - !masque pub_masque bind pub - !user@host pub_masque proc pub_masque_nobug {} { global pmnick pmuhost pmhand pmchan pmtext lastbind global dernier_masque set nick $pmnick set uhost $pmuhost set hand $pmhand set chan $pmchan set text $pmtext set canal $chan set host [getchanhost $nick $canal] if {([string tolower $lastbind] == "!ip") | ([string tolower $lastbind] == "!dns")} { set host [lindex [split $host @] 1] if [estunip:ok $host] { putbot Aide "dns $nick $host" } else { putbot Aide "ip $nick $host" } } else { set masque [trouver_masque $nick $canal] set adresse "$nick!$host" if {$masque != ""} { if {[lindex $dernier_masque 0] != $nick} { set dernier_masque "$nick $nick" putbot Aide "msg $canal L'adresse de $nick est $adresse, donc son masque d'adresse (user@host) est: $masque" } } } return 1 } ######################## ### Quand ? bind pub - !quand pub_quand proc pub_quand {nick uhost hand chan args} { if {[lindex $args 0] != ""} { putbot Aide "msg $nick [vu_quand [lindex $args 0] 0]" return 1 } }