+-CHMODES for Konrado v1.0

ON *:TEXT:*:#: {
  tokenize 32 $strip($1-)

  var %modes = +q,-q,+a,-a,+o,-o,+h,-h,+v,-v

  if ($istok(%modes,$1,44)) { give_mode $1 }
}

alias -l give_mode {
  if ($nick !isop $chan) { msg $chan ( $+ $nick $+ ): _!_ | return }

  var %t = $nick($chan,0)
  var %i = 1

  while (%i <= %t) {
    var %n = $nick($chan,%i)

    if (%n) && (%n !== $me) { mode $chan $1 %n }

    inc %i
  }
}