Forum d'aide IRC - IRCz.fr

bouba89

Nouveau IRCzien

Inscription : 31/07/2011

Messages : 48

petit tcl sos

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)