Communauté Eggdrop

Communauté Eggdrop > Eggdrop et TCL > Scripts TCL > ban sur detection de realname
Version complète : ban sur detection de realname
Vous consultez actuellement la version basse qualité d’un document. Voir la version complète avec le bon formatage.
Pages : 1 2

bewess

11/12/2008, 14:17
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 Smile

CrazyCat

11/12/2008, 18:01
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
}


bewess

11/12/2008, 20:31
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 Smile

BdS

12/12/2008, 01:25
Modifier non, renseigner la condition " if {$realname ......} "

bewess

12/12/2008, 14:39
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 Smile

BdS

12/12/2008, 18:33
tu as sans doute oublier de poster ton code ...

bewess

12/12/2008, 20:27
apparemment Mad

desole

Babytigrou16

13/12/2008, 00:41
Moi c'est bizzard j'ai tout fait comme il faut mais sa ne banni pas ^^ lolll

CrazyCat

13/12/2008, 12:43
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.

bewess

15/12/2008, 12:58
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

BdS

15/12/2008, 13:11
Prends l'habitude de poster ton code modifié ... sinon pour t'aider ça risque d'être compliqué.

bewess

15/12/2008, 13:38
le voila désolé Mad

CrazyCat

15/12/2008, 14:55
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]"


bewess

15/12/2008, 18:09
cela ne marche tojours pas, mais la j'ai pas de messages d'erreur

Babytigrou16

21/12/2008, 22:35
ta rewgarder tes code comme il fo ?
Pages : 1 2
Communauté Eggdrop > Eggdrop et TCL > Scripts TCL > ban sur detection de realname