AutoDeop & AutoDevoice On Idle

Tgh ni.. tengah boring-boring, PakTam (DALNet) ajak buat remote autodevoice bila user idle lebih dari 15 minit.

<br />
ON *:JOIN:#: {<br />
  if ($nick == $me) {<br />
    .timer 1 300 checkidle $chan<br />
  }<br />
}<br />
alias checkidle {<br />
  if ($me isop $1) {<br />
    var %i 1<br />
    while (%i < = $nick($1,0,o)) {
      if ($nick($1,%i,o).idle > 300 && $nick($1,%i,o) != $me) {<br />
        .inc %z 1<br />
        var %x = $addtok(%x,$nick($1,%i,o),32)<br />
        if (%z == $modespl) { mode $1 $+(-,$str(o,$modespl)) %x | .unset %x %z }<br />
      }<br />
      .inc %i 1<br />
    }<br />
    mode $1 $+(-,$str(o,$numtok(%x,32))) %x | .unset %z<br />
  }<br />
  .timer 1 5 checkidle2 $1<br />
}<br />
alias checkidle2 {<br />
  if ($me isop $1) {<br />
    var %i 1<br />
    while (%i < = $nick($1,0,v)) {
      if ($nick($1,%i,v).idle > 300 && $nick($1,%i,v) != $me) {<br />
        .inc %z 1<br />
        var %x = $addtok(%x,$nick($1,%i,v),32)<br />
        if (%z == $modespl) { mode $1 $+(-,$str(v,$modespl)) %x | .unset %x %z }<br />
      }<br />
      .inc %i 1<br />
    }<br />
    mode $1 $+(-,$str(v,$numtok(%x,32))) %x | .unset %z<br />
  }<br />
  .timer 1 2000 checkidle $1<br />
}<br />

Comments

5 thoughts on “AutoDeop & AutoDevoice On Idle”

  1. PakTam, pakcu dah update:
    + hanya devoice voice user sahaja…
    + op dia x devoice
    + guna $modespl

Comments are closed.