mIRC Home    About    Download    Register    News    Help

Print Thread
#151159 14/06/06 09:01 AM
Joined: Aug 2004
Posts: 9
T
Nutrimatic drinks dispenser
OP Offline
Nutrimatic drinks dispenser
T
Joined: Aug 2004
Posts: 9
The following devoice script floods off after devoicing about 12 nicks (there are about 300 total)

Code:
 
 on @*:text:!devoice:#:{ 
  unset %dv.* 
  if ($nick isop #) { 
    msg #maxfiles 4NOTICE: Channel Server Check. 
    msg #ops !Notice  4,8Devoiced! 
    set %dv.Channel $chan 
    set %dv.TotalVoicedNicks $nick(%dv.Channel,0,v) 
    set %dv.CurrentNick 1 
    while (%dv.CurrentNick <= %dv.TotalVoicedNicks) { 
      set %dv.nick $nick(%dv.channel,%dv.currentnick,v) 
      if (XDCC !isin %dv.nick) && (GAME !isin %dv.nick) { 
        set %dv.NickList $addtok(%dv.NickList,%dv.nick,32) 
        if $numtok(%dv.nicklist,32) == $modespl { 
          .mode %dv.Channel $+(-,$str(v,$modespl)) %dv.nicklist 
          unset %dv.nicklist 
        } 
      } 
      inc %dv.CurrentNick 
    } 
    if %dv.nicklist { 
      .mode %dv.Channel $+(-,$str(v,$modespl)) %dv.nicklist 
      unset %dv.nicklist 
    } 
    dv %dv.Channel 
    unset %dv.* 
  } 
} 

alias dv { mode #max-files -vvvvvv %dv.NickList | mode #max -vvvvvv %dv.NickList | unset %dv.NicksLength | unset %dv.NickList } 




Somebody suggested using

/set %myvariable $&
$1-100 $&
$101-200 $&
$201-300 $&
$301-

but I don't know how to integrate it into the script or if it will work, any suggestions?????

#151160 14/06/06 10:22 PM
Joined: Sep 2003
Posts: 4,230
D
Hoopy frood
Offline
Hoopy frood
D
Joined: Sep 2003
Posts: 4,230
Try this.
Blue section added to delay in 1 second increments each devoice command
PS: dont know what the other person was on about with what they said, sounded like rubbish to me.

Code:
 
 on @*:text:!devoice:#:{ 
  unset %dv.* 
  if ($nick isop #) { 
    msg #maxfiles 4NOTICE: Channel Server Check. 
    msg #ops !Notice  4,8Devoiced! 
    set %dv.Channel $chan 
    set %dv.TotalVoicedNicks $nick(%dv.Channel,0,v) 
    set %dv.CurrentNick 1 
    [color:blue]var %dv.TimerCounter = 0[/color]
    while (%dv.CurrentNick <= %dv.TotalVoicedNicks) { 
      set %dv.nick $nick(%dv.channel,%dv.currentnick,v) 
      if (XDCC !isin %dv.nick) && (GAME !isin %dv.nick) { 
        set %dv.NickList $addtok(%dv.NickList,%dv.nick,32) 
        if $numtok(%dv.nicklist,32) == $modespl {
          [color:blue]inc %dv.TimerCounter | .timer 1 %dv.TimerCounter [/color].mode %dv.Channel $+(-,$str(v,$modespl)) %dv.nicklist 
          unset %dv.nicklist 
        } 
      } 
      inc %dv.CurrentNick 
    } 
    if %dv.nicklist { 
      .mode %dv.Channel $+(-,$str(v,$modespl)) %dv.nicklist 
      unset %dv.nicklist 
    } 
    dv %dv.Channel 
    unset %dv.* 
  } 
} 
alias dv { mode #max-files -vvvvvv %dv.NickList | mode #max -vvvvvv %dv.NickList | unset %dv.NicksLength | unset %dv.NickList } 

#151161 15/06/06 01:39 AM
Joined: Aug 2004
Posts: 9
T
Nutrimatic drinks dispenser
OP Offline
Nutrimatic drinks dispenser
T
Joined: Aug 2004
Posts: 9
Thank you very,very much, works great now!


Link Copied to Clipboard