Auto Voice

Okey… Remote ni.. akan autovoice user setelah dia msg channel sekurang-kurangnya 7 baris dalam tempoh 15 saat.

ON @*:TEXT:*:#: { 
  if ($nick isreg $chan) { 
    .inc -u15 %voice. [ $+ [ $cid ] $+ [ $chan ] $+ [ $nick ] ] 1 
    if (%voice. [ $+ [ $cid ] $+ [ $chan ] $+ [ $nick ] ] > 6) { 
      mode $chan +v $nick | halt
    } 
  } 
}

Nick Completor

Okey, utk tidak menghampakan bro Zek, ni remote nick completor yg pakcu pakai… Feel free to edit it 😉

alias ncomp {
  var %color = $+($base($r(2,14),10,10,2))
  return $+($left($nick($1,$2).pnick,1),,%color,$left($2,1),,$mid($2,2,-1),,%color,$right($2,1),,$chr(44)) $3-
}
ON *:INPUT:*: {
  if ($left($1,1) == $chr(47) || $ctrlenter || $inpaste) { return }
  else {
    if ($chr(35) isin $active && c !isin $gettok($chan($active).mode,1,32)) {
      if ($1 ison $active) {
        msg $target $ncomp($active,$1,$2-) | halt
      }
      else {
        msg $target $1- | halt 
      }
    }
    else { 
      msg $target $1- | halt 
    }
  }
}

AutoDeop & AutoDevoice On Idle

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

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