Something

bind pub - $botnick admin:sort

proc formatize { text } { return "\002\00314\[\002$text\002\]\003\002" }
proc admincheck { handle } {
    if {![matchattr $handle m|m]} {
        return "no"
    } else {
        return "yes"
    }
}
proc axxdenied { n } {
    return "[formatize "$n"] Access Denied"
}

set randresponce {
    "What?"
    "Huh?"
    "What do you want?"
    "Arrrrghh"
    "Stop calling my name!"
    "What you talkin' about Willis?"
    "I am Reptar hear me rawrr!"
    "Rawwrrr"
    "Again Again!"
    "I'l Be Back"
    "Astalavista, Baby"
    "When it all gets to much, fukitol"
}

proc admin:sort { n u h c t } {
    global randresponce
    
    set arg [lindex $t 1]
    set t [lindex $t 0]
    if {$t == "rehash"} {
        if {[admincheck $h] == "yes"} {
            rehash
            putserv "PRIVMSG $c :[formatize "$n"] Rehash Complete"
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }
    } elseif {$t == "restart"} {
        if {[admincheck $h] == "yes"} {
            putserv "PRIVMSG $c :[formatize "$n"] Restarting..."
            utimer 2 "restart"
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }
    } elseif {$t == "hop"} {
        if {[admincheck $h] == "yes"} {
            putserv "PRIVMSG $c :[formatize "$n"] Hopping Channel"
            putserv "PART $c :Cya again soon!"
        } else {
            putserv "PRIVMSG $c :[axxdenied $n]"
        }
    } elseif {$t == "die"} {
        if {[admincheck $h] == "yes"} {
            die "Connection Rest by $n"
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }
    } elseif {$t == "join"} {
        if {[admincheck $h] == "yes"} {
		    putserv "PRIVMSG $c :[formatize "$n"] Now joining channel $arg"
            channel add $arg
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }
    } elseif {$t == "part"} {
	if {[admincheck $h] == "yes"} { 
		   if {$arg == $c} { 
		      putserv "PRIVMSG $c :[formatize "$n"] Parting"
		      channel remove $arg
		    } else {
                       channel remove $arg
                       putserv "PRIVMSG $c :[formatize "$n"] Parted $arg"
                    }
        }
    } else {
        putserv "PRIVMSG $c :[lindex $randresponce [rand [llength $randresponce]]]"
    }
}