alias afk { 
  /scon -at1 /ame is away for reason: $1-
  /scon -at1 /qme is away for reason: $1-
  /scon -at1 /away $1- $time
  set %away.time $ctime
  set %away.reason $1-
}

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