ChristianEthics 9.3
_________________________________________________________________________
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/
__________________________________________________________________________

Ctcp Kick
Edited December 2004, works with clearmsn and vincula
__________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________

on *:LOAD:{ set %ctcpkick $=away On | /splay notify.wav 
}
on *:UNLOAD:{ set %ctcpkick $=away Off | /splay unload.wav 
}

alias ctcpban.set { 
  set %pingban $$?="SET BAN TIME FOR Ctcp 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: %ctcpban " | /splay notify.wav 
}

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


ctcp 1:*:?: { if (time !isin $1) {
    if ( $nick isop $chan) halt 
if ($me isop $msn.get($cid,fullroom)) {
if (%pingban = $null) %pingban = off
if (%pingban = off) {
 sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick (ping check kick) %pingmessage
}
 else {   
sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address($nick,1) %pingban PingTimeKick  
     sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick (ping check kick) %pingmessage Banned %pingban minute(s)
}
  }
}
}