on *:TEXT:!*:#: {
  if (($1 == !autoop) && ($nick isop $chan)) {
    if ($2 == on) {
      set $+(%,autoop.,$chan) on
    }
    if ($2 == off) {
      unset %autoop. [ $+ [ $chan ] ]
    }
  }
}

on *:JOIN:#: {
  if (%autoop. [ $+ [ $chan ] ] == yes) {
    mode $chan +o $nick
  }
}