Systeme d'utilisation des services (chanserv, nickserv, ...)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 263 fois - Téléchargée 24 fois

Contenu du snippet

Voila ma deuxième source, elle permet de ne plus avoir a taper les commandes pour utiliser les services chanserv, nickserv, mémoserv, botserv).
Pour l'instant seul nickserv et chanserv sont opérationnels, je coderé les autres prochainement.
PS: je débute en MIRC scripting alors soyez pas trop dur avec moi ;-)

Source / Exemple :


menu * { 
  Services:dialog -m services services
}

dialog services {
  title ".:: Utilisation des Services IRC ::."
  size -1 -1 243 167
  option dbu
  tab "Nickserv", 1, 3 0 237 148
  tab "Chanserv", 2
  tab "Botserv", 3
  button "Fermer", 5, 105 154 33 12
  box "T'enregistrer ou t'authentifier", 4, 7 33 110 56, tab 1
  edit "", 6, 92 19 65 10, multi return tab 1
  edit "", 7, 40 42 65 10, multi return tab 1
  text "Nick :", 8, 72 22 17 6, right tab 1
  text "Pass :", 9, 20 45 17 6, right tab 1
  check "Enregistrement", 10, 40 55 49 6, tab 1
  button "Identifier", 11, 43 77 32 10, tab 1
  box "Récupérer ton nick", 12, 125 33 110 56, tab 1
  text "Nick :", 13, 135 50 17 6, right tab 1
  edit "", 14, 155 47 65 10, multi return tab 1
  button "Release", 15, 140 67 37 12, tab 1
  box "Options", 16, 7 89 227 55, tab 1
  box "T'enregistrer ou t'authentifier", 17, 7 33 110 63, tab 2
  edit "", 19, 95 20 65 10, multi return tab 2
  edit "", 20, 44 42 65 10, multi return tab 2
  text "Pass :", 22, 24 45 17 6, right tab 2
  text "Channel :", 23, 67 23 25 6, right tab 2
  check "Enregistrement", 24, 47 56 45 6, tab 2
  button "OK", 25, 55 82 20 10, tab 2
  box "Gestion SOP/AOP/VOP", 26, 125 33 110 63, tab 2
  text "Nick :", 32, 135 55 17 6, right tab 2
  edit "", 33, 155 53 65 10, multi return tab 2
  radio "Ajouter", 34, 133 44 25 6, tab 2
  radio "Supprimer", 35, 194 44 33 6, tab 2
  radio "Lister", 36, 165 44 21 6, tab 2
  button "OK", 37, 171 82 20 10, tab 2
  box "Options", 38, 7 96 227 48, tab 2
  edit "", 39, 40 63 65 10, multi return tab 1
  text "Mail :", 40, 19 64 17 6, tab 1
  edit "", 41, 44 65 65 10, multi return tab 2
  text "Description :", 42, 12 68 29 6, right tab 2
  check "SOP", 28, 134 70 21 6, tab 2
  check "AOP", 29, 156 70 21 6, tab 2
  check "HOP", 18, 179 70 21 6, tab 2
  check "VOP", 30, 203 70 21 6, tab 2
  button "Recover", 31, 184 59 37 12, tab 1
  button "Topic", 43, 65 106 37 12, tab 2
  button "Modes", 44, 105 106 37 12, tab 2
  button "Message d'entrée", 45, 12 106 49 12, tab 2
  button "Drop", 21, 145 106 37 12, tab 2
  button "Founder", 27, 190 106 37 12, tab 2
  button "Successeur", 46, 16 122 37 12, tab 2
  button "Pass", 47, 58 122 37 12, tab 2
  button "Description", 48, 100 122 37 12, tab 2
  button "Url", 49, 141 122 37 12, tab 2
  button "Email", 50, 184 122 37 12, tab 2
  button "Logout", 51, 12 99 37 12, tab 1
  button "Status", 52, 52 99 37 12, tab 1
  button "Send Pass", 53, 93 99 37 12, tab 1
  button "Drop", 54, 134 99 37 12, tab 1
  button "&Hide", 55, 0 0 0 0, hide Ok
}

on *:dialog:services:*:*: {
  if $devent == init { 
    did -c services 1
    did -b services 39
    did -b services 41
    did -a services 6,14 $me
    did -a services 33 $snick($active,1)
    if ($left($active,1) == $chr(35)) { did -a services 19 $active } 
  }
  if $devent == sclick  {
    if $did == 5 { dialog -x services services }
    if $did == 10 {
      if ($did(10).state == 1) { did -e services 39 | did -ra services 11 Enregistrer }
      if ($did(10).state == 0) { did -b services 39 | did -ra services 11 Identifier }
    }
    if $did == 11 {
      if $did(10).state == 1 {
        if ($did(6)) || ($did(7)) || ($did(39)) { msg NickServ register $did(6) $did(7) $did(39) }
      }
      if $did(10).state == 0 {
        if ($did(6)) || ($did(7)) { msg NickServ identify $did(6) $did(7) }
      }
    }
    if $did == 15 {
      if ($did(14)) { msg NickServ release $did(14) }
    }
    if $did == 31 {
      if ($did(14)) { msg NickServ recover $did(14) }
    }
    if $did == 25 {
      if $did(24).state == 1 {
        if ($did(19)) || ($did(20)) || ($did(41)) { msg ChanServ register $did(19) $did(20) $did(41) }
      }
      if $did(24).state == 0 {
        if ($did(19)) || ($did(20)) { msg ChanServ identify $did(19) $did(20) }
      }
    }
    if $did == 24 {
      if ($did(24).state == 1) { did -e services 41 }
      if ($did(24).state == 0) { did -b services 41 }
    }

    if $did == 37 {
      if ($did(34).state == 1) && ($did(33)) && ($did(19)) && ($did(28).state == 1) { msg ChanServ sop $did(19) add $did(33) }
      if ($did(34).state == 1) && ($did(33)) && ($did(19)) && ($did(29).state == 1) { msg ChanServ aop $did(19) add $did(33) }
      if ($did(34).state == 1) && ($did(33)) && ($did(19)) && ($did(18).state == 1) { msg ChanServ hop $did(19) add $did(33) }
      if ($did(34).state == 1) && ($did(33)) && ($did(19)) && ($did(30).state == 1) { msg ChanServ vop $did(19) add $did(33) }
      if ($did(35).state == 1) && ($did(33)) && ($did(19)) && ($did(28).state == 1) { msg ChanServ sop $did(19) del $did(33) }
      if ($did(35).state == 1) && ($did(33)) && ($did(19)) && ($did(29).state == 1) { msg ChanServ aop $did(19) del $did(33) }
      if ($did(35).state == 1) && ($did(33)) && ($did(19)) && ($did(18).state == 1) { msg ChanServ hop $did(19) del $did(33) }
      if ($did(35).state == 1) && ($did(33)) && ($did(19)) && ($did(30).state == 1) { msg ChanServ vop $did(19) del $did(33) }
      if ($did(36).state == 1) && ($did(19)) { msg ChanServ list $did(19) }
      if ($did(36).state == 1) && ($did(19)) && ($did(28).state == 1) { msg ChanServ sop $did(19) list }
      if ($did(36).state == 1) && ($did(19)) && ($did(29).state == 1) { msg ChanServ aop $did(19) list }
      if ($did(36).state == 1) && ($did(19)) && ($did(18).state == 1) { msg ChanServ hop $did(19) list }
      if ($did(36).state == 1) && ($did(19)) && ($did(30).state == 1) { msg ChanServ vop $did(19) list }
    }
    if $did == 36 {
      if ($did(36).state == 0) { did -e services 33 }
      if ($did(36).state == 1) { did -b services 33 }
    }
    if $did == 34 {
      if ($did(34).state == 1) { did -e services 33 }
    }
    if $did == 35 {
      if ($did(35).state == 1) { did -e services 33 }
    }    
    if $did == 45 {
      set %var $?="Entrez le message d'entrée (laissez un espace pour effacer l'ancien) :"
      if (%var) { msg ChanServ set $did(19) EntryMsg %var }
      else { halt }
    }
    if $did == 44 {
      set %var $?="Entrez les modes (ex: +nt-iklps) :"
      if (%var) { msg ChanServ set $did(19) MLock %var }
      else { halt }
    }
    if $did == 43 {
      set %var $?="Entrez le topic à afficher (laissez un espace pour effacer l'ancien) :"
      if (%var) { msg ChanServ set $did(19) TopicLock Off | msg chanserv Topic $did(19) %var | msg chanserv set $did(19) TopicLock On }
      else { halt }
    }
    if $did == 21 {
      set %var $input(Cette commande effacera votre channel. Il n'y a aucun moyen de faire marche arrière. Etes-vous sûr de vouloir le faire ?,adwy,ATTENTION !!!,ATTENTION !!!)
      if (%var) { msg ChanServ Drop $did(19) }
      else { halt }
    }
    if $did == 27 {
      set %var $?="Entrez le nouveau propriétaire :"
      if (%var) { msg ChanServ set $did(19) Founder %var }
      else { halt }
    }
    if $did == 46 {
      set %var $?="Entrez le nouveau successeur :"
      if (%var) { msg ChanServ set $did(19) Successor %var }
      else { halt }
    }
    if $did == 47 {
      set %var $?="Entrez le nouveau mot de passe :"
      if (%var) { msg ChanServ set $did(19) Password %var }
      else { halt }
    }
    if $did == 48 {
      set %var $?="Entrez la nouvelle description :"
      if (%var) { msg ChanServ set $did(19) Desc %var }
      else { halt }
    }
    if $did == 49 {
      set %var $?="Entrez la nouvelle url (laissez un espace pour effacer l'ancienne) :"
      if (%var) { msg ChanServ set $did(19) Url %var }
      else { halt }
    }
    if $did == 50 {
      set %var $?="Entrez la nouvelle email (laissez un espace pour effacer l'ancienne) :"
      if (%var) { msg ChanServ set $did(19) Email %var }
      else { halt }
    }
    if $did == 51 { msg NickServ LogOut }
    if $did == 52 { msg NickServ Status $did(6) }
    if $did == 53 { msg NickServ SendPass $did(6) }
    if $did == 54 {
      set %var $input(Cette commande effacera votre nick. Il n'y a aucun moyen de faire marche arrière. Etes-vous sûr de vouloir le faire ?,adwy,ATTENTION !!!,ATTENTION !!!)
      if (%var) { msg NickServ Drop $did(6) }
      else { halt }
    }
  }
}

Conclusion :


Comme je l'ai di plus haut, le code sera mis à jour bientôt (dès que j'en aurait le temps)
Je remercie Sorn_Drixer, Kolibot, tofu\ et Re[M]i_34 pour leur aide ;-)

A voir également

Ajouter un commentaire

Commentaires

Floorfilla91
Messages postés
27
Date d'inscription
lundi 5 décembre 2005
Statut
Membre
Dernière intervention
18 février 2008
-
8/10 mais il manque juste les commande du BotServ.
Erwanou
Messages postés
59
Date d'inscription
mardi 23 août 2005
Statut
Membre
Dernière intervention
8 janvier 2006
-
po mal , un peu gros a mon gout : 8/10
SnJaS
Messages postés
17
Date d'inscription
lundi 18 juillet 2005
Statut
Membre
Dernière intervention
23 septembre 2005
-
ça m'a l'air bien... Aller, pour le fun je met 9 ^^
juki_webmaster
Messages postés
947
Date d'inscription
mercredi 19 novembre 2003
Statut
Membre
Dernière intervention
5 avril 2008
3 -
Pas mal du tout !
9/10
lgrenon
Messages postés
32
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
29 juillet 2004
-
Merci Chang-Fu mais t'inquiete pas les options et les autres contrôles, je les coderai prochainement, c'est juste que je n'est pas assez de temps en ce moment.

Vous n'êtes pas encore membre ?

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

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

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

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

Du même auteur (lgrenon)