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


Changement de realname au join
#1
Hello,
J'essaye actuellement de faire un petit tcl qui modifie automatiquement le realname des utilisateurs au join dans un salon ou ce tient le robot mais je coince ... etant donné que j'ai jamais vraiment utiliser les regex et les raw je me suis un peu perdu et mon code est invalide (il y a aucune réaction).

Voici mon code :

tcl
bin join -|- "*" realname
proc realname {nick uhost hand chan arg} {
	global Clam;
	set asv [lrange $arg 2 end]
	set name [lindex $arg 0]
	bind_raw - 311 msg_realname
	if {$asv == ""|| [regexp -nocase {^[1-7][0-9]\s(h|f)\s.*} $asv]} {
	putdcc $Clam(idx) ":$Clam(link) who $asv"
	putdcc $Clam(idx) ":$Clam(pseudo) PRIVMSG $Clam(admin) :Mauvais ASV >> $name >> $asv"
	return 1
	}
}
 
proc msg_realname {nick from keyword arg} {
global Clam realname asv
    if {[info exists realname] && ($keyword == 311)} {
	putdcc $Clam(idx) ":$Clam(link) SETNAME $nick $Clam(asv)"
	unbind raw - 311 msg_realname 
	unset realname
             unset asv
	}
}


Ps : $Clam(asv) est une valeur par defaut dans un fichier de config qui est de "20 H asv de defaut"

Merci aux gens qui vont m'aider.


Messages In This Thread
Changement de realname au join - by heretoc - 24/05/2009, 22:28
RE: Changement de realname au join - by heretoc - 25/05/2009, 17:38
RE: Changement de realname au join - by heretoc - 25/05/2009, 18:16
RE: Changement de realname au join - by heretoc - 25/05/2009, 18:27
RE: Changement de realname au join - by heretoc - 26/05/2009, 13:50
RE: Changement de realname au join - by heretoc - 26/05/2009, 15:38
RE: Changement de realname au join - by heretoc - 26/05/2009, 18:57

Possibly Related Threads…
Thread Author Replies Views Last Post
  [fractionné] Realname avec CAP extended-join ZarTek 2 119 04/08/2022, 16:51
Last Post: ZarTek
  Ban sur realname Babytigrou16 12 5,682 08/08/2009, 21:42
Last Post: bewess
  ban sur detection de realname bewess 21 10,924 05/05/2009, 13:49
Last Post: bewess

Forum Jump:


Users browsing this thread: 1 Guest(s)