All pastes #45447 Raw Edit

Nikon bann snippet

public text v1 · immutable
#45447 ·published 2006-03-13 12:02 UTC
rendered paste body
ON *:DEOP:#: { 
  if ($opnick == $me) { msg $iif(Q ison $chan,Q,L) op $chan } 
  if (($nick == $me) || ($nick == L) || ($nick == Q) || (. isin $nick)) { return } 
  if ($opnick == $me) { msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao | set %deopper. [ $+ [ $chan ] ] $nick | set %deopper-addr. [ $+ [ $chan ] ] $address($nick,2)  } 
  elseif (($me isop $chan) && ($opnick != $nick)) { mode $chan -o+b $nick $address($nick,2) | kick $chan $nick Stop that. } 
} 
ON *:OP:#: { 
  if ($opnick == $me) { 
    if (%kicker. [ $+ [ $chan ] ]) { 
      mode $chan -o+b %kicker. [ $+ [ $chan ] ] %kicker-addr. [ $+ [ $chan ] ] | kick $chan %kicker. [ $+ [ $chan ] ] Banned: %kicker-addr. [ $+ [ $chan ] ] 
    } 
    elseif ((%banner. [ $+ [ $chan ] ]) && (%banner. [ $+ [ $chan ] ] != %kicker. [ $+ [ $chan ] ])) { 
      mode $chan -o+b %banner. [ $+ [ $chan ] ] %banner-addr. [ $+ [ $chan ] ] | kick $chan %banner. [ $+ [ $chan ] ] Banned: %banner-addr. [ $+ [ $chan ] ] 
    } 
    elseif ((%deopper. [ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %kicker. [ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %banner. [ $+ [ $chan ] ])) { 
      mode $chan -o+b %deopper. [ $+ [ $chan ] ] %deopper-addr. [ $+ [ $chan ] ] | kick $chan %deopper. [ $+ [ $chan ] ] Banned: %deopper-addr. [ $+ [ $chan ] ] 
    } 
    unset %kicker. [ $+ [ $chan ] ] | unset %kicker-addr. [ $+ [ $chan ] ] | unset %banner. [ $+ [ $chan ] ] | unset %banner-addr. [ $+ [ $chan ] ] | unset %deopper. [ $+ [ $chan ] ] | unset %deopper-addr. [ $+ [ $chan ] ] 
    var %i = 1,%modes,%total = $ibl($chan,0) 
    while (%i <= %total) { 
      if ($ibl($chan,%i) iswm $address($me,5)) { var %modes = %modes $ibl($chan,%i) } | if ($numtok(%modes,32) == $modespl) { mode $chan - $+ $str(b,$modespl) %modes | unset %modes } 
      inc %i 
    } 
    if (%modes) { mode $chan - $+ $str(b,$modespl) %modes | unset %modes } 
    mode $chan +tn 
  } 
  if (($nick == $me) || ($nick == L) || ($nick == Q) || (. isin $nick)) { return } 
  if (($me isop $chan) && ($opnick != $me)) {  mode $chan -oo $nick $opnick } 
} 
ON !@*:MODE:#: { 
  if (($nick != L) && ($nick != Q) && (. !isin $nick)) { 
    if ((i isincs $1) && (i isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } 
    if ((l isincs $1) && (l isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } 
    if ((k isincs $1) && (k isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } 
    if (%violation) { mode $chan +btn-omilk $address($nick,2) $nick $chan($chan).key | kick $chan $nick Stop that. } 
  } 
} 
raw 474:*: msg L recover $2 | msg Q deopall $2 | msg Q banclear $2 | msg L,Q invite $2 
raw 471:*: msg L,Q clearchan $2 | msg L,Q invite $2 
raw 473:*: msg L,Q clearchan $2 | msg L,Q invite $2 
raw 475:*: msg L,Q clearchan $2 | msg L,Q invite $2 
}
on *:INVITE:#:{ if (($nick == L) || ($nick == Q)) { join $chan } } 
}
on @*:KICK:#: { 
if (($nick != $me) && ($nick != L) && ($nick != Q) && (. !isin $nick)) { 
  if ($knick == $me) { whois $nick | set %kicker. [ $+ [ $chan ] ] $nick | set %kicker-addr. [ $+ [ $chan ] ] $address($nick,2) | msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao+b  } 
  elseif ($knick != $nick) { invite $knick $chan | mode $chan -o+b $nick $address($nick,2) | kick $chan $nick That's my job. } 
} 
} 
ON *:BAN:#: { 
  if (($nick != $me) && ($nick != L) && ($nick != Q) && (. !isin $nick)) { 
    if ($banmask iswm $address($me,5)) { 
      msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao+b 
      if ($me isop $chan) { 
        mode $chan -bo+b $banmask $nick $address($nick,2) 
        kick $chan $nick Nice try. 
      } 
      else { set %banner. [ $+ [ $chan ] ] $nick | set %banner-addr. [ $+ [ $chan ] ] $address($nick,2) } 
    } 
    else { mode $chan +b-ob $address($nick,2) $nick $iif($banmask,$banmask,$bnick) | kick $chan $nick Stop that. } 
  } 
  if (($nick == $me) && ($banmask !iswm $address($me,5))) { 
    var %banmask = $iif($banmask,$ifmatch,$address($nick,2)) 
    var %i = 1 | while (%i <= $ialchan(%banmask,$chan,0)) { 
      if ($ialchan(%banmask,$chan,%i).nick ison $chan) { kick $chan $ialchan(%banmask,$chan,%i).nick Banned: $banmask } 
      inc %i 
    } 
  } 
}