### 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."
 }
}