Revenge/Blacklist

By Master-Of-Death on Dec 01, 2009

A simple revenge script that reverses bans and kick users who kick you.
A simple blacklist
To add a user type: /add
To del a user type: /del

Paste it in your remotes, save and enjoy.

on *:BAN:#:{ if ($banmask iswm $address($me,5)) && ($me isop #) && ($nick !== ChanServ) {
    .mode # -b+b $banmask $address($nick,5)
    raw -q kick # $nick FireFlash v.1.0
    .add
  }
}
on *:KICK:#:{ if ($knick == $me) && ($nick !== ChanServ) {
    .j #
    .mode # -Q
    raw -q kick # $nick FireFlash v.1.0
    .add
  }   
}
on op:JOIN:#:{ .mode # -Q
  raw -q kick # $nick FireFlash v.1.0
  .mode # +b $address($nick,5)
}
alias sops {
  if ($regex(ops,$1-,/(on|off))) cs set $active secureops $regml(ops,1)
  else echo -a Syntax invalid. Use /sops on|off
}
alias add { if (!$1) {
    .auser -a op $nick
    if ($nick ison #) { 
      raw -q kick # $nick Blacklist
      .mode # +b $address($nick,5)
    }
  }
  else { 
    .auser -a op $1
    if ($1 ison #) {
      raw -q kick # $1 Blacklist
      .mode # +b $address($1,5)
    }
  }
}
alias del {
  .ruser $1
}
alias j {
.join $1
}

Like Page Follow Author

Comments

Master-Of-Death - Dec 02, 2009

wow thank you once again Jethro_ hopefully one day i'll be as good as you. btw is it possible to do a $regex version?

Respond

Jethro - Dec 02, 2009

Your add alias can be simplified and altered as such:

alias add { 
  var %b = .auser -a op $1 | raw -q kick # $1 Blacklist | mode # +b $address($1,5)
  $iif(!$1,echo # * Insufficient parameter!,$iif($1 !ison #,echo $v2 * No such user as $v1,%b))
}

Respond

Master-Of-Death - Dec 02, 2009

I just added the /j alias for those who do not have it.

Respond

Master-Of-Death - Dec 02, 2009

/j has been part of mIRC since I started using it and I started on v6.32 as for the $nick, I've changed it umm ty for spotting that.

Respond

Ghost-writer - Dec 01, 2009

Not all of us have the alias, j for join.

For your alias, i dont think $nick -

if ($1 ison #) {
      raw -q kick # $1 Blacklist
      .mode # +b $address($nick,5)

Respond