Something

#
### Change Rank Of User ###
#
proc chrank:proc {nick uhost hand chan text} {
#
global rank10 rank09 rank08 rank07 rank06 rank05 rank04 rank03 rank02 rank01 rank00
#
set arg [lindex [split $text] 0]
#
set newrank [lindex [split $text] 1]
#
  if {$arg == ""} {
#
putserv "PRIVMSG $chan : Syntax is: .chrank <handle> <newrank>"
#
return
#
}
#
switch -- $newrank {
#
  10 { set new "$rank10" }
#
  09 - 9 { set new "$rank09" }
#
  08 - 8 { set new "$rank08" }
#
  07 - 7 { set new "$rank07" }
#
  06 - 6 { set new "$rank06" }
#
  05 - 5 { set new "$rank05" }
#
  04 - 4 { set new "$rank04" }
#
  03 - 3 { set new "$rank03" }
#
  02 - 2 { set new "$rank02" }
#
  01 - 1 { set new "$rank01" }
#
  00 - 0 { set new "$rank00" }
#
  default { putserv "PRIVMSG $chan :$newrank didn't match any ranks !"; return }
#
 }
#
if {[validuser $arg]} {
#
  if {[matchattr $arg A|]} { foreach {g c} [split $rank10 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank }
#
  if {[matchattr $arg B|]} { foreach {g c} [split $rank09 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank }
#
  if {[matchattr $arg C|]} { foreach {g c} [split $rank08 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank }
#
  if {[matchattr $arg D|]} { foreach {g c} [split $rank07 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank }
#
  if {[matchattr $arg E|]} { foreach {g c} [split $rank06 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank }
#
  if {[matchattr $arg |A $chan]} { foreach {g c} [split $rank05 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank $chan }
#
  if {[matchattr $arg |B $chan]} { foreach {g c} [split $rank04 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank $chan }
#
  if {[matchattr $arg |C $chan]} { foreach {g c} [split $rank03 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank $chan }
#
  if {[matchattr $arg |D $chan]} { foreach {g c} [split $rank02 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank $chan }
#
  if {[matchattr $arg |E $chan]} { foreach {g c} [split $rank01 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank $chan }
#
  if {[matchattr $arg |F $chan]} { foreach {g c} [split $rank00 |] {set oldrank "-$g\|-$c"}; chattr $arg $oldrank $chan }
#
  chattr $arg $new
#
  putserv "PRIVMSG $chan :$arg\'s rank has been changed to $newrank"
#
} else {
#
putserv "PRIVMSG $chan :$arg is not a valid user."
#
 }
#
}