Bh

  menu Channel { 
    Away System
    .Away:/gaway $$?="Reason?"
    .Back:/eaway 
  }
  alias gaway { 
    set %away $1-
    /msg 7[14AWAY14] 7I A14m 7N14ow 7A14way! 7|14REASON7|14: %away.reason 7[14AWAY7] 
    /nick Key`Away
  }
  alias eaway {
    msg 7[14BACK7] 7I A14m 7B14ack7!!! %away.7r14eason 7W14as 7G14one 7F14or $duration($calc($ctime - %away.ctime)) 7[14BACK7]
    /nick Keyblade5
    /unset %away
  }