Someone

alias gone {
  set %away.me $me
  set %away.newnick $iif($1 == -n,$2,$+($me,[,AWAY,]))
  set %away.reason $iif($1 == -n,$3-,$1-)
  set %away.ctime $ctime
  amsg [Away] Now away. Reason: %away.reason . Left: $time(dd/mm-HH:nn:ss)
  nick %away.newnick
  away %away.reason
}
alias back {
  amsg [Back] Now returning from: %away.reason . I was gone for: $duration($calc($time - %away.ctime))
  nick %away.me
  unset %away.*
  away
} 
alias pmblocker {
  if ($1 == on) {
    set %pmblocker on
  }
  elseif ($1 == off) {
    unset %pmblocker
  }
}

on *:text:*:?: {
  if (%pmblocker == on) {
    timer 1 1 msg $nick Hello, I'm away. I'll answer you when I will be back.
    halt
  }
}