Code:
alias addall {
  var %^ = $nick($1,0)
  while (%^) {
    if !$istok($did(addall,6),$nick($1,%^),44) && ($nick($1,%^) != $me) { access $1 add $2 $v1 }
    dec %^
  }
}