Stuff

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

}
alias back {
  amsg 7I 4am 7now 4back 7from 4¤7][4¤4 %away.reason 4¤7][4¤
  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 7Hello, 4I 7am 4away 7at 4the 7moment 4or 7I 4don't 7want 4to 7recieve 4pm's 7. 4But 7leave 4a 7message 4after 7the 4beep 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.8,4BEEP1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.
  }
}

on *:text:Batser:#: {
  if (%away == true) {
    notice $nick 7Hello, 4I 7am 4away 7at 4the 7moment, 4reason 4¤7][4¤ 4 %away.reason  4¤7][4¤
  }
}