Exie control

on *:Text:*:#: {
  if ($address($nick,2) == %newahost) || ($address($nick,2) == %newhost) {
    if ($1 == .add) || ($1 == .del) || ($1 == .list) {
      chanserv access $chan $remove($1,.) $2-
    }
    if ($1 == .add) && ($$3 isnum) {
      $iif($3 > 2,    mode $chan $iif($3 == 3,+v-hao)  $iif($3 == 4,+h-vao) $iif($3 isnum 5-9,+o-ahv) $iif($3 > 9,+oa-hv) $str($2 $+ $chr(32),5))
    }
    if ($left($1,1) == +) || ($left($1,1) == -) {
      var %a $regex($remove($1,-,+),/./g)
      $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2) $str($2 $chr(32),%a))
    }
  }
}

2nd script use /up

alias up {
  set %newhost $address(Mr_exie,2)
  set %newahost $address([ds]vlad,2)
}