Something

alias gone {
  set %away.reason $iif($1 == -n,$3-,$1-)
  set %away.ctime $ctime
  away %away.reason
  var %x = $chan(0)
  while (%x) {
    if ($chan(%x) != #IRChelp && $chan(%x) != #support && $chan(%x) != #mirc && $chan(%x) != #IdleRPG && $chan(%x) != #swiftirc && $chan(%x) != #msl) { msg $chan(%x) 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¤  } 
    dec %x
  }
}


}
alias back {
var %x = $chan(0)
while (%x) {
  if ($chan(%x) != #IRChelp && $chan(%x) != #support && $chan(%x) != #mirc && $chan(%x) != #IdleRPG && $chan(%x) != #swiftirc && $chan(%x) != #msl) { msg $chan(%x) amsg 7I 4am 7now 4back 7from 4¤7][4¤4 %away.reason 4¤7][4¤4¤7][4¤ } 
  dec %x
  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¤
  }
}