Code:
on *:CONNECT:{
  var %i = 1
  while $var(%operline.server.*,%i) {
    if $eval($ifmatch,2) == $server {
      var %a = $gettok($var(%operline.server.*,%i),3,46)
      oper $eval($+(%,operline.handel.,%a),2) $decode($eval($+(%,operline.password.,%a),2))
      break
    }
    inc %i
  }
}