Systeme anti-mauvais mot configurable

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 883 fois - Téléchargée 26 fois

Contenu du snippet

Code créé pour evité les insulte et eventuellement le spam sur les salon.
Le bot DOIT ETRE operateur, sinon il va bugger.
Nombre de mots illimité.

Source / Exemple :


alias nos { dialog -m nos nos }
dialog nos {
  title "Anti insulte by Raziell"
  size -1 -1 82 121
  option dbu
  list 1, 14 9 50 50, size vsbar
  edit "", 2, 10 61 58 10, autohs
  box "", 3, 1 1 78 106
  button "Ajouter", 4, 20 75 37 12, flat
  button "Effacer", 5, 4 91 73 12, flat
  button "Quitter", 7, 22 109 37 12, ok
}
On *:dialog:nos:*:*:{
  if $devent == init { if $exists(insulte.txt) { loadbuf -ro nos 1 insulte.txt } }
  If $devent == sclick {
    If $did == 4 { 
      If $did(2) == $null { $input(Vous devez entrez un mot !) }
      else {
        write -a insulte.txt $did(2) | loadbuf -ro nos 1 insulte.txt 
      }
    }
    if $did == 5 { 
      If $did(1).seltext == $null { $input(Vous devez choisir un mot !) }
      else { write -dl $+ $did(1).seltext insulte.txt | loadbuf -ro nos 1 insulte.txt  }
    }
  }
}
On *:Text:*:*:{
  var %a = 0, %b = $lines(insulte.txt)
  while %b > %a {
    inc %a 
    if $read(insulte.txt,%a) isin $1- { kick $chan $nick 2(1--14Channel Protection1--2) }
  }
}
Menu channel,menubar,status {
-
-[ Anti spam ]- :/nos
}
On *:Load:{
echo -a Vous avez bien charger le menu anti badword
echo -a Créé par Raziell
echo -a Contact on irc, server chat7.x-echo.com , chan #keanu
}

Conclusion :


Chargez le code dans les remote et entrez les mot que vous voulez ( Nombre illimité )...

A voir également

Ajouter un commentaire Commentaires
Messages postés
13
Date d'inscription
lundi 31 mai 2004
Statut
Membre
Dernière intervention
22 août 2004

Bah C'est pour les bot donc c'est bien ;)
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

Alors mon gars tu n'as toujours pas fait d'update ?!
ton code devrais deja faire 20 lignes de moins.

quand tu va faire ton update premet de changer l'action sur les users et met un dialogue pour rajouter des insultes.

Wala :)
Messages postés
343
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
19 août 2006
1
tient je savais pas ça merci tofu tu m'a appris quelque chose
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
au lieu de ton group etc tu mets:

On @1:text:*:#:{

le "@" remplace le "if $me isop $chan" .
Messages postés
343
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
19 août 2006
1
De rien
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Raziell)