beepall {
  var %x = 1 , %y = 1
  while ($nick($1,%x)) {
    var %nickbeep = %nickbeep $+(10,•,) $+($iif($v1 isop $1,$+(12,@,),$iif($v1 isvoice $1,$+(4,+,))),$v1)
    var %clr = $+(10,•,)
    if ($len(%nickbeep) >= 350) { .timer 1 $calc(%y * 2) msg $1 7(14BeeP07) %nickbeep | unset %nickbeep | inc %y }
    inc %x
  }
  if (%nickbeep) .timer 1 $calc(%y * 2) msg $1 7(14BeeP07) %nickbeep
}