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

Clear Screen Flood Kick
____________________________________________________________________________

on *:TEXT:*     *:*: /clearscrnkick 
on *:TEXT:**:*: /clearscrnkick
on *:TEXT:**:*: /clearscrnkick

on *:Text:*:#:{
  if (*ï€‹* iswm $1) {  
    if ($nick !isop $chan) {
      /clearscrnkick 
    }
  }
}


alias clearscrnkick { 
If ($nick isop $chan) halt 
if (%clearscreenban = $null) %clearscreenban = Off
if (%clearscreenban = Off) {
sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick Clearing Screen Flood.
}
else {
sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %clearscreenban ClearScreenFlood. 
sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick Clearing Screen Flood. Banned %clearscreenban minute(s)
}
}
alias clearscreenban.set { 
set %clearscreenban $$?="SET BAN TIME FOR CLEAR SCREEN 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: %clearscreenban " | /splay notify.wav 
}


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