Communauté Eggdrop
Rajouter un ban au troisième kick - Version imprimable

+- Communauté Eggdrop (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)
+--- Sujet : Rajouter un ban au troisième kick (/showthread.php?tid=1659)



Rajouter un ban au troisième kick - Alucard`68 - 21/02/2017

Bonjour à tous ,

Voila j'ai trouvé un tcl antibadwords plutot simple à comprendre pour moi dont voici la source : Anti Bad Words

J'ai modifier le code pour intégrer une fonction pour que certaine personne ne soit pas kick par le bot. Voici le code modifié :
TCL
set vhostexempt {
 *Root@domain.tld
 *@TechAdmin.domain.tld
 *@autant.de.vhost.que.vous.voulez
}
 
set badwords {
 les
 badwords
 ici
 de
 cette
 façon
}
 
bind pubm -|- * bad:words
proc bad:words {nick host hand channel text} {
 global badwords vhostexempt
 set bad ""
 foreach element $badwords {
   foreach element1 $text {
 if {$element1 == $element} {
set bad "$element"
   break
   }
}
 }
 if {$bad != ""} {
   set vichost [getchanhost $nick $channel]
   set protec 0
   foreach vhost $vhostexempt {
     if { [string match -nocase $vhost $vichost] } {
       set protec 1
     }
   }
   if { $protec == 1 } {
     return 0
     } else {
     putkick $channel $nick "\00312Merci de surveiller votre language !!"
     }
  }
}


Il fonctionne très bien mais je voudrais rajouter une fonction qui ban l'user au troisième kick mais voila je ne sais absolument pas comment mi prendre.
Serait t'il possible d'être aiguillé dans la bonne direction de façon a ce que je puisse arrivé à mes fins.
Merci d'avance pour votre aide future.

Bien à vous.

Bye.


RE: Rajouter un ban au troisième kick - MenzAgitat - 22/02/2017

Jette un oeil à https://forum.eggdrop.fr/Anti-Frenzy-%28version-actuelle-201%29-t-412.html
Ce script fait également office d'antibadwords et te permet de définir une riposte graduée comme tu le souhaites (par exemple avertissement -> kick -> kick -> kickban).


RE: Rajouter un ban au troisième kick - Alucard`68 - 22/02/2017

ok merci pour ce script mais je doit avouer que je ni comprend rien je suis loin de votre niveau et au namespace je ne comprend rien du tout au point que je ne vois même pas ou regarder sur le script pour tenter de finaliser mon code :/

Mais merci a toi tout de même :)


RE: Rajouter un ban au troisième kick - Alucard`68 - 24/02/2017

Personne pour m'aiguiller sur quelque chose de plus "simple" à comprendre pour un petit codeur comme moi ?

Merci d'avance.

Bye.


RE: Rajouter un ban au troisième kick - Alucard`68 - 26/02/2017

Bonsoir,

Je ne demande pas que l'on me fasse le code je demande juste que l'on m'aiguille sur un code plus simple que je comprenne comment faire se que je désire.

Peut-on m'aider pour cela ?

Merci d'avance.

Bye.


RE: Rajouter un ban au troisième kick - MenzAgitat - 26/02/2017

Le script que je proposais faisait déjà tout ce que tu veux faire mais si le but est de le faire toi-même en vue d'apprendre, alors voici par exemple ce que tu peux faire :
- Stocker dans un dict les hosts des utilisateurs qui sont kickés, avec un compteur que tu incrémenteras (avec dict incr) à chaque nouveau kick
- Lorsqu'un kick est appliqué, chercher dans le dict si on a déjà enregistré ce host
   - si oui
      - si compteur < 3 on l'incrémente
      - si compteur >= 3 on bannit l'utilisateur et on supprime l'entrée du dict (puisqu'elle n'est plus utile une fois l'utilisateur banni et doit donc se réinitialiser)
   - si non : on ajoute le host dans le dict et on définit le compteur à 1


RE: Rajouter un ban au troisième kick - Alucard`68 - 26/02/2017

ok merci pour ces infos je vais voir le lien tenter de comprendre et revenir vers vous avec se dont j'ai pu réussir a faire ou non

Merci Smile

EDIT : Voila se que j'ai fait pour le moment c'est pas grand chose mais c'est la première fois que je fait ça (il y a un début à tout lol) je vais i allez étape par étape pour bien comprendre
TCL
set base(ban) "chemin/de/ma/base/des/host/enregistré.txt"
 
proc banraison { nick host hand channel text } {
  global cs chanlog exempt unban base
  set args [split $text]
  set victim [lindex $args 0]
  set reason [join [lrange $args 1 end]]

#ici j'ouvre ma base de donnée
  set fp [open $base(ban) a]
#la j'enregistre dedans
  puts $fp "je ne sais pas comment enregistrer une vhost dans un fichier ni comment agrémenter un compteur"
#la je la ferme
  close $fp
 
  if { ![onchan $victim $channel] } {
    putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
	return 0
  }
  set vichost [getchanhost $victim $channel]
  set protec 0
  foreach vhost $exempt(vhost) {
	if { [string match -nocase $vhost $vichost] } {
	  set protec 1
	}
  }
  if { $protec == 1 } {
    putserv "NOTICE $nick :$exempt(reason)"
    } else {
    putserv "PRIVMSG $cs ban $channel $victim $reason"
    putserv "PRIVMSG $chanlog :\0034$victim \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
    timer $unban(time) [list putserv "mode $channel -b $victim"]
  }
}


Déjà est ce que je commence bien ou pas ? je m'excuse d'avance se poste risque d'être un peu long...
Ais-je bien placer mon "set" pour ouvrir ma base de donnée ?
Ais-je oublié quelque chose d'important ?

Bien à vous.


RE: Rajouter un ban au troisième kick - Alucard`68 - 01/03/2017

Bonjour, je vient de me rendre compte que mon poste précédent n'était pas le bon code tcl je m'en excuse. Donc voila ou j'en suis actuellement et j'aimerais de l'aide pour réaliser se que je souhaite
TCL
set base(ban) "chemin/de/ma/base/des/host/enregistré.txt"
set vhostexempt {
 *Root@domain.tld
 *@TechAdmin.domain.tld
 *@autant.de.vhost.que.vous.voulez
}
 
set badwords {
 les
 badwords
 ici
 de
 cette
 façon
}
 
bind pubm -|- * bad:words
proc bad:words {nick host hand channel text} {
 global badwords vhostexempt base
 set bad ""
 foreach element $badwords {
   foreach element1 $text {
 if {$element1 == $element} {
set bad "$element"
   break
   }
}
 }
 if {$bad != ""} {
 
#ici j'ouvre ma base de donnée
  set fp [open $base(ban) a]
#la j'enregistre dedans
  puts $fp "je ne sais pas comment enregistrer une vhost dans un fichier ni comment agrémenter un compteur"
#la je la ferme
  close $fp
 
   set vichost [getchanhost $nick $channel]
   set protec 0
   foreach vhost $vhostexempt {
     if { [string match -nocase $vhost $vichost] } {
       set protec 1
     }
   }
   if { $protec == 1 } {
     return 0
     } else {
     putkick $channel $nick "\00312Merci de surveiller votre langage !!"
     }
  }
}


Donc suis-je sur la bonne voix ?
Ais-je oublié quelque chose avant ?
Comment enregistre t'on des vhost dans une base de donnée et comment on agrémente un compteur ?

Merci d'avance .

Bye.


RE: Rajouter un ban au troisième kick - CrazyCat - 01/03/2017

J'ai juste survolé ce que tu as fait...
TCL
foreach element $badwords {
   foreach element1 $text {
      if {$element1 == $element} {
         set bad "$element"
         break
      }
   }
}


Tu peux simplifier:
TCL
foreach word $text {
   if { [lsearch -nocase $badwords $word] } {
      set bad $word
   }
}


Ensuite, pourquoi stocker dans une base de données (ou un fichier) ? Pourquoi ne pas utiliser la userlist de l'eggdrop ? Ca permettrait en plus d'avoir le script fonctionnel sur différents canaux, et de mieux gérer les utilisateurs et les kick/ban


RE: Rajouter un ban au troisième kick - Alucard`68 - 02/03/2017

oui c'est une proposition plutôt intéressante mais je ne sais absolument pas comment faire ça :/
Vas me falloir un gros coup de main sur se coup la...

Merci d'avance.

Bye.