Anti Advertise

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Mar 03, 2008
Last Updated	Mar 03, 2008
Tags	anti

Introduction

Instructions are in the code.

Grab the Code

;  Title:    Anti Advertise (Channels)
;  Author:    LordHawk (Absurd-irc.net -> #scripting)
;  Desc:      Detects channel advertisements using /mode
;
;  Install:  a) Open your remote editor in mIRC (alt+r) and create a new file (file->new)
;            b) Copy/paste this code in the editor and press OK.
;            c) Edit the settings below to fit your needs.
;
;            a /mode request on every possible channel advertisement.

alias channeladv.settings {

%channeladv.channel = #Mtg-temple #templeJudge
  ; the name of your channel (multiple channels can be present if seperated with spaces)

%channeladv.allowed = #Helpdesk #Absurd-irc #beggars
  ; a list of channels which are allowed to advertise

%channeladv.bantime = 600
  ; lifetime of the ban in seconds (0 = permanent)

%channeladv.banmask = 2
  ; the banmask to use (/help $mask)

%channeladv.kickmsg = Channel advertise, banned for 10 minutes
  ; the kickmsg provided in the kick

}

on @$*:TEXT:/([#�][^ ]+)/gS:#:{
  channeladv.settings
  if ($istok(%channeladv.channel,$chan,32)) && ($nick isreg $chan) {
    var %index = 1, %delay = 0, %channel
    while (%index <= $regml(0)) {
      %channel = $regml(%index)
      if ($left(%channel,1) == �) %channel = $chr(35) $+ $right(%channel,-1)
      if (!$istok($chan %channeladv.allowed,%channel,32)) {
        hadd -m channeladv. $+ %channel $hget(channeladv. $+ %channel,0).item $nick $chan
        !.timer 1 %delay !mode %channel
        inc %delay
      }
      inc %index
    }
  }
}
raw 324:*:if ($hget(channeladv. $+ $2)) haltdef
raw 403:*:{
  if ($hget(channeladv. $+ $2)) {
    hfree -w channeladv. $+ $2
    haltdef
  }
}
raw 329:*:{
  var %table = channeladv. $+ $2, %delay = 0, %item
  while ($hget(%table,1).item != $null) {
    haltdef
    %item = $ifmatch
    tokenize 32 $hget(%table,%item)
    if ($1 isreg $2) {
      var %unban = $iif(%channeladv.bantime > 0,u $+ $ifmatch)
      var %mask = $iif(%channeladv.banmask isnum 0-19,$ifmatch,$nick)
      var %kickmsg = $iif(%channeladv.kickmsg != $null,$ifmatch,Channel advertise)
      !.timer 1 %delay !ban -k $+ %unban $2 $1 %mask %kickmsg
      inc %delay
    }
    hdel -w %table %item
  }
  if (!$hget(%table,0).item) hfree -w %table
}

Comments

(4) RSS

Go to Bottom

Lindrian

Comments: 728

mIRC Snippet: Anti Advertise
Posted on Mar 5, 2008 1:36 pm

if i may ask, why do u have /g in your regex:

Code:

/([#�][^ ]+)/gS

LordHawk

Comments: 18

mIRC Snippet: Anti Advertise
Posted on Mar 5, 2008 5:16 pm

Is there an easier way of doing this?

Lindrian

Comments: 728

mIRC Snippet: Anti Advertise
Posted on Mar 6, 2008 9:43 am

Tell me what you want it to do, and im sure I can code something nifty. And did you code this or not? Whats the purpose of the previous posted regex? Why did you use the /g modifier?

LordHawk

Comments: 18

mIRC Snippet: Anti Advertise
Posted on Mar 6, 2008 3:00 pm

this isnt my full code no, A friend of mine wrote parts of it.

Anti Advertise

Introduction

Grab the Code

Comments

LordHawk

My Snippet Tags

Contact

Sponsors


Last seen: Aug 28, 2008 Profile Likes (2) Snippets (4) Comments Received (8) Comments Submitted (18) Forum Posts (46)