Communauté sur les Eggdrops - Community about Eggdrops
aide pour une commande de ban - 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: aide pour une commande de ban (/showthread.php?tid=1090)



aide pour une commande de ban - loulou7593 - 16/12/2011

Bonsoir,

J'aimerais avoir une petite aide pour un code, je vous explique.

Les utilisateurs ayant un flag +Z qui tapes !ban pseudo ca doit ban le pseudo qu'ils ont precisés.

Mais j'aimerais que les utilisateurs ayant un flag +Z ne soit pas banni pour eviter les bans entre eux.

Voici le code


tcl
bind pub Z !ban ban
proc ban {nick host hand chan arg} {
     global botnick
     set nicks [join [lindex [split $arg] 0]]
	 set reason [join [lrange [split $arg] 1 end]]
	 if {$nicks == ""} {
		putserv "PRIVMSG $::chanback :Tu veux Bannir qui $nick ?"
		return 0
	}
	if {$reason == ""} {
	putserv "KICK $chan $nicks :Bannii"
	} else {
	putserv "KICK $chan $nicks :$reason"
	}
	 putquick "MODE $chan -o $nicks"
	 putquick "MODE $chan +b $nicks"
     putserv "PRIVMSG $::chanback :$nick vient de Bannir $nicks sur $chan"
	 }


maintenant j'ai essayé d'ajouter cela dans le code mais ca ne fonctionne pas
tcl
if {[matchattr $nick Z]} {
		putserv "PRIVMSG $::chanback :ANTIBAN $nick Il est impossible de Ban un autre @"
	}


Quelqu'un peut m'aider ??

Cordialement


RE: aide pour une commande de ban - loulou7593 - 16/12/2011

Désolé j'ai posté ce sujet un peu trop tot,

J'ai reussis à trouver mon erreur.

en faisant comme cela

tcl
bind pub Z !ban ban
proc ban {nick host hand chan arg} {
     global botnick
     set nicks [join [lindex [split $arg] 0]]
	 set reason [join [lrange [split $arg] 1 end]]
	 if {$nicks == ""} {
		putserv "PRIVMSG $::chanback :Tu veux Bannir qui $nick ?"
		return 0
	}
	if {[matchattr $nicks Z]} {
		putserv "PRIVMSG $::chanback :ANTIBAN $nick Il est impossible de Ban un autre @"
		return 0
	}
	if {$reason == ""} {
	putserv "KICK $chan $nicks :Banni"
	} else {
	putserv "KICK $chan $nicks :$reason"
	}
	 putquick "MODE $chan -o $nicks"
	 putquick "MODE $chan +b $nicks"
     putserv "PRIVMSG $::chanback :$nick vient de Bannir $nicks sur $chan"
	 }


Ca fonctionne pour un pseudo simple qui a un flag +Z mais si la personne change d'extension le flag n'est plus reconnu.

Je pense qu'il faudrait plutot une verification du genre si on veut ban un utilisateur et que celui ci est opé ca ne le ban pas.

comme ce genre de chose
tcl
if {![isop $nick $chan]} {return}


Mais je ne vois pas du tout comment integrer ca


RE: aide pour une commande de ban - loulou7593 - 16/12/2011

SUJET RESOLU

désolé encore.

Si un Admin peut me dire pourquoi on ne peut pas supprimer ses propres sujets ??

Merci encore


RE: aide pour une commande de ban - CrazyCat - 16/12/2011

Un admin te réponds: parce que d'autres peuvent avoir la même question et donc être intéressés par ton sujet, même s'il est résolu. Surtout s'il l'est.


RE: aide pour une commande de ban - loulou7593 - 17/12/2011

Ok pas de soucis Monsieur CrazyCat.