Something

alias away { 
  if ($readini(scriptini.ini, n, away, power) == off) { 
    writeini -n scriptini.ini away power on 
    writeini -n scriptini.ini away time $ctime 
    writeini -n scriptini.ini away reason $iif($1-,$1-,None.) 
    writeini -n scriptini.ini away idle no 
    amsg 14[2 Away 14] 1-14 Reason: $iif($1-,$1-,None.) $(|) 14Time: $asctime(hh:nntt) EST 
    nick $me $+ |Afk
  } 
  elseif ($readini(scriptini.ini, n, away, power) == on) { 
    back 
  } 
}

alias back { 
  if ($readini(scriptini.ini, n, away, power) == on) { 
    writeini -n scriptini.ini away power off 
    writeini -n scriptini.ini away nicks X 
    var %reason = $readini(scriptini.ini, n, away, reason) 
    var %timegone = $duration($calc($ctime - $readini(scriptini.ini, n, away, time))) 
    amsg 14[2 Back 14] 1-14 From: %reason $(|) 14Left At: $asctime($readini(scriptini.ini, n, away, time),hh:nn:ss TT) CST $(|) 14Time Gone: %timegone 
    nick $regsubex($me,/^(.*)\|Away/,\1)
  }
}

on $*:text:/Dmack|Kenny/Si:#:{ 
  if ($readini(scriptini.ini, n, away, power) == on) && ($nick !isin $readini(scriptini.ini, n, away, nicks)) { 
    var %x = $readini(scriptini.ini, n, away, nicks) 
    writeini -n scriptini.ini away nicks %x $nick 
    var %timegone = $duration($calc($ctime - $readini(scriptini.ini, n, away, time))) 
    .notice $nick I am away. - $readini(scriptini.ini, n, away, reason) - I've been away for %timegone $+ . One time response to highlight. 
  } 
}