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-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 ($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)) sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %adban Ads.
 $iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $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 ($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)) sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %adban Ads.
 $iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $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 the word [off] for no ban] 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 $=ads spec On | adspecwarn.set | adsm.set | adban.set | adkm.set | /splay notify.wav 
}


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

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