Anonymous

dialog asy {
  title "Away System"
  size -1 -1 172 159
  option dbu
  box "Set Away Nick", 1, 1 1 57 34
  edit "", 2, 4 12 50 9, autohs
  button "set", 3, 5 23 20 9, flat
  button "unset", 4, 34 23 20 9, flat
  box "Set Back Nick", 5, 62 1 57 34
  edit "", 6, 65 12 50 9
  button "set", 7, 65 23 20 9, flat
  button "unset", 8, 95 23 20 9, flat
  box "Add/Del Away Reason", 9, 1 36 118 35
  edit "", 10, 4 45 111 9, autohs
  button "add", 11, 4 56 54 10, flat
  button "del", 12, 61 56 54 10, flat
  box "Auto Away", 13, 121 1 50 70
  radio "None", 14, 124 12 25 10, flat
  radio "30 Minutes", 15, 124 23 37 10, flat
  radio "60 Minutes", 16, 124 34 37 10, flat
  radio "90 Minutes", 17, 124 45 37 10, flat
  radio "120 Minutes", 18, 124 56 40 10, flat
  box "Reason List", 19, 1 72 170 60
  list 20, 4 81 163 46, size vsbar
  box " Away/Back", 21, 1 133 61 25
  button "Away", 22, 4 143 25 10, flat
  button "Back", 23, 34 143 25 10, flat
  box "Highlite Notice", 24, 64 133 43 25
  check "on", 25, 69 143 17 10, flat
  check "off", 26, 88 143 17 10, flat
  box "Date/Time", 27, 108 133 63 25
  text "", 28, 112 143 55 8
}
menu menubar,channel {
  .Away System { asy }  
}
alias asy { dialog $iif($dialog(asy),-v,-md) asy asy }
alias asytime { did -ra asy 28 $time(mm.dd.yy h:nn:ss tt) }
alias 30check {
  if ($ceil($calc($nick($active,$me).idle / 60)) == 30) && (!$away) {
    amsg 14,1[12,1»0,1:: Idle Away After ::12,1«14,1]14,1[12,1»0,1:: 30 Minutes ::12,1«14,1]
    .away Idle Away After 30 Minutes
    nick %asyanick
  }
}
alias 60check { 
  if ($ceil($calc($nick($active,$me).idle / 60)) == 60) && (!$away) {
    amsg 14,1[12,1»0,1:: Idle Away After ::12,1«14,1]14,1[12,1»0,1:: 60 Minutes ::12,1«14,1]
    away Idle Away After 60 Minutes
    nick %asyanick
  }
}
alias 90check { 
  if ($ceil($calc($nick($active,$me).idle / 60)) == 90) && (!$away) {
    amsg 14,1[12,1»0,1:: Idle Away After ::12,1«14,1]14,1[12,1»0,1:: 90 Minutes ::12,1«14,1]
    away Idle Away After 90 Minutes
    nick %asyanick
  }
}
alias 120check { 
  if ($ceil($calc($nick($active,$me).idle / 60)) == 120) && (!$away) {
    amsg 14,1[12,1»0,1:: Idle Away After ::12,1«14,1]14,1[12,1»0,1:: 120 Minutes ::12,1«14,1]
    away Idle Away After 120 Minutes
    nick %asyanick
  }
}
alias asaway {
  if (!$away) && (%asyanick) && (%asybnick) {
    nick %asyanick
    amsg 14,1[12,1»0,1:: I am Now Away ::12,1«14,1]14,1[12,1»0,1::Reason: $1- ::12,1«14,1]14,1[12,1»0,1:: Left At ::12,1«14,1]14,1[12,1»0,1:: $time(h:nn tt) ::12,1«14,1]
    .away $1-
  }
}
alias asaback {
  if ($away) && (%asyanick) && (%asybnick) {
    amsg 14,1[12,1»0,1:: I am Now back from ::12,1«14,1]14,1[12,1»0,1::Reason: $awaymsg ::12,1«14,1]14,1[12,1»0,1:: Gone for ::12,1«14,1]14,1[12,1»0,1:: $duration($awaytime) ::12,1«14,1]
    nick %asyanick
    .away
  }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Away System
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º «×X§Ç®îÞt0®§X×» º0,1¯15,1¯14,1¯)™
  set %tnone on
}
on *:DIALOG:asy:close:0:{ .timerasytime off }
on *:DIALOG:asy:init:0:{ 
  did -a asy 28 $time(mm.dd.yy h:nn:ss tt) 
  .timerasytime 0 1 asytime
  if ($away) { did -b asy 22 | did -e asy 23,25,26 }
  if (!$away) { did -e asy 22 | did -b asy 23,25,26 }
  if (%asyanick) { did -a asy 2 %asyanick }
  if (%asybnick) { did -a asy 6 %asybnick }
  if (%tnone) { did -c asy 14 }
  if (%t30) { did -c asy 15 }
  if (%t60) { did -c asy 16 }
  if (%t90) { did -c asy 17 }
  if (%t120) { did -c asy 18 }
  if (%highlite) { did -c asy 25 }
  if (!%highlite) { did -c asy 26 }
  if $read(awayreason.txt) { 
    var %x = 1
    while ( %x <= $lines(awayreason.txt)) {
      did -a asy 20 $read(awayreason.txt,%x)
      inc %x
    }
  }
}
on *:DIALOG:asy:sclick:*:{
  if ($did == 14) { set %tnone on | unset %t30 %t60 %t90 %t120 | .timert* off }
  if ($did == 15) { set %t30 on | unset %tnone %t60 %t90 %t120 | .timerta 0 1 30check }
  if ($did == 16) { set %t60 on | unset %tnone %t30 %t90 %t120 | .timertb 0 1 60check }
  if ($did == 17) { set %t90 on | unset %tnone %t30 %t60 %t120 | .timertc 0 1 90check }
  if ($did == 18) { set %t120 on | unset %tnone %t30 %t60 %t90 | .timertd 0 1 120check }
  if ($did == 25) { set %highlite on | did -u asy 26 }
  if ($did == 26) { unset %highlite | did -u asy 25 }
  if ($did == 3) { 
    if (!$did(2).text) {
      noop $input(Please Enter An Away Nick,uwo,Error!)
    }
    else { set %asyanick $did(2).text }
  }
  if ($did == 4) {
    if (!$did(2).text) {
      noop $input(Please Enter An Away Nick,uwo,Error!)
    }
    else { unset %asyanick $did(2).text | did -r asy 2 }
  }
  if ($did == 7) { 
    if (!$did(6).text) {
      noop $input(Please Enter A Back Nick,uwo,Error!)
    }
    else { set %asybnick $did(6).text }
  }
  if ($did == 8) {
    if (!$did(6).text) {
      noop $input(Please Enter A Back Nick,uwo,Error!)
    }
    else { unset %asybnick $did(6).text | did -r asy 6 }
  }
  if ($did == 11) { 
    if (!$did(10).text) {
      noop $input(Please Enter A Reason,uwo,Error!)
    }
    else {
      .write awayreason.txt $did(10).text 
      did -r asy 10,20
      var %x = 1
      while ( %x <= $lines(awayreason.txt)) {
        did -a asy 20 $read(awayreason.txt,%x)
        inc %x
      }
    }
  }
  if ($did == 12) { 
    if (!$did(20).seltext) {
      noop $input(Please Select A Reason,uwo,Error!)
    }
    else {
      var %dawayreason $read(awayreason.txt,w,$did(20).seltext) 
      if (%dawayreason == $did(20).seltext) { 
        write -dl [ $+ [ $readn ] ] awayreason.txt 
        did -r asy 20 
        var %x = 1
        while ( %x <= $lines(awayreason.txt)) {
          did -a asy 20 $read(awayreason.txt,%x)
          inc %x
        }
      }
    }
  }
  if ($did == 22) {
    if (!%asyanick) {
      noop $input(Please Enter An Away Nick,uwo,Error!)
    }
    elseif (!%asybnick) { 
      noop $input(Please Enter A Back Nick,uwo,Error!)
    }
    elseif (%asyanick) && (%asybnick) && (!$did(20).seltext) {
      nick %asyanick
      did -b asy 22
      did -e asy 23,25,26
      .away none
      amsg 14,1[12,1»0,1:: I am Now Away ::12,1«14,1]14,1[12,1»0,1::Reason: None ::12,1«14,1]14,1[12,1»0,1:: Left at ::12,1«14,1]14,1[12,1»0,1:: $time(h:nn tt) ::12,1«14,1]
    }
    elseif (%asyanick) && (%asybnick) && ($did(20).seltext) {
      nick %asyanick
      did -b asy 22
      did -e asy 23,25,26
      .away $did(20).seltext
      amsg 14,1[12,1»0,1:: I am Now Away ::12,1«14,1]14,1[12,1»0,1::Reason: $did(20).seltext ::12,1«14,1]14,1[12,1»0,1:: Left at ::12,1«14,1]14,1[12,1»0,1:: $time(h:nn tt) ::12,1«14,1]
    }
  }
  if ($did == 23) {
    nick %asybnick
    amsg 14,1[12,1»0,1:: I am Now back from ::12,1«14,1]14,1[12,1»0,1::Reason: $awaymsg ::12,1«14,1]14,1[12,1»0,1:: Gone For ::12,1«14,1]14,1[12,1»0,1:: $duration($awaytime) ::12,1«14,1]
    did -e asy 22
    did -b asy 23,25,26
    unset %highlitecheck.*
    .away
  }
}
on *:TEXT:*:#:{
  if (%highlite) && ($away) {
    if (%asyanick isin $1-) || (%asybnick isin $1-) { 
      inc $+(%,highlitecheck,.,$nick)
      if ($($+(%,highlitecheck,.,$nick),2) = 1) { notice $nick  14,1[4,1» 0,1::This Is A One Time Response:: I am Away ATM :Reason:4,1 $awaymsg 0,1:Gone for:4,1 $duration($calc($ctime - %away.timee)) 4,1«14,1] | window @away | aline @away $nick Called Your Name At $time(h:nn:tt) In $chan And Said: $1- }
      if ($($+(%,highlitecheck,.,$nick),2) >= 2) { window @away | aline @away $nick Called Your Name At $time(h:nn:tt) In $chan And Said: $1- }
    }
  }
}
on *:input:*:{
  if (%t30) || (%t60) || (%t90) || (%t120) {
    if ($away) {
      amsg 14,1[12,1»0,1:: I am Now back from ::12,1«14,1]14,1[12,1»0,1::Reason: $awaymsg ::12,1«14,1]14,1[12,1»0,1:: Gone For ::12,1«14,1]14,1[12,1»0,1:: $duration($awaytime) ::12,1«14,1]
      nick %asybnick
      unset %highlitecheck.*
      .away
    }
  }
}