Mass Voice

By Anarchy[MKD] on Jul 31, 2007

Simple mass voice snippet.

Copy/Paste this code in Script Editor/Remote.

alias massvoicenew {

  var %chan = $1  
  if (%chan == NULL) { var %chan = $active }

  if ($me isop %chan) || ($me ishop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    set %Var.User $nopnick(%chan,%i)
    if (%Var.User == $null) { 
      if ( $me isop %chan ) || ($me ishop %chan) { .raw -q mode %chan +vvvvvvvvvvvv %Var.Nick }
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if (%Var.User == $me) || (%Var.User isvoice %chan)  || (%Var.User isop %chan)  || (%Var.User ishop %chan) { inc %i 1 | goto start }
    if (%Var.User != $me)  {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        if ( $me isop %chan ) { .raw -q mode %chan +vvvvvvvvvvvv %Var.Nick }
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}
alias demassvoicenew {

  var %chan = $1  
  if (%chan == NULL) { var %chan = $active }

  if ($me isop %chan) || ($me ishop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    set %Var.User $nopnick(%chan,%i)
    if (%Var.User == $null) { 
      if ( $me isop %chan ) || ($me ishop %chan) { .raw -q mode %chan +vvvvvvvvvvvv %Var.Nick }
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if (%Var.User == $me) || (%Var.User !isvoice %chan)  || (%Var.User isop %chan)  || (%Var.User ishop %chan) { inc %i 1 | goto start }
    if (%Var.User != $me)  {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        if ( $me isop %chan ) { .raw -q mode %chan -vvvvvvvvvvvv %Var.Nick }
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}
alias massdeopnew {
  var %chan = $active
  if ($me isop %chan) { 
    set %i 1
    set %Var.Index 1
    set %Var.Num 5 
    :start
    set %Var.User $opnick(%chan,%i)
    if (%Var.User == $null) { 
      if ($me isop %chan) { raw -q mode %chan -ooooooooooo %Var.Nick }
      unset %Var.Nick %i %Var.Index %Var.Num 
      halt 
    }
    if (%Var.User == $me) { inc %i 1 | goto start }
    if (%Var.User != $me) {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        if ( $me isop %chan ) { raw -q mode %chan -ooooooooooo %Var.Nick }
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i  1
    goto start
  }
}

alias massopnew {
  var %chan = $active
  if ($me isop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    set %Var.User $nopnick(%chan,%i)
    if (%Var.User == $null) { 
      if ( $me isop %chan ) { .raw -q mode %chan +oooooooooooo %Var.Nick }
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if (%Var.User == $me) { inc %i 1 | goto start }
    if (%Var.User != $me) {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        if ( $me isop %chan ) { .raw -q mode %chan +oooooooooooo %Var.Nick }
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}
alias masshopnew {
  var %chan = $active
  if ($me isop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    set %Var.User $nopnick(%chan,%i)
    if (%Var.User == $null) { 
      if ( $me isop %chan ) { .raw -q mode %chan +hhhhhhhhhhhh %Var.Nick }
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if (%Var.User == $me) { inc %i 1 | goto start }
    if (%Var.User != $me) {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        if ( $me isop %chan ) { .raw -q mode %chan +hhhhhhhhhhhh %Var.Nick }
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}
alias masshopnew {

  var %chan = $1  
  if (%chan == NULL) { var %chan = $active }

  if ($me isop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    ;  set %Var.User $nopnick(%chan,%i)
    set %Var.User $nick(%chan,%i)

    if (%Var.User == $null) { 
      .raw -q mode %chan +hhhhhhhhhhhh %Var.Nick 
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if ((%Var.User == $me) ||  (%Var.User isop %chan)  || (%Var.User ishop %chan)) { inc %i 1 | goto start }
    if (%Var.User != $me)  {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        .raw -q mode %chan +hhhhhhhhhhhh %Var.Nick 
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}

alias massdehopnew {

  var %chan = $1  
  if (%chan == NULL) { var %chan = $active }

  if ($me isop %chan) {
    set %i 1
    set %Var.Index 1
    set %Var.Num 12 
    :start
    ;  set %Var.User $nopnick(%chan,%i)
    set %Var.User $nick(%chan,%i)

    if (%Var.User == $null) { 
      .raw -q mode %chan -hhhhhhhhhhhh %Var.Nick 
      unset %Var.Nick | unset %i | unset %Var.Index | unset %Var.Num
      halt 
    }
    if ((%Var.User == $me) ||  (%Var.User isop %chan) ) { inc %i 1 | goto start }
    if (%Var.User != $me)  {
      set %Var.Nick %Var.User %Var.Nick
      if (%Var.Index == %Var.Num) { 
        .raw -q mode %chan -hhhhhhhhhhhh %Var.Nick 
        unset %Var.Nick
        set %Var.Index 1 
        inc %i 1 
        goto start
      }
      inc %Var.Index 1
    }  
    inc %i 1 
    goto start
  }
}

Comments

Sign in to comment.
Lindrian   -  Jul 31, 2007

Hehe, dont you think this is a little long and bad coded? You could do much better, try taking a look at mass codes here at hawkee.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.