Kick et KickBans rapides

[Meribre]

Bonsoir

J'aimerais avoir les tcl pour

!poli pseudo !comp pseudo !sexe pseudo !racisme pseudo !pub pseudo

et !kpoli pseudo !kcom pseudo !ksexe pseudo !kracisme pseudo !kpub pseudo

J'aimerais avoir les mêmes options que chatland sur les kicks rapides
et kicks ban rapide mais que les gens axx puis s'en servir
Merci d'(avance

[heretoc]

Si tu aurais un minimum rechercher divers tcl le propose sur le forum et de nombreuses explications donne comment faire , dsl d'etre "aggressif" comme disent certains mais le "J'aimerais avoir les tcl" j'aime pas trop ^^
M'enfin regarde la partie telechargement => Clam Moderation

[NimaG`]

Un coup de bind, un coup de proc, un coup de putserv et c'est reglé ! Je suis en train de faire un méga script avec quasiment toute les commandes de server

[Babytigrou16]

je te donne un seul exemple et à toi de continuer le reste :)

tclcopier

bind pub - !flood flood
proc flood {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : Le flood ( grosse masse de texte inutile ) est interdit !"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !flood pseudo"
      return
   }
}

Voila j'espere t'avoir aider :)

[MorDenX]

Déjà vu ce scripts qu'elle que part ...

[TechNicienInfo]

tclcopier

bind pub - !script script
proc script {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : 5Votre script est trop voyant, vous devez être plus discret !   ( 12Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !script pseudo"
      return
   }
}
 
bind pub - !sexe sexe
proc sexe {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : 5Pas de sexe sur ce salon, il y en a d'autres pour ça !   ( 12Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !sexe pseudo"
      return
   }
}

[BlackNight]

Les couleurs mirc... faut lire avant de poster svp :(

[foufou]

tclcopier

bind pub - !script script
proc script {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : Votre script est trop voyant, vous devez être plus discret !   ( Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !script pseudo"
      return
   }
}
 
bind pub - !sexe sexe
proc sexe {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : Pas de sexe sur ce salon, il y en a d'autres pour ça !   ( Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !sexe pseudo"
      return
   }
}

Tu crois pas qu'il y a un soucis quelque part là ?

tclcopier

if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}

Tu peux me dire pourquoi mettre deux fois $nick au lieu de:

tclcopier

if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $vnick n'est pas sur $chan"; return 0}

????

Faudrai peut etre éviter de faire (peut être des C/c) et essayer de comprendre le TCL avant de poster :)

Cordialement