Code:

##### 23.08.03# Spam Detective v1.0 by MarlbMan# irc.newnet.net #complete-chat################ Detects on join/on part spam in one channel, and alerts in another channel.########### Credits: I got the idea from Torr/MC_8's Spam Check. I wanted a script that would#          join/part a channel at specified intervals, but instead of kicking/banning#          I wanted it to alert the ops in another channel. This is my 5th script, but#          the first I've made public. Critism is welcome. I will be releasing a few#          more very soon.########### Settings:###### Which channel shall we monitor for spam?set spamdet(monitor_chan) ""# Which channel shall we posts alerts in?set spamdet(alert_chan) "#[censored]-listas"# How many minutes shall we idle in channel?set spamdet(idle_time) "10"# How many seconds shall we stay gone?set spamdet(gone_time) "15"# Exempt by nick (seperate by ,)set spamdet(nexempt) "ChanServ, MarlbMan, nickserv, Dr-Fox"# Exempt by host (seperate by ,)set spamdet(hexempt) "cwbot@64.124.16.33"# CTCP Keys to ignore (should always include action to prevent actions being reported)set spamdet(kexempt) "ACTION"###### Code (If you edit below this line you will hemmorage uncontrollably from your rectum)#####set spamdet(ver) "1.0"if {![string match *spamdetect* [timers]]} {timer $spamdet(idle_time) spamdetect}proc spamdetect {} {global spamdet botnickforeach chan [split $spamdet(monitor_chan)] { channel set $chan +inactive utimer $spamdet(gone_time) [list channel set $chan -inactive]}if {![string match *spamdetect* [timers]]} {timer $spamdet(idle_time) spamdetect}}spamdetectproc EchoMESG { nick uhost handle args } {global spamdetif {![string match *$nick* $spamdet(nexempt)]} {if {![string match *$uhost* $spamdet(hexempt)]} {putserv "PRIVMSG $spamdet(alert_chan) :!ban $nick (autokilled: Reklama, Until Sun Oct 29 24:00:00 2010)"putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: MESG"putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $args"  } }}bind msgm -|- * EchoMESGputlog "Spam Detective v1.0 by MarlbMan loaded"

Code:

######## Opcijos ######### Nustatyti kanala (-us), kuriame (-uose) botas skus reklamerius# Jei nenorite kad botas neskustu i kanala (-us), tada tarp kabuciu# nepalikite tarpo - ""set stukas_k ""# Nustatyti nicka (-us), kuriam (-iems) botas skus reklamerius# Jei nenorite kad botas neskustu nikui (-ams), tada tarp kabuciu# nepalikite tarpo - "PoHuIsT"set stukas_n ""## Cia reikia irasyti i kokius simbolius bus reaguojama.## Pagal juos botas analizuos privacius pranesimus jam.set reakcija "# http www @ ateik kanalas agentas naujas gather kanaliukas sveikas mmm"## Kas kiek laiko daryti cycle (iseiti-iseiti) kanaluose? (minutemis)set cycle_time 10## Botas palieka kanalus su kokiu msgset part_msg "Scanning"###### Pagrindinis kodas ######bind pub * * copy_privatproc copy_privat {nick host handle chan arg} {global reakcija stukas_k stukas_n botnickset time [clock format [unixtime] -format " %Y-%m-%d %H:%M"]regsub -nocase "www" $text " www " textregsub -nocase "http" $text " http " textregsub -nocase ":" $text " : " textregsub -nocase "#" $text " # " textforeach ieskom $reakcija {if {[string match *$ieskom* $text]} {if {$stukas_k != -1} {foreach kanalai $stukas_k {newignore $nick\!*@* $botnick ignored. 1foreach kanalas [channels] {putserv "PRIVMSG chanserv :ban $kanalas $nick ! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host"}}}if {$stukas_n != -1} {foreach nikai_n $stukas_n {newignore $nick\!*@* $botnick ignored. 1putquick "PRIVMSG $nikai_n :! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host , Tekstas : $textas "}}}}return 1}bind MSGM - * copy_privatproc copy_privat {nick host handle text} {global reakcija stukas_k stukas_n botnickset time [clock format [unixtime] -format " %Y-%m-%d %H:%M"]regsub -nocase "www" $text " www " textregsub -nocase "http" $text " http " textregsub -nocase ":" $text " : " textregsub -nocase "#" $text " # " textforeach ieskom $reakcija {if {[string match *$ieskom* $text]} {if {$stukas_k != -1} {foreach kanalai $stukas_k {newignore $nick\!*@* $botnick ignored. 1foreach kanalas [channels] {putserv "PRIVMSG chanserv :ban $kanalas $nick ! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host"}}}if {$stukas_n != -1} {foreach nikai_n $stukas_n {newignore $nick\!*@* $botnick ignored. 1putquick "PRIVMSG $nikai_n :! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host , Tekstas : $textas "}}}}return 1}########## Party komanda ###if {![info exists part_chan]} {       timer $cycle_time part_chan                          set myproc_running 1                   }          proc part_chan {} {  global stukas_k part_msg cycle_time    foreach kanalas [channels] {  if {[string match *$kanalas* $stukas_k] != 1 }  {  puthelp "PART $kanalas Scanning #GTH"}}timer $cycle_time part_chanreturn 1}putlog "Antireklama.tcl loaded (by : gameuzz)"