ChristianEthics 9.0 Glory to His Holy Name.
_________________________________________________________________________
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:*: { 
  /set -u3 %lastjoin $nick 
  if (%nonsubkick.gu = On) && (>* iswm $nick) && (D21DB211 !isin $address) &&  ($me isop $chan) { 
    /set -u3 %lastjoin2 $nick
  }
}


raw 908:*: { 
  if (%lastjoin != $null) && (%nonsubkick.gu = On) && (%lastjoin = %lastjoin2) { 
    if ($me isop $comchan(%lastjoin,1)) { 
      if (%nonsubkick = $null) %nonsubkick = Non-Subscriber
      if (%nonsubban = $null) %nonsubban = 1
      if (%nonsubban = off) %nonsubban = 1
      /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 minutes))
    } 
  }
  if (%lastjoin != $null) && (%nonsubkick.all = On)  { 
    if ($me isop $comchan(%lastjoin,1)) { 
      if (%nonsubkick = $null) %nonsubkick = Non-Subscriber
      if (%nonsubban = $null) %nonsubban = 1
      if (%nonsubban = off) %nonsubban = 1
      /access $comchan(%lastjoin,1) add deny *! $+ $$ial(%lastjoin $+ *,1).addr %nonsubban Non-subscriber-kick
      /kick $comchan(%lastjoin,1) %lastjoin $($replace(%nonsubkick,$nick,$chr(37) $+ lastjoin),2) $iif(%nonsubban isnum,(Banned set for %nonsubban minutes))
    } 
  }
}
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: {  set %nonsubkick.gu $=on On | /splay notify.wav | /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.]
}
on *:UNLOAD: { set %nonsubkick.gu $=off Off | set %nonsubkick.all $=off Off | /splay unload.wav | /set %nonsubkick.gu On | /unset %nonsubkick.all | /echo $color(highlight text) -at [Non-Subscriber kicks off.]
}
menu * { 
  -
  Non-Sub Kick
  .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.]
  .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]
  .-
  .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
