bind dcc n "kicklast" dcc:kicklast
proc dcc:kicklast {hand idx arg} {
if {([llength [split $arg]] != 2) || (![validchan [lindex [split $arg] 1]]} {
putdcc $idx "Usage: .kicklast <mins> <chan>"
}
set i [lindex [split $arg] 0]
set t 0
while {$i != 0} {
incr t 60
incr i -1
}
foreach a [chanlist [lindex [split $arg] 1]] {
if {[getchanjoin $a [lindex [split $arg] 1]] <= $t} {
puthelp "KICK [lindex [split $arg] 1] $a :I felt like it"
}
}
}