alias away {
  if ((!$away) && ($1 == $null)) { dialog -m awaysys awaysys }
  elseif ((!$away) && ($1 != $null)) { setaway $1- }
  elseif (($away) && ($1 != $null)) { setaway $1- }
  else { setback }
}
alias awaysetup {
  if ($dialog(awaysys)) {
    did -f awaysys 2
  }
  else {
    dialog -m awaysys awaysys
    did -f awaysys 2
  }
}
DIALOG awaysys {
  title "Away System"
  size -1 -1 172 100
  option dbu
  tab "Away", 1, 3 3 166 79
  text "Away Reson:", 20, 10 25 35 8, tab 1
  edit "", 21, 10 37 154 10, tab 1 autohs
  button "Set &Away", 3, 129 53 37 12, tab 1 flat ok
  tab "Away Setup", 2
  check "Minimize mIRC", 5, 15 25 70 10, tab 2 flat
  check "Deop Self", 6, 90 25 70 10, tab 2 flat
  check "Announce Away/Back", 7, 15 35 70 10, tab 2 flat
  check "Auto Away After", 8, 15 45 70 10, tab 2 flat
  edit "", 9, 90 45 12 10, disable tab 2 limit 99 right
  check "Change Nick To:", 10, 15 55 70 10, tab 2 flat
  edit "", 11, 90 55 52 10, disable tab 2 autohs
  check "Remind Every", 12, 15 65 70 10, tab 2 flat
  edit "", 13, 90 65 12 10, disable tab 2 limit 99 right
  text "minutes", 18, 105 45 25 8, tab 2
  text "minutes", 19, 105 67 25 8, tab 2
  tab "Away Query Setup", 4
  check "Close queries when setting away", 14, 20 25 100 10, tab 4 flat
  check "Block incoming queries when away", 15, 20 40 100 10, tab 4 flat
  check "Show rejected queries in active", 16, 29 50 100 10, disable tab 4 flat
  check "Send a &notice informing that you are away", 17, 20 65 130 10, tab 4 flat
  button "Exit", 22, 133 86 37 12, flat cancel
}

on 1:dialog:awaysys:init:0:{
  awaysys.loadsetup
}

on 1:dialog:awaysys:edit:*:{
  if ($did == 9)  { away.autoaway.time $iif($did(9), $did(9), 15) }
  if ($did == 11) { away.awaynick $iif($did(11), $did(11), ME)    }
  if ($did == 13) { away.remind.time $iif($did(13), $did(13), 15) }
}

on 1:dialog:awaysys:sclick:*:{
  if ($did == 3) { setaway $did(21) }
  if (($did == 8) || ($did == 10) || ($did == 12) || ($did == 15)) {
    awaysys.mainED
  }
  if ($did == 5)  { away.minimize $did(5).state }
  if ($did == 6)  { away.selfdeop $did(6).state }
  if ($did == 7)  { away.announce $did(7).state }
  if ($did == 8)  { away.autoaway $did(8).state }
  if ($did == 10) { away.nick $did(10).state    }
  if ($did == 12) { away.remind $did(12).state  }

  if ($did == 14) { away.qclose $did(14).state       }
  if ($did == 15) { away.qblock $did(15).state       }
  if ($did == 16) { away.qblock.show $did(16).state  }
  if ($did == 17) { away.notice $did(17).state       }
}

alias awaysys.loadsetup {
  did $iif(away.minimize), -c, -u) awaysys 5
  did $iif(away.selfdeop), -c, -u) awaysys 6
  did $iif(away.announce), -c, -u) awaysys 7
  did $iif(away.autoaway), -c, -u) awaysys 8
  did -ra awaysys 9 (away.autoaway.time)
  did $iif(away.nick), -c, -u) awaysys 10
  did -ra awaysys 11 (away.awaynick)
  did $iif(away.remind), -c, -u) awaysys 12
  did -ra awaysys 13 (away.remind.time)

  did $iif(away.qclose), -c, -u) awaysys 14
  did $iif(away.qblock), -c, -u) awaysys 15
  did $iif(away.qblock.show), -c, -u) awaysys 16
  did $iif(away.notice), -c, -u) awaysys 17
  awaysys.mainED
}

alias awaysys.mainED {
  did $iif($did(awaysys,8).state, -e, -b) awaysys 9
  did $iif($did(awaysys,10).state, -e, -b) awaysys 11
  did $iif($did(awaysys,12).state, -e, -b) awaysys 13
  did $iif($did(awaysys,15).state, -e, -b) awaysys 16
}
alias _setaway {
  if (!$server) {
    _error.a You are not connected!
    return
  }
  hadd -m AWAY away.reason $iif($1, $1-, ??)
  raw -q away : $+ $sget(away.reason)
  hadd -m AWAY away.time $ctime

  if (away.announce) { ame is away: ( $+ $sget(away.reason) $+ ) : $+ $rand:col($logo) }
  if (away.nick) {
    hadd -m AWAY away.nick $me
    var %anick = (away.awaynick)
    if ($left(%anick, 2) == ME) { .nick $+($me, $right(%anick, $calc($len(%anick) -2))) }
    else { .nick %anick }
  }
  awaysys.timer
  if (away.selfdeop)) { _me.DeopAll  }
  if (away.minimize)) { .showmirc -t }
}
alias _setback {
  if (!$server) {
    _error.a You are not connected!
    return
  }
  elseif (!$away) {
    _info.a You are not marked as being away!
    return
  }
  else {
    raw -q away
    if (away.announce) { ame is back after: $duration($calc($ctime - $sget(away.time)),1) ( $+ $sget(away.reason) $+ ) : $+ $rand:col($logo) }
    if (away.nick) { .nick $sget(away.nick) }
    awaysys.timer
    hdel -w AWAY away.*
  }
}

alias awaysys.reminder {
  $iif($chan(0) == 0, return)
  ame is still away: ( $+ $sget(away.reason) $+ ) Gone: ( $+ $duration($calc($ctime - $sget(away.time)),1) $+ ) : $+ $rand:col($logo)
}

alias awaysys.timer {
  if ($away) {
    if (away.remind)) {
      .timeraway.reminder 0 $calc(60 * (away.remind.time)) awaysys.reminder
    }
  }
  else {
    if ($timer(away.reminder)) {
      .timeraway.reminder off
    }
  }
  return
}
alias awaysys.notice { .notice $1 i'm currectly away Reason: ( $+ $sget(away.reason) $+ ) Gone: $duration($calc($ctime - $sget(away.time)),1) }
alias title {
  if ( $away == $false ) {
    titlebar »»»»»»»»   Blunt-IRC   «««««««««
    goto away
  }
  else {
    titlebar »»»»»»»»      «««««««««
    goto away
  }
  :away
  if ( %autoaway == ON ) && ( $away == $false ) {
    if ( $idle > $calc(%autoaway.time * 60)) {
      setaway ON Auto Away ( $+ %autoaway.time $+ mins Idle)
    }
    else { goto time }
  }
  else { goto time }
  :time
  if ( %autotime == On ) {
    if ( $time == 1:00:00 ) || ( $time == 13:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [1:00] }
    elseif ( $time == 2:00:00 ) || ( $time == 14:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [2:00] }
    elseif ( $time == 3:00:00 ) || ( $time == 15:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [3:00] }
    elseif ( $time == 4:00:00 ) || ( $time == 16:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [4:00] }
    elseif ( $time == 5:00:00 ) || ( $time == 17:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [5:00] }
    elseif ( $time == 6:00:00 ) || ( $time == 18:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [6:00] }
    elseif ( $time == 7:00:00 ) || ( $time == 19:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [7:00] }
    elseif ( $time == 8:00:00 ) || ( $time == 20:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [8:00] }
    elseif ( $time == 9:00:00 ) || ( $time == 21:07:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [9:00] }
    elseif ( $time == 10:00:00 ) || ( $time == 22:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [10:00] }
    elseif ( $time == 11:00:00 ) || ( $time == 23:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [11:00] }
    elseif ( $time == 12:00:00 ) || ( $time == 24:00:00 ) { echo -a 4>>>> 12(Time Reminder) It Is Now: [12:00] }
    else { goto end }
  }
  else { goto end }
  :end
}
alias atime {
  %atime = $time | %hour = $token(1,58,%atime) | %type = am
  if ( %hour = 12 ) { %type = pm }
  if ( %hour = 0 ) { %hour = 12 }
  if ( %hour > 12 ) { %hour = %hour - 12 | %type = pm }
  %min = $token(2,58,%atime) | %atime = %hour $+ : $+ %min $+ %type | unset %hour | unset %min | unset %type | return %atime
}