on *:JOIN:#:$iif($readini(autohalfop.ini,$chan,$nick),mode $chan +h $nick)
on $*:TEXT:/^[@!](de?l?)?a(utohalfop|h)/Si:#:{
if (($nick($chan,$nick,oh)) && ($2)) {
var %a = $readini(autohalfop.ini,$chan,$2), %disp = $iif($left($1,1) == !,notice $nick,msg $chan)
if (d isin $1) {
if ($nick($chan,$2,h)) mode $chan -h $2
%disp $iif(%a,$2 has lost access in $chan,$2 isn't on our access list..)
if (%a) remini autohalfop.ini $chan $2
}
else {
if (%a) %disp $2 is already on our access list.
else {
writeini autohalfop.ini $chan $2 yes
%disp $2 is now on our access list.
}
}
}
}