Its An Away System ...

menu * {
  Away System
  .Set
  ..Away Nick: { set %awaynik $input(Enter Your Most Used Away Nick,e,Away System By Rory) }
  .Go
  ..With Nick %awaynik: {
    set %awaymsg $input(Why Are You Leaving ?,e,Away System By Rory)
    away %awaymsg
    set %anik $me
    nick %awaynik
    amsg I Am Leaving Reason : %awaymsg  
    away %awaymsg :Left At: $time
  }
  ..Other: {
    set %awaymsg $input(Why Are You Leaving ?,e,Away System By Rory)
    away %awaymsg
    set %anik $me
    nick $input(Enter Your Away Nick,e,Away System By Rory)
    amsg I Am Leaving Reason : %awaymsg  
    away %awaymsg :Left At: $time
  }
  .Return: {
    nick %anik
    amsg Me Is Back From %awaymsg
    unset %awaymsg
    away
  }
}