Vous n'êtes pas identifié(e).
Pages : 1
Bonjour a tous j'ai recuperer un bout de tcl sur le net et j'aimerai l'agrementer d'options
telles que le message est transmis principalement qu'aux @ en message prive
puis pour le traitez je voudrez juste enlevez sajoin samode car pas d'oline pour l'eggdrop
merci d'avance
Code: TCL
set ::alertchan {
"#chan1"
}
bind pub - !sos sos_alert
proc sos_alert {nick uhost handle chan args} {
putquick "NOTICE $nick :\002\00312Votre SOS a été envoyé au staff \003\002"
set ::chango $chan
foreach chanalert $::alertchan {
putquick "LocOps :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003"
putquick "PRIVMSG $chanalert :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003"
putquick "NOTICE $chanalert :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003"
}
}
bind pub - !gosos sos_join
proc sos_joint {nick host hand chan arg} {
foreach gochan $::alertchan {
if [string match -nocase $gochan $chan] {
putquick "SAJOIN $nick $::chango"
putquick "SAMODE $::chango +h $nick"
putquick "PRIVMSG $chan :\002\00312$nick \00306prends en charge le \00304SOS \00306sur\00305 $::chango\003\002"
}
}
}
Dernière modification par bouba89 (31/07/2011 16:48:27)
Hors ligne
Pages : 1