on *:TEXT:*#*:#achomes: { 
  if ($me ishop $chan) || ($me isop $chan) { 
    if ($nick isvoice $chan) {
      if ($nick isop $chan) || ($nick ishop $chan) { HALT } 
      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) 
            /cs ban $chan $nick  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 
      } 
    } 
  } 
}