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/
__________________________________________________________________________

Auto Nick Kick/Ban and Annoying Nick-Kick
Edited October 2004
Updated May 2006 to send kick message.

1) This file causes nicknames which have been added to the kicklist 
to be auto kicked on-join. It Bans them via their gate number.

2) This file can also kick participants who join your room with nicknames
that have profanity, or porn content in their names.
*You can add words below, that will cause an auto kick if the word is 
contained in the nickname of the joiner.

3) This file also auto kick/bans users who are using the: Random Gate 
numbers. If you do not want to Ban random gate users, then delete 
the gate numbers from the file named: 'randomgates' (Its in the
Lists folder)

4) This option can also adds the Random Gate numbers to your access list 
as Deny when you join the room.  
This is a pro-active approach in preventing Randam Gate users 
from harassing your room. They are banned before they enter.
*To use this feature make sure that you use the button: Random Gate
Users' and Add deny.
If you do NOT want these added to your access List as Deny, then 
make sure you use the button 'Don't Add Deny'

5) This file also auto kicks and then bans many of the known porn/spam bot gate 
numbers. If you do not want to kick porn/spam bots, then delete 
the gate numbers from the file named: 'spam/porn' (Its in the
List folder) 

NOTE: Do Not leave empty spaces in the files found in the Lists folder.

*If you want to remove a SPECIFIC gatenumber from a file with several,
you can use the: 'Search' feature in the upper menu bar of each file.


*Random Gate List from tech gear download.
*Porn List from Extreme Boards List.
*Thankyou to SudsyUncle for posting the example for the:'fr txt file' kick.

Cross symbol is: 
____________________________________________________________________________
on *:join:*:{ 
  if ($nick == $me) halt
  if ($nick == $mi) halt
  if ( $nick isop #) halt
  if (sex isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (fuck isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (bitch isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (dammit isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (www. isin $nick )  && ($me isop #) { Profanitynickkick 
  }
  if (dickhead isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (nipple isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (blowjob isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (cunt isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (penis isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (bastard isin $nick ) && ($me isop #) { Profanitynickkick 
  }
  if (shit  isin $nick ) && ($me isop #) { Profanitynickkick 
  } 
  if (pervert isin $nick ) && ($me isop #) { Profanitynickkick 
  } 
  if (bittch isin $nick ) && ($me isop #) { Profanitynickkick  
  }
  if (dildo isin $nick ) && ($me isop #) { Profanitynickkick  
  }
  if (slut isin $nick ) && ($me isop #) { Profanitynickkick  
  }
  if (cocksucker isin $nick ) && ($me isop #) { Profanitynickkick  
  }
  if (asshole isin $nick ) && ($me isop #) { Profanitynickkick  
  }
  if (asswhip isin $nick ) && ($me isop #) { Profanitynickkick  
  }
  if (naked isin $nick ) && ($me isop #) { Profanitynickkick  
  }
  if ($read(Lists\spamporn.txt,w,* $+ $address $+ *)) && ($me isop #) {
    spammkick
  }
  if ($read(Lists\spamporn.txt,w,* $+ $address($nick,1) $+ *)) && ($me isop #) {
    spammkick
  }
  if ($read(Lists\spamporn.txt,w,* $+ $address($nick,6) $+ *)) && ($me isop #) {
    spammkick
  }
  if ($read(Lists\spamporn.txt,w,* $+ $fulladdress $+ *)) && ($me isop #) {
    spammkick
  }
  if ($read(Lists\kicklist.txt,w,* $+ $address $+ *)) && ($me isop #) {
    kickklist
  }
  if ($read(Lists\kicklist.txt,w,* $+ $address($nick,1) $+ *)) && ($me isop #) {
    kickklist
  }
  if ($read(Lists\kicklist.txt,w,* $+ $address($nick,6) $+ *)) && ($me isop #) {
    kickklist
  }
  if ($read(Lists\kicklist.txt,w,* $+ $fulladdress $+ *)) && ($me isop #) {
    kickklist
  }
  if ($read(Lists\disconnectlist.txt,w,* $+ $address $+ *)) && ($me isop #) {
    disconnectt
  }
  if ($read(Lists\disconnectlist.txt,w,* $+ $address($nick,1) $+ *)) && ($me isop #) {
    disconnectt
  }
  if ($read(Lists\disconnectlist.txt,w,* $+ $address($nick,6) $+ *)) && ($me isop #) {
    disconnectt
  }
  if ($read(Lists\disconnectlist.txt,w,* $+ $fulladdress $+ *)) && ($me isop #) {
    disconnectt
  }
  if ($read(Lists\randomgates.txt,w,* $+ $address($nick,1) $+ *)) && ($me isop #) {
    randomgatekick
  }
}


-----------------------------------------------------------------------
do not edit below here.
-----------------------------------------------------------------------


alias spammkick { 
  sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %nickkickban SpamList
  sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (Spam List) Banned %nickkickban minute(s)
}

alias kickklist { 
  if (%nickkickban = $null) %nickkickban = 1
  if (%nickkickban = off) %nickkickban = 1 
  sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %nickkickban KickList
  sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (kick List) %nickkickmessage Banned %nickkickban minute(s)
}
alias Profanitynickkick { 
  if (%nickkickban = $null) %nickkickban = 1
  if (%nickkickban = off) %nickkickban = 1
  sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %nickkickban ProfanityInName
  sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $nick %nickkickban ProfanityInName   
  sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (Profanity In Name)  Banned %nickkickban minute(s)
}
alias randomgatekick {
  if (%nickkickban = $null) %nickkickban = 1
  if (%nickkickban = off) %nickkickban = 1
  sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %nickkickban RandomGate    
  sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (Random Gate User)  Banned %nickkickban minute(s) 
}

alias disconnectt { 
  if (%nickkickban = $null) %nickkickban = 1
  if (%nickkickban = off) %nickkickban = 1
  /access $msn.get($cid,fullroom) add deny $address %nickkickban KickListedCloneProt  
  /notice $nick You are on Auto Disconnect List. | .timer -m 30 100 .ctcp $nick time  
  /echo $color(kick text) -at [ $nick - Disconnect List. Attempting Silent-Disconect ] 
  /echo $color(kick text) -at If $nick is NOT disconnected, it is because they are using a script with protection.   
}


alias nickkickban.set { 
  set %nickkickban $$?="SET BAN TIME FOR NICK 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: %nickkickban (warning, if you choose to use the silent disconnect option, know that most script users cannot be disconnected)" | /splay notify.wav 
}
alias nickkickmessage.set {
  set %nickkickmessage $$?="Enter the message you want displayed for Full Nick Kick. The current message is: %nickkickmessage "
}


on *:LOAD:{ set %nickkicker $=kick On, Fully | /splay chimes.wav |  /splay notify.wav
}
on *:UNLOAD:{ set %nickkicker $=kick Off | /splay unload.wav
}
