p4l / try these two

proc match:rank { hand chan } {
global owner master admin op voice chanmaster chanop chanvoice new

  if { [ matchattr $hand $owner ] } { return "aefghjmnoptxA|-" }
  if { [ matchattr $hand $master ] } { return "afghjmoptxB|-" }
  if { [ matchattr $hand $admin ] } { return "afghopC|-" }
  if { [ matchattr $hand $op ] } { return "afghoD|-" }
  if { [ matchattr $hand $voice ] } { return "fghE|-" }
  if { [ matchattr $hand $chanmaster $chan ] } { return "-|fmovF $chan" }
  if { [ matchattr $hand $chanop $chan ] } { return "-|fovG $chan" }
  if { [ matchattr $hand $chanvoice $chan ] } { return "-|fvH $chan" }
  if { [ matchattr $hand $new ] } { return "fhI|-" }

  return "error!"

}

### Change Rank ###
proc chrank:proc {nick uhost hand chan text} {
global owner master admin op voice chanmaster chanop chanvoice new

  set arg   [ lindex $text 0 ]
  set rank  [ lindex $text 1 ]
  set uchan [ lindex $text 2 ]

  if { $arg == "" || $rank == "" } {
    putserv "PRIVMSG $chan :Syntax is\: .chrank <handle> <rank>"
    return
  } else {
    set oldrank [ match:rank $arg $uchan ]
    chattr $arg -$oldrank
    chattr $arg +$rank
    putserv "PRIVMSG $chan :$arg\'s rank has been changed to $rank"
  }
}