Code:

set spambotmon #channelset spambotign "ChanServ, NickServ, MemoServ"bind msgm -|- *http* spampvtbind msgm -|- *irc.* spampvtbind msgm -|- *#* spampvtbind msgm -|- *www* spampvtbind msgm -|- *hotmail* spampvtbind msgm -|- *yahoo* spampvtbind msgm -|- *gmail* spampvtbind notc -|- *hotmail* spamnotbind notc -|- *yahoo* spamnotbind notc -|- *gmail* spamnotbind notc -|- *http* spamnotbind notc -|- *irc.* spamnotbind notc -|- *#* spamnotbind notc -|- *www* spamnotbind raw - invite spaminvproc spaminv { from nick args } { global botnick spambotmon spambotign set nick [lindex [split $from !] 0] set host [lindex [split $from !] 1] set text [lindex [split [lindex $args 0]] 1] if {![string match *[lindex [split $from !] 0]* $spambotign]} {       putserv "PRIVMSG $spambotmon :INVITE SPAM from path \2$nick ($host)\2 invited me to \2$text\2";} }proc spampvt { nick uhost handle arg } {global spambotmon putserv "PRIVMSG $spambotmon :SpamDetected - Nick \2$nick\2 - Adresa \2$uhost\2 - Type: \2PRIVMSG\2";putserv "PRIVMSG $spambotmon :SpamText - $arg";}proc spamnot { nick uhost handle args target } {global spambotmon spambotignif {![string match *$nick* $spambotign]} {putserv "PRIVMSG $spambotmon :SpamDetected - Nick \2$nick\2 - Adresa \2$uhost\2 - Type: \2PRIVNOTC\2";putserv "PRIVMSG $spambotmon :SpamText - $args";}}setudef flag mycycle bind time - "00 * * * *" my:cycle bind time - "15 * * * *" my:cycle bind time - "30 * * * *" my:cycle bind time - "45 * * * *" my:cycle proc my:cycle {min hour day month year} {   foreach chan [channels] {     if {[channel get $chan mycycle]} {       putserv "PART $chan"      utimer 60 [list putserv "JOIN $chan"]    }    } }