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

Ctcp Kick
Edited December 2004, works with clearmsn and vincula
Updated May 2006 so it will send the whole kick message.
__________________________________________________________________________

*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)
      }
    }
  }
}
