COMANDE IRCOP&ADIMN V1.2

;##DIALOG
dialog irc {
  title "Commande IRCOP & ADMIN [Par DrAgooN1] V1.2"
  size -1 -1 233 205
  option dbu
  button "Ajouter admin", 1, 140 15 37 12, flat
  button "Enlever admin", 2, 140 27 37 12, flat
  button "Clear Mode", 3, 140 42 37 12, flat
  button "Exeption", 45, 140 57 37 12, flat
  button "Global", 5, 140 72 37 12, flat
  button "Jupe", 6, 140 87 37 12, flat
  button "Killclone", 7, 140 102 37 12, flat
  button "Mode", 8, 140 117 37 12, flat
  button "Ajouter Oper", 9, 140 132 37 12, flat
  button "Enlever oper", 10, 140 144 37 12, flat
  button "Add Opernews", 11, 189 132 37 12, flat
  button "Del Opernews", 12, 189 144 37 12, flat
  button "Raw", 13, 189 57 37 12, flat
  button "Restart", 14, 189 42 37 12, flat
  button "Rotatelog", 15, 189 117 37 12, flat
  button "Set Readonly", 16, 189 15 37 12, flat
  button "Set Debug", 17, 189 27 37 12, flat
  button "Shtutdown", 18, 189 72 37 12, flat
  button "Stats", 19, 189 87 37 12, flat
  button "Update", 20, 189 102 37 12, flat
  box "Commandes Serveur", 21, 137 2 93 182
  box "Perssones sur le serveur", 22, 3 2 132 116
  list 4, 6 13 126 102, size vsbar
  box "Action", 24, 3 122 132 62
  button "Killer", 25, 7 132 37 12, flat
  button "Akiller", 26, 7 144 37 12, flat
  button "Rakiller", 27, 7 156 37 12, flat
  button "Gliner", 28, 52 132 37 12, flat
  button "Ungliner", 29, 52 144 37 12, flat
  button "Kliner", 30, 95 132 37 12, flat
  button "Unkliner", 31, 95 144 37 12, flat
  button "Shunner", 32, 52 156 37 12, flat
  button "Unshuner", 33, 95 156 37 12, flat
  text "Raison:", 34, 6 170 19 8
  edit "", 35, 24 169 107 10, center
  button "Fermer", 36, 3 186 227 12, flat cancel
  text "Commande IRCOP & ADMIN V1.2 par DrAgOoN1", 37, 3 198 227 8, center disable
  button "Aide", 38, 140 160 86 21, flat
}
;##EVENEMENT
on *:dialog:irc:*:*:{
  if ($devent == init) {
    who
  }
  if ($devent == sclick) { 
    if ($did == 38) {
      az 
    }
    if ($did == 25) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      kill $gettok($did(irc,4).seltext,1,32) $did(irc,35)
    }
    if ($did == 26) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      akill $gettok($did(irc,4).seltext,1,32) $did(irc,35)
    }
    if ($did == 27) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      rakill $gettok($did(irc,4).seltext,1,32) $did(irc,35)
    }
    if ($did == 32) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      shun $gettok($did(irc,4).seltext,1,32) $did(irc,35)
    }
    if ($did == 33) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      unshun - $+ $gettok($did(irc,4).seltext,1,32) $did(irc,35)
    }
    if ($did == 28) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      gline $gettok($did(irc,4).seltext,1,32) $did(irc,35)
    }
    if ($did == 29) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      gline $- $?="Entre le mask a degliner"
    }
    if ($did == 30) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      kline $gettok($did(irc,4).seltext,1,32) $did(irc,35)
    }
    if ($did == 31) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
      unkline $- $?="Entre le mask a degliner"
    }
    if ($did == 20) {
      /msg operserv UPDATE
    }
    if ($did == 19) {
      /msg operserv STATS all
    }
    if ($did == 18) {
      /msg operserv Shutdowm
    }
    if ($did ==  17) {
      /msg operserv SET Debug $?="On ou Off ?"
    }
    if ($did == 13) {
      /msg operserv RAW $?="Text"
    }
    if ($did ==  14) {
      /msg operserv RESTART
    }  
    if ($did ==  15) {
      /msg operserv ROTATELOG
    }
    if ($did ==  16) {
      /msg operserv SET readonly $?="On ou Off ?" $?="Numero"
    }
    if ($did ==  9) {
      /msg operserv OPER add $?="Pseudo"
    }
    if ($did ==  10) {
      /msg operserv OPER del $?="Pseudo"
    }
    if ($did ==  11) {
      /msg operserv OPERNEWS add $?="Message"
    }
    if ($did ==  12) {
      /msg operserv OPERNEWS del $?="Message"
    }
    if ($did == 8) {
      /msg operserv MODE $?="Canal" $?="Mode"
    }
    if ($did == 1) {
      /msg operserv ADMIN add   $?="Entre le Pseudo"
    }
    if ($did == 2) {
      /msg operserv ADMIN del  $?="Entre le Pseudo"
    }
    if ($did == 3) {
      /msg operserv CLEARMODES canal $?="Quel mode a reinitialiser?"
    }
    if ($did == 45) {
      /msg operserv EXCEPTION ADD $?="expiration" $?="Masque" $?="Limite"
    }
    if ($did == 5) {
      /msg operserv GLOBAL  $?="Message"
    }
    if ($did == 6) {
      /msg operserv JUPE $?="non du server" $?="Raison"
    }
    if ($did == 7) {
      /msg operserv KILLCLONES $?="Entrer le Pseudo"
    }
  }
}
;##ALIAS
alias ircop dialog -m irc irc
;##RAW
raw 352:*:{ 
  if ($dialog(irc)) {
    did -a irc 4  $6 : $6 $+ ! $+ $3 $+ @ $+ $4 *
    halt
  }
  halt
}
;##ALIAS
alias az { dialog -m az az }
;##AIDE
dialog az {
  title "Aide des Commande IRCOP & ADMIN"
  size -1 -1 138 143
  option dbu
  button "Fermer", 2, 3 129 131 12, flat cancel
  edit "", 3, 3 19 131 110, read multi
  combo 1, 3 5 131 57, size drop
}

;##EVENEMENT
on *:dialog:az:*:*:{
  if ($devent == init) {
    did -a az 1 Global
    did -a az 1 Jupe
    did -a az 1 Clearmode
    did -a az 1 Shtutdown
    did -a az 1 Stats
    did -a az 1 Killclone
    did -a az 1 set debug
    did -a az 1 set Readonly
    did -a az 1 Logonnews
    did -a az 1 Opernews
    did -a az 1 Raw
    did -a az 1 Admin
    did -a az 1 Rotatelog
    did -a az 1 Exeption
    did -a az 1 Update
  }
  if ($devent == sclick) {
    if ($did(az,1).seltext == Rotatelog) {
      did -ra az 3 Renomme les fichiers logs des services. La date courante, dans la forme YYYYMMDD, est utilisé pour générer le nouveau nom de fichier. Commande uniquement disponible pour le Services Root.
    }
    if ($did(az,1).seltext == Exeption) {
      did -ra az 3 Permets aux administrateurs de services de gérer la liste des hôtes qui ont un nombre de sessions limité - permettant à certaines machines, telles que des serveurs de shell, d'avoir plus de sessions  simultanées en tant que client, que la valeur par défaut. Dès qu'un hôte atteint sa limite de sessions, tous les clients tentant de se  connecter de cet hôte seront déconnectés (KILL). Avant que  l'utilisateur ne soit killé, il est notifié par un /NOTICE de  OperServ, avec un message spécifié dans la configuration des services. Commande uniquement disponible pour les administrateurs de services
    }
    if ($did(az,1).seltext == Update) {
      did -ra az 3 Sauvegarde immédiatement les bases de données des services. Commande uniquement disponible pour les administrateurs de services.
    }
    if ($did(az,1).seltext == global) {
      did -ra az 3 Permet aux IRCops d'envoyer des messages à tous les utilisateurs du réseau. Le message sera envoyé par le nick %s.
    }
    if ($did(az,1).seltext == Admin) {
      did -ra az 3 Permet au Services Root, d'ajouter ou d'effacer des nicks dans la liste des administrateurs de services. Un utilisateur qui a son nick présent dans cette liste et qui s'est identifié au près de %s, a accès aux commandes des administrateurs de services. Tous les IRCops peuvent utiliser la commande ADMIN LIST, les autres  étant réservées au Services Root.
    }
    if ($did(az,1).seltext == Opernews) {
      did -ra az 3 Edite ou affiche la liste des informations OPER affichées. Lorsqu'un utilisateur devient IRCop, ces informations lui sont envoyées par notice. Pour éviter le flood, seuls les trois premières lui sont envoyées. La liste peut être visualisée par tous les IRCops. Seuls les administrateurs peuvent ajouter et effacer des informations.
    }
    if ($did(az,1).seltext == Jupe) {
      did -ra az 3 Demande aux services de "juper" un serveur -- cela crée un faux "serveur" connecté aux services afin d'empêcher un vrai serveur de ce nom de se connecter. Le jupe peut être enlevé en utilisant la commande standart SQUIT. Si une raison est spécifiée, elle est placée dans le champ information du serveur ; sinon, ce champ contiendra le texte "Jupitered by ", affichant le nick de la personne qui a exécuté la commande. Commande uniquement disponible pour les administrateurs de services
    }
    if ($did(az,1).seltext == clearmode) {
      did -ra az 3 Réinitialise les modes des canaux (i,k,l,m,n,p,s,t) ainsi que les bans. Si ALL est spécifié, la commande réinitialise également les opérateurs et voice (mode +o et +v) du canal. Commande uniquement disponible pour les opérateurs de services
    }
    if ($did(az,1).seltext == raw) {
      did -ra az 3 Envoie une chaîne de caractères directement au serveur auquel sont connectés les services. Cette commande a un intérêt fort limité, et peut causer des problèmes en cas d'utilisation incorrecte. N'UTILISEZ PAS CETTE COMMANDE sans être parfaitement sûr de ce  que vous faîtes ! Commande uniquement disponible pour les administrateurs de services.
    }
    if ($did(az,1).seltext == Logonnews) {
      did -ra az 3 Edite ou affiche la liste des informations affichées. Lorsqu'un utilisateur se connecte, ces informations lui sont envoyées par  notice. Pour éviter le flood, seuls les trois premières lui sont envoyées. La liste peut être visualisée par tous les IRCops. Seuls les administrateurs peuvent ajouter et effacer des informations.	
    }
    if ($did(az,1).seltext == shtutdown) {
      did -ra az 3 Eteint les services après avoir sauvegardé les bases de données. Commande uniquement disponible pour les administrateurs de services.
    }
    if ($did(az,1).seltext == Stats) {
      did -ra az 3 Sans paramètre, la commande affiche le nombre actuel d'utilisateurs et d'IRCops en ligne (sans les services), le plus grand nombre d'utilisateurs en ligne depuis le démarrage des services, et la durée depuis le démarrage.
    }
    if ($did(az,1).seltext == Set debug) {
      did -ra az 3 Active ou non le mode debug. En mode debug, les données envoyées et reçues par les services, ainsi que d'autres informations de débuggage sont écrites dans le fichier log. Si num est spécifié, le mode debug est activé au niveau num. Cette commande est équivalente à l'option en ligne de commande -debug
    }
    if ($did(az,1).seltext == Set readonly) {
      did -ra az 3 Active ou non le mode lecture seule. En mode lecture seule, les utilisateurs ne peuvent pas modifier les données des services,  comme les listes d'accès des canaux et des nicks, etc... Les IRCops avec les privilèges suffisants sont capables de modifier la liste AKILL des services, d'effacer ou d'interdire des nicks/canaux, mais ces modifications ne seront pas enregistrées sans que le mode lecture seule soit désactivé avant l'extinction ou le redémarrage des services.
    }
    if ($did(az,1).seltext == Killclone) {
      did -ra az 3 Déconnecte (KILL) tous les utilisateurs qui ont le même nom d'hôte  (hotname) que nick. Un AKILL temporaire de la forme *@hôte, est ajouté pour éviter que le fautif se reconnecte immédiatement. Un  wallop est automatiquement envoyé pour indiquer qui a utilisé la  commande, quel est l'hôte cible et combien d'utilisateurs ont été killés. Cette commande est très utile pour virer de nombreux clones  du réseau. Commande uniquement disponible pour les administrateurs de services.
    }
  }
}