;##################
;#Scripting: Away.
;#
;#Auteur: ¬ Msk ¬
;#
;#Année: 2008
;#
;#Ouverture: /Abs
;#
;##################
alias Abs if (!$dialog(Away)) dialog -m away away
dialog Away {
title "- Away - [ /Abs ]"
size -1 -1 122 262
option dbu
edit "", 1, 49 53 66 9
text "Raison D'Away:", 2, 8 53 40 8
button "Fermer", 7, 4 251 115 10, flat ok cancel
text "Pseudo D'away :", 8, 8 11 41 8
button "Revenir", 10, 8 42 107 9, flat
button "Partir", 11, 8 21 107 9, flat
text "Pseudo Retour :", 3, 8 33 41 8
edit "", 9, 49 11 66 9, autohs
edit "", 13, 49 32 66 9, autohs
text "Commande Away :", 4, 8 76 47 8
edit "", 14, 55 76 60 9, autohs
edit "", 15, 55 86 60 9, autohs
text "Commande Retour:", 16, 8 87 47 8
text "Envoie Notice HL Away :", 17, 8 141 59 8
button "Identifier", 19, 8 172 107 9, flat
check "", 5, 68 142 6 6
text "Annoncer votre Absence en /Amsg :", 12, 15 119 87 8
text "Annoncer votre absence En /Ame :", 18, 15 110 86 8
radio "en /Amsg :", 20, 103 120 6 6
radio "", 21, 103 111 6 6
text "Vous êtes :", 22, 8 151 27 8
edit "", 23, 36 151 50 9, read
box "Pseudo Away/Retour/Raison", 24, 3 2 117 63
box "Commandes Away/Retour", 6, 3 67 117 32
box "Annoncer Votre Absence", 25, 3 101 117 29
box "Options", 26, 3 132 117 52
box "Auto Away", 27, 3 185 117 40
check "", 28, 7 194 6 7
text "Auto Away", 29, 15 193 30 8
text "Temps d'inactivité Away :", 30, 7 214 62 8
edit "", 31, 70 214 20 8, autohs
text "Secondes", 32, 91 214 25 8
text "Raison :", 33, 7 203 21 8
edit "", 34, 29 202 87 10, autohs
text "Commande Identify :", 35, 9 162 51 8
edit "", 36, 61 161 55 10, autohs
box "Activation/Desactivation Away", 37, 4 226 116 23
radio "", 38, 15 237 6 6
radio "", 39, 72 237 5 6 ]
text "Activer ", 40, 24 236 18 8
text "Desactiver ", 41, 81 236 28 8
}
on *:dialog:away:*:*: {
if ($devent == sclick) {
if ($did = 38) {
Hmake Away 100
Hload Away Away.txt
Hadd Away Away On
Hadd Away nick-retour Votre Pseudo
Hadd Away nick-away Votre Pseudo d'Away
did -e $dname 9,13,1,14,15,23,36,24,8,11,3,10,2,6,4,16,12,18,25,5,17,26,19,22,35,27,28,29,33,30,32,37,41,39,20,21
did -a $dname 9 Pseudo Away
did -a $dname 13 Pseudo Back
did -b $dname 38,40
did -u away 39
}
if ($did = 39) {
hfree Away
remove Away.txt
write Away.txt
did -r $dname 9,13,1,14,15,23,31,34,36
did -b $dname 9,13,1,14,15,23,36,24,8,11,3,10,2,6,4,16,12,18,25,5,17,26,19,22,35,27,28,29,33,30,32,37,40,41,39,20,21
did -e $dname 38,40
did -u $dname 38
}
if ($did = 5) {
if ($did(5).state == 1) { Hadd Away Notice On }
else { hdel Away Notice }
}
if ($did = 20) {
if ($did(20).state == 1) { Hadd Away Amsg On | hdel Away Ame }
else { Hdel Away Amsg }
}
if ($did = 21) {
if ($did(21).state == 1) { Hadd Away Ame On | Hdel Away Amsg }
else { Hdel Away Ame }
}
if ($did = 28) {
if ($did(28).state == 1) { Hadd Away AutoAway On | did -e $dname 34,31 }
else { Hdel Away AutoAway | did -b $dname 34,31 }
}
if ($did = 6) .echo -a Aperçu de la raison de votre Away : $hget(Away,raison)
Elseif ($did = 11) { did -e $dname 10 | did -b $dname 11,8,9 | ame Absent/Away -> ( $hget(Away,raison) ). | nick $hget(Away,nick-away) | away $hget(Away,raison) | Hadd Away Away on | did -r $dname 23 | did -a $dname 23 Away }
Elseif ($did = 10) { did -b $dname 10 | did -e $dname 11,8,9 | ame Retour/Back -> ( $hget(Away,raison) ). | nick $hget(Away,nick-retour) | away | Hdel Away Away | did -r $dname 23 | did -a $dname 23 Présent }
Elseif ($did = 19) { $hget(Pass,Identify) }
}
Elseif ($devent == Edit) {
if ($did = 1) Hadd Away Raison $did(1)
Elseif ($did = 9) Hadd Away nick-away $did(9)
Elseif ($did = 13) Hadd Away nick-retour $did(13)
Elseif ($did = 14) Hadd Away cmd-away $did(14)
Elseif ($did = 15) Hadd Away cmd-retour $did(15)
Elseif ($did = 31) Hadd Away AutoAway-temps $did(31)
Elseif ($did = 34) Hadd Away Autoaway-raison $did(34)
Elseif ($did = 36) Hadd Away Identify $did(36)
}
Elseif ($devent == init) {
hmake Away 100
Hload Away Away.txt
if (!$away) did -a $dname 23 Présent
Elseif (!$away == $false) did -a $dname 23 Away
did -a away 1 $hget(Away,raison)
did -a away 9 $hget(Away,nick-away)
if ($hget(Away,Away) == on) { did -c $dname 38 | did -u $dname 39 | did -b $dname 38,40 }
Elseif ($hget(Away,Away) == $null) { did -c $dname 39 | did -u $dname 39 | did -b $dname 20,21,9,13,1,14,15,23,36,24,8,11,3,10,2,6,4,16,12,18,25,5,17,26,19,22,35,27,28,29,33,30,32,37,41,39 }
did -a away 13 $hget(Away,nick-retour)
did -a away 14 $hget(Away,cmd-away)
did -a away 15 $hget(Away,cmd-retour)}
did -a $dname 31 $hget(Away,AutoAway-temps)
did -a $dname 34 $hget(Away,Autoaway-raison)
did -a $dname 36 $hget(Away,Identify)
if ($hget(Away,AutoAway) == on) { did -c $dname 28 | did -e $dname 34,31 }
if ($hget(Away,AutoAway) == $null) { did -u $dname 28 | did -b $dname 34,31 }
if ($hget(Away,Notice) == On) { did -c away 5 }
if ($hget(Away,amsg) == on) { did -c away 20 | did -u away 21 }
if ($hget(Awat,ame) == On) { did -c away 21 | did -u away 20 }
}
Elseif ($devent == Close) {
Hsave Away Away.txt
}
}
on *:text:$(* $+ $me $+ *):#: {
If ($away == $true) && ($hget(Away,Notice) == on) { notice $nick Away : On \ Raison Away : $hget(Away,raison) }
}
On *:INPUT:*:{
if ($1 == $hget(Away,cmd-away)) && ($hget(Away,Ame) == on) && ($away == $false) { away $2- | nick $hget(Away,nick-away) | ame Absent/Away -> ( $2- ). | Hadd Away Raison $2- | hsave Away Away.txt | HALT }
Elseif ($1 == $hget(Away,cmd-away)) && ($hget(Away,Amsg) == on) && ($away == $false) { away $2- | nick $hget(Away,nick-away) | amsg Absent/Away -> ( $2- ). | Hadd Away Raison $2- | hsave Away Away.txt | HALT }
if ($1 == $hget(Away,cmd-retour)) && ($hget(Away,Ame) == on) { nick $hget(Away,nick-retour) | Hdel Away raison | ame Retour/Back -> ( $hget(Away,raison) ). | away | $hget(Pass,Identify) | HALT }
Elseif ($1 == $hget(Away,retour)) && ($hget(Away,Amsg) == on) { nick $hget(Away,nick-retour) | Hdel Away raison | amsg Retour/Back -> ( $hget(Away,raison) ) . | away | $hget(Pass,identify) | HALT }
}