Bannir un host en TCL

[Babytigrou16]

Salut ben moi je suis pas capable de ban un host avec mon eggdrop comment faire ??? :(

[CrazyCat]

Que veux tu faire exactement? un script de bannissement (tu tapes !ban nick et ça met un ban sur l'host de nick) ou juste poser un ban (.+ban *!*@host)?

[Babytigrou16]

ben exemple comme sa je parler de Remote TCL lolll exemple sa

bind pub - !krepet krepet
proc krepet { nick uhost handle channel arg } {
if {[isop $nick $channel] || [ishalfop $nick $channel]} {
putquick "MODE $channel +b $arg"
putquick "KICK $channel [lindex $arg 0] 12/4!12\\ 12$nick: 4Tu es banni du salon. Cessez de vous répeter on est pas sourd !"
}
}


$arg = Pseudo de l'user

mais moi j'aimerais bannir le host mais j'ignore comment faire :s

[CrazyCat]

OK, c'est relativement simple à faire:

tcl

bind pub - !krepet krepet
proc krepet {nick uhost handle chan args} {
   if {![isop $nick $channel] && ![ishalfop $nick $channel]} { putquick "PRIVMSG $chan :Tu n'as pas accès à cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $chan :$vnick n'est pas sur $chan"; return 0}
      set vhost [getchanhost $vnick $chan]
      putquick "MODE $channel +b *!*@$vhost"
      putquick "KICK $channel $vnick 12/4!12\\ 12$nick: 4Tu es banni du salon. Cessez de vous répeter on est pas sourd !"
      return
   } else {
      puthelp "PRIVMSG $chan :Il faut une victime"
      return
   }
}

Bon, ce code n'a pas été testé, mais la chose importante est: set vhost [getchanhost $vnick $chan]

Et je me permet de te signaler que ton codage des couleurs n'est pas bon, tu devrais jeter un oeil à http://www.eggdrop.fr/Couleurs_et_mise_en_forme

[Babytigrou16]

ya juste encore une ti probleme sa banni le vhost mais pas le IP :s alors le user peux toujour revenir

[DaV34]

Pour que ton robot bannisse l'ip de la personne, il faut qu'il soit ircop.
Communique nous si c'est le cas.
Si oui, je te donnerai la démarche a suivre ensuite.

[Babytigrou16]

Mon EggDrop est IRCop et SuperAdmins a Oui aussi j'aimerais savoir comment faire un proc de part je suis capable de faire une proc join mias pas de part :s exemple la proc join

bind join - "**" join
proc join { nick uhost handle channel } { putquick "PRIVMSG BotServ say $channel 10,1\\1,10\\9,10\\10,9\\8,9\\9,8\\8,8\\9,8/8,9/10,9/9,10/1,10/10,1/ 11,1 Salut a toi $nick 10,1\\1,10\\9,10\\10,9\\8,9\\9,8\\8,8\\9,8/8,9/10,9/9,10/1,10/10,1/ 12,0" }


j'ai essayer pour mettre part et sa a pas fonctionner :s

[CrazyCat]

Bien que la page ne soit pas totalement traduite, je te conseille de lire les binds.
Et encore une fois: essaye d'utiliser la syntaxe correcte de mise en forme du texte, ton code est illisible.

P.S.: il existe une balise [ tcl ] pour mettre du script tcl ici.

[DaV34]

Autre conseil, éssaye d'enregistrer tes décorations dans des variables.
1. Cela te permet de les modifier quand tu veut.
2. Cela rend plus propre tes proc

[Babytigrou16]

pas compris ton truc DaV34 et vous avais pas repond au conseil du IP :S commant le bannir

[Babytigrou16]

vous pourriez aussi me donner un exemple d'une proc part j'ai essayer et sa marche pas :s

[CrazyCat]

tcl

bind part - "* *" test:part
 
proc test:part {nick uhost hand chan {msg ""}} {
   if {$msg!=""} { set more "en disant $msg" }
   putserv "PRIVMSG $nick :Tu viens de quitter $chan$more"
}

[Babytigrou16]

et comment faire pour faire bannir le host

Exemple : *!*@NetAdmin.chat-toon.com

Comme sa car sa ne le fait pas et j'aimerais bien merci :)

[CrazyCat]

et comment faire pour faire bannir le host
Exemple : *!*@NetAdmin.chat-toon.com
Comme sa car sa ne le fait pas et j'aimerais bien merci :)

Est-ce que tu lis les réponses précédentes?

tcl

bind pub - !krepet krepet
proc krepet {nick uhost handle chan args} {
   if {![isop $nick $channel] && ![ishalfop $nick $channel]} { putquick "PRIVMSG $chan :Tu n'as pas accès à cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $chan :$vnick n'est pas sur $chan"; return 0}
      set vhost [getchanhost $vnick $chan]
      putquick "MODE $channel +b *!*@$vhost"
      putquick "KICK $channel $vnick 12/4!12\\ 12$nick: 4Tu es banni du salon. Cessez de vous répeter on est pas sourd !"
      return
   } else {
      puthelp "PRIVMSG $chan :Il faut une victime"
      return
   }
}

Bon, ce code n'a pas été testé, mais la chose importante est: set vhost [getchanhost $vnick $chan]

Re indice:

tcl

set vhost [getchanhost $vnick $chan]
putquick "MODE $channel +b *!*@$vhost"

[Babytigrou16]

Rhooo sa banni le vhost mais la personne peux toujour revenir sur le chan pcq sa fait

-03:05:33- Mode : Nemesis / +b *!*@NiUi@AdminZone.zetland.fr

Et sa fait pas bannir le host comme

-03:05:33- Mode : Angi / +b *!*@AdminZone.zetland.fr

c comme sa jaimerais avoir si possible :/