Système d'away tout simple.

Commenter

Contenu du snippet

Voila un petit système d'away avec choix de pseudo infinis et une raison gérable.

Source / Exemple : 


alias aw dialog -m away away
alias f8 aw

dialog away {
  size -1 -1 332 140
  title "Système d'AwaY -[Raccourci F8]-"
  box "Pseudo", 1, 4 4 135 80
  combo 2, 10 25 120 100, size drop
  button "Ajouter", 3, 13 50 55 20
  button "Supprimer", 4, 70 50 55 20
  box "Raison", 5, 153 4 175 80
  text "Pour quelle raison pars-tu ?", 6, 168 20 150 50, center
  edit %raison, 7, 161 50 160 20, autohs
  button "Partir", 8, 85 86 75 23
  button "Revenir", 9, 175 86 75 23
  button "Ok", 10, 132 116 75 23, ok
}

On *:DialoG:away:*:*:{
  if ($devent == init) {
    did -ra $dname 7 %raison
    if $exists(away.txt) { loadbuf -o away 2 away.txt }
  }
  if ($devent == edit) {
    if ($did == 7) { set %raison $did(7) }
  }
  if ($devent == sclick) {
    if ($did == 3) { var %newpseudo $$?="Entrez le pseudo à ajouter :" | did -a away 2 %newpseudo | write away.txt | .timer 1 1 savebuf -o away 2 away.txt }
    if ($did == 4) { did -d away 2 $did(2).sel | savebuf -o away 2 away.txt }
    if ($did == 8) { set %nicknormal $me | set %nickaway $did(2).seltext | amsg « AwaY » Je pars à $time pour la raison : %raison $+ . Bye bye :) | away « %raison » | .timer 1 1 /tnick %nickaway }
    if ($did == 9) { amsg « AwaY » Je suis resté away pendant $duration($awaytime) $+ . J'étais away pour la raison : %raison $+ . | away | .timer 1 1 /nick %nicknormal }
  }
}

Conclusion :


J'ai supprimer les couleurs pour avoir plus de "visibilité". Merci de laisser des commentaires :)

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