Unnamed

alias Away {
  set %tim $+ $nick $ctime
  set %away $$1-
  set %meaway yes
  Set %nick.highlight $me
  amsg  7(14`14Away7)  --  $$1-
}
 
alias Back {
  set %meaway no
  unset %highlight2 [ $+ [ * ] ] *
  amsg 7(14`14Back7)  -- I am now back from whatever I was doing.  I was gone for $duration($calc( $ctime - %tim [ $+ [ $nick ] ] ))
unset %tim $+ $nick }
 
on *:TEXT:*:# {
  if (%highlight2 [ $+ [ $Address($nick,2) ] ] != $null) {
    Halt
  }
  Elseif (%meaway == $true) && (%nick.Highlight isin $1-) {
    set %highlight2 [ $+ [ $address($nick,2) ] ] $nick
    Notice $nick 10I am away $+ $chr(44) I have been gone for $duration($calc($ctime - %tim [ $+ [ $nick ],1) $+ . (1 time response to highlight)
  }
  Else {
    Halt
  }
}