[Recherche] Script Autovoice
#11
Du coup, si j'ai bien compris, le bon script est :

TCL
catch {bind pub - !autovoice channel:avs}
catch {bind join - * chan:vsjoin}
setudef flag avs
 
proc channel:avs {nick uhost hand chan arg} {
   if { ![isop $nick $chan] } { return 0; }
   switch -exact -- $arg {
      "on" {
         channel set $chan +avs
         putserv "PRIVMSG $chan :L'auto Voice a été activé, &nick."
      }
      "off" {
         channel set $chan -avs
         putserv "PRIVMSG $chan :L'auto Voice a été désactivé, &nick."
      }
   }
}
 
proc chan:vsjoin {nick uhost hand chan} {
   if {[channel get $chan avs]} {
             putquick "MODE $chan +v $nick"
   }
}
 
 
 
 
catch {bind pub - !p channel:pro}
setudef flag pro
 
proc channel:pro {nick uhost hand chan arg} {
   if { ![isop $nick $chan] } { return 0; }
   switch -exact -- $arg {
      "on" {
         channel set $chan +pro
         channel set $chan -avs
         putserv "PRIVMSG $chan :Le chan est dorénavant protégé, &nick."
          putserv "MODE $chan +mD"
      }
      "off" {
         channel set $chan -pro
         putserv "PRIVMSG $chan :Le chan n'est dorénavant plus protégé, &nick."
         putserv "MODE $chan -mD"
      }
   }
}


Répondre Avertir


Messages dans ce sujet
[Recherche] Script Autovoice - par Prototype - 02/05/2013, 01:05
RE: [Recherche] Script Autovoice - par CrazyCat - 02/05/2013, 10:41
RE: [Recherche] Script Autovoice - par CrazyCat - 05/05/2013, 17:40
RE: [Recherche] Script Autovoice - par CrazyCat - 09/05/2013, 10:02
RE: [Recherche] Script Autovoice - par CrazyCat - 09/05/2013, 13:53
RE: [Recherche] Script Autovoice - par Prototype - 09/05/2013, 14:03
RE: [Recherche] Script Autovoice - par CrazyCat - 09/05/2013, 14:08

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté