on *:TEXT:.op *:#:{
  if ($nick isop $chan) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i 1
      if ($2 $+ * iswm $nick($chan,%i)) {
        mode $chan +o $nick($chan,%i)
      }
    }
  }
}

on *:TEXT:.hop *:#:{
  if ($nick isop $chan) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i 1
      if ($2 $+ * iswm $nick($chan,%i)) {
        mode $chan +h $nick($chan,%i)
      }
    }
  }
}

on *:TEXT:.deop *:#:{
  if ($nick isop $chan) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i 1
      if ($2 $+ * iswm $nick($chan,%i)) {
        mode $chan -o $nick($chan,%i)
      }
    }
  }
}

on *:TEXT:.dehalf *:#:{
  if ($nick isop $chan) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i 1
      if ($2 $+ * iswm $nick($chan,%i)) {
        mode $chan -h $nick($chan,%i)
      }
    }
  }
}

on *:TEXT:.devoice *:#:{
  if ($nick ishop $chan) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i 1
      if ($2 $+ * iswm $nick($chan,%i)) {
        mode $chan -v $nick($chan,%i)
      }
    }
  }
}

on *:TEXT:.voice *:#:{
  if ($nick ishop $chan) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i 1
      if ($2 $+ * iswm $nick($chan,%i)) {
        mode $chan +v $nick($chan,%i)
      }
    }
  }
}