admin/connection protector for chatspace (for mirc)

on *:snotice:*is now an IRC*:{
if (%apro == on) {
if ($level($4) == admin) halt {
kill $4 11,1You are not on my 9,1safelist 11,1for 6,1Admin8,1/12,1Oper }
}
}

on *:snotice:*client connecting on*:{
if (%conblock == on) {
kill $9 11,1Lockdown on...try again later ;]
}
}

on *:SNOTICE:*unauthorized connection*:{
if (%unau == on) {
var %nick = $mid($7,1,$calc($pos($7,[,$count($7,[)) - 1))
var %reason = $mid($9,$calc($pos($9,:,1) + 1),$len($9))) $10-
if (%reason) .raw akill %nick 12,1(11,1You have A Server kline :)12,1)(11,1 %reason 12,1)
if (!%reason) .raw akill %nick 12,1(11,1You have A Server Kline :)12,1)
}
}

on *:snotice:*failed oper attempt*:{
if (%foper == on) {
kline $10 12,1(11,1 Lol close..but not cigar [[Çÿb€ri IRC Failed oper pro is on]] 12,1)
}
}

menu channel,menubar {
[Protections]
.Failed Oper Protection
..F-Op On: set %foper on | echo -a $timestamp 11,1Failed Oper Enabled
..F-Op Off: set %foper off | echo -a $timestamp 11,1Failed Oper Disabled
.Admin Protection
..Admin-Pro On: set %apro on | echo -a $timestamp 11,1Admin Protection Now Running.
..Admin-Pro Off: set %apro off | echo -a $timestamp 11,1Admin Protection Deactivated.
..Safelist: auser admin $$1
..Rem-Safelist: ruser $$1
.Connection Blocker
..Con-Block On: set %conblock on | echo -a $timestamp 11,1Connection Blocker Now On.
..Con-Block Off: set %conblock off | echo -a $timestamp 11,1Connection Blocker Now Off.
.Unauthorized Connect Killer
..Con-Killer On: set %unau on | echo -a $timestamp 11,1Unauthorized Connection Killer On
..Con-Killer Off: set %unau off | echo -a $timestamp 11,1Unauthorized Connection Killer Off