dialog  AwaySystem { 
  Title "Away System" 
  size 150 130 110 120 
  option dbu 
  button "set away reason",1, 28 20 45 15 
  button "display Back",2, 29 40 43 15
  check "nick notifier",4, 27 60 43 15 
  text "Away System v1.0 with nick noifier-made by Spencer helped by pwnisher3",3, 2 90 98 30 
}
on *:DIALOG:awaysystem:sclick:1:{
  set %Areason $$?="Enter Away Reason" | .scon -at1 gone | set %awaytime $ctime 
}  
on *:DIALOG:awaysystem:sclick:2:{ 
  .scon -at1 here | unset set %awaytime $ctime
} 
alias gone { 
  set %nick $me 
  set %nnotify on
  amsg 4,1(is now Away7,1) 4,1(Reason: %AReason i left at $time $time(tt)
  nick %nick $+ [Away] 
  away %AReason 
} 
alias here { 
  amsg 4,1(I am now Back From: %AReason 7,1) 4,1(I was away for $duration($calc($ctime - %awaytime)) 7,1) 
  nick %nick 
  set %nnotify off
  away
 
} 
menu * { 
  Awaysystem:/AS 
}
alias AS { 
  dialog -m Awaysystem Awaysystem 
}
on *:TEXT:*:*:{
  if (%nnotify == on)
if ($1- == $me) { notice $me $nick has said you name on $network # $nick has said  $1- $+ . 5,1at $time  
}
  }

Commenting Options