API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 13th, 2013
315
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 115.05 KB | None | 0 0
raw download clone embed print report
  1. # Gestion.Bot v2.0 Final Par alias_angelius.
  2. #
  3. # Projet réalisé dans le but que le TCL soit possible pour un débutant tel que moi même si j'ai obtenu des aides et explications.
  4. #
  5. # Certaines Idées venant de certaines commandes du script sont de diverses personnes telles que :
  6. # CrazyCat,Artix,MenzAgitat,Xem,BeussAy,Pain,OpTiXPrO.
  7. #
  8. # Et certaines aides venant de ces personnes la aussi, je tien tout particulièrement
  9. # À remercier l'équipes de Modération de eggdrop.fr pour leur aides/explications sur diverses
  10. # Commandes et explications sur le fonctionnement de certaines commandes.
  11. #
  12. # Idée de passer le TCL en namespace : MenzAgitat.
  13. # Idée de faire un système d’array pour divers message : Artix.
  14. # Idée de passer par une double procédure par exemple comme dans le cas du kickban : MenzAgitat.
  15. # Idée de faire un système de forcing join lors de la diffusion d'un message (infoline) : CrazyCat.
  16. # Idée de faire passer les binds pub/msg en namespace current : BeussAy.
  17. # Idée de faire un level op qui et accès sur tout les salons du Robot avec le tcl : OpTiXPrO.
  18. # Idée de faire un système de authlist : Pain.
  19. #
  20. # Et d'autres personnes m'ont suggéré de faire certaines choses dans le TCL si je ne l'ai pas fait c'est
  21. # Qu'il existe déjà un script TCL correspondant à ceci ou alors que l'utilité de ce qui m'a été demandé
  22. # N'était pas en rapport avec le but de la fonction de mon TCL.
  23. #
  24. # Donc je tiens à signaler que le TCL Gestion.Bot v2.0 Final a été testé sur deux réseaux irc différents :
  25. #
  26. # Réseaux Orange : type ircu (TCL tester sur le salon  #Trip sans aucun soucis tout fonctionne).
  27. # Réseaux Zeolia : type unreal (TCL tester sur le salon #Trip sans aucun soucis tout fonctionne).
  28. #
  29. # Donc maintenant il ne vous reste plus qu'à remplir la partie variable log commande préfixe et admin.
  30. #
  31. # Donc pour ce qui concerne le lancement du TCL c'est assez simple il vous suffira de taper deux commandes :
  32. #
  33. # .gbon "commandes à taper sur salon pour activer le TCL sinon certaines commandes ne seront et ne pourront pas être exécutées".
  34. # Ensuite tapez /msg <pseudo-de-votre-bot> help "ceci vous donnera une aide détaillée sur les commandes diverses de votre
  35. # Eggdrop ce qu'il pourra exécuter en commande avec le TCL selon votre level bien sûr".
  36. # NB : à savoir il faut vous authentifier avant de faire cela donc : /msg <pseudo-de-votre-bot> auth <votre-pseudo> <pass> .
  37. #
  38. # À partir de là il ne vous reste plus qu'à tester les commandes.
  39. #
  40. # Le but du TCL lorsque j'ai codé avec l'aide que l'on m'a apportée :
  41. # 1 : Permettre aux personnes ne sachant pas coder de prendre exemple dessus s’ils le désirent.
  42. # 2 : Pouvoir modifier le TCL à votre guise mais en laissant le nom de l'auteur dans le putlog tout de même.
  43. # 3 : Le TCL peux aider selon les fonctions pour un salon pour se op/deop etc.
  44. # Voici l'un des buts principaux du TCL en espérant que cela vous conviendra.
  45. #
  46. # alias_angelius.
  47. #
  48. # Good Fun.
  49.  
  50. # Conditions Générales d'Utilisations Du TCL.
  51. #
  52. # Maintenant petite explication sur les conditions général d'utilisation du TCL Gestion.Bot.
  53. #
  54. # Donc comme je l'ai dit au dessus ils vous et possible de modifier le script TCL et même de pouvoir l'améliorer ou autre.
  55. # Mais ce que je voudrai ne pas voir c'est que le putlog soit changer en remplaçant le pseudonyme de l'auteur du TCL donc "alias_angelius"
  56. # Ceci ne vous apportera rien.. Et je ne ferais aucunes aides si j’apprends ceci.
  57. #
  58. # Autre information si jamais il vous viendrez à l'idée de ripper vous gêner pas surtout mais si ça fonctionne pas
  59. # Ne venez pas demander de l'aide.
  60. #
  61. # Information il faut accepter les conditions que je viens de donner et de mettre "oui" au niveau de
  62. # Conditions Générales d'Utilisations ci dessous.
  63. #
  64. # Fin de l'explication.
  65.  
  66. namespace eval GB {
  67.    
  68.     # Pseudo Admin du Bot #
  69.     variable admin "Nicolas"
  70.     # Salon de log #
  71.     variable log "#Paradis"
  72.     # Commande Prefix Permet de choisir la commande par défault soit "." ou "!" #
  73.     set commande(choix) "!"
  74.     # Conditions Général d'Utilisations #
  75.     set CGU "oui"
  76.  
  77.     # Array Message #
  78.  
  79.     array set msg {
  80.          "pvmsg" "Bonjour Je suis le Robot de Gestion\nOn vient de te créer un Access dans ma base de données\nDonc je te conseille de taper la commande qui suit\n/msg Pseudo-Du-Bot conf\nCeci t'aidera pour les premiers pas pour configurer ton mot de passe par exemple\nSi vous ne l'avez pas encore effectué sinon ceci ne vous servira à rien de le tapez\nFin de l'aide.\nPS: Pseudo-Du-Bot (à remplacer par mon pseudo)."
  81.          "bl" "\0034Tu es banni du salon. \00314( \0031Blackliste\00314 )"
  82.          "kick" "Vous venez d'être kické par $nick sur $chan !"
  83.          "kickban" "Exclu(e) de $chan !"
  84.          "nc" "~ Exp/Notice-Chan ~ Pas de notice salon svp"
  85.          "level" "Vous n'avez pas le level suffisant dans $::botnick pour utiliser cette commande $nick !"
  86.          "salon" "Désolé $nick mais le salon que tu demandes est inconnu !"
  87.          "auth" "Avant d'utiliser la commande veuillez vous authentifier au préalable merci : ( /msg $::botnick auth <pseudo> <pass> )"
  88.          "access" "Désolé $nick mais je ne trouve pas ton accès dans ma base de données !"
  89.          "botdeop" "Désolé je ne peux pas exécuter la commande je suis déop sur $chan !"
  90.          "nosalon" "Désolé $nick mais je suis absent du salon $chan !"
  91.          "pseudo" "Désolé mais le pseudonyme demandé n'est pas sur $chan !"
  92.          "nochan" "Désolé $nick mais je ne te vois pas sur $chan !"
  93.          "nopseudo" "Désolé mais vous n'êtes pas présent sur le salon $chan !"
  94.          "iso" "Désolé $nick mais tu me demandes quelque chose alors que tu l'es déjà sur $chan !"
  95. }  
  96.  
  97.     # Setudef #
  98.  
  99.          setudef flag GB
  100.  
  101.     # Retour de Procédure Idée et aide venant de MenzAgitat #
  102.  
  103.     # Retour Proc Kickban #
  104.  
  105.     proc ban_user {nick host chan} {
  106.         putquick "MODE $chan +b [::GB::hostmask_process $nick $host 2]"
  107.         putquick "KICK $chan $nick [subst -nocommands -nobackslashes $::GB::msg(kickban)]"
  108. }
  109.  
  110.     # Procédure inspiré du Anti-Frenzy de MenzAgitat #
  111.  
  112.     proc ::GB::hostmask_process {nick host type} {
  113.          set fullhost "$nick!$host"
  114.          set nick "*" ; set ident "*" ; set host "*"
  115.          scan $fullhost "%\[^!\]!%\[^@\]@%s" nick ident host
  116.          set nick [join [string trimleft $nick "@+"]]
  117.          set ident [join [string trimleft $ident "~"]]
  118.          set hostmask $host
  119.     if { [regexp {([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)} $host] } {
  120.          set host [lreplace [split $host .] end end *]
  121.     } else {
  122.          set host [split $host .]
  123.     if { [llength $host] == 3 } { set host [lreplace $host 0 0 *] }
  124.     if { [llength $host] > 3 } { set host [lreplace $host 0 1 *] }
  125.     }
  126.          set domain [join $host .]
  127.     switch "$type" {
  128.          "0" { return "*!$ident@$hostmask" }
  129.          "1" { return "*!*$ident@$hostmask" }
  130.          "2" { return "*!*@$hostmask" }
  131.          "3" { return "*!*$ident@$domain" }
  132.          "4" { return "*!*@$domain" }
  133.          "5" { return "$nick!*$ident@$hostmask" }
  134.          "6" { return "$nick!*$ident@$hostmask" }
  135.          "7" { return "$nick!*@$hostmask" }
  136.          "8" { return "$nick!*$ident@$domain" }
  137.          "9" { return "$nick!*@$domain" }
  138.          "10" { return "*!$ident@$domain" }
  139.          "11" { return "*!$ident@*.IP" }
  140.          "12" { return "*!$ident@*.EpiK" }
  141.     }
  142.     if {[set resultmask $nick!$ident@$fullhost] eq "*!*@*"} { return "invalid!host@mask" }
  143.     return $resultmask
  144. }
  145.  
  146.     # PL #
  147.  
  148.     proc opco {hand idx} {
  149.          putquick "privmsg $::GB::log :\0031\[\00312Connection\0031\] \0034$hand \0033vient de se connecter a la \0036Party-Line.\0036"
  150.          dccbroadcast "\00312Connection PL Autorisé pour \0034$hand\0034"
  151. }
  152.  
  153.     proc opdeco {hand idx} {
  154.          putquick "privmsg $::GB::log :\0031\[\00312Déconection\0031\] \0034$hand \0033vient de se déconecter de la \0036Part-Line.\0036"
  155.          dccbroadcast "\00312Déconnection PL pour \0034$hand\0034"
  156. }
  157.  
  158.     # Auth #
  159.  
  160.     proc auth { nick host hand arg } {
  161.          set arg [gbfilter $arg]
  162.          set args [split $arg]
  163.          set chan [lindex $arg 0]
  164.          set pseudo [lindex $arg 0]
  165.     if {[llength $args] != 2} {
  166.          puthelp "notice $nick :\002Erreur :\002 ( /msg $::botnick auth <pseudo> <pass> )"
  167.     return 0
  168.     }
  169.          set password [lindex $args 1]
  170.     if { [nick2hand $pseudo] eq "*" } {
  171.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  172.     return 0
  173.     }
  174.     if {![passwdok $pseudo $password]} {
  175.          puthelp "notice $nick :\002Erreur :\002 Votre mot de pass ou/et votre pseudo est/sont incorrect(s) !"
  176.     return 0
  177.     }
  178.     if {![string match -nocase [lindex [getuser $pseudo HOSTS] 0] $nick!$host]} {
  179.          puthelp "notice $nick :\002Erreur :\002 Votre host ne correspond pas avec votre accès !"
  180.     return 0
  181.     }
  182.     if {[getuser $pseudo XTRA AUTH] eq "ON"} {
  183.          puthelp "notice $nick :\002Erreur :\002 Vous êtes déjà authentifier !"
  184.     return 0
  185.     }
  186.     if {[getuser $hand XTRA SUSPEND] eq "ON"} {
  187.          puthelp "notice $nick :\002Erreur :\002 Vous êtes suspendu !"
  188.     return 0
  189.     }      
  190.          puthelp "notice $nick :\0031\[AUTHENTIFICATION REUSSIE\]\0031 Vous êtes maintenant authentifié !"
  191.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Auth\0036\] \0031par : \0034$hand"
  192.          putquick "invite $nick $::GB::log"
  193.          setuser $pseudo XTRA AUTH ON;
  194.          setuser $hand XTRA SEEN [clock format [clock seconds] -format "le %d/%m/%Y à %Hh%M"]
  195.          save
  196.     return
  197. }
  198.  
  199.     # Deauth #
  200.  
  201.     proc deauth { nick host hand arg } {
  202.          set arg [gbfilter $arg]
  203.          set chan [lindex $arg 0]
  204.     if {[getuser $hand XTRA auth] eq "ON"} {
  205.          puthelp "notice $nick :\0031\[DEAUTHENTIFICATION REUSSIE\]\0031 Vous êtes maintenant deauthentifié !"
  206.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Deauth\0036\] \0031par : \0034$hand"
  207.          setuser $hand XTRA AUTH OFF;
  208.          save
  209.     return
  210.     }
  211. }
  212.  
  213.     # Isauth #
  214.  
  215.     proc [namespace current]::isauth {hand} {
  216.     if {[getuser $hand XTRA AUTH] eq "OFF"} {return 0}
  217.     if {[getuser $hand XTRA AUTH] eq "ON"} {return 1}
  218. }
  219.  
  220.     # Addsuspend #
  221.  
  222.     proc addsuspend {nick host hand arg} {
  223.     set arg [gbfilter $arg]
  224.     if {![matchattr $hand o]} {
  225.          putserv "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  226.     return 0
  227.     }
  228.          set arg [split $arg]
  229.          set login [lindex $arg 0]
  230.     if {$login==""} {
  231.          puthelp "notice $nick :\002/msg $::botnick addsuspend\002<login>"
  232.          puthelp "notice $nick :\002Exemple :\002/msg $botnick addsuspend $::GB::admin"
  233.     return 0
  234.     }
  235.     if { [nick2hand $login] eq "*" } {
  236.          puthelp "notice $nick :\002ADDSUSPEND\002: Le login \002$login\002 a aucun accès."
  237.     return 0
  238.     }
  239.     if {[getuser $login XTRA suspend]=="ON"} {
  240.          puthelp "notice $nick :\002ADDSUSPEND\002: Le login \002$login\002 est déjà suspendu."
  241.     return 0
  242.     }
  243.          setuser $login XTRA SUSPEND ON
  244.          puthelp "notice $nick :\002ADDSUSPEND\002: \002$login\002 a été suspendu."
  245.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Addsuspend\0036\] \0031ajouté par : \0034$hand pour $login"
  246.     return
  247. }
  248.  
  249.     # Delsuspend #
  250.  
  251.     proc delsuspend {nick host hand arg} {
  252.     set arg [gbfilter $arg]
  253.     if {![matchattr $hand o|]} {
  254.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  255.     return 0
  256.     }
  257.          set arg [split $arg]
  258.          set login [lindex $arg 0]
  259.     if {$login==""} {
  260.          puthelp "notice $nick :\002/msg $botnick delsuspend\002<login>"
  261.          puthelp "notice $nick :\002Exemple :\002/msg $botnick delsuspend $::GB::admin"
  262.     return 0
  263.     }
  264.     if { [nick2hand $login] eq "*" } {
  265.          puthelp "notice $nick :\002DELSUSPEND\002 : Le login \002$login\002 a aucun accès."
  266.     return 0
  267.     }
  268.     if {[getuser $login XTRA suspend]=="OFF"} {
  269.          puthelp "notice $nick :\002DELSUSPEND\002 : Le login \002$login\002 n'est pas suspendu."
  270.     return 0
  271.     }
  272.          setuser $login XTRA SUSPEND OFF
  273.          puthelp "notice $nick :\002DELSUSPEND\002 : \002$login\002 n'est plus suspendu."
  274.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Delsuspend\0036\] \0031retiré par : \0034$hand pour $login"
  275.     return
  276. }
  277.  
  278.     # Deauth Part #
  279.  
  280.     proc partdeauth { nick uhost hand chan {msg ""}} {
  281.     if {[matchattr $hand o|o $chan] && [isauth $hand]} {
  282.          setuser $hand XTRA AUTH OFF
  283.          puthelp "notice $nick :Déauthentification suite à votre part du salon.."
  284.          putserv "privmsg $::GB::log :\00314Déauthentification \0036suite au part de \0031: \0034$hand"
  285.     }
  286. }
  287.  
  288.     # Deauth Quit #
  289.  
  290.     proc quitdeauth { nick uhost hand chan {msg ""}} {
  291.     if {[matchattr $hand o|o $chan] && [isauth $hand]} {
  292.          setuser $hand XTRA AUTH OFF
  293.          putserv "privmsg $::GB::log :\00314Déauthentification \0036suit au quit de \0031: \0034$hand"
  294.     }
  295. }
  296.  
  297.     # Deauth Join #
  298.  
  299.     proc joindeauth {nick host hand chan} {
  300.     if {$nick=="$::botnick"} {
  301.          putserv "privmsg $::GB::log :\0034Réinitialisation des accès, tous les authentifiés ont été deauth par sécurité.\0034"
  302.     foreach user [userlist * $chan] {
  303.          setuser $user XTRA AUTH OFF
  304.         }
  305.     }
  306. }
  307.  
  308.     # Blacklist #
  309.  
  310.     # Création et Gestion Db #
  311.  
  312.     if ![file exist database/blacklist.db] {
  313.          set load [open database/blacklist.db w+]
  314.     close fcreate
  315.          putlog "\2Je créé le blacklist.db\2"
  316. }
  317.  
  318.     if ![file exist database/exempt.db] {
  319.          set load [open database/exempt.db w+]
  320.     close fcreate
  321.          putlog "\2Je créé le exempt.db\2"
  322. }
  323.  
  324.      proc progfile {file action arg} {
  325.     set arg [gbfilter $arg]
  326.          set return 0
  327.          set dbr [open database/$file.db r+]
  328.          set dbw [open tmp.tmp w+]
  329.     while {![eof $dbr]} {
  330.          set r [gets $dbr]
  331.     if {$r!=""} {puts $dbw $r}
  332.     }
  333.     close $dbr
  334.     close $dbw
  335.          set dbr [open tmp.tmp r+]
  336.          set dbw [open database/$file.db w+]
  337.     while {![eof $dbr]} {
  338.          set r [gets $dbr]
  339.     if {$action=="add"} {
  340.     if {$r!=""} {
  341.     puts $dbw $r
  342.     } else {
  343.     puts $dbw $arg
  344.     }
  345.          set return 1
  346.     }
  347.     if {$action=="del"} {
  348.     if {$r!=""} {
  349.     if {![string match -nocase $arg [lindex $r 0]] && ![string match -nocase $arg [lindex $r 1]]} {
  350.     puts $dbw $r
  351.     } else {
  352.          set return 1
  353.             }
  354.         }
  355.     }
  356.     if {$action=="chk"} {
  357.     if {$r!=""} {
  358.     puts $dbw $r
  359.     if [string match -nocase [lindex $arg 0] [lindex $r 1]] {
  360.          set return [lindex $r 0]
  361.     if ![string match -nocase [lindex $arg 1] [lindex $r 2]] {set return 2}
  362.     if ![string match [lindex $arg 2] [lindex $r 3]] {set return 3}
  363.             }
  364.         }
  365.     }
  366.     if {$action=="icr"} {
  367.     if {$r!=""} {
  368.     puts $dbw $r
  369.     if [string match -nocase $arg [lindex $r 0]] {
  370.          set return 1
  371.             }
  372.         }
  373.     }
  374.     if {$action=="cf"} {
  375.     if {$r!=""} {
  376.     puts $dbw $r
  377.     if [string match -nocase [lindex $r 0] $arg] {
  378.          set return 1
  379.             }
  380.         }
  381.     }
  382.     if {$action=="ibr"} {
  383.     if {$r!=""} {
  384.     puts $dbw $r
  385.     if [string match -nocase $arg [lindex $r 1]] {
  386.          set return 1
  387.                 }
  388.             }
  389.         }
  390.  
  391.     }
  392.     close $dbr
  393.     close $dbw
  394.     return $return
  395. }
  396.  
  397.     # Add blacklist #
  398.  
  399.     proc +blacklist {nick uhost hand chan arg} {
  400.     set arg [gbfilter $arg]
  401.          set verifexempt "[split [lindex $args 0] |]"
  402.          set nickverife "[lindex $verifexempt 0]"
  403.     if {[channel get $chan GB]==0} { return; }
  404.     if {[lindex $arg 0]!=""} {
  405.     if {[progfile blacklist icr $nickverife]!="0"} {
  406.          puthelp "notice $nick :Attention le Nick: \2$nickverife\2 est déjà dans la Blacklist ou ne peux etre Blackliste."
  407.     return 0
  408.     }
  409.     if {[progfile exempt icr $nickverife]!="0"} {
  410.          puthelp "notice $nick :Attention le Nick: \2$nickverife\2 Ne peux être ajouter a la Blackliste."
  411.     return 0
  412.     }
  413.          progfile blacklist add $nickverife
  414.          puthelp "notice $nick :Le Nick: \2$nickverife\2 a bien été ajouté à la blacklist."
  415.          putquick "privmsg $chan :\00314Le pseudo\002\0031 $nickverife\002 \00314a bien était ajouter au pseudo des (\0034Blackliste\00314)"
  416.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Blacklist\0036\] \0031ajouté par : \0034$hand"
  417.     return 0
  418.     } else {
  419.          puthelp "privmsg $chan :Il faut une victime"
  420.     return 0
  421.     }
  422. }
  423.  
  424.     # Del Blacklist #
  425.  
  426.     proc -blacklist {nick uhost hand chan arg} {
  427.     set arg [gbfilter $arg]
  428.          set verifexempt "[split [lindex $args 0] |]"
  429.          set nickverife "[lindex $verifexempt 0]"
  430.     if {[channel get $chan GB]==0} { return; }
  431.     if {[lindex $arg 0]!=""} {
  432.     if {[progfile blacklist del $nickverife]!="1"} {
  433.          puthelp "notice $nick :Attention le Nick: \2$nickverife\2 n'est pas dans la Blacklist."
  434.     return 0
  435.     }
  436.          progfile blacklist del $nickverife
  437.          puthelp "notice $nick :Le Nick: \2$nickverife\2 a bien été supprimé de la blacklist."
  438.          putquick "privmsg $chan :\00314Le pseudo\002\0031 $nickverife\002 \00314a bien était retiré au pseudo des (\0034Blackliste\00314)"
  439.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Blacklist\0036\] \0031retiré par : \0034$hand"
  440.     return 0
  441.     } else {
  442.          puthelp "privmsg $chan :Il faut une victime"
  443.     return
  444.     }
  445. }
  446.  
  447.     # List Blacklist #
  448.  
  449.     proc .blacklist {nick uhost hand chan arg} {
  450.     set arg [gbfilter $arg]
  451.          set nickb [lindex $arg 0]
  452.          set blusers [open database/blacklist.db r]
  453.     if {[channel get $chan GB]==0} { return; }
  454.          putserv "notice $nick :\2Voici la Blacklist:\2"
  455.          putserv "notice $nick :\2\2"
  456.     while {![eof $blusers]} {
  457.          set bluser [gets $blusers]
  458.     if {$bluser!="" && $nickb==""} {
  459.          putserv "notice $nick :\2Nick:\2 $bluser"
  460.     } elseif [string match -nocase $nickb $bluser] {
  461.          putserv "notice $nick :\2Nick:\2 $bluser."
  462.         }
  463.     }
  464.          putserv "notice $nick :\2Fin de la Blacklist\2."
  465.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Blacklist\0036\] \0031par : \0034$hand"
  466.     close $blusers
  467.          putserv "notice $nick :\2\2"
  468. }
  469.  
  470.     # Add Exempt #
  471.  
  472.     proc +exempt {nick uhost hand chan arg} {
  473.         set arg [gbfilter $arg]
  474.          set verifexempt "[split [lindex $arg 0] |]"
  475.          set nickverife "[lindex $verifexempt 0]"
  476.     if {[channel get $chan GB]==0} { return; }
  477.     if {[lindex $arg 0]!=""} {
  478.     if {[progfile exempt icr $nickverife]!="0"} {
  479.          putserv "notice $nick :Attention le Nick: \2$nickverife\2 est déjà dans la liste des protégés."
  480.     return 0
  481.     }
  482.          progfile exempt add $nickverife
  483.          puthelp "notice $nick :Le Nick: \2$nickverife\2 a bien été ajouté à la liste des protégés."
  484.          putquick "privmsg $chan :\00314Le pseudo\002\0031 $nickverife\002 \00314a bien était ajouter au pseudo des (\0034Protégés\00314)"
  485.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Exempt\0036\] \0031ajouté par : \0034$hand"
  486.     return 0
  487.     } else {
  488.          puthelp "privmsg $chan :Il faut une victime"
  489.     return 0
  490.     }
  491. }
  492.  
  493.     # Del Exempt #
  494.  
  495.     proc -exempt {nick uhost hand chan arg} {
  496.         set arg [gbfilter $arg]
  497.          set verifexempt "[split [lindex $arg 0] |]"
  498.          set nickverife "[lindex $verifexempt 0]"
  499.     if {[channel get $chan GB]==0} { return; }
  500.     if {[lindex $arg 0]!=""} {
  501.     if {[progfile exempt del $nickverife]!="1"} {
  502.          putserv "notice $nick :Attention le Nick: \2$nickverife\2 n'est pas dans la liste des protégés."
  503.     return 0
  504.     }
  505.          progfile exempt del $nickverife
  506.          puthelp "notice $nick :Le Nick: \2$nickverife\2 a bien été supprimé de la listes des protégés."
  507.          putquick "privmsg $chan :\00314Le pseudo\002\0031 $nickverife\002 \00314a bien était retiré au pseudo des (\0034Protégés\00314)"
  508.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Exempt\0036\] \0031retiré par : \0034$hand"
  509.     return 0
  510.     } else {
  511.          puthelp "privmsg $chan :Il faut une victime"
  512.     return
  513.     }
  514. }
  515.  
  516.     # List Exempt #
  517.  
  518.     proc .exempt {nick uhost hand chan arg} {
  519.         set arg [gbfilter $arg]
  520.          set nickb [lindex $arg 0]
  521.          set blusers [open database/exempt.db r]
  522.     if {[channel get $chan GB]==0} { return; }
  523.          putserv "notice $nick :\2Voici la ExemptList:\2"
  524.          putserv "notice $nick :\2\2"
  525.     while {![eof $blusers]} {
  526.          set bluser [gets $blusers]
  527.     if {$bluser!="" && $nickb==""} {
  528.          putserv "notice $nick :\2Nick:\2 $bluser"
  529.     } elseif [string match -nocase $nickb $bluser] {
  530.          putserv "notice $nick :\2Nick:\2 $bluser."
  531.         }
  532.     }
  533.          putserv "notice $nick :\2Fin de la ExemptList\2."
  534.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Exempt\0036\] \0031par : \0034$hand"
  535.     close $blusers
  536.          putserv "notice $nick :\2\2"
  537. }
  538.  
  539.     # Join #
  540.  
  541.     proc xbl {n u h c} {
  542.          set k [lindex [split $n |] 0]
  543.     if {[progfile blacklist cf $k]=="1"} {
  544.          set vnick $n
  545.          set hostmask "[split [getchanhost $vnick $c] @]"
  546.          set hostmask "!*@*[lindex $hostmask 1]"
  547.          pushmode $c +b $hostmask
  548.          pushmode $c +b $k!*@*
  549.          pushmode $c +b $k|*!*@*
  550.          puthelp "kick $c $vnick :[subst -nocommands -nobackslashes $::GB::msg(bl)]"
  551.     }
  552. }
  553.  
  554.     # AddChan/DelChan/ListChan Msg #
  555.  
  556.     proc addchan { nick host hand text } {
  557.         set text [gbfilter2 $text]
  558.          set chan [lindex $text 0]
  559.          set channel [lindex $text 1]
  560.     if { [nick2hand $nick] eq "*" } {
  561.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  562.     return 0
  563.    }
  564.     if {![isauth $hand]} {
  565.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  566.     return 0
  567.     }
  568.     if {$text==""} {
  569.          puthelp "notice $nick :Addchan incorrect ! Veuillez respecter la syntaxe suivante : ( /msg $::botnick addchan <#salon> ) !"
  570.     }
  571.     if ![matchattr $hand o [lindex $text 0]] {
  572.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  573.     return 0
  574.    }
  575.     if ![string match -nocase $chan] {
  576.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Add-Chan\0036\] \0031par : \0034$hand"
  577.          putserv "notice $nick :$chan Rajouter au Addchan !"
  578.          channel add $chan
  579.          savechannels
  580.     return
  581.     }
  582. }
  583.  
  584.     # Delchan #
  585.  
  586.     proc delchan { nick host hand text } {
  587.         set text [gbfilter2 $text]
  588.          set chan [lindex $text 0]
  589.          set channel [lindex $text 1]
  590.     if { [nick2hand $nick] eq "*" } {
  591.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  592.     return 0
  593.    }
  594.     if {![isauth $hand]} {
  595.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  596.     return 0
  597.     }
  598.     if {$text==""} {
  599.          puthelp "notice $nick :Addchan incorrect ! Veuillez respecter la syntaxe suivante : ( /msg $::botnick delchan <#salon> ) !"
  600.     }
  601.     if ![matchattr $hand o [lindex $text 0]] {
  602.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  603.     return 0
  604.    }
  605.     if ![string match -nocase $chan] {
  606.          putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Del-Chan\0036\] \0031par : \0034$hand"
  607.          putserv "notice $nick :$chan Retiré des Addchan !"
  608.          channel remove $chan
  609.          savechannels
  610.     return
  611.     }
  612. }
  613.    
  614.     # ListChan #
  615.  
  616.     proc listchan { nick host hand text } {
  617.         set text [gbfilter2 $text]
  618.          set chan [lindex $text 0]
  619.          set chans [join [lrange [split $text] 0 0]]
  620.     if { [nick2hand $nick] eq "*" } {
  621.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  622.     return 0
  623.     }
  624.     if {![isauth $hand]} {
  625.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  626.     return 0
  627.     }
  628.     if ![matchattr $hand o| [lindex $text 0]] {
  629.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  630.     return 0
  631.     }    
  632.     if [string match -nocase $chans $chan] {
  633.          set voir 1
  634.          putquick "privmsg $nick :\0034\[Liste Salons\]"
  635.     foreach liste [channels] {
  636.          putquick "privmsg $nick :\0037=>\0032 $voir \0037<= \0033 $liste"
  637.     incr voir 1
  638.     }
  639.          putquick "privmsg $nick :\0036\[Fin De Liste\]"
  640.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033List-Chan\0036\] \0031par : \0034$hand"
  641.     return 0
  642.     }
  643.     if {[lsearch [channels] $chans $chan]==-1} {
  644.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  645.      return
  646.     }
  647. }
  648.    
  649.     # Access/Newpass #
  650.  
  651.     proc access { nick host hand text } {
  652.         set text [gbfilter2 $text]
  653.          set chan [lindex $text 0]
  654.          set mask [lindex $text 1]
  655.     if {[channel get $chan GB]==0} { return; }
  656.     if { [nick2hand $nick] eq "*" } {
  657.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  658.     return 0
  659.     }
  660.     if {![isauth $hand]} {
  661.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  662.     return 0
  663.     }
  664.     if ![string match #* $chan] {
  665.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick access <#salon> <mask> )"
  666.     return 0
  667.     }
  668.     if {$mask==""} {
  669.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick access <#salon> <mask> )"
  670.     return 0
  671.     }
  672.     if ![validchan $chan] {
  673.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  674.     return 0
  675.     }
  676.     if ![matchattr $hand o|o [lindex $text 0]] {
  677.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  678.     return 0
  679.     }
  680.          putserv "privmsg $nick :Liste des access de $chan correspondant à \0031\[ \0034$mask \0031\] :"
  681.     foreach user [userlist |n $chan] {
  682.     if [string match -nocase $mask $user] {
  683.          putserv "privmsg $nick :Owner $user"
  684.         }
  685.     }
  686.     foreach user [userlist |m $chan] {
  687.     if ![matchattr $user |n $chan]&&[string match -nocase $mask $user] {
  688.          putserv "privmsg $nick :Master $user"
  689.         }
  690.     }
  691.     foreach user [userlist |o $chan] {
  692.     if ![matchattr $user |m $chan]&&[string match -nocase $mask $user] {
  693.          putserv "privmsg $nick :Operateur $user"
  694.         }
  695.     }
  696.     foreach user [userlist o|] {
  697.     if [string match -nocase $mask $user] {
  698.          putserv "privmsg $nick :SuperOp $user"
  699.         }
  700.     }
  701.          putserv "privmsg $nick :Fin de la liste d'access."
  702.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Access\0036\] \0031par : \0034$hand"
  703.     return
  704. }
  705.  
  706.     # Newpass #
  707.  
  708.     proc newpass { nick uhost hand text } {
  709.         set text [gbfilter2 $text]
  710.     if { [nick2hand $nick] eq "*" } {
  711.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  712.     return 0
  713.     }
  714.     if {![isauth $hand]} {
  715.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  716.     return 0
  717.     }
  718.     if {$text==""} {
  719.          puthelp "notice $nick :Ancien mot de passe incorrect ! Veuillez respecter la syntaxe suivante : ( /msg $::botnick newpass <ancien-pass> <nouveau-pass> ) !"
  720.     }
  721.     if {[getuser $hand PASS]==""} {
  722.          setuser $hand PASS [lindex $text 0]
  723.          puthelp "notice $nick :Mot de passe défini : [lindex $text 0] !"
  724.     return 0
  725.     }
  726.     if {[passwdok $hand [lindex $text 0]]} {
  727.     if {[llength $text]>1} {
  728.          setuser $hand PASS [lindex $text 1]
  729.          puthelp "notice $nick :Nouveau mot de passe défini : [lindex $text 1] !"
  730.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033New-Pass\0036\] \0031par : \0034$hand"
  731.     return
  732.         }    
  733.     }
  734. }
  735.  
  736.     # Addop/Addmaster/Addowner/Addsuperop Msg #
  737.  
  738.     proc addop { nick host hand text } {
  739.         set text [gbfilter2 $text]
  740.          set vhand [lindex [split [lindex $text 0] |] 0]
  741.          set chan [lindex $text 1]
  742.     if {[channel get $chan GB]==0} { return; }
  743.     if { [nick2hand $nick] eq "*" } {
  744.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  745.     return 0
  746.     }
  747.     if ![isauth $hand] {
  748.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  749.     return 0
  750.     }
  751.     if {![string match #* $chan]} {
  752.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick addop <pseudo> <#salon> ) !"
  753.     return 0
  754.     }
  755.     if ![validchan $chan] {
  756.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  757.     return 0
  758.     }
  759.     if ![matchattr $hand o|m $chan] {
  760.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  761.     return 0
  762.     }
  763.     if [matchattr $vhand |n $chan] {
  764.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Owners sur $chan !"
  765.     return 0
  766.     }
  767.     if [matchattr $vhand |m $chan] {
  768.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Masters sur $chan !"
  769.     return 0
  770.     }
  771.     if [matchattr $vhand |o $chan] {
  772.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Opérateurs sur $chan !"
  773.     return 0
  774.     }
  775.     if [matchattr $vhand |m $chan] {
  776.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Masters sur $chan !"
  777.     return 0
  778.     }
  779.          adduser $vhand $vhand*!*@*
  780.          setuser $vhand HOSTS $vhand!*@*
  781.          setuser $vhand HOSTS $vhand|*!*@*
  782.          chattr  $vhand -h|+o $chan
  783.          foreach line [split $::GB::msg(pvmsg) "\n"] {
  784.          putserv "privmsg $vhand :$line"
  785.         }
  786.          puthelp "notice $nick :$vhand a bien été ajouté(e) en tant qu'opérateur sur $chan !"
  787.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Add-Op\0036\] \0031par : \0034$hand"
  788.          save
  789. }
  790.  
  791.     # Addmaster #
  792.  
  793.     proc addmaster { nick uhost hand text } {
  794.         set text [gbfilter2 $text]
  795.          set vhand [lindex [split [lindex $text 0] |] 0]
  796.          set chan [lindex $text 1]
  797.     if {[channel get $chan GB]==0} { return; }
  798.     if { [nick2hand $nick] eq "*" } {
  799.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  800.     return 0
  801.     }
  802.     if {![isauth $hand]} {
  803.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  804.     return 0
  805.     }
  806.     if {![string match #* $chan]} {
  807.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick addmaster <pseudo> <#salon> ) !"
  808.     return 0
  809.     }
  810.     if ![validchan $chan] {
  811.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  812.     return 0
  813.     }
  814.     if ![matchattr $hand o|n $chan] {
  815.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  816.     return 0
  817.     }
  818.     if ![validuser [lindex $text 0]] {
  819.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List"
  820.     return 0
  821.     }
  822.          adduser $vhand [lindex $text 0]*!*@*
  823.          setuser $vhand HOSTS [lindex $text 0]!*@*
  824.          setuser $vhand HOSTS [lindex $text 0]|*!*@*
  825.          chattr  $vhand -h|+om [lindex $text 1]
  826.          foreach line [split $::GB::msg(pvmsg) "\n"] {
  827.          putserv "privmsg $vhand :$line"
  828.         }
  829.          puthelp "notice $nick :[lindex $text 0] a bien été ajouté(e) en tant que Master sur [lindex $text 1] !"
  830.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Add-Master\0036\] \0031par : \0034$hand"
  831.          save
  832.     return
  833. }
  834.  
  835.     # Addowner #
  836.  
  837.     proc addowner { nick uhost hand text } {
  838.         set text [gbfilter2 $text]
  839.          set vhand [lindex [split [lindex $text 0] |] 0]
  840.          set chan [lindex $text 1]
  841.     if {[channel get $chan GB]==0} { return; }
  842.     if { [nick2hand $nick] eq "*" } {
  843.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  844.     return 0
  845.     }
  846.     if {![isauth $hand]} {
  847.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  848.     return 0
  849.     }
  850.     if {![string match #* $chan]} {
  851.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick addowner <pseudo> <#salon> ) !"
  852.     return 0
  853.     }
  854.     if ![validchan $chan] {
  855.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  856.     return 0
  857.     }
  858.     if ![matchattr $hand o| $chan] {
  859.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  860.     return 0
  861.     }
  862.     if {[validuser [lindex $text 0]]} {
  863.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List"
  864.     return 0
  865.     }
  866.          adduser $vhand [lindex $text 0]*!*@*
  867.          setuser $vhand HOSTS [lindex $text 0]!*@*
  868.          setuser $vhand HOSTS [lindex $text 0]|*!*@*
  869.          chattr  $vhand -h|+on [lindex $text 1]
  870.          foreach line [split $::GB::msg(pvmsg) "\n"] {
  871.          putserv "privmsg $vhand :$line"
  872.         }
  873.          puthelp "notice $nick :[lindex $text 0] a bien été ajouté(e) en tant que Owner sur [lindex $text 1] !"
  874.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Add-Owner\0036\] \0031par : \0034$hand"
  875.          save
  876.     return 0
  877.     }
  878.  
  879. # Addsuperop #
  880.  
  881.      proc addsuperop { nick host hand text } {
  882.         set text [gbfilter2 $text]
  883.          set vhand [lindex [split [lindex $text 0] |] 0]
  884.          set chan [lindex $text 1]
  885.     if { [nick2hand $nick] eq "*" } {
  886.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  887.     return 0
  888.     }
  889.     if ![isauth $hand] {
  890.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  891.     return 0
  892.     }
  893.     if ![matchattr $hand o|] {
  894.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  895.     return 0
  896.     }
  897.          adduser $vhand $vhand*!*@*
  898.          setuser $vhand HOSTS $vhand!*@*
  899.          setuser $vhand HOSTS $vhand|*!*@*
  900.          chattr  $vhand +o
  901.          chattr $vhand -h|
  902.          foreach line [split $::GB::msg(pvmsg) "\n"] {
  903.          putserv "privmsg $vhand :$line"
  904.         }
  905.          puthelp "notice $nick :$vhand a bien été ajouté(e) en tant que SuperOp sur $::botnick !"
  906.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Add-Superop\0036\] \0031par : \0034$hand"
  907.          save
  908. }
  909.  
  910.     # Delop/Delmaster/Delowner/Delsuperop #
  911.  
  912.     # Delop #
  913.  
  914.     proc delop { nick uhost hand text } {
  915.         set text [gbfilter2 $text]
  916.          set vhand [lindex [split [lindex $text 0] |] 0]
  917.          set chan [lindex $text 1]
  918.     if {[channel get $chan GB]==0} { return; }
  919.     if { [nick2hand $nick] eq "*" } {
  920.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  921.     return 0
  922.     }
  923.     if {![isauth $hand]} {
  924.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  925.     return 0
  926.     }
  927.     if {![string match #* $chan]} {
  928.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick delop <pseudo> <#salon> ) !"
  929.     return 0
  930.     }
  931.     if ![validchan $chan] {
  932.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  933.     return 0
  934.     }
  935.     if ![matchattr $hand o|m $chan] {
  936.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  937.     return 0
  938.     }
  939.     if ![matchattr $vhand |o $chan] {
  940.          puthelp "notice $nick :Ce pseudo ne figure pas dans l'Access-List de $chan !"
  941.     return 0
  942.     }
  943.     if [matchattr $vhand |n $chan] {
  944.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Owners sur $chan !"
  945.     return 0
  946.     }
  947.     if [matchattr $vhand |m $chan] {
  948.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Masters sur $chan !"
  949.     return 0
  950.     }
  951.          delchanrec $vhand $chan
  952.          puthelp "notice $nick :[lindex $text 0] a bien été supprimé(e) de l'Access-List Opérateurs sur [lindex $text 1] !"
  953.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Del-Op\0036\] \0031par : \0034$hand"
  954.          save
  955.     foreach c [channels] {
  956.     if [haschanrec $vhand $c] {
  957.     return
  958.         }
  959.     }
  960.          deluser $vhand
  961.          save
  962. }
  963.  
  964.     # Delmaster #
  965.  
  966.     proc delmaster { nick uhost hand text } {
  967.         set text [gbfilter2 $text]
  968.          set vhand [lindex [split [lindex $text 0] |] 0]
  969.          set chan [lindex $text 1]
  970.     if {[channel get $chan GB]==0} { return; }
  971.     if { [nick2hand $nick] eq "*" } {
  972.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  973.     return 0
  974.     }
  975.     if {![isauth $hand]} {
  976.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  977.     return 0
  978.     }
  979.     if {![string match #* $chan]} {
  980.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick delmaster <pseudo> <#salon> ) !"
  981.     return 0
  982.     }
  983.     if ![validchan $chan] {
  984.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  985.     return 0
  986.     }
  987.     if ![matchattr $hand o|n $chan] {
  988.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  989.     return 0
  990.     }
  991.     if ![matchattr $vhand |o $chan] {
  992.          puthelp "notice $nick :Ce pseudo ne figure pas dans l'Access-List de $chan !"
  993.     return 0
  994.     }
  995.     if [matchattr $vhand |n $chan] {
  996.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Owners sur $chan !"
  997.     return 0
  998.     }
  999.     if ![matchattr $vhand |m $chan] {
  1000.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Masters sur $chan !"
  1001.     return 0
  1002.     }
  1003.          delchanrec $vhand $chan
  1004.          puthelp "notice $nick :[lindex $text 0] a bien été supprimé(e) de l'Access-List Master sur [lindex $text 1] !"
  1005.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Del-Master\0036\] \0031par : \0034$hand"
  1006.          save
  1007.     foreach c [channels] {
  1008.     if [haschanrec $vhand $c] {
  1009.      return
  1010.         }
  1011.     }
  1012.          deluser $vhand
  1013.          save
  1014. }
  1015.  
  1016.     # Delowner #
  1017.  
  1018.     proc delowner { nick uhost hand text } {
  1019.         set text [gbfilter2 $text]
  1020.          set vhand [lindex [split [lindex $text 0] |] 0]
  1021.          set chan [lindex $text 1]
  1022.     if {[channel get $chan GB]==0} { return; }
  1023.     if { [nick2hand $nick] eq "*" } {
  1024.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1025.     return 0
  1026.     }
  1027.     if {![isauth $hand]} {
  1028.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1029.     return 0
  1030.     }
  1031.     if {![string match #* $chan]} {
  1032.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick delowner <pseudo> <#salon> ) !"
  1033.     return 0
  1034.     }
  1035.     if ![validchan $chan] {
  1036.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1037.     return 0
  1038.     }
  1039.     if ![matchattr $hand o| $chan] {
  1040.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1041.     return 0
  1042.     }
  1043.     if ![matchattr $vhand |o $chan] {
  1044.          puthelp "notice $nick :Ce pseudo ne figure pas dans l'Access-List de $chan !"
  1045.     return 0
  1046.     }
  1047.     if ![matchattr $vhand |n $chan] {
  1048.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Owners sur $chan !"
  1049.     return 0
  1050.     }
  1051.     if ![matchattr $vhand |m $chan] {
  1052.          puthelp "notice $nick :Ce pseudo figure dans l'Access-List Master sur $chan !"
  1053.     return 0
  1054.     }
  1055.          delchanrec $vhand $chan
  1056.          puthelp "notice $nick :[lindex $text 0] a bien été supprimé(e) de l'Access-List Owner sur [lindex $text 1] !"
  1057.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Del-Owner\0036\] \0031par : \0034$hand"
  1058.          save
  1059.     foreach c [channels] {
  1060.     if [haschanrec $vhand $c] {
  1061.     return
  1062.         }
  1063.     }
  1064.          deluser $vhand
  1065.          save
  1066. }
  1067.  
  1068.     # Delsuperop #
  1069.  
  1070.     proc delsuperop { nick host hand text } {
  1071.         set text [gbfilter2 $text]
  1072.          set vhand [lindex [split [lindex $text 0] |] 0]
  1073.          set chan [lindex $text 1]
  1074.     if { [nick2hand $nick] eq "*" } {
  1075.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1076.     return 0
  1077.     }
  1078.     if ![isauth $hand] {
  1079.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1080.     return 0
  1081.     }
  1082.     if ![matchattr $hand o] {
  1083.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1084.     return 0
  1085.     }
  1086.          deluser $vhand
  1087.          puthelp "notice $nick :$vhand a bien été supprimé en tant que superop sur $::botnick !"
  1088.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Del-Superop\0036\] \0031par : \0034$hand"
  1089.          save
  1090. }
  1091.  
  1092.     # op/deop/voice/devoice/helfop Chan #
  1093.  
  1094.     # op #
  1095.  
  1096.     proc op { nick host hand chan text } {
  1097.         set text [gbfilter2 $text]
  1098.     if {[channel get $chan GB]==0} { return; }
  1099.     if { [nick2hand $nick] eq "*" } {
  1100.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1101.     return 0
  1102.     }
  1103.     if {![isauth $hand]} {
  1104.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1105.     return 0
  1106.     }
  1107.     if {$text!=""} {
  1108.     if ![matchattr $hand o|o $chan] {
  1109.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1110.     return 0
  1111.     }
  1112.          pushmode $chan +oooooo [join $text]
  1113.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Op\0036\] \0031par : \0034$hand"
  1114.     return 0
  1115.     }
  1116.     if [isop [join $nick] $chan] {
  1117.          putserv "NOTICE $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1118.     return 0
  1119.     }
  1120.          pushmode $chan +o [join $nick]
  1121.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Op\0036\] \0031par : \0034$hand"
  1122. }
  1123.  
  1124.     # Deop #
  1125.  
  1126.     proc deop { nick host hand chan text } {
  1127.         set text [gbfilter2 $text]
  1128.          set verifexempt "[split [lindex $text 0] |]"
  1129.          set nickverife "[lindex $verifexempt 0]"
  1130.     if {[channel get $chan GB]==0} { return; }
  1131.     if { [nick2hand $nick] eq "*" } {
  1132.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1133.     return 0
  1134.     }
  1135.     if {![isauth $hand]} {
  1136.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1137.     return 0
  1138.     }
  1139.     if {$text!=""} {
  1140.     if {![matchattr $hand o|o $chan]} {
  1141.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1142.     return 0
  1143.     }
  1144.     if {[progfile exempt icr $nickverife]!="0"} {
  1145.          putserv "notice $nick :Attention le Nick: \2[lindex $text 0]\2 est dans la liste des protégés."
  1146.     return 0
  1147.     }
  1148.          pushmode $chan -oooooo [join $text]
  1149.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Deop\0036\] \0031par : \0034$hand"
  1150.     return 0
  1151.     }
  1152.     if {![isop [join $nick] $chan]} {
  1153.          putserv "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1154.     return 0
  1155.     }
  1156.          pushmode $chan -o [join $nick]
  1157.          puthelp "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Deop\0036\] \0031par : \0034$hand"
  1158. }
  1159.  
  1160.     # Voice #
  1161.  
  1162.     proc voice { nick host hand chan text } {
  1163.         set text [gbfilter2 $text]
  1164.     if {[channel get $chan GB]==0} { return; }
  1165.     if { [nick2hand $nick] eq "*" } {
  1166.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1167.     return 0
  1168.     }
  1169.     if {![isauth $hand]} {
  1170.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1171.     return 0
  1172.     }
  1173.     if {![matchattr $hand o|o $chan]} {
  1174.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1175.     return 0
  1176.     }
  1177.     if {$text!=""} {
  1178.          putserv "mode $chan +vvvvvv [join $text]"
  1179.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Voice\0036\] \0031par : \0034$hand"
  1180.     return 0
  1181.     }
  1182.     if [isvoice [join $nick] $chan] {
  1183.          putserv "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1184.     return 0
  1185.     }
  1186.          pushmode $chan +v [join $nick]
  1187.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Voice\0036\] \0031par : \0034$hand"
  1188. }
  1189.  
  1190.     # Devoice #
  1191.  
  1192.     proc devoice { nick host hand chan text } {
  1193.         set text [gbfilter2 $text]
  1194.          set verifexempt "[split [lindex $text 0] |]"
  1195.          set nickverife "[lindex $verifexempt 0]"
  1196.     if {[channel get $chan GB]==0} { return; }
  1197.     if { [nick2hand $nick] eq "*" } {
  1198.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1199.     return 0
  1200.     }
  1201.     if {![isauth $hand]} {
  1202.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1203.     return 0
  1204.     }
  1205.     if {![matchattr $hand o|o $chan]} {
  1206.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1207.     return 0
  1208.     }
  1209.     if {[progfile exempt icr $nickverife]!="0"} {
  1210.          putserv "notice $nick :Attention le Nick: \2[lindex $text 0]\2 est dans la liste des protégés."
  1211.     return 0
  1212.     }
  1213.     if {$text!=""} {
  1214.          pushmode $chan -vvvvvv [join $text]
  1215.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Devoice\0036\] \0031par : \0034$hand"
  1216.     return 0
  1217.     }
  1218.     if {![isvoice [join $nick] $chan]} {
  1219.          putserv "NOTICE $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1220.     return 0
  1221.     }
  1222.          pushmode $chan -v [join $nick]
  1223.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Devoice\0036\] \0031par : \0034$hand"
  1224. }
  1225.  
  1226. # Halfop #
  1227.  
  1228. proc halfop { nick host hand chan text } {
  1229.         set text [gbfilter2 $text]
  1230.     if {[channel get $chan GB]==0} { return; }
  1231.     if { [nick2hand $nick] eq "*" } {
  1232.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1233.     return 0
  1234.     }
  1235.     if {![isauth $hand]} {
  1236.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1237.     return 0
  1238.     }
  1239.     if {$text!=""} {
  1240.     if ![matchattr $hand o|o $chan] {
  1241.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1242.     return 0
  1243.     }
  1244.          pushmode $chan +hhhhhh [join $text]
  1245.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Halfop\0036\] \0031par : \0034$hand"
  1246.     return 0
  1247.     }
  1248.     if [isop [join $nick] $chan] {
  1249.          putserv "NOTICE $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1250.     return 0
  1251.     }
  1252.          pushmode $chan +h [join $nick]
  1253.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Halfop\0036\] \0031par : \0034$hand"
  1254. }
  1255.  
  1256. # DeHalfop #
  1257.  
  1258. proc dehalfop { nick host hand chan text } {
  1259.         set text [gbfilter2 $text]
  1260.     if {[channel get $chan GB]==0} { return; }
  1261.     if { [nick2hand $nick] eq "*" } {
  1262.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1263.     return 0
  1264.     }
  1265.     if {![isauth $hand]} {
  1266.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1267.     return 0
  1268.     }
  1269.     if {$text!=""} {
  1270.     if ![matchattr $hand o|o $chan] {
  1271.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1272.     return 0
  1273.     }
  1274.          pushmode $chan -hhhhhh [join $text]
  1275.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Halfop\0036\] \0031par : \0034$hand"
  1276.     return 0
  1277.     }
  1278.     if [isop [join $nick] $chan] {
  1279.          putserv "NOTICE $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1280.     return 0
  1281.     }
  1282.          pushmode $chan -h [join $nick]
  1283.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)DeHalfop\0036\] \0031par : \0034$hand"
  1284. }
  1285.  
  1286.     # Opall/Deopall/Voiceall/Devoiceall/Halfopall Chan #
  1287.  
  1288.     # Opall #
  1289.  
  1290.     proc opall {nick host hand chan arg} {
  1291.         set arg [gbfilter $arg]
  1292.          set arg [split $arg]
  1293.     if {[channel get $chan GB]==0} { return; }
  1294.     if { [nick2hand $nick] eq "*" } {
  1295.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1296.     return 0
  1297.     }
  1298.     if {![isauth $hand]} {
  1299.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1300.     return 0
  1301.     }
  1302.     if {![matchattr $hand o|m $chan]} {
  1303.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1304.     return 0
  1305.     }
  1306.     foreach opall [chanlist $chan] { if [isop $opall $chan] continue; pushmode $chan +o $opall }
  1307.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Op-All\0036\] \0031par : \0034$hand"
  1308.     return
  1309. }
  1310.  
  1311.     # Deopall #
  1312.  
  1313.     proc deopall { nick host hand chan arg } {
  1314.         set arg [gbfilter $arg]
  1315.          set arg [split $arg]
  1316.     if {[channel get $chan GB]==0} { return; }
  1317.     if { [nick2hand $nick] eq "*" } {
  1318.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1319.     return 0
  1320.     }
  1321.     if {![isauth $hand]} {
  1322.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1323.     return 0
  1324.     }
  1325.     if {![matchattr $hand o|m $chan]} {
  1326.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1327.     return 0
  1328.     }
  1329.     foreach deopall [chanlist $chan] { if [isvoice $deopall $chan] continue; pushmode $chan -o $deopall }
  1330.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Deop-All\0036\] \0031par : \0034$hand"
  1331.     return
  1332. }
  1333.  
  1334.     # voiceall #
  1335.  
  1336.     proc voiceall { nick host hand chan arg } {
  1337.         set arg [gbfilter $arg]
  1338.          set arg [split $arg]
  1339.     if {[channel get $chan GB]==0} { return; }
  1340.     if { [nick2hand $nick] eq "*" } {
  1341.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1342.     return 0
  1343.     }
  1344.     if {![isauth $hand]} {
  1345.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1346.     return 0
  1347.     }
  1348.     if {![matchattr $hand o|m $chan]} {
  1349.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1350.     return 0
  1351.     }
  1352.     foreach voiceall [chanlist $chan] { if [isop $voiceall $chan] continue; pushmode $chan +v $voiceall }
  1353.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Voice-All\0036\] \0031par : \0034$hand"
  1354.     return
  1355. }
  1356.  
  1357.     # Devoiceall #
  1358.  
  1359.     proc devoiceall { nick host hand chan arg } {
  1360.         set arg [gbfilter $arg]
  1361.          set arg [split $arg]
  1362.     if {[channel get $chan GB]==0} { return; }
  1363.     if { [nick2hand $nick] eq "*" } {
  1364.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1365.     return 0
  1366.     }
  1367.     if {![isauth $hand]} {
  1368.          puthelp "notice $nick :Veuillez vous identifier au préalable ! ( /msg $::botnick auth <pseudo> <pass> ) !"
  1369.     return 0
  1370.     }
  1371.     if {![matchattr $hand o|m $chan]} {
  1372.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1373.     return 0
  1374.     }
  1375.     foreach devoiceall [chanlist $chan] { if [isop $devoiceall $chan] continue; pushmode $chan -v $devoiceall }
  1376.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Devoice-All\0036\] \0031par : \0034$hand"
  1377.     return
  1378. }
  1379.  
  1380. # Halfopall #
  1381.  
  1382. proc halfopall {nick host hand chan arg} {
  1383.         set arg [gbfilter $arg]
  1384.          set arg [split $arg]
  1385.     if {[channel get $chan GB]==0} { return; }
  1386.     if { [nick2hand $nick] eq "*" } {
  1387.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1388.     return 0
  1389.     }
  1390.     if {![isauth $hand]} {
  1391.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1392.     return 0
  1393.     }
  1394.     if {![matchattr $hand o|m $chan]} {
  1395.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1396.     return 0
  1397.     }
  1398.     foreach halfopall [chanlist $chan] { if [isop $halfopall $chan] continue; pushmode $chan +h $halfopall }
  1399.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Halfop-All\0036\] \0031par : \0034$hand"
  1400.     return
  1401. }
  1402.  
  1403. # DeHalfopall #
  1404.  
  1405. proc dehalfopall { nick host hand chan arg } {
  1406.         set arg [gbfilter $arg]
  1407.          set arg [split $arg]
  1408.     if {[channel get $chan GB]==0} { return; }
  1409.     if { [nick2hand $nick] eq "*" } {
  1410.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1411.     return 0
  1412.     }
  1413.     if {![isauth $hand]} {
  1414.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1415.     return 0
  1416.     }
  1417.     if {![matchattr $hand o|m $chan]} {
  1418.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1419.     return 0
  1420.     }
  1421.     foreach dehalfopall [chanlist $chan] { if [isvoice $dehalfopall $chan] continue; pushmode $chan -h $dehalfopall }
  1422.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Dehalfop-All\0036\] \0031par : \0034$hand"
  1423.     return
  1424. }
  1425.    
  1426.     # Opall/Deopall/Voiceall/Devoiceall Msg #
  1427.  
  1428.     # Opall #
  1429.  
  1430.     proc xopall { nick host hand text } {
  1431.         set text [gbfilter2 $text]
  1432.          set chan [lindex $text 0]
  1433.     if { [nick2hand $nick] eq "*" } {
  1434.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1435.     return 0
  1436.     }
  1437.     if {![isauth $hand]} {
  1438.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1439.     return 0
  1440.     }
  1441.     if {![string match #* [lindex $text 0]]} {
  1442.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick opall <#salon> ) !"
  1443.     return 0
  1444.     }
  1445.     if {![validchan [lindex $text 0]]} {
  1446.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1447.     return 0
  1448.     }
  1449.     if {![matchattr $hand o|m [lindex $text 0]]} {
  1450.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1451.     return 0
  1452.     }
  1453.     if {![botonchan [lindex $text 0]]} {
  1454.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1455.     return 0
  1456.     }
  1457.     if {![botisop [lindex $text 0]]} {
  1458.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1459.     return 0
  1460.     }
  1461.     if {![onchan $nick [lindex $text 0]]} {
  1462.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1463.     return 0
  1464.     }
  1465.     if {[isop [join $nick] [lindex $text 0]]} {
  1466.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1467.     return 0
  1468.     }
  1469.     foreach xopall [chanlist $chan] { if [isop $xopall $chan] continue; pushmode $chan +o $xopall }
  1470.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Op-All\0036\] \0031par : \0034$hand"
  1471. }
  1472.    
  1473.     # Deopall #
  1474.  
  1475.     proc xdeopall { nick host hand text } {
  1476.         set text [gbfilter2 $text]
  1477.          set chan [lindex $text 0]
  1478.     if { [nick2hand $nick] eq "*" } {
  1479.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1480.     return 0
  1481.     }
  1482.     if {![isauth $hand]} {
  1483.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1484.     return 0
  1485.     }
  1486.     if {![string match #* [lindex $text 0]]} {
  1487.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick deopall <#salon> ) !"
  1488.     return 0
  1489.     }
  1490.     if {![validchan [lindex $text 0]]} {
  1491.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1492.     return 0
  1493.     }
  1494.     if {![matchattr $hand o|m [lindex $text 0]]} {
  1495.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1496.     return 0
  1497.     }
  1498.     if {![botonchan [lindex $text 0]]} {
  1499.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1500.     return 0
  1501.     }
  1502.     if {![botisop [lindex $text 0]]} {
  1503.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1504.     return 0
  1505.     }
  1506.     if {![onchan $nick [lindex $text 0]]} {
  1507.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1508.     return 0
  1509.     }
  1510.     foreach xdeopall [chanlist $chan] { if [isvoice $xdeopall $chan] continue; pushmode $chan -o $xdeopall }
  1511.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Deop-All\0036\] \0031par : \0034$hand"
  1512. }
  1513.    
  1514.     # Voiceall #
  1515.  
  1516.     proc xvoiceall { nick host hand text } {
  1517.         set text [gbfilter2 $text]
  1518.          set chan [lindex $text 0]
  1519.     if { [nick2hand $nick] eq "*" } {
  1520.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1521.     return 0
  1522.     }
  1523.     if {![isauth $hand]} {
  1524.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1525.     return 0
  1526.     }
  1527.     if {![string match #* [lindex $text 0]]} {
  1528.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick voiceall <#salon> ) !"
  1529.     return 0
  1530.     }
  1531.     if {![validchan [lindex $text 0]]} {
  1532.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1533.     return 0
  1534.     }
  1535.     if {![matchattr $hand o|m [lindex $text 0]]} {
  1536.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1537.     return 0
  1538.     }
  1539.     if {![botonchan [lindex $text 0]]} {
  1540.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1541.     return 0
  1542.     }
  1543.     if {![botisop [lindex $text 0]]} {
  1544.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1545.     return 0
  1546.     }
  1547.     if {![onchan $nick [lindex $text 0]]} {
  1548.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1549.     return 0
  1550.     }
  1551.     foreach xvoiceall [chanlist $chan] { if [isop $xvoiceall $chan] continue; pushmode $chan +v $xvoiceall }
  1552.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Voice-All\0036\] \0031par : \0034$hand"
  1553. }
  1554.    
  1555.     # Devoiceall #
  1556.  
  1557.     proc xdevoiceall { nick host hand text } {
  1558.         set text [gbfilter2 $text]
  1559.          set chan [lindex $text 0]
  1560.     if { [nick2hand $nick] eq "*" } {
  1561.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1562.     return 0
  1563.     }
  1564.     if {![isauth $hand]} {
  1565.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1566.     return 0
  1567.     }
  1568.     if {![string match #* [lindex $text 0]]} {
  1569.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick devoiceall <#salon> ) !"
  1570.     return 0
  1571.     }
  1572.     if {![validchan [lindex $text 0]]} {
  1573.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1574.     return 0
  1575.     }
  1576.     if {![matchattr $hand o|m [lindex $text 0]]} {
  1577.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1578.     return 0
  1579.     }
  1580.     if {![botonchan [lindex $text 0]]} {
  1581.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1582.     return 0
  1583.     }
  1584.     if {![botisop [lindex $text 0]]} {
  1585.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1586.     return 0
  1587.     }
  1588.     if {![onchan $nick [lindex $text 0]]} {
  1589.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1590.     return 0
  1591.     }
  1592.     foreach xdevoiceall [chanlist $chan] { if [isop $xdevoiceall $chan] continue; pushmode $chan -v $xdevoiceall }
  1593.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Devoice-All\0036\] \0031par : \0034$hand"
  1594. }
  1595.  
  1596.     # op/deop/voice/devoice Msg #
  1597.  
  1598.     # Op #
  1599.  
  1600.     proc xop { nick host hand text } {
  1601.         set text [gbfilter2 $text]
  1602.          set chan [lindex $text 0]
  1603.     if {[channel get $chan GB]==0} { return; }
  1604.     if { [nick2hand $nick] eq "*" } {
  1605.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1606.     return 0
  1607.     }
  1608.     if {![isauth $hand]} {
  1609.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1610.     return 0
  1611.     }
  1612.     if {![string match #* [lindex $text 0]]} {
  1613.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick op <#salon> <pseudo(s)> )"
  1614.     return 0
  1615.     }
  1616.     if {![validchan [lindex $text 0]]} {
  1617.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1618.     return 0
  1619.     }
  1620.     if {![matchattr $hand o|o [lindex $text 0]]} {
  1621.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1622.     return 0
  1623.     }
  1624.     if {![botonchan [lindex $text 0]]} {
  1625.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1626.     return 0
  1627.     }
  1628.     if {![botisop [lindex $text 0]]} {
  1629.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1630.     return 0
  1631.     }
  1632.     if {[lindex $text 1]!=""} {
  1633.          pushmode [lindex $text 0] +oooooo [join [lrange $text 1 end]]
  1634.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Op\0036\] \0031par : \0034$hand"
  1635.     return 0
  1636.     }
  1637.     if {![onchan $nick [lindex $text 0]]} {
  1638.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1639.     return 0
  1640.     }
  1641.     if {[isop [join $nick] [lindex $text 0]]} {
  1642.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1643.     return 0
  1644.     }
  1645.          pushmode [lindex $text 0] +o [join $nick]
  1646.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Op\0036\] \0031par : \0034$hand"
  1647. }
  1648.  
  1649.     # Deop #
  1650.  
  1651.     proc xdeop { nick host hand text } {
  1652.         set text [gbfilter2 $text]
  1653.          set chan [lindex $text 0]
  1654.          set verifexempt "[split [lindex $text 1] |]"
  1655.          set nickverife "[lindex $verifexempt 0]"
  1656.     if {[channel get $chan GB]==0} { return; }
  1657.     if { [nick2hand $nick] eq "*" } {
  1658.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1659.     return 0
  1660.     }
  1661.     if {![isauth $hand]} {
  1662.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1663.     return 0
  1664.     }
  1665.     if {![string match #* [lindex $text 0]]} {
  1666.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick deop <#salon> <pseudo(s)> ) !"
  1667.     return 0
  1668.     }
  1669.     if {![validchan [lindex $text 0]]} {
  1670.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1671.     return 0
  1672.     }
  1673.     if {![matchattr $hand o|o [lindex $text 0]]} {
  1674.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1675.     return 0
  1676.     }
  1677.     if {![onchan $nick [lindex $text 0]]} {
  1678.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1679.     return 0
  1680.     }
  1681.     if {![botonchan [lindex $text 0]]} {
  1682.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1683.     return 0
  1684.     }
  1685.     if {![botisop [lindex $text 0]]} {
  1686.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1687.     return 0
  1688.     }
  1689.     if {[progfile exempt icr $nickverife]!="0"} {
  1690.          putserv "notice $nick :Attention le Nick: \2$nickverife\2 est dans la liste des protégés."
  1691.     return 0
  1692.     }
  1693.     if {[lindex $text 1] !=""} {
  1694.          pushmode [lindex $text 0] -oooooo [join [lrange $text 1 end]]
  1695.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Deop\0036\] \0031par : \0034$hand"
  1696.     return 0
  1697.     }
  1698.     if {![isop [join $nick] [lindex $text 0]]} {
  1699.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1700.     return 0
  1701.     }
  1702.          pushmode [lindex $text 0] -o [join $nick]
  1703.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Deop\0036\] \0031par : \0034$hand"
  1704. }
  1705.  
  1706.     # Voice #
  1707.  
  1708.     proc xvoice { nick uhost hand text } {
  1709.         set text [gbfilter2 $text]
  1710.          set chan [lindex $text 0]
  1711.     if {[channel get $chan GB]==0} { return; }
  1712.     if { [nick2hand $nick] eq "*" } {
  1713.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1714.     return 0
  1715.     }
  1716.     if {![isauth $hand]} {
  1717.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1718.     return 0
  1719.     }
  1720.     if {![string match #* [lindex $text 0]]} {
  1721.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick voice <#salon> <pseudo(s)> ) !"
  1722.     return 0
  1723.     }
  1724.     if {![validchan [lindex $text 0]]} {
  1725.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1726.     return 0
  1727.     }
  1728.     if {![matchattr $hand o|o [lindex $text 0]]} {
  1729.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1730.     return 0
  1731.     }
  1732.     if {![onchan $nick [lindex $text 0]]} {
  1733.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1734.     return 0
  1735.     }
  1736.     if {![botonchan [lindex $text 0]]} {
  1737.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1738.     return 0
  1739.     }
  1740.     if {![botisop [lindex $text 0]]} {
  1741.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1742.     return 0
  1743.     }
  1744.     if {[lindex $text 1] !=""} {
  1745.          pushmode [lindex $text 0] +vvvvvv [join [lrange $text 1 end]]
  1746.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Voice\0036\] \0031par : \0034$hand"
  1747.     return 0
  1748.     }
  1749.     if [isop [join $nick] [lindex $text 0]] {
  1750.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1751.     return 0
  1752.     }
  1753.          pushmode [lindex $text 0] +v [join $nick]
  1754.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Voice\0036\] \0031par : \0034$hand"
  1755. }
  1756.  
  1757.     # Devoice #
  1758.  
  1759.     proc xdevoice { nick host hand text } {
  1760.         set text [gbfilter2 $text]
  1761.          set chan [lindex $text 0]
  1762.          set verifexempt "[split [lindex $text 1] |]"
  1763.          set nickverife "[lindex $verifexempt 0]"
  1764.     if {[channel get $chan GB]==0} { return; }
  1765.     if { [nick2hand $nick] eq "*" } {
  1766.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1767.     return 0
  1768.     }
  1769.     if {![isauth $hand]} {
  1770.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1771.     return 0
  1772.     }
  1773.     if {![string match #* [lindex $text 0]]} {
  1774.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $botnick devoice <#salon> <pseudo(s)> ) !"
  1775.     return 0
  1776.     }
  1777.     if {![validchan [lindex $text 0]]} {
  1778.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  1779.     return 0
  1780.     }
  1781.     if {![matchattr $hand o|o [lindex $text 0]]} {
  1782.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1783.     return 0
  1784.     }
  1785.     if {![onchan $nick [lindex $text 0]]} {
  1786.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1787.     return 0
  1788.     }
  1789.     if {![botonchan [lindex $text 0]]} {
  1790.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  1791.     return 0
  1792.     }
  1793.     if {![botisop [lindex $text 0]]} {
  1794.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1795.     return 0
  1796.     }
  1797.     if {[progfile exempt icr $nickverife]!="0"} {
  1798.          putserv "notice $nick :Attention le Nick: \2$nickverife\2 est dans la liste des protégés."
  1799.     return 0
  1800.     }
  1801.     if {[lindex $text 1] !=""} {
  1802.          pushmode [lindex $text 0] -vvvvvv [join [lrange $text 1 end]]
  1803.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Devoice\0036\] \0031par : \0034$hand"
  1804.     return 0
  1805.     }
  1806.     if ![isvoice [join $nick] [lindex $text 0]] {
  1807.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(iso)]"
  1808.     return 0
  1809.     }
  1810.          pushmode [lindex $text 0] -v [join $nick]
  1811.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Devoice\0036\] \0031par : \0034$hand"
  1812. }
  1813.  
  1814.     # Ban/Kick/Unban/Kickban Chan  #
  1815.  
  1816.     # Ban #
  1817.  
  1818.     proc ban { nick host hand chan text } {
  1819.         set text [gbfilter2 $text]
  1820.          set verifexempt "[split [lindex $text 0] |]"
  1821.          set nickverife "[lindex $verifexempt 0]"
  1822.     if {[channel get $chan GB]==0} { return; }
  1823.     if { [nick2hand $nick] eq "*" } {
  1824.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1825.     return 0
  1826.     }
  1827.     if {![isauth $hand]} {
  1828.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1829.     return 0
  1830.     }
  1831.     if {![matchattr $hand o|o $chan]} {
  1832.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1833.     return 0
  1834.     }
  1835.     if {$text == ""} {
  1836.          puthelp "notice $nick :Syntaxe incorrecte ! ( $::GB::commande(choix)ban <pseudo/host> ) !"
  1837.     return 0
  1838.     }
  1839.     if {[progfile exempt icr $nickverife]!="0"} {
  1840.          putserv "notice $nick :Attention le Nick: \2[lindex $text 0]\2 est dans la liste des protégés."
  1841.     return 0
  1842.     }
  1843.     if {[string match *!*@* [lindex $text 0]]} {
  1844.          pushmode $chan +b [lindex $text 0]
  1845.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Ban\0036\] \0031par : \0034$hand"
  1846.     return 0
  1847.     }
  1848.     if {[llength [getchanhost [lindex $text 0]]]!=0} {
  1849.          set host [lindex [split [getchanhost [lindex $text 0]] @] 1]
  1850.          pushmode $chan +b *!*@$host
  1851.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Ban\0036\] \0031par : \0034$hand"
  1852.     return
  1853.     }
  1854.          puthelp "notice $nick :Le pseudo [lindex $text 0] n'est pas sur un de mes salons, je ne peux récupérer son host !"
  1855. }
  1856.  
  1857.     # Kick #
  1858.  
  1859.     proc kick { nick uhost hand chan text } {
  1860.         set text [gbfilter2 $text]
  1861.          set Knick "[lindex $text 0]"
  1862.          set verifexempt "[split [lindex $text 0] |]"
  1863.          set nickverife "[lindex $verifexempt 0]"
  1864.     if {[channel get $chan GB]==0} { return; }
  1865.     if { [nick2hand $nick] eq "*" } {
  1866.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1867.     return 0
  1868.     }
  1869.     if {![isauth $hand]} {
  1870.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1871.     return 0
  1872.     }
  1873.     if {![matchattr $hand o|o $chan]} {
  1874.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1875.     return 0
  1876.     }
  1877.     if {$text == ""} {
  1878.          puthelp "notice $nick :Syntaxe : ( $::GB::commande(choix)kick <pseudo> ) !"
  1879.     return 0
  1880.     }
  1881.     if {$text != ""} {
  1882.     if {![onchan [lindex $text 0]]} {
  1883.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1884.     return 0
  1885.     }
  1886.     if {[progfile exempt icr $nickverife]!="0"} {
  1887.          putserv "notice $nick :Attention le Nick: \2[lindex $text 0]\2 est dans la liste des protégés."
  1888.     return 0
  1889.     }
  1890.     if {[lindex $text 1] != ""} {
  1891.          putquick "kick $chan [lindex $text 0] :[join [lrange $text 1 end]]"
  1892.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Kick\0036\] \0031par : \0034$hand"
  1893.     return
  1894.     }
  1895.     if {[lindex $text 1] == ""} {
  1896.          putkick $chan [lindex $text 0] [subst -nocommands -nobackslashes $::GB::msg(kick)]
  1897.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Kick\0036\] \0031par : \0034$hand"
  1898.     return 0
  1899.         }
  1900.     }
  1901. }
  1902.  
  1903.     # Unban #
  1904.  
  1905.     proc unban { nick uhost hand chan text } {
  1906.         set text [gbfilter2 $text]
  1907.     if {[channel get $chan GB]==0} { return; }
  1908.     if { [nick2hand $nick] eq "*" } {
  1909.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1910.     return 0
  1911.     }
  1912.     if {![isauth $hand]} {
  1913.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1914.     return 0
  1915.     }
  1916.     if {![matchattr $hand o|o $chan]} {
  1917.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1918.     return 0
  1919.     }
  1920.     if {$text == ""} {
  1921.          puthelp "notice $nick :Syntaxe : ( $::GB::commande(choix)unban <host> ) !"
  1922.     return 0
  1923.     }
  1924.     if {[string match *!*@* [lindex $text 0]]} {
  1925.          pushmode $chan -b [lindex $text 0]
  1926.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Unban\0036\] \0031par : \0034$hand"
  1927.     return 0
  1928.     }
  1929.     if {[llength [getchanhost [lindex $text 0]]]!=0} {
  1930.          set host [lindex [split [getchanhost [lindex $text 0]] @] 1]
  1931.          putquick "mode $chan -b *!*@$host"
  1932.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Unban\0036\] \0031par : \0034$hand"
  1933.     return
  1934.     }
  1935. }
  1936.  
  1937.     # Kickban #
  1938.  
  1939.     proc kickban { nick host hand chan text } {
  1940.         set text [gbfilter2 $text]
  1941.          set KBnick "[lindex $text 0]"
  1942.          set host [lindex [split [getchanhost [lindex $text 0]] @] 1]
  1943.          set verifexempt "[split [lindex $text 0] |]"
  1944.          set nickverife "[lindex $verifexempt 0]"
  1945.     if {[channel get $chan GB]==0} { return; }
  1946.     if { [nick2hand $nick] eq "*" } {
  1947.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1948.     return 0
  1949.     }
  1950.     if {![isauth $hand]} {
  1951.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1952.     return 0
  1953.     }
  1954.     if {![matchattr $hand o|o $chan]} {
  1955.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  1956.     return 0
  1957.     }
  1958.     if {$text == ""} {
  1959.          puthelp "notice $nick :Syntaxe : ( $::GB::commande(choix)kickban <pseudo> ) !"
  1960.     return 0
  1961.     }
  1962.     if {![onchan [lindex $text 0] $chan]} {
  1963.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  1964.     return 0
  1965.     }
  1966.     if {![botisop [lindex $chan]]} {
  1967.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  1968.     return 0
  1969.     }
  1970.     if {[progfile exempt icr $nickverife]!="0"} {
  1971.          putserv "notice $nick :Attention le Nick: \2[lindex $text 0]\2 est dans la liste des protégés."
  1972.     return 0
  1973.     }
  1974.         ::GB::ban_user $KBnick *!*@$host $chan
  1975.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Kick-Ban\0036\] \0031par : \0034$hand"
  1976.     return
  1977. }
  1978.  
  1979.     # Ban/Kick/Unban/Kickban MSG #
  1980.  
  1981.     # Ban #
  1982.  
  1983.     proc xban { nick uhost hand arg } {
  1984.         set arg [gbfilter $arg]
  1985.          set chan [lindex $arg 0]
  1986.          set cible [lindex $arg 1]
  1987.          set verifexempt "[split [lindex $arg 1] |]"
  1988.          set nickverife "[lindex $verifexempt 0]"
  1989.     if {[channel get $chan GB]==0} { return; }
  1990.     if { [nick2hand $nick] eq "*" } {
  1991.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  1992.     return 0
  1993.     }
  1994.     if {![isauth $hand]} {
  1995.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  1996.     return 0
  1997.     }
  1998.     if ("[llength $arg]"!="2")||![string match -nocase #* $chan] {
  1999.          puthelp "notice $nick :Syntaxe incorrect ( /msg $::botnick ban <#salon> <pseudo/host> ) !"
  2000.     return 0
  2001.     }
  2002.     if {![validchan [lindex $arg 0]]} {
  2003.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2004.     return 0
  2005.     }
  2006.     if {![matchattr $hand o|o $chan]} {
  2007.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2008.     return 0
  2009.     }
  2010.     if {![botonchan [lindex $arg 0]]} {
  2011.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  2012.     return 0
  2013.     }
  2014.     if {![botisop [lindex $arg 0]]} {
  2015.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  2016.     return 0
  2017.     }
  2018.     if {[string match *!*@* $cible]} {
  2019.          putquick "mode $chan +b $cible"
  2020.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Ban\0036\] \0031par : \0034$hand"
  2021.     return 0
  2022.     }
  2023.     if {[progfile exempt icr $nickverife]!="0"} {
  2024.          putserv "notice $nick :Attention le Nick: \2$cible\2 est dans la liste des protégés."
  2025.     return 0
  2026.     }
  2027.     if {[llength [getchanhost $cible]]!=0} {
  2028.          set host [lindex [split [getchanhost $cible] @] 1]
  2029.          putquick "mode $chan +b *!*@$host"
  2030.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Ban\0036\] \0031par : \0034$hand"
  2031.     return 0
  2032.     }
  2033.          puthelp "notice $nick :Le pseudo $cible n'est pas sur un de mes salons, je ne peux récupérer son host !"
  2034. }
  2035.  
  2036.     # kick #
  2037.  
  2038.     proc xkick { nick uhost hand text } {
  2039.         set text [gbfilter2 $text]
  2040.          set Knick "[lindex $text 0]"
  2041.          set chan [lindex $text 0]
  2042.          set cible [lindex $text 1]
  2043.          set verifexempt "[split [lindex $text 1] |]"
  2044.          set nickverife "[lindex $verifexempt 0]"
  2045.     if {[channel get $chan GB]==0} { return; }
  2046.     if { [nick2hand $nick] eq "*" } {
  2047.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2048.     return 0
  2049.     }
  2050.     if {![isauth $hand]} {
  2051.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2052.     return 0
  2053.     }
  2054.     if {![string match #* [lindex $text 0]]} {
  2055.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $botnick kick <#salon> <pseudo(s)> ) !"
  2056.     return 0
  2057.     }
  2058.     if {![validchan [lindex $text 0]]} {
  2059.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2060.     return 0
  2061.     }
  2062.     if {![matchattr $hand o|o $chan]} {
  2063.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2064.     return 0
  2065.     }
  2066.     if {![onchan $nick [lindex $text 0]]} {
  2067.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  2068.     return 0
  2069.     }
  2070.     if {![botonchan [lindex $text 0]]} {
  2071.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  2072.     return 0
  2073.     }
  2074.     if {![botisop [lindex $text 0]]} {
  2075.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  2076.     return 0
  2077.     }
  2078.     if {![onchan $cible $chan]} {
  2079.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nopseudo)]"
  2080.     return 0
  2081.     }
  2082.     if {[progfile exempt icr $nickverife]!="0"} {
  2083.          puthelp "notice $nick :Attention le Nick: \2[lindex $text 1]\2 est dans la liste des protégés."
  2084.     return 0
  2085.     }
  2086.     if {[lindex $text 2] !=""} {
  2087.          putquick "kick [lindex $text 0] [lindex $text 1] :[join [lrange $text 2 end]]"
  2088.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Kick\0036\] \0031par : \0034$hand"
  2089.     return
  2090.     }
  2091.     if {[onchan [join [lindex $text 1]] [lindex $text 0]]} {
  2092.          putquick "kick [lindex $text 0] [lindex $text 1] :[subst -nocommands -nobackslashes $::GB::msg(kick)]"
  2093.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Kick\0036\] \0031par : \0034$hand"
  2094.      return
  2095.     }
  2096. }
  2097.  
  2098.     # Unban #
  2099.  
  2100.     proc xunban { nick uhost hand arg } {
  2101.         set arg [gbfilter $arg]
  2102.          set chan [lindex $arg 0]
  2103.     if {[channel get $chan GB]==0} { return; }
  2104.     if { [nick2hand $nick] eq "*" } {
  2105.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2106.     return 0
  2107.     }
  2108.     if {![isauth $hand]} {
  2109.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2110.     return 0
  2111.     }
  2112.     if {![matchattr $hand o|o $chan]} {
  2113.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2114.     return 0
  2115.     }
  2116.     if {![string match #* [lindex $arg 0]]} {
  2117.          puthelp "notice $nick :Syntaxe : ( /msg $::botnick unban <#salon> <host> ) !"
  2118.     return 0
  2119.     }
  2120.     if {[string match *!*@* [lindex $arg 1]]} {
  2121.          putquick "mode $chan -b [lindex $arg 1]"
  2122.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Unban\0036\] \0031par : \0034$hand"
  2123.     return 0
  2124.     }
  2125.     if {[llength [getchanhost [lindex $arg 0]]]!=0} {
  2126.          set host [lindex [split [getchanhost [lindex $arg 0]] @] 1]
  2127.          putquick "mode $chan -b *!*@$host"
  2128.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Unban\0036\] \0031par : \0034$hand"
  2129.     return 0
  2130.     }
  2131. }
  2132.  
  2133.     # Kickban #
  2134.  
  2135.     proc xkickban { nick uhost hand arg } {
  2136.         set arg [gbfilter $arg]
  2137.          set KBnick "[lindex $text 0]"
  2138.          set chan [lindex $arg 0]
  2139.          set verifexempt "[split [lindex $arg 1] |]"
  2140.          set nickverife "[lindex $verifexempt 0]"
  2141.     if {[channel get $chan GB]==0} { return; }
  2142.     if { [nick2hand $nick] eq "*" } {
  2143.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2144.     return 0
  2145.     }
  2146.     if {![isauth $hand]} {
  2147.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2148.     return 0
  2149.     }
  2150.     if {![matchattr $hand o|o $chan]} {
  2151.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2152.     return 0
  2153.     }
  2154.     if {![string match #* [lindex $arg 0]]} {
  2155.          puthelp "notice $nick :Syntaxe : ( /msg $::botnick kickban <#salon> <pseudo> ) !"
  2156.     return 0
  2157.     }
  2158.     if {[progfile exempt icr $nickverife]!="0"} {
  2159.          puthelp "notice $nick :Attention le Nick: \2[lindex $arg 1]\2 est dans la liste des protégés."
  2160.     return 0
  2161.     }
  2162.     if {[llength [getchanhost [lindex $arg 1]]]!=0} {
  2163.          set host [lindex [split [getchanhost [lindex $arg 1]] @] 1]
  2164.          ::GB::ban_user $KBnick *!*@$host $chan
  2165.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Kick-Ban\0036\] \0031par : \0034$hand"
  2166.     return
  2167.     }
  2168. }
  2169.  
  2170.     # Clearban/Mode Chan #
  2171.  
  2172.     # Clearban #
  2173.  
  2174.     proc clearbans { nick host hand chan text } {
  2175.         set text [gbfilter2 $text]
  2176.     if {[channel get $chan GB]==0} { return; }
  2177.     if { [nick2hand $nick] eq "*" } {
  2178.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2179.     return 0
  2180.     }
  2181.     if {![isauth $hand]} {
  2182.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2183.     return 0
  2184.     }
  2185.     if {![matchattr $hand o|m $chan]} {
  2186.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2187.     return 0
  2188.     }
  2189.     foreach bsyntaxe [chanbans $chan] {
  2190.          putquick "mode $chan -b [lindex $bsyntaxe 0]"
  2191.     }
  2192.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Clear-Bans\0036\] \0031par : \0034$hand"
  2193. }
  2194.  
  2195.     # Mode #
  2196.  
  2197. proc mode { nick uhost hand chan text } {
  2198.     set text [gbfilter2 $text]
  2199.     if {[channel get $chan GB]==0} { return; }
  2200.     if { [nick2hand $nick] eq "*" } {
  2201.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2202.     return 0
  2203.     }
  2204.     if {![isauth $hand]} {
  2205.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2206.     return 0
  2207.     }
  2208.     if {$text!=""} {
  2209.     if {![matchattr $hand o|m $chan]} {
  2210.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2211.     return 0
  2212.     }
  2213.          putquick "mode $chan $text"
  2214.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Mode\0036\] \0031par : \0034$hand"
  2215.     }
  2216. }
  2217.  
  2218.     # Clearbans/Mode Msg #
  2219.  
  2220.     # Clearbans #
  2221.  
  2222.     proc xclearbans { nick host hand text } {
  2223.         set text [gbfilter2 $text]
  2224.          set chan [lindex $text 0]
  2225.     if {[channel get $chan GB]==0} { return; }
  2226.     if { [nick2hand $nick] eq "*" } {
  2227.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2228.     return 0
  2229.     }
  2230.     if {![isauth $hand]} {
  2231.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2232.     return 0
  2233.     }
  2234.     if {![string match #* [lindex $text 0]]} {
  2235.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $botnick clearbans <#salon> ) !"
  2236.     return 0
  2237.     }
  2238.     if {![validchan [lindex $text 0]]} {
  2239.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2240.     return 0
  2241.     }
  2242.     if {![matchattr $hand o|m [lindex $text 0]]} {
  2243.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2244.     return 0
  2245.     }
  2246.     if {![botonchan [lindex $text 0]]} {
  2247.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  2248.     return 0
  2249.     }
  2250.     if {![botisop [lindex $text 0]]} {
  2251.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  2252.     return 0
  2253.     }
  2254.     foreach bsyntaxe [chanbans $chan] {
  2255.          putquick "mode $chan -b [lindex $bsyntaxe 0]"
  2256.     }
  2257.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Clear-Bans\0036\] \0031par : \0034$hand"
  2258. }
  2259.  
  2260.     # Mode #
  2261.  
  2262.     proc xmode { nick host hand text } {
  2263.         set text [gbfilter2 $text]
  2264.          set chan [lindex $text 0]
  2265.     if {[channel get $chan GB]==0} { return; }
  2266.     if { [nick2hand $nick] eq "*" } {
  2267.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2268.     return 0
  2269.     }
  2270.     if {![isauth $hand]} {
  2271.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2272.     return 0
  2273.     }
  2274.     if {![string match #* [lindex $text 0]]} {
  2275.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $botnick mode <#salon> <mode(s)> ) !"
  2276.     return 0
  2277.     }
  2278.     if {![validchan [lindex $text 0]]} {
  2279.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2280.     return 0
  2281.     }
  2282.     if {$text!=""} {
  2283.     if {![matchattr $hand o|m [lindex $text 0]]} {
  2284.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2285.     return 0
  2286.     }
  2287.     if {![botonchan [lindex $text 0]]} {
  2288.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  2289.     return 0
  2290.     }
  2291.     if {![botisop [lindex $text 0]]} {
  2292.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(botdeop)]"
  2293.     return 0
  2294.     }
  2295.          putquick "mode $chan [lindex $text 1]"
  2296.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Mode\0036\] \0031par : \0034$hand"
  2297.     }
  2298. }
  2299.  
  2300.     # Topic Chan/Msg #
  2301.  
  2302.     # Topic Chan #
  2303.  
  2304.     proc topic { nick host hand chan arg} {
  2305.         set arg [gbfilter $arg]
  2306.     if {[channel get $chan GB]==0} { return; }
  2307.     if { [nick2hand $nick] eq "*" } {
  2308.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2309.     return 0
  2310.     }
  2311.  
  2312.     if {![isauth $hand]} {
  2313.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2314.     return 0
  2315.     }
  2316.  
  2317.     if {![matchattr $hand o|o $chan]} {
  2318.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2319.     return 0
  2320.     }
  2321.          putquick "TOPIC $chan :$arg"
  2322.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Topic\0036\] \0031par : \0034$hand"
  2323. }
  2324.  
  2325.     # Topic Msg #
  2326.    
  2327.     proc xtopic { nick host hand text } {
  2328.         set text [gbfilter2 $text]
  2329.          set chan [string tolower [lindex $text 0]]
  2330.     if {[channel get $chan GB]==0} { return; }
  2331.     if { [nick2hand $nick] eq "*" } {
  2332.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2333.     return 0
  2334.     }
  2335.     if {![isauth $hand]} {
  2336.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2337.     return 0
  2338.     }
  2339.     if {![string match #* [lindex $text 0]]} {
  2340.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick topic <#chan> <text> ) !"
  2341.     return 0
  2342.     }
  2343.     if {![validchan [lindex $text 0]]} {
  2344.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2345.     return 0
  2346.     }
  2347.     if { [string length $text] ne "" } {
  2348.     if {![matchattr $hand o|o [lindex $text 0]]} {
  2349.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2350.     return 0
  2351.          }
  2352.          putquick "TOPIC $chan :[lindex $text 1 end]"
  2353.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Topic\0036\] \0031par : \0034$hand"
  2354.     }
  2355. }
  2356.    
  2357.     # Infoline #
  2358.  
  2359.     proc infoline { nick host hand arg } {
  2360.         set arg [gbfilter $arg]
  2361.          set chan [string tolower [lindex $arg 0]]
  2362.     if {[channel get $chan GB]==0} { return; }
  2363.     if { [nick2hand $nick] eq "*" } {
  2364.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2365.     return 0
  2366.     }
  2367.     if {![isauth $hand]} {
  2368.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2369.     return 0
  2370.     }
  2371.     if {![string match #* [lindex $arg 0]]} {
  2372.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick infoline <#salon> <text> ) !"
  2373.     return 0
  2374.     }
  2375.     if {![validchan [lindex $arg 0]]} {
  2376.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2377.     return 0
  2378.     }
  2379.     if { [string length $arg] ne "" } {
  2380.     if {![matchattr $hand o|o [lindex $arg 0]]} {
  2381.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2382.     return 0
  2383.     }
  2384.          setchaninfo $hand $chan [join [lrange $arg 1 end]]
  2385.          puthelp "notice $nick :Infoline définie :[join [lrange $arg 1 end]]"
  2386.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Info-Line\0036\] \0031par : \0034$hand"
  2387.     }
  2388. }
  2389.  
  2390.     # Message au join Infoline de CrazyCat #
  2391.  
  2392.     proc greet { nick uhost handle chan } {
  2393.     if { ![validuser $handle] } { return; }
  2394.     if { [getchaninfo $handle $chan] ne "" } {
  2395.          putserv "PRIVMSG $chan :\[$nick\] [getchaninfo $handle $chan]"
  2396.    }
  2397.    return
  2398. }
  2399.    
  2400.     # Notice-Chan #
  2401.  
  2402.     proc nonotice_chanoff { nick uhost hand text dest } {
  2403.         set text [gbfilter2 $text]
  2404.     if ("$nick"=="")||("$dest"=="$::botnick") {return 0}
  2405.     if [validuser [finduser $nick!*@*]]&&[matchattr $hand o|o $dest] {return 0}
  2406.     if [isop $nick $dest]||[isvoice $nick $dest] {return 0}
  2407.     if ![botisop $dest] {return 0}
  2408.     if [string match -nocase niubot?? $nick] {return 0}
  2409.          set host [lindex [split $uhost @] 1]
  2410.          putquick "mode $dest +b *!*@$host"
  2411.          putquick "kick $dest $nick :[subst -nocommands -nobackslashes $::GB::msg(nc)]"
  2412. }
  2413.    
  2414.     # Amsg #
  2415.  
  2416.     proc amsg { nick host hand chan arg } {
  2417.         set arg [gbfilter $arg]
  2418.     if {[channel get $chan GB]==0} { return; }
  2419.     if { [nick2hand $nick] eq "*" } {
  2420.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2421.     return 0
  2422.     }
  2423.     if {![isauth $hand]} {
  2424.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2425.     return 0
  2426.     }
  2427.     if {![matchattr $hand o|n $chan]} {
  2428.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2429.     return 0
  2430.     }
  2431.     foreach c [channels] {
  2432.          putserv "privmsg $c :\0031\[\00314 Information \0031\] \0034$hand \0032: $arg"
  2433.     }
  2434.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)Amsg\0036\] \0031par : \0034$hand"
  2435. }
  2436.  
  2437.     # Activation/Désactivation du TCL #
  2438.  
  2439.     proc gbon { nick host hand chan arg } {
  2440.         set arg [gbfilter $arg]
  2441.     if {[channel get $chan GB] == 0} {
  2442.          channel set $chan +GB
  2443.          putquick "PRIVMSG $chan :TCL Activé !"
  2444.     } else {
  2445.          putquick "PRIVMSG $chan :TCL déjà Activé !"
  2446.     }
  2447.          puthelp "privmsg $::GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)gbon\0036\] \0031par : \0034$hand"
  2448. }
  2449.  
  2450.     proc gboff { nick host hand chan arg } {
  2451.         set arg [gbfilter $arg]
  2452.     if {[channel get $chan GB] != 0} {
  2453.          channel set $chan -GB
  2454.          putquick "PRIVMSG $chan :TCL Désactivé !"
  2455.     } else {
  2456.          putquick "PRIVMSG $chan :TCL déjà Désactivé !"
  2457.     }
  2458.          puthelp "privmsg $::GB::log :\00314Commande \0036\[\0033$::GB::commande(choix)gboff\0036\] \0031par : \0034$hand"
  2459. }
  2460.    
  2461.     # Auth-List #
  2462.  
  2463.     proc authlist { nick host hand arg } {
  2464.         set arg [gbfilter $arg]
  2465.          set chan [string tolower [lindex $arg 0]]
  2466.     if {[channel get $chan GB]==0} { return; }
  2467.     if { [nick2hand $nick] eq "*" } {
  2468.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2469.     return 0
  2470.     }
  2471.     if {![isauth $hand]} {
  2472.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2473.     return 0
  2474.     }
  2475.     if {![string match #* [lindex $arg 0]]} {
  2476.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick authlist <#salon> ) !"
  2477.     return 0
  2478.     }
  2479.     if {![validchan [lindex $arg 0]]} {
  2480.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2481.     return 0
  2482.     }
  2483.     if { [string length $arg] ne "" } {
  2484.     if {![matchattr $hand o|o [lindex $arg 0]]} {
  2485.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2486.     return 0
  2487.     }
  2488.     foreach u [userlist] {
  2489.     if [matchattr $u o|o $chan] {
  2490.     if [isauth $u] {
  2491.          putserv "privmsg $nick :\0031\[\00314$u\0031\] \0031: \0036AUTH \0031: \0033YES"
  2492.     } else {
  2493.          putserv "privmsg $nick :\0031\[\00314$u\0031\] \0031: \0036AUTH \0031: \0034NO"
  2494.                 }
  2495.             }
  2496.         }
  2497.     }
  2498.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Auth-List\0036\] \0031par : \0034$hand"
  2499. }
  2500.          
  2501.     # Say/Me Msg #
  2502.  
  2503.     # Say #
  2504.  
  2505.     proc say { nick uhost hand text } {
  2506.         set text [gbfilter2 $text]
  2507.          set chan [string tolower [lindex $text 0]]
  2508.     if {[channel get $chan GB]==0} { return; }
  2509.     if { [nick2hand $nick] eq "*" } {
  2510.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2511.     return 0
  2512.     }
  2513.     if {![isauth $hand]} {
  2514.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2515.     return 0
  2516.     }
  2517.     if {![string match #* [lindex $text 0]]} {
  2518.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick say <#salon> <text> ) !"
  2519.     return 0
  2520.     }
  2521.     if {![validchan [lindex $text 0]]} {
  2522.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2523.     return 0
  2524.     }
  2525.     if {![matchattr $hand o|o $chan]} {
  2526.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2527.     return 0
  2528.     }
  2529.     if {![botonchan [lindex $text 0]]} {
  2530.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  2531.     return 0
  2532.     }
  2533.          set chann "[lindex [channels] [lsearch [string tolower [channels]] [string tolower [lindex $text 0]]]]"
  2534.          putserv "privmsg [lindex $text 0] :[join [lrange $text 1 end]]"
  2535.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Say\0036\] \0031par : \0034$hand"
  2536.     return
  2537. }
  2538.    
  2539.     # Me #
  2540.  
  2541.     proc me { nick uhost hand text } {
  2542.         set text [gbfilter2 $text]
  2543.          set chan [string tolower [lindex $text 0]]
  2544.     if {[channel get $chan GB]==0} { return; }
  2545.     if { [nick2hand $nick] eq "*" } {
  2546.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2547.     return 0
  2548.     }
  2549.     if {![isauth $hand]} {
  2550.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(auth)]"
  2551.     return 0
  2552.     }
  2553.     if {![string match #* [lindex $text 0]]} {
  2554.          puthelp "notice $nick :Syntaxe incorrecte ! ( /msg $::botnick me <#salon> <text> ) !"
  2555.     return 0
  2556.     }
  2557.     if {![validchan [lindex $text 0]]} {
  2558.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(salon)]"
  2559.     return 0
  2560.     }
  2561.     if {![matchattr $hand o|o $chan]} {
  2562.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(level)]"
  2563.     return 0
  2564.     }
  2565.     if {![botonchan [lindex $text 0]]} {
  2566.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(nosalon)]"
  2567.     return 0
  2568.     }
  2569.          set chann "[lindex [channels] [lsearch [string tolower [channels]] [string tolower [lindex $text 0]]]]"
  2570.          putserv "privmsg [lindex $text 0] :\001ACTION [join [lrange $text 1 end]] \001"
  2571.          putserv "privmsg $GB::log :\00314Commande \0036\[\0033Me\0036\] \0031par : \0034$hand"
  2572.      return
  2573. }
  2574.    
  2575.     # Configuration d'aide en pv #
  2576.  
  2577.     proc conf { nick host hand arg } {
  2578.         set arg [gbfilter $arg]
  2579.          set chan [string tolower [lindex $arg 0]]
  2580.     if { [nick2hand $nick] eq "*" } {
  2581.          puthelp "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
  2582.     return 0
  2583.     }
  2584.          putserv "privmsg $nick :Bonjour $nick Pour commencer veuillez taper la commande :"
  2585.          putserv "privmsg $nick :/msg $::botnick pass <unpass>"
  2586.          putserv "privmsg $nick :Ensuite pour vous authentifier veuillez taper :"
  2587.          putserv "privmsg $nick :/msg $::botnick auth $nick <votre-pass>"
  2588.          putserv "privmsg $nick :Une fois ceci fait, pour voir un aperçu de mes commandes disponibles auxquelles vous avez accès tapez :"
  2589.          putserv "privmsg $nick :/msg $::botnick help"
  2590.          putserv "privmsg $nick :Fin de l'aide."
  2591. }
  2592.        
  2593.     # Help #
  2594.  
  2595.     proc help { nick host hand arg } {
  2596.         set arg [gbfilter $arg]
  2597.          set commande [lindex $arg 1]
  2598.          set commande [stripcodes abcu [lindex $arg 0]]
  2599.     if {$commande == ""} {
  2600.          puthelp "privmsg $nick :\00314Commande Help du Robot \002\0034$::botnick\002\0034"
  2601.     foreach c [channels] {
  2602.     if [matchattr $hand o|o $c] {
  2603.          puthelp "privmsg $nick :\0031\037Level \002Opérateur\002 :\0037"
  2604.          puthelp "privmsg $nick :\00314Auth \0031: \0034Permet de vous identifier auprès du Robot Identifia en MSG !"
  2605.          puthelp "privmsg $nick :\00314Op \0031: \0034Permet de te mettre Opérateur \0031(\00312@\0031) \0034 sur le salon ou en Msg, et pour le faire sur quelqu'un aussi !"
  2606.          puthelp "privmsg $nick :\00314Deop \0031: \0034Permet de te mettre Deop \0031(\00312-@\0031) \0034 sur le salon ou en Msg, et pour le faire sur quelqu'un aussi !"
  2607.      puthelp "privmsg $nick :\00314Halfop \0031: \0034Permet de te mettre Halfop \0031(\00312%\0031) \0034 sur le salon , et pour le faire sur quelqu'un aussi !"
  2608.          puthelp "privmsg $nick :\00314Dehalfop \0031: \0034Permet de te mettre Dehalfop \0031(\00312-%\0031) \0034 sur le salon , et pour le faire sur quelqu'un aussi !"
  2609.          puthelp "privmsg $nick :\00314Voice \0031: \0034Permet de te mettre voice \0031(\0033+v\0031) \0034 sur le salon ou en Msg, et pour le faire sur quelqu'un aussi !"
  2610.          puthelp "privmsg $nick :\00314Devoice \0031: \0034Permet de te mettre Devoice \0031(\0033-v\0031) \0034 sur le salon ou en Msg, et pour le faire sur quelqu'un aussi !"
  2611.          puthelp "privmsg $nick :\00314Kick \0031: \0034Permet de Kick quelqu'un sur un salon défini commande Chan ou Msg !"
  2612.          puthelp "privmsg $nick :\00314Kickban \0031: \0034Permet de Kickban quelqu'un sur un salon défini commande Chan ou Msg !"
  2613.          puthelp "privmsg $nick :\00314Ban \0031: \0034Permet de Ban quelqu'un sur un salon défini commande Chan ou Msg !"
  2614.          puthelp "privmsg $nick :\00314Unban \0031: \0034Permet de Unban quelqu'un sur un salon défini commande Chan ou Msg !"
  2615.          puthelp "privmsg $nick :\00314Access \0031: \0034Permet de regarder la liste d'acces command Msg !"
  2616.          puthelp "privmsg $nick :\00314Deauth \0031: \0034Permet de vous déauthentifier auprès du Robot $::botnick commande Msg !"
  2617.          puthelp "privmsg $nick :\00314Newpass \0031: \0034Permet de changer votre mot de passe auprès du Robot $::botnick commande Msg !"
  2618.          puthelp "privmsg $nick :\00314Infoline \0031: \0034Permet de vous mettre un texte à l'entrée d'un salon commande Msg !"
  2619.          puthelp "privmsg $nick :\00314Topic \0031: \0034Permet de mettre un topic sur un salon défini commande Chan ou Msg !"
  2620.          puthelp "privmsg $nick :\00314Authlist \0031: \0034Permet de regarder qui est authentifié auprès du Robot $::botnick commande Msg !"
  2621.          puthelp "privmsg $nick :\00314Say \0031: \0034Permet d'envoyer un message sous forme de /say sur un salon défini commande Msg !"
  2622.          puthelp "privmsg $nick :\00314Me \0031: \0034Permet d'envoyer un message sous forme de /me sur un salon défini commande en Msg !"        
  2623.      break
  2624.     }
  2625. }
  2626.     foreach c [channels] {
  2627.     if [matchattr $hand o|m $c] {
  2628.          puthelp "privmsg $nick :\0031\037Level \002Master\002 :\037"
  2629.          puthelp "privmsg $nick :\00314Addop \0031: \0034Permet de mettre un user Opérateur sur un salon défini commande Chan ou Msg !"
  2630.          puthelp "privmsg $nick :\00314Delop \0031: \0034Permet de retirer le level Opérateur sur un salon défini commande Chan ou Msg !"
  2631.          puthelp "privmsg $nick :\00314Clearbans \0031: \0034Permet de Clearbans tout les bans sur le salon commande Chan ou Msg !"
  2632.          puthelp "privmsg $nick :\00314Mode \0031: \0034Permet de mettre ou retirer un Mode commande Chan ou Msg !"
  2633.          puthelp "privmsg $nick :\00314Opall \0031: \0034Permet de mettre tout le monde Op commande Chan ou Msg !"
  2634.          puthelp "privmsg $nick :\00314Deopall \0031: \0034Permet de mettre tout le monde Deop commande Chan ou Msg !"
  2635.               puthelp "privmsg $nick :\00314Halfopall \0031: \0034Permet de mettre tout le monde Halfop commande Chan !"
  2636.          puthelp "privmsg $nick :\00314Dehalfop \0031: \0034Permet de mettre tout le monde Dehalfop commande Chan !"
  2637.          puthelp "privmsg $nick :\00314Voiceall \0031: \0034Permet de mettre tout le monde Voice commande Chan ou Msg !"
  2638.          puthelp "privmsg $nick :\00314Devoiceall \0031: \0034Permet de mettre tout le monde Devoice commande Chan ou Msg !"         
  2639.          break
  2640.     }
  2641. }
  2642.     foreach c [channels] {
  2643.     if [matchattr $hand o|n $c] {
  2644.          puthelp "privmsg $nick :\0031\037Level \002Owner\002 :\037"
  2645.          puthelp "privmsg $nick :\00314Addmaster \0031: \0034Permet de mettre un user ou un Opérateur d'un salon le level Master commande Msg !"
  2646.          puthelp "privmsg $nick :\00314Delmaster \0031: \0034Permet de retirer le level Master sur un salon défini commande Msg !"
  2647.          puthelp "privmsg $nick :\00314Amsg \0031: \0034Permet de faire un Amsg sur tout les salons où se situe $::botnick commande Chan seulement sur $::GB::log Il faut taper la commande sinon cela ne fonctionne pas !"      
  2648.      break
  2649.     }
  2650. }
  2651.     foreach c [channels] {
  2652.     if [matchattr $hand o $c] {
  2653.          puthelp "privmsg $nick :\0031\037Level \002SuperOp\002 :\037"
  2654.          puthelp "privmsg $nick :\00314Delowner \0031: \0034Permet de retirer le level Owner sur un salon défini commande Msg !"
  2655.          puthelp "privmsg $nick :\00314Exempt \0031: \0034Permet de mettre/retirer/regarder les pseudos protégés commande Chan !"
  2656.          puthelp "privmsg $nick :\00314Blacklist \0031: \0034Permet de mettre/retirer/regarder la Blacklist commande Chan !"
  2657.          puthelp "privmsg $nick :\00314Addsuspend \0031: \0034Permet de suspendre un accéss commande Msg !"
  2658.          puthelp "privmsg $nick :\00314Delsuspend \0031: \0034Permet de retirer un suspend commande Msg !"
  2659.          puthelp "privmsg $nick :\00314Addchan \0031: \0034Permet de rajouter un autojoin sur un salon au bot commande Msg !"
  2660.          puthelp "privmsg $nick :\00314Delchan \0031: \0034Permet de retirer un salon des autojoin au bot commande Msg !"
  2661.          puthelp "privmsg $nick :\00314Listchan \0031: \0034Permet de regarder la liste des chan en autojoin qu'il y a dans $::botnick commande Msg !"
  2662.          puthelp "privmsg $nick :\00314Addowner \0031: \0034Permet de mettre un user ou Opérateur ou un Master le level Owner commande Msg !"
  2663.          puthelp "privmsg $nick :\00314Addsuperop \0031: \0034Permet de mettre un user ou Opérateur ou Master ou Owner le level SuperOp commande Msg !"
  2664.          puthelp "privmsg $nick :\00314Delsuperop \0031: \0034Permet de retirer le level SuperOp commande Msg !"
  2665.          puthelp "privmsg $nick :\00314Gbon \0031: \0034Permet d'activer le TCL sur un salon défini commande Chan !"
  2666.          puthelp "privmsg $nick :\00314Gboff \0031: \0034Permet de désactiver le TCL sur un salon défini commande Chan !"
  2667.      break
  2668.     }
  2669. }
  2670.          puthelp "privmsg $nick :\00314Exemple de commande à taper pour avoir de l'aide plus détaillée\00314"
  2671.          puthelp "privmsg $nick :\0034/msg $::botnick help op\0034"
  2672.          puthelp "privmsg $nick :\0031\[\0034Info\0031\] \00314Toutes les commandes sont a taper en \002\0031(Minuscules)\002"
  2673.          puthelp "privmsg $nick :\0031\037\002Fin du Help !\002"
  2674.          puthelp "privmsg $GB::log :\00314Commande \0036\[\0033Help\0036\] \0031par : \0034$hand"
  2675.     }
  2676.     switch -- $commande {
  2677. "op" {
  2678.          puthelp "privmsg $nick :\00314Commande Op Chan \0031: \0034$::GB::commande(choix)op \0031ou \0034$::GB::commande(choix)op <pseudo>"
  2679.          puthelp "privmsg $nick :\00314Commande Op Msg \0031: \0034/msg $::botnick op <#salon> \0031ou \0034/msg $::botnick op <#salon> <pseudo>"
  2680.     }
  2681. "deop" {
  2682.          puthelp "privmsg $nick :\00314Commande Deop Chan \0031: \0034$::GB::commande(choix)deop \0031ou \0034$::GB::commande(choix)deop <pseudo>"
  2683.          puthelp "privmsg $nick :\0031Commande Deop Chan \0031: \0034/msg $::botnick deop <#salon> \0031ou \0034/msg $::botnick deop <#salon> <pseudo>"
  2684.     }
  2685. "voice" {
  2686.          puthelp "privmsg $nick :\00314Commande Voice Chan \0031: \0034$::GB::commande(choix)voice \0031ou \0034$::GB::commande(choix)voice <pseudo>"
  2687.          puthelp "privmsg $nick :\00314Commande Voice Msg \0031: \0034/msg $::botnick <voice> <#salon> \0031ou \0034/msg $::botnick <voice> <#salon> <pseudo>"
  2688.     }
  2689. "devoice" {
  2690.          puthelp "privmsg $nick :\00314Commande Devoice Chan \0031: \0034$::GB::commande(choix)devoice \0031ou \0034$::GB::commande(choix)devoice <pseudo>"
  2691.          puthelp "privmsg $nick :\00314Commande Devoice Msg \0031: \0034/msg $::botnick <devoice> <#salon> \0031ou \0034/msg $::botnick devoice <#salon> <pseudo>"
  2692.     }
  2693. "halfop" {
  2694.          puthelp "privmsg $nick :\00314Commande Halfop Chan \0031: \0034$::GB::commande(choix)halfop \0031ou \0034$::GB::commande(choix)halfop <pseudo>"
  2695.     }
  2696. "dehalfop" {
  2697.          puthelp "privmsg $nick :\00314Commande Dehalfop Chan \0031: \0034$::GB::commande(choix)dehalfop \0031ou \0034$::GB::commande(choix)dehalfop <pseudo>"
  2698.     }
  2699. "halfopall" {
  2700.          puthelp "privmsg $nick :\00314Commande Halfopall Chan \0031: \0034$::GB::commande(choix)halfopall \0031ou \0034$::GB::commande(choix)halfopall <pseudo>"
  2701.     }
  2702. "dehalfopall" {
  2703.          puthelp "privmsg $nick :\00314Commande Dehalfopall Chan \0031: \0034$::GB::commande(choix)dehalfopall \0031ou \0034$::GB::commande(choix)dehalfopall <pseudo>"
  2704.     }
  2705. "kick" {
  2706.          puthelp "privmsg $nick :\00314Commande Kick Chan \0031: \0034$::GB::commande(choix)kick <pseudo> \0031ou \0034$::GB::commande(choix)kick <pseudo> <raison>"
  2707.          puthelp "privmsg $nick :\00314Commande Kick Msg \0031: \0034/msg $::botnick kick <#salon> <pseudo> \0031ou \0034/msg $::botnick kick <#salon> <pseudo> <raison>"
  2708.     }
  2709. "kickban" {
  2710.          puthelp "privmsg $nick :\00314Commande Kickban Chan \0031: \0034$::GB::commande(choix)kickban <pseudo>"
  2711.          puthelp "privmsg $nick :\00314Commande Kickban Msg \0031: \0034/msg $::botnick kickban <#salon> <pseudo>"
  2712.     }
  2713. "ban" {
  2714.          puthelp "privmsg $nick :\00314Commande Ban Chan \0031: \0034$::GB::commande(choix)ban <pseudo> \0031ou \0034$::GB::commande(choix)ban <host>"
  2715.          puthelp "privmsg $nick :\00314Commande Ban Msg \0031: \0034/msg $::botnick ban <#salon> <host>"
  2716.     }
  2717. "unban" {
  2718.          puthelp "privmsg $nick :\00314Commande Unban Chan \0031: \0034$::GB::commande(choix)unban <pseudo> \ou \0034$::GB::commande(choix)unban <host>"
  2719.          puthelp "privmsg $nick :\00314Commande Unban Msg \0031: \0034/msg $::botnick unban <#salon> <host>"
  2720.     }
  2721. "access" {
  2722.          puthelp "privmsg $nick :\00314Commande Access Msg \0031: \0034/msg $::botnick access <#salon> * \0031ou \0034/msg $::botnick access <#salon> al* \0037Ceci et un exemple le al* cherchera tout les access ayant dans le pseudo (al)"
  2723.     }
  2724. "addop" {
  2725.          puthelp "privmsg $nick :\00314Commande Addop Msg \0031: \0034/msg $::botnick addop <pseudo> <#salon>"
  2726.     }
  2727. "addmaster" {
  2728.          puthelp "privmsg $nick :\00314Commande Addmaster Msg \0031: \0034/msg $::botnick addmaster <pseudo> <#salon>"
  2729.     }
  2730. "addowner" {
  2731.          puthelp "privmsg $nick :\00314Commande Addowner Msg \0031: \0034/msg $::botnick addowner <pseudo> <#salon>"
  2732.     }
  2733. "delop" {
  2734.          puthelp "privmsg $nick :\00314Commande Delop Msg \0031: \0034 /msg $::botnick delop <pseudo> <#salon>"
  2735.     }
  2736. "delmaster" {
  2737.          puthelp "privmsg $nick :\00314Commande Delmaster Msg \0031: \0034/msg $::botnick delmaster <pseudo> <#salon>"
  2738.     }
  2739. "delowner" {
  2740.          puthelp "privmsg $nick :\00314Commande Delowner Msg \0031: \0034/msg $::botnick delowner <pseudo> <#salon>"
  2741.     }
  2742. "clearbans" {
  2743.          puthelp "privmsg $nick :\00314Commande Clearbans Chan \0031: \0034$::GB::commande(choix)clearbans"
  2744.          puthelp "privmsg $nick :\00314Commande Clearbans Msg \0031: \0034/msg $::botnick clearbans <#salon>"
  2745.     }
  2746. "mode" {
  2747.          puthelp "privmsg $nick :\00314Commande Mode Chan \0031: \0034$::GB::commande(choix)mode <le-mode>"
  2748.          puthelp "privmsg $nick :\00314Commande Mode Msg \0031: \0034/msg $::botnick mode <#salon> <mode>"
  2749.     }
  2750. "blacklist" {
  2751.          puthelp "privmsg $nick :\00314Commande Blacklist Chan \0031: \0034$::GB::commande(choix)blacklist"
  2752.          puthelp "privmsg $nick :\00314Commande Blacklist Chan \0031: \0034$::GB::commande(choix)+blacklist <pseudo>"
  2753.          puthelp "privmsg $nick :\00314Commande Blacklist Chan \0031: \0034$::GB::commande(choix)-blacklist <pseudo>"
  2754.     }
  2755. "exempt" {
  2756.          puthelp "privmsg $nick :\00314Commande Exempt Chan \0031: \0034$::GB::commande(choix)exempt"
  2757.          puthelp "privmsg $nick :\00314Commande Exempt Chan \0031: \0034$::GB::commande(choix)+exempt <pseudo>"
  2758.          puthelp "privmsg $nick :\00314Commande Exempt Chan \0031: \0034$::GB::commande(choix)-exempt <pseudo>"
  2759.     }
  2760. "newpass" {
  2761.          puthelp "privmsg $nick :\00314Commande Newpass Msg \0031: \0034/msg $::botnick newpass <ancien-pass> <nouveau-pass>"
  2762.     }
  2763. "opall" {
  2764.          puthelp "privmsg $nick :\00314Commande Opall Chan \0031: \0034$::GB::commande(choix)opall"
  2765.          puthelp "privmsg $nick :\00314Commande Opall Msg \0031: \0034/msg $::botnick opall <#salon>"
  2766.     }
  2767. "deopall" {
  2768.          puthelp "privmsg $nick :\00314Commande Deopall Chan \0031: \0034$::GB::commande(choix)deopall"
  2769.          puthelp "privmsg $nick :\00314Commande Deopall Msg \0031: \0034/msg $::botnick deopall <#salon>"
  2770.     }
  2771. "voiceall" {
  2772.          puthelp "privmsg $nick :\00314Commande Voiceall Chan \0031: \0034$::GB::commande(choix)voiceall"
  2773.          puthelp "privmsg $nick :\00314Commande Voiceall Msg \0031: \0034/msg $::botnick voiceall <#salon>"
  2774.     }
  2775. "devoiceall" {
  2776.          puthelp "privmsg $nick :\00314Commande Devoiceall Chan \0031: \0034$::GB::commande(choix)devoiceall"
  2777.          puthelp "privmsg $nick :\00314Commande Devoiceall Msg \0031: \0034/msg $::botnick devoiceall <#salon>"
  2778.     }
  2779. "addsuspend" {
  2780.          puthelp "privmsg $nick :\00314Commande Addsuspend Msg \0031: \0034/msg $::botnick addsuspend <pseudo>"
  2781.     }
  2782. "delsuspend" {
  2783.          puthelp "privmsg $nick :\00314Commande Delsuspend Msg \0031: \0034/msg $::botnick delsuspend <pseudo>"
  2784.     }
  2785. "addchan" {
  2786.          puthelp "privmsg $nick :\00314Commande Addchan Msg \0031: \0034/msg $::botnick addchan <#salon>"
  2787.     }
  2788. "delchan" {
  2789.          puthelp "privmsg $nick :\00314Commande Delchan Msg \0031: \0034/msg $::botnick delchan <#salon>"
  2790.     }
  2791. "listchan" {
  2792.          puthelp "privmsg $nick :\00314Commande Listchan Msg \0031: \0034/msg $::botnick listchan"
  2793.     }
  2794. "addsuperop" {
  2795.          puthelp "privmsg $nick :\00314Commande Addsuperop Msg \0031: \0034/msg $::botnick addsuperop <pseudo>"
  2796.     }
  2797. "delsuperop" {
  2798.          puthelp "privmsg $nick :\00314Commande Delsuperop Msg \0031: \0034/msg $::botnick delsuperop <pseudo>"
  2799.     }
  2800. "infoline" {
  2801.          puthelp "privmsg $nick :\00314Commande Infoline Msg \0031: \0034/msg $::botnick infoline <#salon> <text>"
  2802.     }
  2803. "amsg" {
  2804.          puthelp "privmsg $nick :\00314Commande Amsg Chan \0031: \0034$::GB::commande(choix)amsg <phrase>"
  2805.     }
  2806. "topic" {
  2807.          puthelp "privmsg $nick :\00314Commande Topic Chan \0031: \0034$::GB::commande(choix)topic <phrase>"
  2808.          puthelp "privmsg $nick :\00314Commande Topic Msg \0031: \0034/msg $::botnick topic <#salon> <text>"
  2809.     }
  2810. "authlist" {
  2811.          puthelp "privmsg $nick :\00314Commande Authlist Msg \0031: \0034/msg $::botnick authlist <#salon>"
  2812.     }
  2813. "gbon" {
  2814.          puthelp "privmsg $nick :\00314Commande Gbon Chan \0031: \0034$::GB::commande(choix)gbon"
  2815.     }
  2816. "gboff" {
  2817.          puthelp "privmsg $nick :\00314Commande Gboff Chan \0031: \0034$::GB::commande(choix)gboff"
  2818.     }
  2819. "say" {
  2820.          puthelp "privmsg $nick :\00314Commande Say Msg \0031: \0034/msg $::botnick say <#salon> <text>"
  2821.          
  2822.     }
  2823. "me" {
  2824.          puthelp "privmsg $nick :\00314Commande Me Msg \0031: \0034/msg $::botnick me <#salon> <text>"
  2825.         }
  2826.     }
  2827.     return
  2828. }
  2829.  
  2830. # Désallocation du TCL #
  2831.  
  2832. variable script_name "Gestion.Bot V2.0 Final"
  2833.  
  2834. if {[info commands ::GB::uninstall] eq "::GB::uninstall"} { ::GB::uninstall }
  2835.  
  2836.     proc uninstall {args} {
  2837.          putlog "Désallocation des ressources de \002$::GB::script_name\002..."
  2838.     foreach binding [lsearch -inline -all -regexp [binds *[set GB [string range [namespace current] 2 end]]*] " \{?(::)?$GB"] {
  2839.          unbind [lindex $binding 0] [lindex $binding 1] [lindex $binding 2] [lindex $binding 4]
  2840.     }
  2841.         namespace delete [namespace current]
  2842. }
  2843.  
  2844. if {$CGU!="oui"} {
  2845.     putlog "Conditions Général'Utilisations d Non accepter veuillez les accepters sinon n'utiliser pas le TCL."
  2846.     die "Condition Général d'Utilisations Non Accepter"
  2847. }
  2848.    
  2849.     # Package Requis #
  2850.  
  2851.     if {[catch {package require Tcl 8.5}]} {
  2852.          putlog "\002Gestion.Bot\002 : Vous avez besoin de Tcl en version 8.5 au moins pour pouvoir utiliser ce script."
  2853.     return
  2854. }
  2855.  
  2856. # Procédure Caratères spéciaux Pseudo #
  2857.  
  2858. proc gbfilter {arg} {
  2859.     regsub -all -- \\\\ $arg \\\\\\\\ arg
  2860.     regsub -all -- \\\[ $arg \\\\\[ arg
  2861.     regsub -all -- \\\] $arg \\\\\] arg
  2862.     regsub -all -- \\\} $arg \\\\\} arg
  2863.     regsub -all -- \\\{ $arg \\\\\{ arg
  2864.     regsub -all -- \\\" $arg \\\\\" arg
  2865.    return $arg
  2866. }
  2867.  
  2868. proc gbfilter2 {text} {
  2869.    regsub -all -- \\\\ $text \\\\\\\\ text
  2870.    regsub -all -- \\\[ $text \\\\\[ text
  2871.    regsub -all -- \\\] $text \\\\\] text
  2872.    regsub -all -- \\\} $text \\\\\} text
  2873.    regsub -all -- \\\{ $text \\\\\{ text
  2874.    regsub -all -- \\\" $text \\\\\" text
  2875.    return $text
  2876. }
  2877.    
  2878.     # Binds #
  2879.  
  2880. bind pub o "$::GB::commande(choix)+blacklist" [namespace current]::+blacklist
  2881. bind pub o "$::GB::commande(choix)-blacklist" [namespace current]::-blacklist
  2882. bind pub o "$::GB::commande(choix)blacklist" [namespace current]::.blacklist
  2883. bind pub o "$::GB::commande(choix)+exempt" [namespace current]::+exempt
  2884. bind pub o "$::GB::commande(choix)-exempt" [namespace current]::-exempt
  2885. bind pub o "$::GB::commande(choix)exempt" [namespace current]::.exempt
  2886. bind pub - "$::GB::commande(choix)op" [namespace current]::op
  2887. bind pub - "$::GB::commande(choix)deop" [namespace current]::deop
  2888. bind pub - "$::GB::commande(choix)voice" [namespace current]::voice
  2889. bind pub - "$::GB::commande(choix)devoice" [namespace current]::devoice
  2890. bind pub - "$::GB::commande(choix)opall" [namespace current]::opall
  2891. bind pub - "$::GB::commande(choix)deopall" [namespace current]::deopall
  2892. bind pub - "$::GB::commande(choix)voiceall" [namespace current]::voiceall
  2893. bind pub - "$::GB::commande(choix)devoiceall" [namespace current]::devoiceall
  2894. bind pub - "$::GB::commande(choix)halfop" [namespace current]::halfop
  2895. bind pub - "$::GB::commande(choix)dehalfop" [namespace current]::dehalfop
  2896. bind pub - "$::GB::commande(choix)halfopall" [namespace current]::halfopall
  2897. bind pub - "$::GB::commande(choix)dehalfopall" [namespace current]::dehalfopall
  2898. bind pub - "$::GB::commande(choix)ban" [namespace current]::ban
  2899. bind pub - "$::GB::commande(choix)kick" [namespace current]::kick
  2900. bind pub - "$::GB::commande(choix)unban" [namespace current]::unban
  2901. bind pub - "$::GB::commande(choix)kickban" [namespace current]::kickban
  2902. bind pub - "$::GB::commande(choix)clearbans" [namespace current]::clearbans
  2903. bind pub - "$::GB::commande(choix)mode" [namespace current]::mode
  2904. bind pub - "$::GB::commande(choix)topic" [namespace current]::topic
  2905. bind pub - "$::GB::commande(choix)amsg" [namespace current]::amsg
  2906. bind pub o "$::GB::commande(choix)gbon" [namespace current]::gbon
  2907. bind pub o "$::GB::commande(choix)gboff" [namespace current]::gboff
  2908. bind msg - "auth" [namespace current]::auth
  2909. bind msg - "deauth" [namespace current]::deauth
  2910. bind msg - "addsuspend" [namespace current]::addsuspend
  2911. bind msg - "delsuspend" [namespace current]::delsuspend
  2912. bind msg - "addchan" [namespace current]::addchan
  2913. bind msg - "delchan" [namespace current]::delchan
  2914. bind msg - "listchan" [namespace current]::listchan
  2915. bind msg - "access" [namespace current]::access
  2916. bind msg - "newpass" [namespace current]::newpass
  2917. bind msg - "addop" [namespace current]::addop
  2918. bind msg - "addmaster" [namespace current]::addmaster
  2919. bind msg - "addowner" [namespace current]::addowner
  2920. bind msg - "addsuperop" [namespace current]::addsuperop
  2921. bind msg - "delop" [namespace current]::delop
  2922. bind msg - "delmaster" [namespace current]::delmaster
  2923. bind msg - "delowner" [namespace current]::delowner
  2924. bind msg - "delsuperop" [namespace current]::delsuperop
  2925. bind msg - "op" [namespace current]::xop
  2926. bind msg - "deop" [namespace current]::xdeop
  2927. bind msg - "voice" [namespace current]::xvoice
  2928. bind msg - "devoice" [namespace current]::xdevoice
  2929. bind msg - "ban" [namespace current]::xban
  2930. bind msg - "kick" [namespace current]::xkick
  2931. bind msg - "unban" [namespace current]::xunban
  2932. bind msg - "kickban" [namespace current]::xkickban
  2933. bind msg - "clearbans" [namespace current]::xclearbans
  2934. bind msg - "mode" [namespace current]::xmode
  2935. bind msg - "infoline" [namespace current]::infoline
  2936. bind msg - "help" [namespace current]::help
  2937. bind msg - "authlist" [namespace current]::authlist
  2938. bind msg - "topic" [namespace current]::xtopic
  2939. bind msg - "opall" [namespace current]::xopall
  2940. bind msg - "deopall" [namespace current]::xdeopall
  2941. bind msg - "voiceall" [namespace current]::xvoiceall
  2942. bind msg - "devoiceall" [namespace current]::xdevoiceall
  2943. bind msg - "say" [namespace current]::say
  2944. bind msg - "me" [namespace current]::me
  2945. bind msg - "conf" [namespace current]::conf
  2946. bind chon - * [namespace current]::opco
  2947. bind chof - * [namespace current]::opdeco
  2948. bind part o|o "*" [namespace current]::partdeauth
  2949. bind sign o|o "*" [namespace current]::quitdeauth
  2950. bind join - "$::GB::log *" [namespace current]::joindeauth
  2951. bind join - "*" [namespace current]::xbl
  2952. bind notc - * [namespace current]::nonotice_chanoff
  2953. bind join - "*" [namespace current]::greet
  2954. bind evnt -|- prerehash ::GB::uninstall
  2955.  
  2956. putlog "\002$::GB::script_name chargé.\002 alias_angelius 2011©"
  2957. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!