Someone

bind join -|- *!*@* mc:join

proc mc:join {nick uhost hand chan} {
global antirepeat
if {$antirepeat == "0"} {
  utimer 15 mc_msgonjoin
  set antirepeat 1
}
}

proc mc_msgonjoin {} {
global antirepeat

 putlog "$antirepeat"
 putlog "testing"

utimer 30 [set antirepeat 0]
}