aways

Alias bye {
  set %ltime $asctime
  set %lnick $me
  set %bnick $1
  set %lrsn $2-
  set %away on  
  .nick %bnick
  amsg 4[» 10I am now away 4Reason: %lrsn  10Left at: %ltime 4«]
  .away Away  10Reason: %lrsn  4Left at: %ltime 
}

Alias back {
  amsg  4[» 10I am now back 4From: %lrsn 4 10Time gone: $duration($calc(($ctime - $ctime(%ltime)))) 4«]
  set %away off  
  remove away.txt  
  nick %lnick
  away
}

on $*:TEXT:/(Thuger50|Thuger|Basit|Thug)/Si:#:{
  if (%away == on) {  
    if ($nick == $read(away.txt,w,$nick)) { halt }
    write away.txt $nick   
    notice $nick  10AWAY 4Reason: %lrsn  10Left at: %ltime  If important /ms send %lnick msg
  }
}