alias afk { 
  ame is away for reason: $1-
  qme is away for reason: $1-
  away $1- $asetime(hh:mm:ss)
  set %away.time $ctime
  set %away.reason $1-
}

alias back { 
  ame is back for reason: $1- time away $duration($calc( %away.time - $ctime ))
  qme is back for reason: $1- time away $duration($calc( %away.time - $ctime ))
  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( %away.time - $ctime )) 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( %away.time - $ctime )) 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( %away.time - $ctime )) 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-
  }
}