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) "#doc #triv"# Which channel shall we posts alerts in?set spamdet(alert_chan) "#ops"# How many minutes shall we idle in channel?set spamdet(idle_time) "3"# How many seconds shall we stay gone?set spamdet(gone_time) "60"# 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) :4ALERT! Possible Spam Detected From 3$nick"putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: MESG"putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $args"  } }}proc EchoNOTC { nick uhost handle args target } {global spamdetif {![string match *$nick* $spamdet(nexempt)]} {if {![string match *$uhost* $spamdet(hexempt)]} {putserv "PRIVMSG $spamdet(alert_chan) :4ALERT! Possible Spam Detected From 3$nick"putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: NOTC"putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $args"  } }}proc EchoCTCP { nick uhost handle target key args } {global spamdetif {![string match *$nick* $spamdet(nexempt)]} {if {![string match *$uhost* $spamdet(hexempt)]} {if {![string match *$key* $spamdet(kexempt)]} {putserv "PRIVMSG $spamdet(alert_chan) :4ALERT! Possible Spam Detected From 3$nick"putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: CTCP"putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $key $args"   }  } }}bind ctcp -|- * EchoCTCPbind notc -|- * EchoNOTCbind msgm -|- * EchoMESGputlog "Spam Detective v1.0 by MarlbMan loaded"

Code:

foreach chan [split $spamdet(monitor_chan)] { channel set $chan +inactive  utimer $spamdet(gone_time) [list channel set $chan -inactive]}

Code:

set spamdet(monitor_chan) "#chan1 #chan2 #chan3"

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) "#den"# Which channel shall we posts alerts in?set spamdet(alert_chan) "#ops"# How many minutes shall we idle in channel?set spamdet(idle_time) "1"# How many seconds shall we stay gone?set spamdet(gone_time) "20"# Exempt by nick (seperate by ,)set spamdet(nexempt) "ChanServ, MarlbMan, nicksev"# 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 botnickchannel set $spamdet(monitor_chan) +inactiveutimer $spamdet(gone_time) "channel set $spamdet(monitor_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) :4ALERT! Possible Spam Detected From 3$nick"putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: MESG"putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $args"  } }}proc EchoNOTC { nick uhost handle args target } {global spamdetif {![string match *$nick* $spamdet(nexempt)]} {if {![string match *$uhost* $spamdet(hexempt)]} {putserv "PRIVMSG $spamdet(alert_chan) :4ALERT! Possible Spam Detected From 3$nick"putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: NOTC"putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $args"  } }}proc EchoCTCP { nick uhost handle target key args } {global spamdetif {![string match *$nick* $spamdet(nexempt)]} {if {![string match *$uhost* $spamdet(hexempt)]} {if {![string match *$key* $spamdet(kexempt)]} {putserv "PRIVMSG $spamdet(alert_chan) :4ALERT! Possible Spam Detected From 3$nick"putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: CTCP"putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $key $args"   }  } }}bind ctcp -|- * EchoCTCPbind notc -|- * EchoNOTCbind msgm -|- * EchoMESGputlog "Spam Detective v1.0 by MarlbMan loaded"