Forums Scripts & Popups On join

ON @1:join:#YourChannel: {
  IF ($nick ison $chan) {
    ban $chan $address($nick,3)
   kick $nick $chan and out you go!
  }
}

on 1:JOIN:#:whois $nick
raw 319:*#*:{
  var %chans = $3- , %i = 0
  while (%i < $numtok(%chans,32)) {
    inc %i
    if ($gettok(%chans,%i,32) == #badchan) && $comchan($2,0)) {
      ;cycle through your chans through $comchan, and ban them
    }
  }
}

;
on @*:JOIN:#: .raw WHOIS $nick
;
raw 319:*:{
  ;
  ; An easy way to set up a kick message in an easy spot to change it. Just to make the message easier to read, I have 
  ; set it across three lines. Yours might not be as long.
  var %KickMessage
  ;
  %KickMessage = :I have the right to decide which channels you may join. You may not be on $gettok($3-,%i,32) while I have
  %KickMessage = %KickMessage anything to say about it. Furthermore, if I should join a channel where you are opped, I will
  %KickMessage = %KickMessage take offense if you check my channels and find one that is disagreeable to your personal 
  %KickMessage = %KickMessage beliefs and kick me as a result, as your beliefs do not pertain to me.
  ;
  var %BadChannels = #Chan2 #Chan3 #Chan4  | ; The list of channels we feel, in our inestimable wisdom, people should not be in
  var %i = 1                               | ; Loop index through the visible channels in 319
  var %j = $comchan($2,0)                  | ; The number of common channels shared with $2 ($nick)
  ;
  ; While there are more channels to check for their evilness...
  while ($gettok($3-,%i,32)) {
    ;
    ; If we find a channel that we feel they shouldn't be on...
    if ($istok(%BadChannels,$ifmatch,32)) {
      ;
      ; Then while there are more common channels I share with $2 ($nick)...
      while (%j) {
        ;
        ; If I'm opped in this channel, then kickban him with my haughty kick message in one data packet.
        if ($comchan($2,%j).op) .raw mode $comchan($2,%j) +b $address($2,2) $+ $crlf $+ kick $comchan($2,%j) $2 %KickMessage
        ;
        ; Back up to the previous common channel
        dec %j
      }
      ;
      ; Since we have removed this evil person from all the channels we can, there is no need to continue looking to see if 
      ; they match anymore appalling channels.
      break
    }
    ;
    ; Otherswise, try to go to the next channel and check it for foulness.
    inc %i
  }
}