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


Kick et KickBans rapides
#1
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
#2
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
#3
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
#4
je te donne un seul exemple et à toi de continuer le reste :)


tcl
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 :)
Le meuilleur du Web www.zet-land.org
#5
Déjà vu ce scripts qu'elle que part ...
#6

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

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

tcl
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à ?

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

tcl
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


Forum Jump:


Users browsing this thread: 1 Guest(s)