Untitled

alias afk { 
  set %ltime $asctime 
  set %lnick $me 
  set %bnick $1 
  set %lrsn $2- 
  set %away on  
  .nick %bnick 
  amsg away »» 1,13 reason:3 %lrsn $+ 14. left at:3 %ltime $+ 14. 
  .away »»  reason:3 %lrsn $+ 14. left at:3 %ltime $+ 14. 
} 
alias back { 
  amsg back »» from:3 %lrsn $+ 14.gone for:3 $duration($calc(($ctime - $ctime(%ltime)))) $+ 14. 
  set %away off  
  remove away.txt  
  nick %lnick 
  away 
} 
on $*:TEXT:/(nick|nick|nick)/Si:#:{ 
  if (%away == on) {  
    if ($nick == $read(away.txt,w,$nick)) { halt } 
    write away.txt $nick    
    notice $nick away »» reason: %lrsn $+ 14. left at:3 %ltime $+ 14. 3I14f important:3 /ms send %lnick msg. 
  } 
}