Voila un away complet !
Source / Exemple :
dialog aw {
title "[] AwaY []"
size -1 -1 111 158
option dbu
box "", 1, 2 1 108 31
text "Entre la raison d'away ci-dessous", 2, 4 7 103 8, center
edit %ra, 3, 4 19 104 10, autohs
box "", 4, 2 81 108 35
text "Entre la phrase de ton away! met <r> pour dire la raison", 5, 5 85 102 14, center
edit %rp, 6, 5 102 102 10, autohs
box "", 13, 2 36 53 43
text "Le dire:", 14, 6 43 29 8, center
check "", 15, 5 54 8 10
text "à personne", 16, 13 55 34 8
check "Check Box", 17, 5 67 8 10
text "à tout le monde", 18, 13 68 38 8
button "Partir", 22, 62 41 37 12
button "Revenir", 23, 62 63 37 12
box "", 24, 2 119 108 35
text "Entre la phrase de ton retour d'away! met <r> pour dire la raison", 25, 5 125 102 14, center
edit %re, 26, 5 142 103 10, autohs
}
on *:dialog:aw:edit:3:{ set %ra $did(3).text }
on *:dialog:aw:edit:6:{ set %rp $did(6).text }
on *:dialog:aw:edit:26:{ set %re $did(26).text }
on *:dialog:aw:sclick:22:{
if %moi == on { /nick []Aw[] | /set %rhl on }
if %all == on { /nick []Aw[] | /set %rhl on | /amsg $replace(%rp,<r>,%ra) }
}
on *:dialog:aw:sclick:23:{
if %moi == on { /nick me | /set %rhl off }
if %all == on { /nick me | /set %rhl off | /amsg $replace(%re,<r>,%ra) }
}
on *:dialog:aw:sclick:15:{
if ( %moi == on ) { /set %moi off }
else { /set %moi on }
}
on *:dialog:aw:sclick:17:{
if ( %all == on ) { /set %all off }
else { /set %all on }
}
on *:dialog:aw:init:*:{
if %moi == on { did -c $dname 15 }
if %all == on { did -c $dname 17 }
}
on *:text:*:#:{
if $me isin $strip($1-) {
if %rhl == on { notice $nick 10[]14 AwaY 10[] 14Je suis away pour la raison %ra donc rééssai plus tard }
}
}
Conclusion :
bientot je pense un v2
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.