alias afk {
ame is away for reason: $1-
qme is away for reason: $1-
away $1- $asctime(hh:mm:ss)
set %away.time $ctime
set %away.reason $1-
}
alias back {
ame is back for reason: $1- time away $duration($calc( $ctime - %away.time ))
qme is back for reason: $1- time away $duration($calc( $ctime - %away.time ))
away
unset %away.*
}
on *:TEXT:*:#: {
if (lisa isin $1-) {
if (%away.reason != $null) {
if (%away.chan. [ $+ [ $nick ] ] != $nick) {
notice $nick I am away for reason: %away.reason time away $duration($calc( $ctime - %away.time )) This is a one time message to highlight
set %away.chan. [ $+ [ $nick ] ] $nick
}
}
/window -eknz @Highlights
/echo -tl2 @Highlights 7 $+ **** [Message] $nick highlighted you on 3 $+ $chan $+ 12 ( 1 $network 12) **** 1 $1-
}
}
on *:TEXT:*:?: {
if (lisa isin $1-) {
if (%away.reason != $null) {
if (%away.pm. [ $+ [ $nick ] ] != $nick) {
notice $nick I am away for reason: %away.reason time away $duration($calc( $ctime - %away.time )) This is a one time message to pm
set %away.pm. [ $+ [ $nick ] ] $nick
}
}
/window -eknz @Highlights
/echo -tl2 @Highlights 7 $+ **** [Message] $nick highlighted you on 3PM 12 ( 1 $network 12) **** 1 $1-
}
}
on *:ACTION:*:*: {
if (lisa isin $1-) {
if (%away.reason != $null) {
if (%away.act. [ $+ [ $nick ] ] != $nick) {
describe $iif($chan,$chan,$nick) I am away I have been away for $duration($calc( $ctime - %away.time )) The reason I am away is %away.reason This is a one time action to an action highlight.
set %away.act. [ $+ [ $nick ] ] $nick
}
}
/window -eknz @Highlights
/echo -tl2 @Highlights 7 $+ **** [ACTION] $nick highlighted you on 3 $+ $iif(#,#,PM) $+ 12 ( 1 $network 12) **** 6 $1-
}
}