on *:text:!badauth:#:{
if ($wi($address($nick,2)) == owner) {
.notice $nick %chanlevskin Usage: $1 add/list/del/status/on/off %chanlevskin
}
}

on *:text:!badauth *:#:{
if ($wi($address($nick,2)) == owner) {
if ($2 == help) { .notice $nick %chanlevskin Usage: $1 add/list/del/status/on/off %chanlevskin | halt }
if ($2 == status) { .notice $nick %chanlevskin AuthBan status:  $+ $iif($readini(authban.ini,SETUP_ $+ $chan,status),$readini(authban.ini,SETUP_ $+ $chan,status),OFF) $+  %chanlevskin | halt }
if ($2 == add) {
if (!$4) { .notice $nick %chanlevskin Usage: $1-2 <auth> <reason> %chanlevskin | halt }
writeini authban.ini $chan $3 $4-
.notice $nick %chanlevskin Done. %chanlevskin Added auth $+(',$3,') %chanlevskin to AuthBan list with reason $+(',$4-,') %chanlevskin
halt
}
if ($2 == del) {
if (!$3) { .notice $nick %chanlevskin Usage: $1-2 <auth> %chanlevskin | halt }
remini authban.ini $chan $3
.notice $nick %chanlevskin Done. %chanlevskin Removed auth $+(',$3,') %chanlevskin from AuthBan list. %chanlevskin
halt
}
if ($2 == on) {
writeini authban.ini SETUP_ $+ $chan status ON
.notice $nick %chanlevskin Done. %chanlevskin Changed status to ON. %chanlevskin
halt
}
if ($2 == list) {

.notice $nick %chanlevskin AuthBan list: %chanlevskin
var %i = 1
while (%i <= $ini(authban.ini,$chan,0)) {
var %auth = $ini(authban.ini,$chan,%i)
var %reason = $readini(authban.ini,$chan,$ini(authban.ini,$chan,%i))
Var %aut = $addtok( $+ %auth ( %reason ) $+ $chr(44),%auths,32)
inc %i
}
.notice $nick %chanlevskin Auth: $iif(%aut,%aut,No Auths!) %chanlevskin
halt
}
if ($2 == off) {
writeini authban.ini SETUP_ $+ $chan status OFF
.notice $nick %chanlevskin Done. %chanlevskin Changed status to OFF. %chanlevskin
halt
}

if ($2 == version) { .notice $nick %chanlevskin AuthBan.msl v0.35 by teppuli & AndRew %chanlevskin | halt }
notice $nick %chanlevskin Usage: $1 add/list/del %chanlevskin
}
}
raw 354:& 465 & *: {
echo -ag $1-
var %auth = $4
if (!%authban_ [ $+ [ $3 ] ]) { halt }
var %chan = %authban_ [ $+ [ $3 ] ]
var %i = 1
while (%i <= $ini(authban.ini,%chan,0)) {
if ($ini(authban.ini,%chan,%i) == %auth) {
var %host = $address($3,2)
.kick %chan $3 12,1››0 Your authname ( $+ %auth $+ ) is banned from %chan 12,1››‹‹0 (Reason: $readini(authban.ini,%chan,$ini(authban.ini,%chan,%i)) $+ ) 12,1‹‹0
.mode %chan +b %host
timer 1 600 mode %chan -b %host
unset %authban_ [ $+ [ $3 ] ]
halt
}
inc %i
}
}
on *:join:#:{
if ($readini(authban.ini,SETUP_ $+ $chan,status) != ON) { halt }
set -u10 %authban_ [ $+ [ $nick ] ] $chan
who $nick n%nat,465
}