Systeme anti-mauvais mot configurable

Commenter

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

S'inscrire maintenant

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)