- Menu channel,menubar,query {
- System d'away:/dia away
- }
-
- dialog away {
- title "System d'away - Looser !"
- size -1 -1 122 101
- option dbu
- edit "", 1, 54 7 59 10, center
- text "Raison d'away :", 2, 5 8 42 9
- text "Particule d'away :", 3, 5 21 45 8
- edit "", 4, 54 20 59 10, center
- box "Annonce :", 5, 5 34 113 47
- radio "/ame <Raison>", 6, 9 44 50 10
- radio "/me <Raison>", 7, 9 55 50 10
- radio "/amsg <Raison>", 8, 64 44 50 10
- radio "/msg <Raison>", 9, 64 55 50 10
- radio "Aucune annonce", 10, 35 68 51 10
- button "Partir", 11, 20 86 37 12,
- button "Revenir", 12, 65 86 37 12, ok
- }
-
- on *:dialog:away:init:0:{
- did -c away 10
- }
-
- on *:dialog:away:edit:1:/set %raison $did(away,1)
- on *:dialog:away:edit:4:/set %particule $did(away,4)
-
- on *:dialog:away:sclick:11:{
- if (%raison == $null) { set %raison Pas de raison }
- if ($did(away,6).state == 1) { ame part en away, raison : %raison ! }
- if ($did(away,7).state == 1) { me part en away, raison : %raison ! }
- if ($did(away,8).state == 1) { amsg je part en away, raison : %raison ! }
- if ($did(away,9).state == 1) { msg je part en away, raison : %raison ! }
- set %awayon on
- nick %particule
- /window -aek @Away
- /aline @Away $timestamp 7Looser ! - 14System d'away - 12Raison : %raison
- }
-
- on *:dialog:away:sclick:12:{
- unset %awayon
- unset %raison
- unset %particule
- nick me
- }
-
- on *:text:*:*:{
- if (%awayon == on) {
- if ($me isin $1-) {
- notice $nick 12Je suis Absent, raison :14 %raison
- /aline @Away $timestamp 4 $+ $nick => $1-
- }
- }
- }
Menu channel,menubar,query {
System d'away:/dia away
}
dialog away {
title "System d'away - Looser !"
size -1 -1 122 101
option dbu
edit "", 1, 54 7 59 10, center
text "Raison d'away :", 2, 5 8 42 9
text "Particule d'away :", 3, 5 21 45 8
edit "", 4, 54 20 59 10, center
box "Annonce :", 5, 5 34 113 47
radio "/ame <Raison>", 6, 9 44 50 10
radio "/me <Raison>", 7, 9 55 50 10
radio "/amsg <Raison>", 8, 64 44 50 10
radio "/msg <Raison>", 9, 64 55 50 10
radio "Aucune annonce", 10, 35 68 51 10
button "Partir", 11, 20 86 37 12,
button "Revenir", 12, 65 86 37 12, ok
}
on *:dialog:away:init:0:{
did -c away 10
}
on *:dialog:away:edit:1:/set %raison $did(away,1)
on *:dialog:away:edit:4:/set %particule $did(away,4)
on *:dialog:away:sclick:11:{
if (%raison == $null) { set %raison Pas de raison }
if ($did(away,6).state == 1) { ame part en away, raison : %raison ! }
if ($did(away,7).state == 1) { me part en away, raison : %raison ! }
if ($did(away,8).state == 1) { amsg je part en away, raison : %raison ! }
if ($did(away,9).state == 1) { msg je part en away, raison : %raison ! }
set %awayon on
nick %particule
/window -aek @Away
/aline @Away $timestamp 7Looser ! - 14System d'away - 12Raison : %raison
}
on *:dialog:away:sclick:12:{
unset %awayon
unset %raison
unset %particule
nick me
}
on *:text:*:*:{
if (%awayon == on) {
if ($me isin $1-) {
notice $nick 12Je suis Absent, raison :14 %raison
/aline @Away $timestamp 4 $+ $nick => $1-
}
}
}