Away by msk

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 777 fois - Téléchargée 15 fois

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 }
}

Source / Exemple :


Un system d'away...

Conclusion :


.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
Quel polémique ? C'est en disant ça que tu donne de l'interet a une polémique.
Sinon, je note que mister jojojo93 (super pseudo) a crée un compte spécialement pour dire ça.Je vous laisse médité sur le pourquoi du comment.
Je vous invite également a lire le premier commentaire, et donc ensuite a regarder les changements non effectués en conséquence, histoire de renforcer votre haine contre celui qui ne sait pas poster une source correctement.
Lisez également le dernier post de Uaip, qui dit que si on fait de la programmation, alors on peut insulter les autre de mauvais ou autre :)
Messages postés
1466
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
7 février 2011

Vachement utile, surtout.
Franchement les gars, merde, mais si vous saviez comme vous me faites rire. Avant de vous insulter de mauvais ou autre, mettez-vous à la programmation bon sang, on verra bien ce que vous valez vraiment.
(jojojo93, peu importe si MSK sait coder ou pas, je doute que toi tu saches coder)

Allez, arrêtons de répondre et de raviver cette polémique sans intérêt.
Messages postés
10
Date d'inscription
mercredi 18 juin 2008
Statut
Membre
Dernière intervention
12 novembre 2008

Outch, que d'arrogance.
Messages postés
1
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
17 décembre 2008

Espece de bollos de MSK, tu sais pas coder arrête de te la raconter.

Ton Revolution script, il est nul à chier, mirc de kikoo...

Déjà quand on vois les dial en cosmic en bleu italique... voila je pense que c'est explicite.

tu sais pas faire un script normal ? tu apprendras un jour va :')
Messages postés
1466
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
7 février 2011

Arf, j'arrive toujours à la bourre... j'ai la flemme de lire tous vos commentaires ;(

Sinon je connais un bon truc :
/away <raison de l'absence>
et ça tient sur une ligne.

*Ne me frappez pas*
Afficher les 27 commentaires

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.