on *:TEXT:away*:#:{
if ($nick isop $chan)
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 [4 Back 14] From: [4 %away 14]  }