Stuff

on *:text:!highlight:#:{ 
  if ($nick isop $chan) { 
    var %loop 1 
    while (%loop <= $nick($chan,0,v,oh)) { 
      var %loop.name %loop.name $nick($chan,%loop,v,oh) 
      inc %loop 
    } 
    msg $chan %loop.name 
  } 
} 


on *:text:*:#tko_blitz: {
  if ($nick isop $chan) {
    var %c1 = #tevent,%c2 #tko_blitz
    if ($1 == !warscript) {
      var %x = 1,%n,%h
      while ($nick(%c1,%x,vh)) {
        if ($v1 ison %c2) {
          if ($v1 isvoice %c2) {
            var %n = $v1 %n
          }
          elseif ($nick(%c1,%x,vh) ishop %c2) {
            var %h = $v1 %h
          }
        }
        inc %x
      }
      massmodethingie %c2 -v %n
      massmodethingie %c2 -h %h
      !.notice $nick Done, executed command: $1
    }
    elseif ($1 == !revoice) {
      var %x = 1,%n
      while ($nick(%c1,%x,v)) {
        if ($v1 ison %c2) && ($v1 !isvoice %c2) {
          var %n = $v1 %n
        }
        inc %x
      }
      massmodethingie %c2 +v %n
      var %x = 1,%n
      while ($nick(%c1,%x,h)) {
        if ($v1 ison %c2) && ($v1 !ishop %c2) {
          var %n = $v1 %n
        }
        inc %x
      }
      massmodethingie %c2 +h %n
      !.notice $nick Done, executed command: $1
    }
  }
}

alias -l massmodethingie {
  while ($3) {
    mode $1 $+($left($2,1),$str($right($2,1),$modespl)) $gettok($3-,$+(1-,$modespl),32)
    tokenize 32 $1-2 $gettok($3-,$+($calc($modespl +1),-),32)
  }
}