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


timer ban
#1

tcl
bind pub - !tbm tbm
proc tbm {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      set timeb [lindex $args 2]
      if {![onchan $vnick $chan]} { putquick "NOTICE"}
      set vhost [lindex [split [getchanhost $vnick $chan] "@"]]
      putquick "MODE $chan +b $vhost"
      putquick "mode $chan -v $vnick"
      timer $timeb [list eban $vhost]
      return
   } else {
      puthelp "NOTICE"
      return
   }
}


Je ne trouve pas le moyen de deban avec le timer apres le temps donner avec $timeb
?? :/
#2

tcl
bind pub - !tbm tbm
proc tbm {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      set timeb [lindex $args 2]
      if {![onchan $vnick $chan]} { putquick "NOTICE"}
      set vhost [lindex [split [getchanhost $vnick $chan] "@"]]
      putquick "MODE $chan +b $vhost"
      putquick "mode $chan -v $vnick"
      timer $timeb [list eban $vhost]
      return
   }
}



Je ne trouve pas le moyen de deban avec le timer apres le temps donner avec $timeb
?? :/

Edit : Édition d'un petit truc :)
#3
Heu, pourquoi tu te compliques la vie ?
En utilisant newchanban (newchanban <channel> <ban> <creator> <comment> [lifetime] [options]), tu ne réinvente pas la roue.
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#4
CrazyCat Wrote:Heu, pourquoi tu te compliques la vie ?
En utilisant newchanban (newchanban <channel> <ban> <creator> <comment> [lifetime] [options]), tu ne réinvente pas la roue.
Y'a t'il une option pour faire que sorte que le ban s'applique exemple sur
*!*@*.domaine.tld
et non sur
nick!*@*

? :/
#5
Bien sûr: <ban> est le masque que tu veux utiliser, donc tu peux le créer comme tu veux.
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#6

tcl
bind pub - !tbm pub:!tbm
 
proc pub:!tbm {nick uhost hand chan text} {
if {!([isop $nick $chan] || [ishalfop $nick $chan])} return
if {![onchan [set target [lindex [set splitText [split $text]] 0]] $chan] || ![string is digit [set duration [lindex $splitText 1]]] || $duration eq ""} return
foreach mode {q a o h v} { pushmode $chan -$mode $target }
newchanban $chan ~q:*!*@[lindex [split [getchanhost $target] @] 1] $nick osef $duration sticky
putquick "PRIVMSG #erep.moderation :\002$nick\002 a décidé de retiré la parole a \002$target\002"
return 1 }
 
putlog "\002TBM By Artix & Marc\002 v4.0.5 - Chargé"



Voila la nouvelle version,
Encore un soucis... Il affiche le message sur #erep.moderation mais il ne ban pas sur le canal comme demander !?
Que faire ? :/[/align]
#7
Et si tu fais un:

tcl
putlog "newchanban $chan ~q:*!*@[lindex [split [getchanhost $target] @] 1] $nick osef $duration sticky"

Ca donne quoi ?
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#8
Désolé pour le dérangement, c'était un erreur de timing ... Je rehash mais le bot ne prenais pas en compte !

J'ai reboot mon dédié au complet tout a marcher a merveille :) !!!

Merci pour votre aide :P
#9
Effacer le dernier message svp..

Pour effacer un ban appliquer avec cette commande :

tcl
newchanban $chan ~q:*!*@[lindex [split [getchanhost $target] @] 1] $nick osef $duration sticky

Si nous sachons que ce ban est appliquer et que nous voulons retirer le ban avant le temps donner...

Comment fait-on ?
#10
un ban se retire avec killchanban <channel> <ban>, <ban> étant le masque utilisé pour le ban.
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  timer KeeViiNou 1 1,344 20/08/2020, 18:19
Last Post: CrazyCat
  [Résolu] problème de timer sur un unban Alucard`68 6 3,945 18/04/2017, 15:25
Last Post: Alucard`68
  Timer TCL BlackNight 15 15,813 13/02/2010, 19:42
Last Post: DodY
  Timer en Tcl Meribre 4 5,128 17/12/2009, 17:53
Last Post: Meribre
  erreur dans un timer caline012 2 4,844 17/10/2008, 13:52
Last Post: caline012

Forum Jump:


Users browsing this thread: 1 Guest(s)