Mine

bind pub o .kika pub:&kick

proc formatize { text } { return "\002\00314\[\002$text\002\]\003\002" }
proc admincheck { hand } {
if {![matchattr $hand m|m]} {
	return "no"
	} else {
	return "yes"
	}
}

proc pub:&kick { nick uhost hand channel arg } {
if {[admincheck $hand] == "yes"} {
set kicknick [lindex $arg 0]
set reason [lrange $arg 1 end]
putserv "KICK $channel $kicknick :$reason"
} else {
	putserv "NOTICE $nick :[formatize "$nick"] Access Denied"
	}
}