Communauté Eggdrop
Bannir un host en TCL - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Bannir un host en TCL (/showthread.php?tid=99)

Pages : 1 2 3

Bannir un host en TCL - Babytigrou16 - 04/11/2007

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

RE: Bannir un host en TCL - CrazyCat - 04/11/2007

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)?

RE: Bannir un host en TCL - Babytigrou16 - 04/11/2007

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

RE: Bannir un host en TCL - CrazyCat - 05/11/2007

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

RE: Bannir un host en TCL - Babytigrou16 - 05/11/2007

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

RE: Bannir un host en TCL - DaV34 - 06/11/2007

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.

RE: Bannir un host en TCL - Babytigrou16 - 06/11/2007

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

RE: Bannir un host en TCL - CrazyCat - 06/11/2007

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.

RE: Bannir un host en TCL - DaV34 - 06/11/2007

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

RE: Bannir un host en TCL - Babytigrou16 - 06/11/2007

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

RE: Bannir un host en TCL - Babytigrou16 - 06/11/2007

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

RE: Bannir un host en TCL - CrazyCat - 07/11/2007

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"
}




RE: Bannir un host en TCL - Babytigrou16 - 09/11/2007

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 :)

RE: Bannir un host en TCL - CrazyCat - 11/11/2007

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 :)
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"




RE: Bannir un host en TCL - Babytigrou16 - 16/11/2007

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 :/