Code:
proc join:greet {nick uhost hand chan} {
global agrflood
if {[channel get $chan greet] && [botisop $chan] && ![info exists agrflood($nick,$chan)] && ![info exists agrflood($chan)]} {
set greet [::stats::channel -get $chan greet]
putserv "NOTICE $nick :[subst [greetarse $greet]]"
set agrflood($nick,$chan) 1
set agrflood($chan) 1
utimer 10 [unset agrflood($nick,$chan)]
utimer 5 [unset agrflood($chan)]
}
}
a little update, added antiflood protection