Unnamed

alias gone {
  set %away.reason $iif($1 == -n,$3-,$1-)
  set %away.ctime $ctime
  amsg 7I 4am 7now 4away 7reason 4¤7][4¤ %away.reason 4¤7][4¤ 4Left 7at 4¤7][4¤ $time(dd/mm-HH:nn:ss)
  4¤7][4¤  

}
alias back {
  amsg 7I 4am 7now 4back 7from 4¤7][4¤ %away.reason 4¤7][4¤ 4Left 7at 4¤7][4¤ $duration($calc($time - %away.ctime))
  4¤7][4¤ 
  unset %away.*
  away
} 
alias pmblocker {
  if ($1 == on) {
    set %pmblocker on
  }
  elseif ($1 == off) {
    unset %pmblocker
  }
}

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