Miscellany

on *:text:`o*:#:{
  var %z, %t, %q, %g, %n
  if ($me !isowner $chan) { halt }
  if ($getustatus($nick) != 1) { halt }
  if (!$2) {
    %z = $nick
    if (%z isowner $chan) { mode $chan -q $nick }
    mode $chan +o %z
  }
  else {
    %t = $+($2,$chr(95)) | %q = $len(%t)
    var %nko 1
    while (%nko <= $nick($chan,0)) {
      if ($left($nick($chan,%nko),%q) == %t) {
        %g = $replace($+($gettok($$ial($nick($chan,%nko) $+ *,1).addr,1,64),$chr(42),$chr(64),$chr(42)),$chr(126),$chr(42))
        %n = $+($chr(42),$chr(33),%g)
        set %get.nick $nick($chan,%nko)
        set %get.gate %n
        if (%get.nick isowner $chan) { mode $chan -q $nick }
        mode $chan +o %get.nick
        halt
      }
      inc %nko
    }
  }
}