Communauté Eggdrop

Version complète : Bannir un host en TCL
Vous consultez actuellement la version basse qualité d’un document. Voir la version complète avec le bon formatage.
Pages : 1 2 3
Salut ben moi je suis pas capable de ban un host avec mon eggdrop comment faire ??? Sad
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)?
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
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
ya juste encore une ti probleme sa banni le vhost mais pas le IP :s alors le user peux toujour revenir
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.
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
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.
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
pas compris ton truc DaV34 et vous avais pas repond au conseil du IP :S commant le bannir
vous pourriez aussi me donner un exemple d'une proc part j'ai essayer et sa marche pas :s
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"
}


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 Smile
Babytigrou16 a écrit :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 Smile
Est-ce que tu lis les réponses précédentes?
CrazyCat a écrit :
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"


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 :/
Pages : 1 2 3