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

Host Lock
Special Thanks to TWWON for all the help with the Owner Lock Script.
Edited October 2004
____________________________________________________________________________

Do not edit this file.
__________________________________________________________________________

on *:RAWMODE:*: { 
  if ($level($address($$2,6)) == hostlist) /halt
  if ($level($address($$2,6)) == ownerlist) /halt
  if ($$2 == $me) halt
  if ($$2 == $mi) halt
  if (+o isin $1-) && ($me isop #) {
    .inc -u70 %hostlockk [ $+ [ $nick ] ]
    if (%ownerlockk [ $+ [ $nick ] ] == 1) { halt }
    if (%ownerlockk [ $+ [ $nick ] ] == 2) { halt }
    if (%ownerlockk [ $+ [ $nick ] ] == 3) { halt }
    if (%hostlockk [ $+ [ $nick ] ] == 1) {
      mode $chan -o $mode(1).nick
      msg $chan Host Lock is On
    }
    if (%hostlockk [ $+ [ $nick ] ] == 2) {
      mode $chan -o $mode(1).nick
      msg $chan Host Lock is On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 3) {
      mode $chan -o $mode(1).nick
      msg $chan Host Lock is On
    }
    if (%hostlockk [ $+ [ $nick ] ] == 4)  {
      /access # delete host $fulladdress  
      /access # delete host $address 
      /access # add deny $address 60 HostLock. 
      /access # delete host $nick
      /access # delete host $address($nick,1)
      /access # delete host $address($nick,6)
      /kick # $nick HostLock is on. 
      /echo $color(kick text) -at [ Host-Lock Activated. $nick is Not on Host Allow List. Removing Host Access..
    }

    if (%hostlockk [ $+ [ $nick ] ] == 5) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 6) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 7) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 8) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 9) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 10) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 11) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 12) {
      /access # add deny $address 60 HostLock. 
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 13) {
      /access # add deny $address 60 HostLock. 
      /access # delete host $address($nick,1)
      /access # delete host $address($nick,6)
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 14) {
      /access # add deny $address 60 HostLock. 
      /access # delete host $address($nick,1)
      /access # delete host $address($nick,6)
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 15) {
      /access # add deny $address 60 HostLock. 
      /access # delete host $address($nick,1)
      /access # delete host $address($nick,6)
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 16) {
      /access # add deny $address 60 HostLock. 
      /access # delete host $address($nick,1)
      /access # delete host $address($nick,6)
      /kick $chan $nick Host Lock Still On.
    }
    if (%hostlockk [ $+ [ $nick ] ] == 17) {
      /access # add deny $address 60 HostLock. 
      /access # delete host $address($nick,1)
      /access # delete host $address($nick,6)
      /kick $chan $nick Host Lock Still On.
    }
  }
}




on *:LOAD:{ set %hostlockonoff $=pcww On | /splay notify.wav  
}
on *:UNLOAD:{ unset %hostlockonoff | /splay unload.wav 
}
