/away {
  ..nick `Kira[Away
  /amsg 15,1[4,1»15,1 I am now:4,1Away15,1. Reason for leaving:4,1 $?="Enter away message:" «15,1]
  ..set %var $ctime
}
/Back {
  ..nick Kira-Kun
  /amsg  15,1[4,1»15,1 I am now 4,1Back15,1. Reason for leaving:4,1 Dinner15,1. Time Gone:4,1 $duration($calc($ctime - %var)) «15,1]

I dont know how to get the reason for leaving to copy over any ideas?