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

Ping Kick
Edited Sept 2004, works with clearmsn and vincula
-Ping kick is now done through the full ctcp kick.
Updated May 2006 to send kick message.
__________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________

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

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

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

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

;ctcp 1:version:?: {
;if ( $nick isop $chan) halt 
;if ($me isop $msn.get($cid,fullroom)) sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address($nick,1) %pingban PingTimeKick  
;if ($me isop $msn.get($cid,fullroom)) sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (version check kick) %pingmessage Banned %pingban minute(s)
;}



