ChristianEthics 9.4
_________________________________________________________________________
E-mail: ChristianEthics2@yahoo.ca 
Messenger: ChristianEthics@hotmail.com 
Home page: http://ca.geocities.com/christianethics2
Message Board: http://groups.yahoo.com/group/ChristianEthics_BibleBotDownloadZone/
__________________________________________________________________________

Advertisement Kick
Edited October 2004
Updated May 2006 to send kick message.
________________________________________________________________________________________________

1) you can add kick words by copying and pasting the command below, 
and adding a new kick word.

_______________________________________________________________________________________________________________
on *:text:*:#:{
  if ($nick == $me) halt
  if ($nick isop $chan) halt
  if ( @ isin $1-) halt
  if ($me isop $chan) {
    if ( .com isin $1-) || ( .net isin $1-) || ( .org isin $1-) || ( dot com isin $1-) || ( www. isin $1-) {
      set -u300 %profan. [ $+ [ $nick ] ] $calc( %profan. [ $+ [ $nick ] ] + 1)
      if (%profan. [ $+ [ $nick ] ] == 1) {
        if (%adkwarn = $null) %adkwarn = no posting links please.
        msg $chan $nick %adkwarn
      }
      if (%profan. [ $+ [ $nick ] ] == 2) {
        if (%adban = $null) %adban = off
        sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %adban Ads.
        sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (Ads Kick) %adkm Banned %adban $+  minute(s)
        unset %profan*
      }

    }
  }
}

on *:action:*:#:{
  if ($nick == $me) halt
  if ($nick isop $chan) halt
  if ( @ isin $1-) halt
  if ($me isop $chan) {
    if ( .com isin $1-) || ( .net isin $1-) || ( .org isin $1-) || ( dot com isin $1-) || ( www. isin $1-) {
      set -u300 %profan. [ $+ [ $nick ] ] $calc( %profan. [ $+ [ $nick ] ] + 1)
      if (%profan. [ $+ [ $nick ] ] == 1) {
        if (%adkwarn = $null) %adkwarn = no posting links please.
        msg $chan $nick %adkwarn
      }
      if (%profan. [ $+ [ $nick ] ] == 2) {
        if (%adban = $null) %adban = off
        sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %adban Ads.
        sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (Ads Kick) %adkm Banned %adban $+  minute(s)
        unset %profan*
      }

    }
  }

}
alias adban.set { 
  set %adban $$?="SET BAN TIME FOR ADVERTISEMENT KICK. [Note: ban time is in minutes (24 Hours is 1440 Minutes) or use [0] for indefinite ban and the word [off] for no ban] The current ban set in minutes is: %adban " | /splay notify.wav 
}

alias adkwarn.set {
  set %adkwarn $$?="Enter the message you want displayed for an Ad kick Warning Message. The current message is: %adkwarn "
}

alias adkm.set {
  set %adkm $$?="Enter the message you want displayed for an Ad kick. The current message is: %adkm "
}

on *:LOAD:{ 
  set %advertise $=ad Kick On 
  ;/splay chimes.wav 
  ;adban.set 
  ;adkwarn.set 
  ;adkm.set 
  /splay notify.wav
}

on *:UNLOAD:{ set %advertise $=ad Off 
  /splay unload.wav
}


;*******Script Writters Known by God, Unknown to me*******
