Away système évolué, simple et clair :)

Télécharger le projet
Commenter

Description

Alors comme indiqué dans le titre, c'est un système d'away... mais attendez un peu avant de gueuler!

J'ai essayé de m'appliquer tant au niveau de la prog qu'au niveau de l'utilité de ce dialog pr finalement en faire un outil rapide et (allons jusque là! :)) agréable à utiliser :
Il permet de spécifier bien entendu un message d'away au choix, mais aussi un message de répondeur pour les PVS, et aussi un suffixe à ajouter à votre pseudo, qui sera enlevé une fois votre absence terminée.

En outre, tant que l'away système est activé, il stocke tous les messages provenant des salons dans lequel votre pseudo a été prononcé, et il suffit pour les voir de cliquer sur le bouton "Messages" affublé du nombre de messages reçus. Sans bugs pour moi, mais si vous en voyez n'hésitez pas à me les faire signaler :)

Je tiens aussi à dire que c'est ma première source "officielle", car c'est la toute première que je poste (j'en ai en réalité codé un paquet d'autres :p), donc soyez indulgents! En revanche, si vous remarquez quoi que ce soit au niveau de l'optimisation du code, soyez gentils de me faire parvenir vos suggestions :)... Bien entendu, une note serait sympathique ^^

Voilà voilà :p

Source / Exemple : 


alias console {
  dialog -m console console
}

dialog console {
  size -1 -1 160 500
  title "Away Système"
  icon 1,0 0 160 1500,images\bgdock.png,noborder
  button "Partir",2,5 124 60 25,flat
  button "Revenir",3,75 124 60 25,flat, ok
  button "Messagerie(0)",11,5 154 130 25,flat
  text "Raison de l'absence",5,10 4 110 22 8
  edit %awayraison,6,5 19 130 22 15,autohs
  text "Message du répondeur",7,10 44 110 22 8
  edit %repawaymsg,8,5 59 130 22 15,autohs
  text "Ajouter au pseudo",9,10 84 110 22 8
  edit %awaynick,10,5 99 130 22 15,autohs
}

#rep off
on *:open:?: {
  msg $nick 7,0(>>Répondeur d'absence<<) 14[> $+ 10 $+ %repawaymsg $+ 14,0<]
}
#rep end

#msgserv off
on *:text:*:*: {
  if ($me isin $strip($1-)) {
    write textes\messagerie.txt 10,0 $+ $timestamp 4 $+ $nick 10sur 4 $+ $chan 14[> $+ $1- $+ 14,0<]
    did -r away 11
    did -a away 11 Messages( $+ $lines(textes\messagerie.txt) $+ )
  }
}
#msgserv end

on *:dialog:console:sclick:*: {
  if ($did == 11) { messagerievoir }
  if ($did == 2) {
    set %awayraison $did(away,6)
    set %repawaymsg $did(away,8).text
    set %awaynick $did(away,10).text
    set %actunick $me
    set %awaytime $time
    //nick $me $+ %awaynick
    enable #rep | enable #msgserv
    ame 10,0est 7(>>away<<) 10pour la raison suivante 14[>  $+ 1 $+ %awayraison $+ 14,0 <]10 à 14[> $+ 1 %awaytime $+ 14,0<]
    set %awayminutes 0 | timer1 0 60 /inc %awayminutes 1
    set %awayheures 0 | timer11 0 3600 /inc %awayheures 1
    timer111 0 3600 /set %awayminutes 0
    set %awaysecondes 0 | timer1111 0 1 /inc %awaysecondes 1 | timer11111 0 60 /set %awaysecondes 0
  }
  if ($dname == 3) {
    ame 10,0est revenu; la raison de son absence était : 14[>  $+ 1 $+ %awayraison $+ 14,0 <]10. Il est partit pendant 14[> $+ 1 %awayheures $+ h %awayminutes $+ min %awaysecondes $+ sec $+ 14,0 <]
    disable #rep
    disable #msgserv
    unset %awayraison 
    unset %repawaymsg 
    unset %awaynick
    unset %awaybacktime
    unset %awaytime - awaybacktime
    nick %actunick
    unset %actunick
    unset %awayheures
    unset %awayminutes
    unset %awaysecondes
    write -c textes\messagerie.txt
  }
  if ($did == 11) {
    if ($window(@Messages)) { clear @Messages }
    if (!$window(@Messages)) { window @Messages }
    loadbuf @Messages $shortfn(textes\messagerie.txt)
  }
}

on *:dialog:console:init: {
  dll dlls\MDX.dll SetMircVersion $version
  dll dlls\MDX.dll MarkDialog $dname
  dll dlls\MDX.dll SetColor $dname 2,3,5,7,9,11 textbg $rgb(51,153,102)
  dll dlls\MDX.dll SetColor $dname 2,3,5,7,9,11 background $rgb(192,192,192)
}

Conclusion :


boarf j'ai pas trop de site où exposer mes créations donc voilà quoi :p, et puis j'en ai assez dit dans l'en-tête non? :D
Télécharger le projet

Codes Sources

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.