Mine

on *:join:#CANAL:{ if ($nick == $me) { timeridleDEOP 0 1200 /chkidle | timeridleDEVO 0 1200 /chkidle2 | timeridleOP 0 1200 /chkidle3 | timeridleVO 0 1200 /chkidle4 } }
alias chkidle {
  var %x = 1
  while (%x <= $nick(#CANAL,0,o)) {
    if (($nick(#CANAL,%x,o).idle > 1200) && ($nick(#CANAL,%x,o) != $me)) { 
      if ($nick(#CANAL,%x,o) !isin %idle.permissoes) { 
        mode #CANAL -o $nick(#CANAL,%x,o)
        set %idle.ops $addtok(%idle.ops,$nick(#CANAL,%x,o),32)
      }
    }
    inc %x
  }
}
alias chkidle2 {
  var %x = 1
  while (%x <= $nick(#CANAL,0,v)) {
    if (($nick(#CANAL,%x,v).idle > 1800) && ($nick(#Hardware,%x,v) != $me)) { 
      if ($nick(#CANAL,%x,v) !isin %idle.permissoes) {
        mode #Hardware -v $nick(#CANAL,%x,v)
        set %idle.vo $addtok(%idle.ops,$nick(#CANAL,%x,v),32)
      }
    }
    inc %x
  }
}
alias chkidle3 {
  var %x = 1
  while (%x <= $numtok(%idle.ops)) {
    if (($nick($chan,$gettok(%idle.ops,%x,32)).idle < 180) && ($nick($chan,%x) != $me)) {
      mode $chan +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)) {
    if (($nick($chan,$gettok(%idle.vo,%x,32)).idle < 180) && ($nick($chan,%x) != $me)) {
      mode $chan +o $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
  }
}