;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                         ;
;       Away System       ;
;        By Dj 801        ;
;                         ;
;   irc.wubnet.org:6667   ;
;        #dj801           ;
;                         ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;
dialog away {
  title "Away System"
  size -1 -1 120 76
  option dbu
  box "Away Nick", 1, 1 1 57 34
  edit "", 2, 4 12 50 9, autohs
  button "Set as Away Nick", 3, 5 23 50 9, flat
  box "Back Nick", 4, 62 1 57 34
  edit "", 5, 65 12 50 9
  button "Set as Back Nick", 6, 65 23 50 9, flat
  box "Reason", 7, 1 36 118 21
  edit "", 8, 4 45 111 9, autohs
  button "Away", 9, 2 58 55 17, flat
  button "Back", 10, 64 58 55 17, flat
}
Menu * {
  Away System:/awayscript
}
alias awayscript { 
  dialog -md away away 
}
alias back {
  set %areason $did(8).text
  ame Is now Away - Reason $chr(2) $+ %areason
  nick %anick 
}
on *:DIALOG:away:sclick:*:{
  if ($did == 3) { 
    set %anick $did(2).text 
  }
  if ($did == 6) { 
    set %bnick $did(5).text 
  }
  if ($did == 9) { 
    set %away yes
    set %areason $did(8).text
    /ame Is now Away - Reason $chr(2) $+ %areason 
    /nick %anick 
  }
  if ($did == 10) { 
    set %away no
    /nick %bnick
    /ame Is now Back - Reason $chr(2) $+ %areason
    unset %areason
  }
}
on *:DIALOG:away:init:0:{
  did -a $dname 2 %anick
  did -a $dname 5 %bnick
}
on *:NOTICE:*:?:{
  if (%away == yes) {
    .notice $nick Sorry $nick $+ , I am Away
  }
}
on *:TEXT:*:?: {
  if (%away == yes) {
    msg $nick Sorry $nick $+ , I am Away
  }
}

Commenting Options