alias away { 
  set %reason $$?="Enter away message?" 
  set %time $time 
  set %originalnick $me 
  set %away yes 
  nick %originalnick $+ |Away 
  ame is now away %reason Left on %time ! 
  away %reason 
} 
alias back { 
  ame is now back from " %reason " I left at %time . I have been away for $duration($awaytime) 
  nick %originalnick 
  unset %away 
  unset %reason 
  unset %time 
  unset %ident.pass 
} 
on *:TEXT:*:#: { 
  if (%away == yes) && (%originalnick isin $1-) { 
    notice $nick sorry $nick but I am not available at the moment as I am away.( Reason %reason ) 
  } 
} 
on ^*:open:?:*:  { 
  if (%away == yes) { 
    .msg $nick sorry $nick but I am away at the moment.(Reason %reason ) I will reply as soon as i am back 
  } 
} 
Menu * { 
  Away System: 
  .. $iif(%away,$style(2)) Away: away 
  ..  $iif(!%away,$style(2)) Back: Back 
} 
on *:input:*:{ 
  if %away == yes { 
    back 
  } 
}