Something

proc new:user {nick uhost hand chan text} {
set arg [lindex [split $text] 0];
set rank [lindex [split $text] 1]
switch -- $arg "" {
putserv "PRIVMSG $chan : Syntax is: .new <handle> <rank>"
} default {
adduser $arg
}
switch -- $rank {
A - 10 { chattr $arg +A }
B - 09 { chattr $arg +B }
C - 08 { chattr $arg +C }
D - 07 { chattr $arg +D }
E - 06 { chattr $arg +E }
} default {
putserv "PRIVMSG $chan :Input didn't match any ranks !"
}
}