on *:TEXT:away*:#:{
  if ($nick == Hate)
  set %away $2- 

{ amsg 14[4 $nick 14] is now [4 Away 14] Reason: [4 $2- 14]  } }

on *:TEXT:back*:#:{ amsg 14[4 $nick 14] is now [4 Back 14] from [4 %away 14]  }  }