yeah here you go
alias away.set { set %afktag $$?=\"Away Tag?\" }
alias away {
set %no.ame
if (%afktag == $null) {
set %afktag $$?=\"Away Tag?\"
}
if (%idle == 0) || (%idle == $null) {
if (!$away) {
set %nnick $me
set %bla 1
set %reason. [ $+ [ $server ] ] $$?=\"Reason?\"
.away %reason. [ $+ [ $server ] ]
set %x $chan(0)
while (%x) {
if ($istok(%no.ame,$chan(%x),44) == $false) {
describe $chan(%x) is Away: %reason. [ $+ [ $server ] ]
}
dec %x
}
}
else {
.remove away.ini
.away
set %bla 0
set %x $chan(0)
while (%x) {
if ($istok(%no.ame,$chan(%x),44) == $false) {
describe $chan(%x) was away for: $duration($awaytime), $me is back from: %reason. [ $+ [ $server ] ]
}
dec %x
}
}
}
else { away %reason. [ $+ [ $server ] ] }
}
alias idle {
if (!$away) {
set %idle 1
set %nnick $me
set %reason. [ $+ [ $server ] ] Auto-Away after 30 mins idle
away %reason
set %x $chan(0)
while (%x) {
if ($istok(%no.ame,$chan(%x),44) == $false) {
describe $chan(%x) is Away: %reason. [ $+ [ $server ] ]
}
dec %x
}
set %idle 0
}
}
ON *:INPUT:*: { .timeridle off | .timeridle 1 1800 { idle } }
This is a advanced away system...