Communauté sur les Eggdrops - Community about Eggdrops
ban sur detection de realname - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: ban sur detection de realname (/showthread.php?tid=304)

Pages: 1 2


ban sur detection de realname - bewess - 11/12/2008

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


RE: ban sur detection de realname - CrazyCat - 11/12/2008

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
}




RE: ban sur detection de realname - bewess - 11/12/2008

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


RE: ban sur detection de realname - BdS - 12/12/2008

Modifier non, renseigner la condition " if {$realname ......} "


RE: ban sur detection de realname - bewess - 12/12/2008

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


RE: ban sur detection de realname - BdS - 12/12/2008

tu as sans doute oublier de poster ton code ...


RE: ban sur detection de realname - bewess - 12/12/2008

apparemment :x

desole


RE: ban sur detection de realname - Babytigrou16 - 13/12/2008

Moi c'est bizzard j'ai tout fait comme il faut mais sa ne banni pas ^^ lolll


RE: ban sur detection de realname - CrazyCat - 13/12/2008


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.


RE: ban sur detection de realname - bewess - 15/12/2008

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


RE: ban sur detection de realname - BdS - 15/12/2008

Prends l'habitude de poster ton code modifié ... sinon pour t'aider ça risque d'être compliqué.


RE: ban sur detection de realname - bewess - 15/12/2008

le voila désolé :x


RE: ban sur detection de realname - CrazyCat - 15/12/2008

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]"




RE: ban sur detection de realname - bewess - 15/12/2008

cela ne marche tojours pas, mais la j'ai pas de messages d'erreur


RE: ban sur detection de realname - Babytigrou16 - 21/12/2008

ta rewgarder tes code comme il fo ?