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
}
}