on *:TEXT:!aop-on*:#: {
  if ( $nick(#,$nick,vr) ) {
    notice $nick You must be at least halfop to do this
  }
  else {
    set %aopchannel $addtok(%aopchannel,$chan,44)
    set %aop $addtok(%aop,$chan,44)
    msg $chan 4auto op is now on for $chan
  }
}
on *:TEXT:!aop-off*:#: {
  if ( $nick(#,$nick,vr) ) {
    notice $nick You must be at least halfop to do this
  }
  else {
    set %aopchannel $remtok(%aopchannel,$chan,44)
    set %aop $remtok(%aop,$chan,44)
    msg $chan 4auto op is now off for $chan
  }
}
on *:JOIN:%aopchannel:{ 
  if (%aop) { 
    .timer 1 1 /notice $nick Welcome $nick 
    .timer 1 1 /notice $nick checking status.. 
    .timer 1 1 checkops $nick $chan 
    .timer 1 1 statuscheck $nick $chan
  } 
} 
alias statuscheck { 
  if ($1 isreg $2) { 
    notice $1 auto oping Now... 
    mode $2 +o $1 
  }
}
alias checkops {
  if ($1 isop $2) || ($1 ishop $2) {
    notice $1 oping canceled...
  }
}