Anonymous

on *:TEXT:*join*#*:#: {
  if ($me ishop $chan) || ($me isop $chan) {
    if ($nick isreg $chan) {
      var %x = 1
      while (%x <= $0) {
        if ($left($($+($,%x),2),1) == $chr(35)) && ($($+($,%x),2) != $chan) {
          if ($readini(cbanwarns.ini,warns,$address($nick,2))) {
            writeini cbanwarns.ini total total $calc($readini(cbanwarns.ini,total,total) + 1)
            mode $chan +b ~c: $+ $($+($,%x),2)
            ban -k $chan $nick 2 Banned for channel advertising $+($chr(40),$ord($readini(cbanwarns.ini,total,total)) advertiser banned,$chr(41))
            remini cbanwarns.ini warns $address($nick,2)
          }
          else {
            notice $nick You have been warned for advertising a channel in $chan - 1 more time and you and your channel will be banned!
            writeini cbanwarns.ini warns $address($nick,2) Warned
          }
        }
        inc %x
      }
    }
  }
}