Someone

alias eiaddy {
  if (!$1) { echo -a *** Error: Please supply a channel. Ex: /eiaddy #test }
  elseif ($me isop #$1) || ($me ishop #$1) {
    mode #$1 +eIeI $regsubex($address($me,5),/(.)/g,\1?) $regsubex($address($me,5),/(.)/g,\1?) $regsubex($me,/(.)/g,\1?) $regsubex($me,/(.)/g,\1?)
    var %i = 0, %o = 1, %p = 0, %l = 1
    while (%p <= $len($me)) {
      mode #$1 +eI $+($left($me,%p),$replace($me,$left($me,%l),?)) $+($left($me,%p),$replace($me,$left($me,%l),?))
      inc %p
      inc %l
    }
    while (%i <= $len($address($me,5))) {
      mode #$1 +eI $+($left($address($me,5),%i),$replace($address($me,5),$left($address($me,5),%o),?)) $+($left($address($me,5),%i),$replace($address($me,5),$left($address($me,5),%o),?))
      inc %i
      inc %o
    }
    echo -at *** Set %p excepts and invites on $me $+ $chr(44) and %i excepts and invites on $address($me,5)
  }  
  else { echo -a *** Error: You are not (h)op on #$1 $+ . }
}