alias F1 {
  /unset %awayuser.*
  /dialog -m xaway xaway
}
alias warnaway echo -a You are away: %away.reason ( $+ $duration($calc($ctime - %aw.time)) $+ )
alias F2 {
  if ( $away == $true ) {
    if (%awaynick.use == on) { /nick %awaynick.old }
    /resetidle 0
    /away
    /ame * back after «« Offline for $duration($calc($ctime - %aw.time)) »»    
    /set %way off  
    //.timeraway off
    /chicon data\mirc.ico
  }
  else { /echo -a $ud 4You are not away }
}
on *:text:*:#:{
  if ( $me isin $1- ) {
    if ( $away == $true ) {
      if ( %awayuser. $+ $nick !== yes ) {
        /.notice $nick Away : %away.reason < $duration($calc($ctime - %aw.time))
      /set %awayuser. $+ $nick yes }
    }
  }
}

on *:text:*:?: {
  if ($away == $true) {
    /.msg $nick Away : %away.reason < $duration($calc($ctime - %aw.time))      
  }
}


menu menubar,status,channel {
  -
  Away(- $iif($away == $true,on,off) $+ )
  .-
  .On:/F1
  .Off:/F2
  .-
}

dialog xaway {
  title "Away System by XploD"
  size -1 -1 175 52
  option dbu
  text "&Away message:", 202, 5 7 37 7
  edit "", 1, 43 5 118 11, autohs
  text "0", 4, 163 7 13 7
  button "OK", 101, 5 35 27 12, OK default
  button "Cancel", 102, 38 35 27 12, cancel
  check "&Nick:", 103, 75 38 22 7
  edit "", 105, 98 36 73 11
}
on *:dialog:xaway:init:*:{
  if (%awaynick.use == off) { did -u xaway 103 }
  if (%awaynick.use == on) { did -c xaway 103 }
;  if (%awaywarn == off) { did -u xaway 104 }
;  if (%awaywarn == on) { did -c xaway 104 }
  if (%awaynick !== $null) { did -a xaway 105 %awaynick }
}
on *:dialog:xaway:sclick:*:{
  if ($did == 103) {
    if (%awaynick.use == on) { /set %awaynick.use off }
    else { /set %awaynick.use on }
  }
  if ($did == 101) {
    /set %awaynick $did(105)
    if ($did(1) == $null) { /echo -a $ud Please enter away reason!!! $ud | halt }
    /set %away.reason $did(1)
    /away  %away.reason
    /ame is away - «« %away.reason »»
    /chicon data\away.ico
    /set %way on
    /set %aw.time $ctime
    if (%awaywarn == on) { //.timeraway 0 300 /warnaway }
    if (%awaynick.use == on) { /set %awaynick.old $me | /nick %awaynick }
  }
  if ($did == 104) {
    if (%awaywarn == on) { /set %awaywarn off }
    else { /set %awaywarn on }
  }
}

on *:DIALOG:xaway:edit:1:{ doeditboxchk }
alias -l doeditboxchk {
  if ($len($did(1)) < 100) { did -a $dname 4 $len($did(1)) }
  if ($len($did(1)) == 100) { %did1text = $did(1) | did -a $dname 4 Max }
  if ($len($did(1)) == 101) { did -ar $dname 1 %did1text | beep 1 | %did1text = $did(1) }
}