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

Non-Subscriber Kicks
October 2004

It can be set to kick all non-subscribers or only guest non-subscribers.
__________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________
on ^*:JOIN:*: { if ($me !isop $chan) halt
  /set -u5 %lastjoin $nick 
  if (%nonsubkick.gu = On) && (>* iswm $nick) &&  ($me isop $chan) { 
    /set -u5 %lastjoin2 $nick
  }
  if (%addfloodprotection = On) {
    if (%2lockdownstopper = On) { halt }
    if (%setnonsubkicks != $null) { /2.lockdown }
    /set %2lockdownstopper On
  }
}
raw 908:*: { .inc -u4 %setnonsubkicks 
  if (%lastjoin != $null) && (%nonsubkick.gu = On) && (%lastjoin = %lastjoin2) { 
    if ($me isop $comchan(%lastjoin,1)) { 
      if (%nonsubkick = $null) %nonsubkick = Non-Subscriber   
      sockwrite -tn msn.server. $+ $cid access $comchan(%lastjoin,1) add deny *! $+ $$ial(%lastjoin $+ *,1).addr %nonsubban Non-subscriber-guestonly-kick
      /kick $comchan(%lastjoin,1) %lastjoin $($replace(%nonsubkick,$nick,$chr(37) $+ lastjoin),2) $iif(%nonsubban isnum,Banned set for %nonsubban minute(s))
    } 
  }
  if (%lastjoin != $null) && (%nonsubkick.all = On)  { 
    if ($me isop $comchan(%lastjoin,1)) { 
      if (%nonsubkick = $null) %nonsubkick = Non-Subscriber
      sockwrite -tn msn.server. $+ $cid access $comchan(%lastjoin,1) add deny *! $+ $$ial(%lastjoin $+ *,1).addr %nonsubban Non-subscriber-guestonly-kick
      /kick $comchan(%lastjoin,1) %lastjoin $($replace(%nonsubkick,$nick,$chr(37) $+ lastjoin),2) $iif(%nonsubban isnum,Banned set for %nonsubban minute(s))

    } 
  }
}
alias nonsubban.set { 
  set %nonsubban $$?="SET BAN TIME FOR NON-SUBSCRIBER KICK. [Note: ban time is in minutes (24 Hours is 1440 Minutes) or use [0] for indefinite ban.] The current ban set in minutes is: %nonsubban " | /splay notify.wav 
  echo $color(highlight text) -at Ban Set: %nonsubban
}
alias nonsubkick.set { 
  set %nonsubkick $$?="Enter message for non-subscriber kick:" | /splay notify.wav 
  echo $color(highlight text) -at Message: %nonsubkick
}
on *:LOAD: {  /splay notify.wav
}
on *:UNLOAD: { 
  /unset %nonsubkick.gu  
  /unset %nonsubkick.all  
  /unset %addfloodprotection  
  /echo $color(highlight text) -at [Non-Subscriber kicks off.]
}

alias 2.lockdown { 
  sockwrite -tn msn.server. $+ $cid mode $msn.get($cid,fullroom) +i
  /set -u300 %2.lockdown.on On
  /set %2.lockdown.chan $msn.get($cid,fullroom)
  /msg $msn.get($cid,fullroom) Room Put Into Lock Down Mode 2: Flooder Threat. 
  .timer.flooder 1 180 /2.Lock-Down-Over  
}
alias 2.Lock-Down-Over { 
  /mode %2.lockdown.chan -i  
  /msg %2.lockdown.chan Lock-Down-Over 
}
on *:Mode:#:{ if (%nicknameflood != On) && (%nonsubkick.gu = On) {
    If (-i isin $1-) /timer.flooder stop 
    unset %nickfloodstopper
    unset %nickkickergo
    unset %2lockdownstopper
    echo $color(highlight text) -at Lock Down Over: invite only mode has been removed. 
  }
  if (%nicknameflood != On) && (%nonsubkick.all = On) {
    If (-i isin $1-) /timer.flooder stop 
    echo $color(highlight text) -at Lock Down Over: invite only mode has been removed. 
    unset %nickfloodstopper
    unset %nickkickergo
    2lockdownstopper
  }
}


menu menubar { 
  -
  $iif(%nonsubkick.gu == On,$style(1)) $iif(%nonsubkick.all == On,$style(1)) $iif(%addfloodprotection == On,$style(1)) $+ Non-Sub Kick and Flood Protection
  .$iif(%nonsubkick.gu == On,$style(1)) $+ Kick Only Guest Non-Subs: /set %nonsubkick.gu On | /unset %nonsubkick.all | /echo $color(highlight text) -at [All Guest Non-Subscribers will be kicked when they join..webtv users exempt.]
  .-
  .$iif(%nonsubkick.all == On,$style(1)) $+ Kick All Non-Subs: /set %nonsubkick.all On | /unset %nonsubkick.gu | /echo $color(highlight text) -at [All Non-Subscribers will be kicked when they join.]
  .-
  .Non-Sub Kick Off: /unset %nonsubkick.all | /unset %nonsubkick.gu | echo $color(highlight text) -at [Non-Subscriber kicks now off]
  .-
  .$iif(%addfloodprotection == On,$style(1)) $+Extra Flood Protection On: set %addfloodprotection $=on On  | /echo $color(highlight text) -at [Extra Flood Protection Enabled - after 2 non-sub joins in less then 7 seconds room is placed in lockdown mode for 2 minutes.]
  .-
  .Extra Flood Protection Off: unset %addfloodprotection |  /echo $color(highlight text) -at [Extra Flood Protection Off]
  .-
  .Set Kick Message: /splay chimes.wav | nonsubkick.set | echo $color(highlight text) -at Message set: %nonsubkick
  .-
  .Set Ban Time: /splay chimes.wav | nonsubban.set | echo $color(highlight text) -at Ban set: %nonsubban
  -
}

;part of coding from guarDDog 4.2
