Not Ready

::::::::::::::::::::::::::::
:::::: Coded By eNkIL ::::::
::::::::::::::::::::::::::::
::: Cambiale si sabes =) :::
::::::::::::::::::::::::::::

;Away System

menu menubar,channel,status { 
  Away System:awaysys
  -
}
; Aliases
alias awaysys {
  if ($dialog(awaysys) == $null) { noop $dialog(awaysys,awaysys,-2) } 
  else { .echo -a -Dialogo de Away Ejecutandose.. } 
}
alias away.dur { 
  dialog -t awaysys $+(Away-, $iif($away, $duration($awaytime) $+ -Razon: %razona, En Linea),) 
}
alias durationasaway { 
  ame Away - Razon: %razona - Salida: %AwaySal - Tiempo Fuera: $duration($awaytime) 
}
alias set.away {
  set %awayon 1
  if (%autoaway.on == on) { set %razona Autoaway Por Inactividad | .timercheck.aaway off }
  else { set %razona $did($dname,101).text  }
  if (%razona == $null) { set %razona Sin Razon } 
  if (%act.cam.nick) { set %nick.back $me | nick %nick.away }
  if (%act.anun.nick) {
    set %a.spam.away $calc(%anuncio.away * 60)
    set %awaysal $time(hh:nnt)
    set %cca $ctime
    .timerasaway 0 %a.spam.away durationasaway
    ame Away On - Razon: %razona - Salida: %AwaySal
  }
  away %razona
}
alias set.back {
  if (%act.anun.nick) { ame Away Off - Razon: %razona - Desde las: %AwaySal - Tiempo Away: $duration($calc($ctime - %cca)) }
  if (%act.cam.nick) { set %nick.away $me | nick %nick.back }
  if (%act.auto.away) { set %autoaway.on off | .timercheck.aaway 0 30 autoawaycheck }
  .timerasaway off
  set %awayon 0
  unset %razona 
  away
}
alias info.away {
  if (%act.auto.away) { did -c $dname 201 | did -e $dname 202 | did -ra $dname 202 %tiempo.aaway | .enable #autoaway  }
  else { did -u $dname 201 | did -b $dname 202 | did -ra $dname 202 %tiempo.aaway | .disable #autoaway }
  if (%act.cam.nick) { did -c $dname 203 | did -e $dname 204 | did -ra $dname 204 %nick.away }
  else { did -u $dname 203 | did -b $dname 204 | did -ra $dname 204 %nick.away }
  if (%act.anun.nick) { did -c $dname 205 | did -e $dname 206 | did -ra $dname 206 %anuncio.away }
  else { did -u $dname 205 | did -b $dname 206 | did -ra $dname 206 %anuncio.away }
  if (%act.auto.resp) { did -c $dname 207 | .enable #autoresp }
  else { did -u $dname 207 | .disable #autoresp }

}
alias update.away { 
  if (%awayon)  { did -b $dname 101,201-207,300,301 | did -r $dname 101 | did -ve $dname 303 | did -bh $dname 302 }
  else { did -r $dname 101 | did -a $dname 101 No Estoy!. | did -a $dname 101 Vuelvo en un momento. | did -a $dname 101 Viendo tele. | did -a $dname 101 Ahora no puedo contestar. | did -ve $dname 302 | did -bh $dname 303 | did -e $dname 101,201,203,205,207,300,301 | info.away }
} 
#autoaway off
alias autoawaycheck { 
  if ($idle > %auto.away) {
    if ($away == $true) { halt }
    else {
      set %autoaway.on on
      set.away
    }
  }
}
#autoaway end 
#autoresp on

alias aa.msg {
  set %aa.me $me
  set %aa.word $me
  set %frase $3-
  if (%aa.me) { if ($me isin %frase) goto sendmsg | else halt }
  else { if (%aa.word isin %frase) goto sendmsg | else halt }
  :sendmsg
  .notice $nick ( Away: %razona )
}

on 1:TEXT:*:#: if ($away) aa.msg $chan $nick $strip($1-) 
on 1:ACTION:*:#: if ($away) aa.msg $chan $nick $strip($1-)
#autoresp end
; Dialogo principal
dialog awaysys {
  title "Away System"
  size -1 -1 138 75 
  option dbu
  box "Razon Away", 100, 1 1 136 22 
  combo 101, 3 9 132 10, drop edit sort

  ;
  box "Configuraciones", 200, 1 23 136 50
  check "Act. Autoaway      Mins:", 201, 5 30 65 10
  edit "", 202, 75 30 20 9, center
  check "Cambio de nick:", 203, 5 40 45 10
  edit "", 204, 55 40 40 9, center
  check "Anunciar away cada:", 205, 5 50 65 10
  edit "", 206, 75 50 20 9, center
  check "Auto Respuesta en Away", 207, 5 60 70 10

  ;
  button "Anuncio", 300, 96 30 40 10
  button "Mas config.", 301, 96 40 40 10
  button "Poner Away", 302, 96 50 40 10 
  button "Quitar Away", 303, 96 50 40 10, hide
  button "Cerrar", 304, 96 60 40 10, cancel
}

;Eventos dialogo
on *:dialog:awaysys:*:*:{ 
  if ($devent == init) { 
    if ($did = 0) { info.away | update.away | away.dur | .timerdiaawadur 0 1 away.dur }
  }
  ;
  if ($devent == sclick) { 
    if ($did = 201) { set %act.auto.away $did($dname,201).state | update.away | if (%act.auto.away != 0) { .timercheck.aaway 0 30 autoawaycheck } | else { .timercheck.aaway off } }
    if ($did = 203) { set %act.cam.nick  $did($dname,203).state | update.away }
    if ($did = 205) { set %act.anun.nick $did($dname,205).state | update.away }
    if ($did = 207) { set %act.auto.resp $did($dname,207).state | update.away } 
    if ($did = 300) {  }
    if ($did = 302) { set.away | update.away } 
    if ($did = 303) { set.back | update.away } 
  }
  ;
  if ($devent == edit) {
    if ($did = 202) { set %tiempo.aaway $did($dname,202) | set %auto.away $calc(%tiempo.aaway * 60) }
    if ($did = 204) { set %nick.away    $did($dname,204) }
    if ($did = 206) { set %anuncio.away $did($dname,206) }
  }
  if ($devent == close) { .timerdiaawadur off }

}