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


ban sur detection de realname
#1
Bonjour

J'aimerais savoir si quelqu'un, ou si s'etait possible de faire une detection sur une ou des realnames et banir a cette detection le pseudo.
ce serais sur un chan d'environ 80 users, donc un scan tout les x temps ne feront pas laguer le bot ou sur on joint.
Je sais pas du tout

Par avance merci et bonne journée a vous :)
Gilles
#2
C'est pas complet, juste le principe:

tcl
bind join - "#canal *" rn:scan
 
proc rn:scan {nick uhost handle chan} {
	putserv "WHOIS $nick"
	return 0
}
 
bind raw - 311 rn:check
 
proc rn:check {from kw text} {
	set infos [split $text ":"]
	set user [split $infos 0]
	set realname [lindex $infos 1]
	if {$realname ......} {
		putserv "MODE +b #canal *!*@[lindex $user[2]]"
	}
	return 1
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
Merci pour la reponse rapide
Quand tu dis c'est pas complet, il faut modifier bcp de chose?
Car je ne sais pas coder, je comprends quand c'est marquer le principe mais apres le faire ...

Merci :)
Gilles
#4
Modifier non, renseigner la condition " if {$realname ......} "
#5
bonjour,

j'ai tester mais cela marche pas j'ai ce message d'erreur :
Tcl error [rn:check]: syntax error in expression "$realname ddd": extra tokens at end of expression

cela viens d'ou svp ?
Voici le tcl avec
Par avance merci :)
Gilles
#6
tu as sans doute oublier de poster ton code ...
#7
apparemment :x

desole
Gilles
#8
Moi c'est bizzard j'ai tout fait comme il faut mais sa ne banni pas ^^ lolll
#9

tcl
if {$realname plop} {

Ca ne veut rien dire du tout ça. Et c'est pas de la programmation, juste de la logique.

tcl
if {[string first "plop" $realname] != -1} {

peut fonctionner

Et mon exemple était juste un exemple, il faut vérifier que $realname contient bien ce que tu veux, et même que le serveur renvoie bien le raw 311.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#10
bonjour

il me met ca maintenant comme erreur :
[11:56] Tcl error [rn:check]: invalid command name "2"

cela viens d'ou ?
par avance merci
Gilles
#11
Prends l'habitude de poster ton code modifié ... sinon pour t'aider ça risque d'être compliqué.
#12
le voila désolé :x
Gilles
#13
L'erreur est de moi:

tcl
putserv "MODE +b #canal *!*@[lindex $user[2]]"

C'est bien sûr:

tcl
putserv "MODE +b #canal *!*@[lindex $user 2]"

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#14
cela ne marche tojours pas, mais la j'ai pas de messages d'erreur
Gilles
#15
ta rewgarder tes code comme il fo ?


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
  Changement de realname au join heretoc 13 6,359 26/06/2009, 02:21
Last Post: BlackNight

Forum Jump:


Users browsing this thread: 1 Guest(s)