Anonymous

on $*:TEXT:/^[!@](Stat|Status|Busy)/Si:#:{ 
if ($address($nick,4) == $address($me,4)) { set %away $2-  | set %a yes | notice $nick Status is now set to: < $+ %away $+ > $+ . } }
on $*:TEXT:/^(Pete|Tom|[FA]Tom|Diegoed)/Si:#:{ if (%a = yes) | notice $nick Tom is currently < $+ %away $+ > $+ . }