Table ircop&admin v2.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 475 fois - Téléchargée 20 fois

Contenu du snippet

Version 2.0 de la table ircop&admin
amelioration :
-redimensionage du dialogue
-ajout de samode

Source / Exemple :


;##
;##Table Ircop&admin
;##By DrAgOoN1
;##DrAgOoNlegrand@hotmail.com
;##

;##DIALOG
dialog irc {
  title "Commande IRCOP & ADMIN [Par DrAgooN1] V2.0"
  size -1 -1 220 226
  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, 178 132 37 12, flat
  button "Del opernews", 12, 178 144 37 12, flat
  button "Raw", 13, 178 57 37 12, flat
  button "Restart", 14, 178 42 37 12, flat
  button "Rotatelog", 15, 178 117 37 12, flat
  button "Set Readonly", 16, 178 15 37 12, flat
  button "Set Debug", 17, 178 27 37 12, flat
  button "Shtutdown", 18, 178 72 37 12, flat
  button "Stats", 19, 178 87 37 12, flat
  button "Update", 20, 178 102 37 12, flat
  box "Commandes Serveur", 21, 137 2 81 194
  box "Perssones sur le serveur", 22, 3 2 132 116
  list 4, 6 13 126 102, size vsbar
  box "Action", 24, 3 122 132 75
  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 186 19 8
  edit "", 35, 24 185 107 10, center
  button "Fermer", 36, 3 201 215 12, flat cancel
  text "Commande IRCOP & ADMIN V2.0 par DrAgOoN1", 37, 3 215 215 8, disable center
  button "Aide", 38, 140 160 74 33, flat
  button "Samode", 23, 7 171 125 12, flat
}
;##EVENEMENT
on *:dialog:irc:*:*:{
  if ($devent == init) {
    who
  }
  if ($devent == sclick) { 
    if ($did == 23) { 
      dialog -m sam sam 
    }
    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 V2.0"
  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.
    }
  }
}
;##SAMODE
alias sam dialog -m sam sam
dialog sam {
  title "Samode V2.0"
  size -1 -1 84 220
  option dbu
  list 1, 4 13 74 70, size
  box "Perssone sur le chan", 2, 2 4 80 82
  button "Op", 3, 5 121 37 12, flat
  button "Deop", 4, 42 121 37 12, flat
  button "Halfop", 5, 5 133 37 12, flat
  button "Dehalfop", 6, 42 133 37 12, flat
  button "Voice", 7, 5 145 37 12, flat
  button "Devoice", 8, 42 145 37 12, flat
  button "Owner", 9, 5 97 37 12, flat
  button "Deowner", 10, 42 97 37 12, flat
  button "Protect", 11, 5 109 37 12, flat
  button "Deprotect", 12, 42 109 37 12, flat
  box "", 13, 2 89 80 116
  button "Kick", 14, 5 165 37 12, flat
  button "Ban", 15, 42 165 37 12, flat
  button "Kick/ban", 16, 5 177 74 12, flat
  edit "", 17, 25 192 54 10
  text "Raison", 18, 6 193 20 8
  button "Fermer", 19, 1 207 82 12, flat cancel
}
on *:dialog:sam:*:*:{
  if $devent == init {
    bla $active
  }
  if $devent == sclick {
    if $did == 3 {
      samode $active +o $did(1).seltext
    }
    if $did === 4 {
      samode $active -o $did(1).seltext
    }
    if $did == 5 {
      samode $active +h $did(1).seltext
    }
    if $did == 6 {
      samode $active -o $did(1).seltext
    }
    if $did == 7 {
      samode $active +v $did(1).seltext
    }
    if $did == 8 {
      samode $active -v $did(1).seltext
    }
    if $did == 9 {
      samode $active +q $did(1).seltext
    }
    if $did == 10 {
      samode $active -q $did(1).seltext
    }
    if $did == 11 {
      samode $active +a $did(1).seltext
    }
    if $did == 12 {
      samode $active -a $did(1).seltext
    }
    if $did == 14 {
      kick $active $did(1).seltext $did(17)
    }
    if $did == 15 {
      samode $active +b $did(1).seltext
    }
    if $did == 16 {
      samode $active +b $did(1).seltext
      kick $active $did(1).seltext $did(17)
    }
  }
}
alias bla { if (!$1) { halt } | var %a = 0, %aa = $nick($1,0) | while (%aa > %a) { inc %a 1 | did -a sam 1 $nick($1,%a) } }

Conclusion :


Thx

A voir également

Ajouter un commentaire

Commentaires

spider9999
Messages postés
5
Date d'inscription
mardi 14 septembre 2004
Statut
Membre
Dernière intervention
15 août 2006
-
je ne suis pas capable de le lancer !!! quelqu'un peux m'aider svp ?
The_KniGhT_972
Messages postés
2
Date d'inscription
mercredi 5 octobre 2005
Statut
Membre
Dernière intervention
19 mars 2008
-
slt
il marche pas chez moi le samode... ça affiche pas les user sur le channel...
chez vous autre ça marche ?
tiphergane
Messages postés
62
Date d'inscription
dimanche 3 août 2003
Statut
Membre
Dernière intervention
16 avril 2007
-
frachement c'est super bien fait je suis trop n00b pour noté mais je te metrai 9 volontier
Dark-Dragoon
Messages postés
228
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
26 octobre 2004
-
put1 ircfr bug ! c moi kes fait cte source
je v la reposter car la il dit ke c perssone ki a fait cte source :/
Bloock
Messages postés
74
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
9 avril 2005
-
Euh, ça fait bizarre le mélange français/anglais :S . Tu vois "Ajouter Admin", & juste en dessous "Set Readonly" . Sinon, je suis fan :P !!!

Vous n'êtes pas encore membre ?

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

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

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

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