Anonymous

bind pub -|- .rank rank:proc
bind pub n|n .new new:user
bind pub n|n .del del:user
bind pub n|n .chrank chrank:proc

### Settings ###
set owner "aefghjmnoptxA|-"
set master "afghjmoptxB|-"
set admin "afghopC|-"
set op "afghoD|-"
set voice "fghE|-"
set chanmaster "-|fmovF"
set chanop "-|fovG"
set chanvoice "-|fvH"
set new "fhI|-"

### Delete User ###
proc del:user {nick uhost hand chan arg} {
global rank10 rank09 rank08 rank07 rank06 rank05 rank04 rank03 rank02 rank01 rank00
        if {[validuser $arg]} {
deluser $arg
putserv "PRIVMSG $chan : User Deleted!"
} else {
putserv "PRIVMSG $chan : User not found!"
 }
}

### Create User ###
proc new:user {nick uhost hand chan text} {
global owner master admin op voice chanmaster chanop chanvoice new
 set arg [lindex [split $text] 0]
 set rank [lindex [split $text] 1]
 set uchan [lindex [split $text] 2]

if {$arg == ""} {
  putserv "PRIVMSG $chan : Syntax is: .new <handle> \[<rank>\] \[channel>\]"
 return
} else {
  adduser $arg
  putserv "PRIVMSG $chan : Added user $arg"
}

switch -- $rank {
owner { chattr $arg +$owner; putserv "PRIVMSG $chan :$arg\'s rank is \002<Owner>" }
master { chattr $arg +$master; putserv "PRIVMSG $chan :$arg\'s rank is \002<Master>" }
admin { chattr $arg +$admin; putserv "PRIVMSG $chan :$arg\'s rank is \002<Admin>" }
op { chattr $arg +$op; putserv "PRIVMSG $chan :$arg\'s rank is \002<Op>" }
voice { chattr $arg +$voice; putserv "PRIVMSG $chan :$arg\'s rank is \002<Voice>" }
chanmaster { chattr $arg +$chanmaster $uchan; putserv "PRIVMSG $chan :$arg\'s rank is \002<Chanmaster of $uchan>" }
chanop { chattr $arg +$chanop $uchan; putserv "PRIVMSG $chan :$arg\'s rank is \002<ChanOp on $uchan>" }
chanvoice { chattr $arg +$chanvoice $uchan; putserv "PRIVMSG $chan :$arg\'s rank is \002<ChanVoice on $uchan>" }
default { chattr $arg +$new; putserv "PRIVMSG $chan :$arg\'s rank is \002<Freind>" }
}

if {$uchan == ""} {
return
}
}

### Change Rank ###
proc chrank:proc {nick uhost hand chan text} {
putserv "PRIVMSG $chan : Still to come!!! "
}

### Rank Commands ###
proc rank:proc {nick uhost hand chan text} {
putserv "PRIVMSG $chan : Still to come!!! "
}