alias clearchanlev {
  if ($3-) { set %protected $3- }
  if ($left($1,1) == $chr(35)) && ($network == QuakeNet) {
    unset %temp | unset %zxx | unset %mylevel | unset %clea*
    if ($2) {
      if (!%clearing) && (!%clear1) {
        if ($left($2,1) == $chr(43)) || ($left($2,1) == $chr(45)) { set -u60 %clear $1 $remove($2,$left($2,1)) }
        else { set -u60 %clear $1 $2 }
        .timercheckwhat 1 5 checkwhat | set %clear1 1 | .msg q chanlev $1 | set %mylevel $remove($address($me,2),*!*@,.users.quakenet.org) | set %clearing 1 | set -u15 %zxx 1
      }
      elseif (%clearing) || (%clear1) { echo -agce info * Error! During a clearing!
      }
    }
    else { echo -agce info * Error! Please use: /clearchanlev <#chan> <level>/<+level>/<-level> | halt
    }
  }
  else {
    echo -agce info * Error! Either you didnt typed $chr(35) , or you are not using the network "quakenet". | halt
  }
}
on *:notice:*:?:{
  if ($nick == Q) && (%clear1) {
    haltdef
    if (%clearing) {
      if (*You do not have sufficient access on* iswm $1-) { echo -agce info * Error! you dont have enough acsses on $gettok(%clear,1,32) to use chanlev. | unset %clearing | .timercheckwhat off | .timera* off | halt }
      if (*is unknown or suspended* iswm $1-) { echo -agce info * Error! channel is unknown or suspended. | .timercheckwhat off | .timera* off | unset %clearing | halt }
      if (*known* !iswm $1-) && (*username* !iswm $1-) && ($1 != %mylevel) && (n !isin $2) && ($1 !isin %protected) {
        if ($left($2,1) == $chr(43)) && ($gettok(%clear,2,32) isin $2) && (n !isin $2) { set %temp %temp $chr(35) $+ $1 }
        if ($numtok(%temp,32) == 18) { .timera $+ %zxx 1 %zxx .msg q removeuser $gettok(%clear,1,32) %temp | unset %temp | inc %zxx 2 }
      }
      if (*End of* iswm $1-) { unset %clearing | halt }
      if (Total: iswm $1) { unset %clearing | halt }
    }
  }
}

alias checkwhat {
  var %zzz = $calc(%zxx -4)
  if ($numtok(%temp,32) < 18) && ($numtok(%temp,32) >= 1) { .timer 1 %zzz .msg q removeuser $gettok(%clear,1,32) %temp | .timer 1 $calc(%zzz +2) echo -agce info * Clearing ended. | unset %temp | unset %zxx | unset %mylevel | .timer 1 $calc(%zzz +4) unset %clea* | unset %protected }
  elseif ($numtok(%temp,32) == 0) { unset %mylevel | unset %zxx | echo -agce info * Error! No one has the level: " $+ $chr(43) $+ $gettok(%clear,2,32) $+ " | unset %zxx | unset %clea* | halt }
}