Stuff

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 !" }
 }
}