Someone

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 :Hop Hop Hop"
        } 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"} {
            channel add $t
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }        
    } else {
        putserv "PRIVMSG $c :[lindex $randresponce [rand [llength $randresponce]]]"
    }
}