alias _deop {
  var %toplam = $numtok(%kanallar,32)
  var %x = 1
  while %x <= %toplam {
    mode $gettok(%kanallar,%x,32) -a %nick
  }
  inc %x
}


raw 319:* {
  set %nick $2
  set %kanallar $remove($3-,&)
}
alias deop { names $1 | _deop }

 
alias nickv { dec %mm | return $iif(%mm <= 0,$null,$nick($2,%mm)) }
alias unmode { 
set %mm $nick($2,0)
:basa
if (%mm > 0) {
.mode $2 $+($1,$str($mid($1,2,3),4)) $nickv($1,$2) $nickv($1,$2) $nickv($1,$2) $nickv($1,$2) $nickv($1,$2)
	goto basa
}
unset %mm 
}

alias xdeop { 
  var %t = $nick($1,0,o)
  var %x = 1
  while %x <= %t {
	mode $1 -o $nick($1,%x,o)
	inc %x
  }
}

alias toplu {
  set %kanal $2
  set %olay $1
  hopzıp
}
alias hopzıp {
  var %u 1
  while $nick(%kanal,%u) {
    .mode %kanal %olay $ifmatch
    dec %u
  }
}

 
alias massmode { 
  if ($active ischan) {
	var %i = 1
	while $nick(#,%i) {
	  %x = $+(%x,$chr(32),$ifmatch)
	  if ($numtok(%x,32) == 3) { 
	  mode # $+($left($1,1),$str($right($1,1),3)) %x
	  unset %x 
	}
	inc %i
  }
  if (%x) { 
	mode # $+($left($1,1),$str($right($1,1),$numtok(%x,32))) %x
	unset %x 
  }
}