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

Clear Screen Flood Kick
Updated May 2006 so it will send the whole kick message.
____________________________________________________________________________

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