No.Spam

TCL Code

+ 0 likes

Please Register to submit score.

Average Score	5.5
Scores Submitted	2
Date Added	Jan 24, 2008
Last Updated	Jan 24, 2008
Tags	antispam nospam spamblock

Introduction

Basic detection of public/private channel spam.

I checked if any antispam snippets had been added and found none under tcl, all the others were in the mIRC Scripting language, so I thought I should add this.

Grab the Code

##
# No.Spam v1.beta - Get_A_Fix (ashnet/abjects/dalnet)
##

# $Id: No.Spam.tcl,v1 25/01/2008 10:47:30am GMT +12 (NZST) getafix Exp $

# - Script Info: 
  - This script will send an onjoin message to whomever joins the channel where this script is enabled.
    It will send 3 lines of text (as most spam/drones usually require 3 or more lines to trigger).
    If 'msgantispam' is set the spam will match 'spamwords' and trigger removal.
    If someone spams open channel, with 'pubantispam' enabled they will also be removed.

- NOTE: 'spglobflags' and 'spchanflags' are the flags required to be exempt from pub/msg antispam checks.
          'ojglobflags' and 'ojchanflags' are the flags required to be exempt from the onjoin channel message.

- Current Settings exempt: +n (Global Owner)       +n (Channel owner)
                             +m (Global Master)      +m (Channel Master)
                             +o (Global Operator)    +o (Channel Operator)
                             +b (Global Bot)         +f (Channel Friend)
                             +f (Global Friend)

# - Current Trigger set to '!' - You can edit/modify 'pubtrig' to whatever Trigger you would like.
# - You can edit/modify the 'spamwords' variable to match whatever text you would like.
# - Public Command Syntax Only.

# - Syntax:

- Onjoin Message:   <trigger>onjoin on/off            (ie: !onjoin on OR !onjoin off <-)
  - Public No.Spam:   <trigger>pubantispam on/off       (ie: !pubantispam on OR !pubantispam off <-)
  - Private No.Spam:  <trigger>msgantispam on/off       (ie: !msgantispam on OR !msgantispam off <-)

set pubtrig !

proc getTrigger {} {
  global pubtrig
  return $pubtrig
}

set spamwords {  
  "*http://*" 
  "*www.*"
  "*.com*"
  "*.org*"
  "*.net*"
  "*decode*"
  "*#*"
  "*info*"
  "*biz*"
}

setudef flag msgantispam
setudef flag pubantispam
setudef flag ojcheck

set spglobflags mnobf
set spchanflags mnof

set ojglobflags mnobf
set ojchanflags mnof

bind MSGM - * msg:spamword
bind PUBM - * pub:spamword
bind JOIN - * onjoin:notice

proc msg:spamword {nick uhost hand text} { 
  global spamwords spglobflags spchanflags
  foreach nospamchan [channels] {
    if {[lsearch -exact [channel info $nospamchan] +msgantispam] != -1} {
      if {([botisop $nospamchan]) && (![isbotnick $nick])} { 
        if {![matchattr $hand $spglobflags|$spchanflags $nospamchan]} {
          if {([onchan $nick $nospamchan]) && (![isop $nick $nospamchan])} {
            foreach pattern $spamwords {
              if {[string match -nocase $pattern $text]} {
                putquick "MODE $nospamchan +b *!*@[lindex [split $uhost @] 1]" 
                putquick "KICK $nospamchan $nick :\002PRIVMSG\002: Spamming\037/\037Advertising Detected." 
                break
              }
            }
          }
        }
      } 
    } 
  }
  return 0
}

proc pub:spamword {nick uhost hand chan text} { 
  global spamwords spglobflags spchanflags
  foreach nospamchan [channels] {
    if {[lsearch -exact [channel info $chan] +pubantispam] != -1} {
      if {([botisop $nospamchan]) && (![isbotnick $nick])} {
        if {![matchattr $hand $spglobflags|$spchanflags $nospamchan]} {
          if {([onchan $nick $nospamchan]) && (![isop $nick $nospamchan])} {
            foreach pattern $spamwords {
              if {[string match -nocase $pattern $text]} { 
                putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" 
                putquick "KICK $chan $nick :\002PUBLIC\002: Spamming\037/\037Advertising Detected." 
                break
              }
            }
          }
        }
      } 
    } 
  }
  return 0
}

proc onjoin:notice {nick uhost hand chan} {
  global ojglobflags ojchanflags
  if {[lsearch -exact [channel info $chan] +ojcheck] != -1} {
    if {![isbotnick $nick]} {
      if {![matchattr $hand $ojglobflags|$ojchanflags $chan]} {
        putserv "PRIVMSG $nick :Hello $nick, and Welcome to $chan"
        putserv "PRIVMSG $nick :I am checking for Infected\037/\037SPAM clients\037/\037bots!"
        putserv "PRIVMSG $nick :Please do \002NOT\002 Reply to this Message."
      }
    }
  }
  return 0
}

bind pub - ${pubtrig}msgantispam chanset:msgantispam
proc chanset:msgantispam {nick uhost hand chan text} {

if {[matchattr $hand o]} {

if {[lindex $text 0] == "on"} {
      channel set $chan +msgantispam
      puthelp "PRIVMSG $chan :Enabled Private Spam Protection."
    }

if {[lindex $text 0] == "off"} {
      channel set $chan -msgantispam
      puthelp "PRIVMSG $chan :Disabled Private Spam Protection."
    }
  }
}

bind pub - ${pubtrig}pubantispam chanset:pubantispam
proc chanset:pubantispam {nick uhost hand chan text} {

if {[matchattr $hand o]} {

if {[lindex $text 0] == "on"} {
      channel set $chan +pubantispam
      puthelp "PRIVMSG $chan :Enabled Channel Spam Protection."
    }

if {[lindex $text 0] == "off"} {
      channel set $chan -pubantispam
      puthelp "PRIVMSG $chan :Disabled Channel Spam Protection."
    }
  }
}

bind pub - ${pubtrig}onjoin chanset:ojcheck
proc chanset:ojcheck {nick uhost hand chan text} {

if {[matchattr $hand o]} {

if {[lindex $text 0] == "on"} {
      channel set $chan +ojcheck
      puthelp "PRIVMSG $chan :Enabled Channel Onjoin Message."
    }

if {[lindex $text 0] == "off"} {
      channel set $chan -ojcheck
      puthelp "PRIVMSG $chan :Disabled Channel Onjoin Message."
    }
  }
}

putlog "No.Spam v1 Spam:Check - .:Loaded:."

Comments

(4) RSS

Go to Bottom

F*U*R*B*Y*

Comments: 551

TCL Snippet: No.Spam
Posted on Jan 26, 2008 3:37 am

does anyone have any info on hawkee.com??

^^ Would get you kicked......

Get_A_Fix

Comments: 12

TCL Snippet: No.Spam
Posted on Jan 28, 2008 6:43 am

heh, I guess that would depend on the user/channel and what they would like to match/kick/ban. Easily edited.

Code:

if {[string match -nocase \"*hawkee*\" $text]} { return }

mentalglitch

Comments: 23

TCL Snippet: No.Spam
Posted on May 13, 2008 7:50 pm

lol agreed. tis all the script holders syntax, never blame the bot/script :P

youngblood

Comments: 5

TCL Snippet: No.Spam
Posted on Aug 23, 2008 9:29 am

this would of been better off making it easier for the others by making a dialog for it this looks a litte complicated

No.Spam

Introduction

Grab the Code

Comments

Get_A_Fix

My Snippet Tags

Contact

Sponsors


Last seen: May 26, 2008 Profile Snippets (5) Images (1) Comments Received (17) Comments Submitted (12) Forum Posts (7)