Alias away {  
  if ($chan == #idle) { halt } 
  set %ltime $asctime
  set %lnick $me
  set %bnick $1
  set %lrsn $2-
  set %away on  
  .nick %bnick
  amsg 7:: 14I am now away 7:: 14Reason: %lrsn 7:: 14Left at: %ltime 7::
  .away Away 7:: 14Reason: %lrsn 7:: 14Left at: %ltime 7::
}

Alias back {
  if ($chan == #idle) { halt }
  amsg 7:: 14I am now back 7:: 14From: %lrsn 7:: 14Time gone: $duration($calc(($ctime - $ctime(%ltime)))) 7::
  set %away off  
  remove away.txt  
  nick %lnick
  away
}

on $*:TEXT:/(James|Kenny_8642|Kenny)/Si:#:{
if ($chan == #idle) { halt }
  if (%away == on) {  
    if ($nick == $read(away.txt,w,$nick)) { halt }
    write away.txt $nick   
    notice $nick 7:: 14AWAY 7:: 14Reason: %lrsn 7:: 14Left at: %ltime 7:: 14One time response to "James" "Kenny_8642" "Kenny" (If important /ms send %lnick msg)
  }
}