Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


[Script] Moderation.tcl By Platine débug.
#1
Bonjour,

Voici un code TCL de modération de base qui et de Platine.

Version débug et refait.

Liens : https://scripts.eggdrop.fr/details-Moderation-s252.html

Et si jamais, vous voulais un système de Help avec ce tcl :

tcl
##############################################################
# Modération help.                                           #
# Code TCL pour la liste des commandes du TCL moderation.tcl #
#                                                            #
##############################################################
 
namespace eval ::mod.help {
 
    bind dcc o|o "xhelp" [namespace current]::dcc:mod
    proc dcc:mod { hand idx arg } {
        putdcc $idx "\00314Commandes Help du TCL de \002\0034Modération\0034\0031 :\0031\002"
        putdcc $idx ""
        putdcc $idx "\037Gestion des chans à modérer\037 :"
        putdcc $idx "\002.modchan\002 \00314(Permet de lister les chans modérés)\00314"
        putdcc $idx "\002.+modchan\002 <#chan> \00314(Permet d'ajouter un chan à modérer)\00314"
        putdcc $idx "\002.-modchan\002 <#chan> \00314(Permet de supprimer un chan à modérer)\00314"
        putdcc $idx ""
        putdcc $idx "\037Gestion des mots interdit\037 :"
        putdcc $idx "\002.modmot\002 \00314(Permet de lister les mots interdits)\00314"
        putdcc $idx "\002.+modmot\002 <mot> \00314(Permet d'ajouter un mot interdit)\00314"
        putdcc $idx "\002.-modmot\002 <mot> \00314(Permet de supprimer un mot interdit)\00314"
        putdcc $idx ""
        putdcc $idx "\037Gestion des spams interdit\037 :"
        putdcc $idx "\002.modspam\002 \00314(Permet de lister les spams interdits)\00314"
        putdcc $idx "\002.+modspam\002 <spam> \00314(Permet d'ajouter un spam interdit)\00314"
        putdcc $idx "\002.-modspam\002 <spam> \00314(Permet de supprimer un spam interdit)\00314"
        putdcc $idx ""
        putdcc $idx "\037Gestion des nicks interdit\037 :"
        putdcc $idx "\002.modnick\002 \00314(Permet de lister les nicks interdits)\00314"
        putdcc $idx "\002.+modnick\002 <nick> \00314(Permet d'ajouter un nick interdit)\00314"
        putdcc $idx "\002.-modnick\002 <nick> \00314(Permet de supprimer un nick interdit)\00314"
        putdcc $idx ""
        putdcc $idx "\037Gestion de la blacklist\037 :"
        putdcc $idx "\002.blacklist\002 \00314(Permet de lister la blacklist)\00314"
        putdcc $idx "\002.+blacklist\002 <host> \00314(Permet d'ajouter un host à la blacklist)\00314"
        putdcc $idx "\002.-blacklist\002 <host> \00314(Permet de supprimer un host à la blacklist)\00314"
        putdcc $idx ""
        putdcc $idx "\037Gestion des xtrusts (si Anticlones installé)\037 :"
        putdcc $idx "\002.xtrust\002 \00314(Permet de lister les hosts protégés (exemptés)\00314"
        putdcc $idx "\002.+xtrust\002 <host> \00314(Permet d'ajouter un host à exempter)\00314"
        putdcc $idx "\002.-xtrust\002 <host> \00314(Permet de supprimer un host exempté)\00314"
        putdcc $idx ""
        putdcc $idx "\037Gestion de la protection contre la modération\037 :"
        putdcc $idx "\002.protect\002 \00314(Permet de lister les hosts protégés)\00314"
        putdcc $idx "\002.+protect\002 <host> \00314(Permet d'ajouter un host protégé)\00314"
        putdcc $idx "\002.-protect\002 <host> \00314(Permet de supprimer un host protégé)\00314"
        putdcc $idx ""
        putdcc $idx "\002Fin de la liste des commandes du tcl de modération.\002"
    }
 
    bind pub o|o "!aide" [namespace current]::pub:aide
    proc pub:aide { nick host hand chan arg } {
        puthelp "privmsg $nick :\00300,2_______________\002Moderation - Aide\002_______________\00300,2"
        puthelp "privmsg $nick :"
        puthelp "privmsg $nick :\037\00300,2Gestion de la protection\037\00300,2"
        puthelp "privmsg $nick :\0035 .protectlist\0035 (\0034Permet de lister les hosts protégés\0034)- \0033Protection contre toute cette modération\0033"
        puthelp "privmsg $nick :\0035.+protect\0035 <\0034host/pseudo*!*@*\0034> \0033(Permet d'ajouter un host/pseudo protégé)\0033"
        puthelp "privmsg $nick :\0035.-protect\0035 <\0034host/pseudo*!*@*\0034> \0033(Permet de supprimer un host/pseudo protégé)\0033"
        puthelp "privmsg $nick :"
        puthelp "privmsg $nick :\037\00300,2Gestion des mots interdits\037\00300,2"
        puthelp "privmsg $nick :\0035.badmotlist\0035 (\0033Permet de lister les mots interdits\0033)"
        puthelp "privmsg $nick :\0035.+badmot\0035 <\0034mot\0034> (\0033Permet d'ajouter un mot interdit\0033)"
        puthelp "privmsg $nick :\0035.-badmot\0035 <\0034mot\0034> (\0033Permet de supprimer un mot interdit\0033)"
        puthelp "privmsg $nick :"
        puthelp "privmsg $nick :\037\00300,2Gestion des Spams interdits\037\00300,2"
        puthelp "privmsg $nick :\0035.spamlist\0035 (\0033Permet de lister les spams\0033)"
        puthelp "privmsg $nick :\0035.+spam\0035 <\0034spam\0034> (\0033Permet d'ajouter un spam\0033)"
        puthelp "privmsg $nick :\0035.-spam\0035 <\0034spam\0034> (\0033Permet de supprimer un spam\0033)"
        puthelp "privmsg $nick :"
        puthelp "privmsg $nick :\037\00300,2Gestion des nicks interdits\037\00300,2"
        puthelp "privmsg $nick :\0035.badnicklist\0035 (\0033Permet de lister les nicks interdits\0033)"
        puthelp "privmsg $nick :\0035.+badnick\0035 <\0034nick\0034> (\0033Permet d'ajouter un nick interdit\0033)"
        puthelp "privmsg $nick :\0035.-badnick\0035 <\0034nick\0034> (\0033Permet de supprimer un nick interdit\0033)"
        puthelp "privmsg $nick :"
        puthelp "privmsg $nick :\037\00300,2Gestion de la Blacklist\037\00300,2"
        puthelp "privmsg $nick :\0035.bavlist\0035 (\0033Permet de lister la blacklist\0033)"
        puthelp "privmsg $nick :\0035.+bav\0035 <\0034host/pseudo*!*@*\0034> (\0033Permet d'ajouter un host/pseudo*!*@* à la blacklist\0033)"
        puthelp "privmsg $nick :\0035.-bav\0035 <\0034host/pseudo*!*@*\0034> (\0033Permet de supprimer un host/pseudo*!*@* à la blacklist\0033)"
        puthelp "privmsg $nick :\037\00300,2Gestion des xtrusts\037\00300,2"
        puthelp "privmsg $nick :\0035.xtrust\0035 (\0033Permet de lister les hosts protégés exemptés\0033)"
        puthelp "privmsg $nick :\0035.+xtrust\0035 <\0034host\0034> (\0033Permet d'ajouter un host à exempter\0033)"
        puthelp "privmsg $nick :\0035.-xtrust\0035 <\0034host\0034> (\0033Permet de supprimer un host exempté\0033)"
        puthelp "privmsg $nick :"
        puthelp "privmsg $nick :\037\00300,2Gestion des Salons à Modérer\037\00300,2"
        puthelp "privmsg $nick :\0034Level Admin Bot\0034"
        puthelp "privmsg $nick :\0035.listchan\0035 (\0033Permet de lister les chans modérés\0033)"
        puthelp "privmsg $nick :\0035.+chan\0035 <\0034#chan\0034> (\0033Permet d'ajouter un chan à modérer\0033)"
        puthelp "privmsg $nick :\0035.-chan\0035 <\0034#chan\0034> (\0033Permet de supprimer un chan à modérer\0033)"
        puthelp "privmsg $nick :\0034Level Admin Bot\0034"
        puthelp "privmsg $nick :"
        puthelp "privmsg $nick :\00300,2_______________\002Fin - Aide\002_______________\00300,2"
    }
}



J'ai oublié et aussi pas eut la fois de modifié pour le rajouter
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
  Répondre


Sujets apparemment similaires...
Sujet Auteur Réponses Affichages Dernier message
  besoin d'aide pour un debug tedcampa 4 3,998 03/03/2010, 11:24
Dernier message: tedcampa

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)