# Load this TCL to your @/OPd Channel Bot.
 
# You need to add a custom flag to recognise the deop/relay bot.
# Firstly, add the bot to your @/OPd bot - dcc/ctcp/partyline - .+user relay *!*bots@host.mask
# Secondly, you need to add the flag - .chattr relay -|A #channel <- this will then allow the bot access to the below command.
 
bind msg - spam spam:ban
proc spam:ban {nick uhost hand arg} {
  set bchan [strlwr [lindex [split $arg] 0]]
  if {![botisop $bchan]} {return}
  if {[matchattr $hand -|A $bchan]} {
    set spamnick [join [lindex [split $arg] 1]]
    set bmask *!*@[lindex [split [getchanhost $spamnick $bchan] @] 1]
    set breason "Spamming/Advertising in a channel you \002DONT\002 have access to is against this Networks AUP (\002\037A\037\002cceptable \002\037U\037\002se \002\037P\037\002olicy)"
    set bnotice "For more information about the \037DALNet AUP\037 (\002\037A\037\002cceptable \002\037U\037\002se \002\037P\037\002olicy) please visit: http://www.dal.net/aup/"
    putquick "MODE $bchan +b $bmask"
    putquick "KICK $bchan $spamnick :$breason"
    putserv "PRIVMSG $spamnick :$bnotice"
  }
}
 
putlog "LOADED: OP Relay - .:Spam:Checker:."
 
 
# -----------BREAK--------------
 
 
# Load this TCL to your deOPd channel bot.
 
# Spam List: Edit this with whatever strings you want to match/ban.
set spamwords {  
  "*http://*" 
  "*www.*"
  "*.com*"
  "*.net*"
  "*.org*"
  "*.biz*"
  "*.info*"
  "*.name*"
  "*decode*"
  "*#*"
  "*irc.*"
}
 
# Public Trigger (feel free to change to whatever you like).
set pubtrig "!"
 
# Cycle Time: measured in minutes.
set cycletime "5"
 
# Obviously the nickname of the @/OPd bot.
set oppedbot "opbotnick"
 
setudef flag spamcheck
setudef flag docycle
 
bind pub - ${pubtrig}spamcheck spam:pub
bind msg - spamcheck spam:msg
bind pub - ${pubtrig}chancycle cycle:pub
bind msg - chancycle cycle:msg
 
 
# Trigger set to !
# Public Command
# Syntax: !spamcheck on/off
proc spam:pub {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o|m $chan]} {
    if {[lindex [split $text] 0] == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: !spamcheck on/off"; return}
 
    if {[lindex [split $text] 0] == "on"} {
      if {[channel get $chan spamcheck]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already enabled."; return}
      channel set $chan +spamcheck
      puthelp "PRIVMSG $chan :Enabled Relay Spam Protection for $chan"
    }
 
    if {[lindex [split $text] 0] == "off"} {
      if {![channel get $chan spamcheck]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already disabled."; return}
      channel set $chan -spamcheck
      puthelp "PRIVMSG $chan :Disabled Relay Spam Protection for $chan"
    }
  }
}
 
# Private Command
# Syntax: /msg botnick spamcheck #channelname on/off
proc spam:msg {nick uhost hand arg} {
  global botnick
  set chan [strlwr [lindex [split $arg] 0]]
  if {[matchattr $hand o|m $chan]} {
    if {[lindex [split $arg] 0] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick spamcheck #channel on/off"; return}
    if {[lindex [split $arg] 1] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick spamcheck $chan on/off"; return}
 
    if {[lindex [split $arg] 1] == "on"} {
      if {[channel get $chan spamcheck]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already enabled."; return}
      channel set $chan +spamcheck
      putquick "NOTICE $nick :Enabled Relay Spam Protection for $chan"
    }
 
    if {[lindex [split $arg] 1] == "off"} {
      if {![channel get $chan spamcheck]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already disabled."; return}
      channel set $chan -spamcheck
      putquick "NOTICE $nick :Disabled Relay Spam Protection for $chan"
    }
  }
}
 
# Trigger set to !
# Public Command
# Syntax: !chancycle on/off
proc cycle:pub {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o|m $chan]} {
    if {[lindex [split $text] 0] == ""} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: !chancycle on/off"; return}
 
    if {[lindex [split $text] 0] == "on"} {
      if {[channel get $chan docycle]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already enabled."; return}
      channel set $chan +docycle
      puthelp "PRIVMSG $chan :Enabled Channel Cycle for $chan"
    }
 
    if {[lindex [split $text] 0] == "off"} {
      if {![channel get $chan docycle]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already disabled."; return}
      channel set $chan -docycle
      puthelp "PRIVMSG $chan :Disabled Channel Cycle for $chan"
    }
  }
}
 
# Private Command
# Syntax: /msg botnick chancycle #channelname on/off
proc cycle:msg {nick uhost hand arg} {
  global botnick
  set chan [strlwr [lindex $arg 0]]
  if {[matchattr $hand o|m $chan]} {
    if {[lindex [split $arg] 0] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick chancycle #channel on/off"; return}
    if {[lindex [split $arg] 1] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick chancycle $chan on/off"; return}
 
    if {[lindex [split $arg] 1] == "on"} {
      if {[channel get $chan docycle]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already enabled."; return}
      channel set $chan +docycle
      putquick "NOTICE $nick :Enabled Channel Cycle for $chan"
    }
 
    if {[lindex [split $arg] 1] == "off"} {
      if {![channel get $chan docycle]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already disabled."; return}
      channel set $chan -docycle
      putquick "NOTICE $nick :Disabled Channel Cycle for $chan"
    }
  }
}
 
timer $cycletime cycle
proc cycle {} {
  global cycletime
  foreach c [channels] {
    if {[channel get $c docycle]} {
      putserv "PART $c"; timer $cycletime cycle
    }
  }
}
 
bind pubm - * pub:spam:check
proc pub:spam:check {nick uhost hand chan text} {
  global spamwords oppedbot
  if {[channel get $chan spamcheck]} {
    foreach pattern $spamwords {
      if {[string match -nocase $pattern $text]} {
        if {(![validuser $hand]) && (![isop $nick $chan]) && (![isvoice $nick $chan])} {
          putquick "PRIVMSG $oppedbot :spam $chan $nick"
        }
      }
    }
  }
  return 0
}
 
bind msgm - * msg:spam:check
proc msg:spam:check {nick uhost hand text} { 
  global spamwords oppedbot
  foreach nospamchan [channels] {
    if {[channel get $nospamchan spamcheck]} {
      if {![isbotnick $nick]} { 
        if {([onchan $nick $nospamchan]) && (![validuser $hand]) && (![isop $nick $nospamchan]) && (![isvoice $nick $nospamchan])} {
          foreach pattern $spamwords {
            if {[string match -nocase $pattern $text]} {
              putquick "PRIVMSG $oppedbot :spam $nospamchan $nick" 
            }
          }
        }
      }
    } 
  } 
  return 0
}
 
bind CTCP - ACTION spam:check
proc spam:check {nick uhost hand dest key text} {
  global spamwords oppedbot 
  foreach nospamchan [channels] {
    if {[channel get $nospamchan spamcheck]} {
      if {![isbotnick $nick]} {
        if {![validuser $hand]} {
          if {([onchan $nick $nospamchan]) && (![isop $nick $nospamchan]) && (![isvoice $nick $nospamchan])} {
            foreach pattern $spamwords {
              if {[string match -nocase $pattern $text]} { 
                putquick "PRIVMSG $oppedbot :spam $nospamchan $nick"
              }
            }
          }
        }
      } 
    } 
  }
  return 0
}
 
putlog "LOADED: DeOP Relay - .:Spam:Checker:."

Commenting Options