Miscellany

on *:join:#team7:{ if ($nick == $me) { timeridleDEOP 0 600 /chkidle | timeridleDEVO 0 600 /chkidle2 | timeridleOP 0 300 /chkidle3 | timeridleVO 0 300 /chkidle4 } }
alias chkidle {
  var %x = 1
  while (%x <= $nick(#Team7,0,o)) {
    if (($nick(#Team7,%x,o).idle > 1200) && ($nick(#Team7,%x,o) != $me)) { 
      if ($nick(#Team7,%x,o) !isin %idle.permissoes) { 
        mode #Team7 -o $nick(#Team7,%x,o)
        set %idle.ops $addtok(%idle.ops,$nick(#Team7,%x,o),32)
      }
    }
    inc %x
  }
}
alias chkidle2 {
  var %x = 1
  while (%x <= $nick(#Team7,0,v)) {
    if (($nick(#Team7,%x,v).idle > 1800) && ($nick(#team7,%x,v) != $me)) { 
      if ($nick(#Team7,%x,v) !isin %idle.permissoes) {
        mode #Team7 -v $nick(#Team7,%x,v)
        set %idle.vo $addtok(%idle.vo,$nick(#Team7,%x,v),32)
      }
    }
    inc %x
  }
}
alias chkidle3 {
  var %x = 1
  while (%x <= $numtok(%idle.ops,32)) {
    if (($nick(#Team7,$gettok(%idle.ops,%x,32)).idle < 180) && ($nick(#Team7,%x) != $me)) {
      mode #Team7 +o $gettok(%idle.ops,%x,32)
      var %z = $findtok(%idle.ops,$gettok(%idle.ops,%x,32),32)
      set %idle.ops $deltok(%idle.ops,%z,32)
    }
    inc %x
  }
}
alias chkidle4 {
  var %x = 1
  while (%x <= $numtok(%idle.vo,32)) {
    if (($nick(#Team7,$gettok(%idle.vo,%x,32)).idle < 180) && ($nick(#Team7,%x) != $me)) {
      mode #Team7 +v $gettok(%idle.vo,%x,32)
      var %z = $findtok(%idle.ops,$gettok(%idle.vo,%x,32),32)
      set %idle.ops $deltok(%idle.vo,%z,32)
    }
    inc %x
  }
}
menu nicklist {
  .Idle Permissoes
  ..Adicionar:/addidle $$1
  ..Remover:/delidle $$1
}

alias addidle { set %idle.permissoes $addtok(%idle.permissoes,$1,32) | echo Info: $1 Adicionado a' lista IDLE Permissões }
alias delidle { var %z = $findtok(%idle.permissoes,$1,32) | set %idle.permissoes $deltok(%idle.permissoes,%z,32) | echo Info: $$1 Removido da lista IDLE Permissões }