ChristianEthics-VSIXc V3.1
Updated Sept 2006 to work on VSIXc Chat Network
www.VSIXc.com
_________________________________________________________________________
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-Spec.
Edited Sept 2004, works with clearmsn and vincula.

-----------------------------------------------------------------------
1) To add or delete words that are speced, 
copy and paste the desired command, 
and then replace a new word.
-----------------------------------------------------------------------
on *:text:*:#:{
  if ($me !isop $chan) halt
  if ($nick isop $chan) return
  if ( @ isin $1-) halt
  if ( http: isin $1-) || ( .com isin $1-) || ( .net isin $1-) || ( .org isin $1-) || ( dot com isin $1-) || ( www. isin $1-) {
    set %profan. [ $+ [ $nick ] ] $calc( %profan. [ $+ [ $nick ] ] + 1)
    if (%profan. [ $+ [ $nick ] ] == 1) {
      if (adspecwarn = $null) %adspecwarn = don't post links please.
      msg $chan $nick %adspecwarn
    }
    if (%profan. [ $+ [ $nick ] ] == 2) {
      mode $chan -v $nick 
      if (%adsm = $null) %adsm = $nick No Ads!
      msg $chan $nick %adsm
      $iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) if (%adban != $null) access $chan add deny $address %adban Ads.
      $iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) kick $chan $nick (spec ads) %adkm  Banned %adban minute(s) | echo $color(highlight text) -at [room is not moderated so spec ads auto kicked instead]
      unset %profan*

    }
  }
}
on *:action:*:#:{
  if ($me !isop $chan) halt
  if ($nick isop $chan) return
  if ( @ isin $1-) halt
  if ( http: isin $1-) || ( .com isin $1-) || ( .net isin $1-) || ( .org isin $1-) || ( dot com isin $1-) || ( www. isin $1-) {
    set %profan. [ $+ [ $nick ] ] $calc( %profan. [ $+ [ $nick ] ] + 1)
    if (%profan. [ $+ [ $nick ] ] == 1) {
      if (adspecwarn = $null) %adspecwarn = don't post links please.
      msg $chan $nick %adspecwarn
    }
    if (%profan. [ $+ [ $nick ] ] == 2) {
      mode $chan -v $nick 
      if (%adsm = $null) %adsm = no links!
      msg $chan $nick %adsm
      $iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) if (%adban != $null) access $chan add deny $address %adban Ads.
      $iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) kick $chan $nick (spec ads) %adkm  Banned %adban minute(s) | echo $color(highlight text) -at [room is not moderated so spec ads auto kicked instead]
      unset %profan*

    }
  }
}

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

alias adsm.set {
  set %adsm $$?="Enter the message you want displayed for Advertisment specs. The current message is: %adsm "
}

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 use the cancel button for no bans. The current ban set in minutes is: %adban " | /splay notify.wav 
}

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

on *:LOAD:{ set %advertise spec On | adspecwarn.set | adsm.set | adban.set | adkm.set | /splay notify.wav 
}


on *:UNLOAD:{ set %advertise Off | /splay unload.wav 
}
}
}
}

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