This here is it

on prot:DEOWNER:#:{
  if ($nick != $me) && ($nick != $opnick) {
    set -u30 %skick. [ $+ [ $nick ] ] $calc( %skick. [ $+ [ $nick ] ] + 1)
    if (%skick. [ $+ [ $nick ] ] == 1) {
      mode $chan +q $opnick | msg $chan Please $nick Do Not Deop $opnick !
    }
    if (%skick. [ $+ [ $nick ] ] == 2) {
      /mode $chan +q $opnick
      msg $chan SECOND WARNING $nick , Again Please $nick DO NOT Deop $opnick AGAIN :|
    }
    if (%skick. [ $+ [ $nick ] ] == 3) {
      /mode $chan +q $opnick | /mode $chan -q $nick
      msg $chan LAST WARNING $nick , DO NOT Deop $opnick AGAIN :|
    }

    if (%skick. [ $+ [ $nick ] ] >= 4) {
      kick $chan $nick I ASKED YOU NOT TO 3 TIMES , DON'T EVER Deop $opnick EVER AGAIN!

>>>>>>>>>I need that code below to work here <<<<<<<<<<

      mode $chan +q $opnick
     access $chan add deny $nick
      access $chan add deny $address($nick,3)
    }
  }
}



menu nicklist {
  Buzzen remove: { RemoveFromAccess # $$1
    /mode # -q $$1
    /mode # -o $$1
  }
}
alias RemoveFromAccess {
  set -u20 %AR.chan $1
  set -u20 %AR.nick $ial($$2,1)
  raw ACCESS $1 LIST
}

RAW 804:*: {
  if ($2 == %AR.chan) {
    var %e $+(*, $remove($gettok($4,$iif(! isin $4,2,1),33),*), *)
    if (%e iswm %AR.nick) { raw ACCESS $2 DELETE $3 $4 | echo $2 Removed Entry: $3 $4 }
  }
}

RAW 805:*: {
  if ($2 == %AR.chan) {
    unset %AR.chan
    unset %AR.nick
  }
}