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