Auth / invitation par irix

Commenter

Contenu du snippet

Simplement un addon de base que je pose en ici en repensant au autre auto Auth, qui eux se déclenche sur ton les salons rentrés. Celui ne déclenche la commande que si vous cliquez.
Enfin vous verrez bien =)

- Le 22/09/04 :
  • Correction des bugs du dialog
  • Ajout du bouton "Add.H" pour la commande "addthishost"

(Merci tofu)

Source / Exemple : 


dialog nirix {
  title "Auth IriX"
  size -1 -1 132 100
  option dbu
  box "Ajout d'un Salon :", 1, 68 0 64 32
  edit "", 2, 71 8 58 10
  button "Add", 3, 72 20 20 10, flat
  box "IDNick :", 4, 68 32 64 33
  edit "", 5, 71 40 58 10
  button "Set", 6, 72 52 20 10, flat
  box "Liste des Salons :", 7, 0 0 66 99
  list 8, 3 7 60 89, size
  button "Auth", 9, 68 70 20 10, flat
  button "Inv.", 10, 89 70 20 10, flat
  button "Del", 11, 110 70 20 10, flat
  button "Add.H", 13, 68 87 30 12, flat
  button "Valider", 12, 101 87 30 12, flat ok
}

on *:dialog:nirix:*:*:{
  if ($devent = init) { 
    did -a nirix 5 %idnick
    loadbuf -o nirix 8 files/salons.txt
  }
  if ($devent = sclick) {
    if ($did = 3) {
      write files/salons.txt $did(2)
      did -a nirix 8 $did(2)
    }
    if ($did = 6) set %idnick $did(5)
    if ($did = 11) {
      write -dl $+ $did(8).sel files/salons.txt
      did -d nirix 8 $did(8).sel
    }
    if ($did = 9) iauth
    if ($did = 10) iinvit
    if ($did = 13) .msg IriX addthishost $did(8).seltext %idnick $$?*="Pass IriX :"
  }
}

dialog auth {
  title "Auth IriX - Pass"
  size -1 -1 63 37
  option dbu
  text "Pass IriX :", 1, 1 3 25 8
  edit "", 2, 1 13 60 10, pass
  button "Auth", 3, 21 25 20 10, flat ok
}

Alias iauth dia auth
on *:dialog:auth:*:*:{
  if ($devent = sclick) {
    if ($did = 3) .msg IriX auth $did(nirix,8).seltext %idnick $did(2)
  }
}
Alias iinvit .msg IriX invite $did(8).seltext
on *:load:{
  mkdir files
  write files\salons.txt
}

Conclusion :


Je n'ai a priori aucun bug, peut etre que des commentaires pourront m'en faire parvenir ou meme une critique de la source (postive merci, le reste je m'en passe) sera la bienvenue.
Un seul point noir : orienté Wanadoo / Voila ... mais y'a tellement de monde que ca va bien servir a quelqu'un :p

Bon scripting.

A voir également

S'inscrire maintenant

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 (cs_Asthar)