Away by msk
Contenu du snippet
;##################
;#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 }
}
.
;#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 }
}
Source / Exemple :
Un system d'away...
Conclusion :
.
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.