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.
      }
    }
  }
}