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