AWAY

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