Comme son nom l'indique c'est un systèm d'away, celui-ci est en dialog..même si ce genre de code n'est pas très difficile et est très répendu ce n'est que mon deuxième code donc bon j'vais pas vous pondre un truc exatraordinaire non plus :)
Source / Exemple :
Alias aw { dialog -m sys.aw sys.aw }
dialog sys.aw {
title " Système d'AwAy"
size -1 -1 117 58
option dbu
edit "", 1, 62 10 50 10, autohs
edit "", 2, 62 27 50 10, autohs
button "S'absenter", 3, 16 44 37 10
button "Revenir", 4, 64 44 37 10
text "Pseudo étant absent :", 5, 4 12 58 8
text "Motif de ton absence :", 6, 4 29 59 8
box "Paramètres", 7, 1 2 115 40
}
on *:dialog:sys.aw:*:*:{
if ($devent == edit) {
if ($did == 2) {
set %m.aw $did(2)
}
}
if ($devent == sclick) {
if ($did == 3) {
nick $did(1)
away %m.aw
ame Je suis AwAy pour le motif suivant : %m.aw .Début de mon Absence «( $+ $time $+ )»
}
if ($did == 4) {
nick me
ame Je suis de retour après avoir était AwAy pendant $duration($awaytime) pour le motif suivant : %m.aw
dialog -x sys.aw
away
}
}
}
on *:text:$($+(*,$me,*)):*:{
if ($away) {
notice $nick « AwAy System » Dsl $nick mais je suis Absent pour la raison suivante : $awaymsg .Depuis $duration($awaytime)
}
}
on *:open:?:{
if ($away) {
msg $nick « AwAy System » Dsl $nick mais je suis Absent pour la raison suivante : $awaymsg .Depuis $duration($awaytime)
}
}
Conclusion :
Pas grand chose a ajouter si ce n'est que les var %q.aw et si %t.aw sont utiles dès lors qu'on se met en away à la main ( en tapant /away .... ) sans cela les personnes ouvrant un pv ou citant votre pseudo auront un message non conforme avec votre absence.
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.