Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


[Demande] Soucis sur bind mode
#12
Déjà, tu écrases $nick, forcément que ça plante.
Il manque les conditions de sortie (celles où tu ne veux pas que l'eggdrop agisse).

Voila ce qui devrait fonctionner, il suffit de réfléchir 2 secondes pour y arriver....

tcl
proc ReOp {nick host hand chan args} {
   # La, on détermine qui est IriX
   set bot [::Opirix::whoisIriX $chan]
   # ici, on détermine la VICTIME, il faut pas changer nick (celui qui pose le mode)
   set victim [lindex $args 1]
   # Si celui qui deop est irix ou ton eggdrop, on ne fait rien, on sort de la procédure
   if { $nick == $bot || $nick == $botnick } { return 0 }
   # Si la victime n'est pas ton eggdrop, on sort aussi
   if { $victim != $botnick } { return 0 }
   ### maintenant tu peux continuer
   if {($bot ne "") && [channel get $chan SalonOp]} {
      putquick "PRIVMSG $bot :op $::Opirix::IriXsal $::botnick"
      putlog "l'eggdrop se op : $bot $::Opirix::IriXsal $::botnick"
      putserv "PRIVMSG $bot :voice $::Opirix::IriXsal $::botnick"
      putlog "l'eggdrop se voice : $bot $::Opirix::IriXsal $::botnick"
      putserv "PRIVMSG $bot :deop $::Opirix::IriXsal $nick"
      putlog "l'eggdrop déop la personne qui la déop : $::Opirix::IriXsal $victim"
   } else {
      putlog "\002\00304\[Refusé\]\002\00314 Je ne suis pas activé sur $chan"
      return 0
   }
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Messages In This Thread
Soucis sur bind mode - by aliasangelius - 21/01/2017, 12:24
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 12:43
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 12:48
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 13:39
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 14:07
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 14:40
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 14:58
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 15:04
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 17:19
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 17:34
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 17:54
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 18:19
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 18:24

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] bug sur un bind mode Alucard`68 9 4,615 01/02/2017, 15:18
Last Post: Alucard`68
  soucis sur un bind join. aliasangelius 18 9,000 23/10/2011, 13:16
Last Post: CrazyCat
  Soucis tcl - bind join Meribre 4 4,876 23/03/2010, 11:55
Last Post: heretoc
  Problème avec un script TCL (bind mode) Lyokomaster 3 4,389 15/03/2009, 18:05
Last Post: Merwin

Forum Jump:


Users browsing this thread: 1 Guest(s)