Mine

on *:load:{
  set %inactividadecanais #
  set %tempoinactividade 1200
  set %inactividadestatus Desligado

}
on *:start:{
  unset %removechan
  unset %inactividadenick
unset %removeop.*
unset %removevoice.*
}


  on *:Join:#:{
    if ($chan $+ , isin %inactividadecanais $+ ,) && (%inactividadestatus == Ligado) {
      /timer 1 3 set %removechan $chan
      /timer 1 3 removeop
      /timer 1 3 removevoice
    }
  }

  on *:op:#:{
    if (!$read(excepcoesinactividade.txt,$opnick)) && (%inactividadestatus == Ligado) && ($chan $+ , isin %inactividadecanais $+ ,) {
      if ($opnick != $me) {
        /timerremoveop $+ $opnick $+ $chan 1 %tempoinactividade chanserv deop $chan $opnick
        /timerremoveop2 $+ $opnick $+ $chan 1 %tempoinactividade set %removeop. [ $+ [ $opnick ] $+ ] . [ $+ [ $chan ] ] 1
      }
    }
  }

  on *:voice:#:{
    if (!$read(excepcoesinactividade.txt,$vnick)) && (%inactividadestatus == Ligado) && ($chan $+ , isin %inactividadecanais $+ ,) {
      if ($vnick != $me) {
        /timerremovevoice $+ $vnick $+ $chan 1 %tempoinactividade chanserv devoice $chan $vnick
        /timerremovevoice2 $+ $vnick $+ $chan 1 %tempoinactividade set %removevoice. [ $+ [ $vnick ] $+ ] . [ $+ [ $chan ] ] 1
      }
    }
  }

  on *:deop:#:{
    if ($chan $+ , isin %inactividadecanais $+ ,) {
      if ($opnick != $me) {
        /timerremoveop $+ $opnick $+ $chan off
        /timerremoveop2 $+ $opnick $+ $chan off
      }
    }
  }

  on *:devoice:#:{
    if ($chan $+ , isin %inactividadecanais $+ ,) {
      if ($vnick != $me) {
        /timerremovevoice $+ $vnick $+ $chan off
        /timerremovevoice2 $+ $vnick $+ $chan off
      }
    }
  }

  on *:PART:#:{
    if ($chan $+ , isin %inactividadecanais $+ ,) {
      /timerremoveop $+ $nick $+ $chan off
      /timerremoveop2 $+ $nick $+ $chan off
      /timerremovevoice $+ $nick $+ $chan off
      /timerremovevoice2 $+ $nick $+ $chan off
    }
  }

  on *:quit:{
    if ($chan $+ , isin %inactividadecanais $+ ,) {
      /timerremoveop $+ $nick $+ $chan off
      /timerremoveop2 $+ $nick $+ $chan off
      /timerremovevoice $+ $nick $+ $chan off
      /timerremovevoice2 $+ $nick $+ $chan off
    }
  }
  ON *:TEXT:*:#:{

    if (!$read(excepcoesinactividade.txt,$nick)) && (%inactividadestatus == Ligado) && ($chan $+ , isin %inactividadecanais $+ ,) {
      if (($nick isop $chan)) {
        /timerremoveop [ $+ [ $nick ] ] $chan  1 %tempoinactividade chanserv deop $chan $nick
        /timerremoveop2 [ $+ [ $nick ] ] $chan 1 %tempoinactividade set %removeop. [ $+ [ $nick ] $+ ] . [ $+ [ $chan ] ] 1
      }  


      if (($nick isvoice $chan)) {
        /timerremovevoice $+ $nick $+ $chan  1 %tempoinactividade chanserv devoice $chan $nick
        /timerremovevoice2 $+ $nick $+ $chan 1 %tempoinactividade set %removevoice. [ $+ [ $nick ] $+ ] . [ $+ [ $chan ] ] 1
      }

      if (%removeop. [ $+ [ $nick ] $+ ] . [ $+ [ $chan ] ]) {
        chanserv op $chan $nick
        unset %removeop. [ $+ [ $nick ] $+ ] . [ $+ [ $chan ] ]
      }

      if (%removevoice. [ $+ [ $nick ] $+ ] . [ $+ [ $chan ] ]) {
        chanserv voice $chan $nick
        unset %removevoice. [ $+ [ $nick ] $+ ] . [ $+ [ $chan ] ]
      }
    }

  }



  alias removeop {   
    var %contadorop = 1
    While ($nick(%removechan,0,o) >= %contadorop) {
      if (!$read(excepcoesinactividade.txt,$nick(%removechan,%contadorop,o)))  {
        if ($me != $nick(%removechan,%contadorop,o)) {
          /timerremoveop $+ $nick(%removechan,%contadorop,o) $+ %removechan 1 %tempoinactividade chanserv deop %removechan $nick(%removechan,%contadorop,o)
          /timerremoveop2 $+ $nick(%removechan,%contadorop,o) $+ %removechan 1 %tempoinactividade set %removeop. [ $+ [ $nick(%removechan,%contadorop,o) ] $+ ] . [ $+ [ %removechan ] ] 1
        }
      }
      inc %contadorop
    }
  }
  alias removevoice {   
    var %contadorop = 1
    While ($nick(%removechan,0,v) >= %contadorop) {
      if (!$read(excepcoesinactividade.txt,$nick(%removechan,%contadorop,v))) && (%inactividadestatus == Ligado) {
        if ($me != $nick(%removechan,%contadorop,v)) {
          /timerremovevoice $+ $nick(%removechan,%contadorop,v) $+ %removechan 1 %tempoinactividade chanserv deop %removechan $nick(%removechan,%contadorop,v)
          /timerremovevoice2 $+ $nick(%removechan,%contadorop,v) $+ %removechan 1 %tempoinactividade set %removevoice. [ $+ [ $nick(%removechan,%contadorop,o) ] $+ ] . [ $+ [ %removechan ] ] 1
        }
      }
      inc %contadorop
    }
  }

  alias add/removeinactividadenick {
    if ( $read(excepcoesinactividade.txt,w,%inactividadenick) ) {
      /write -dl $+ $readn excepcoesinactividade.txt 
    }
    else {
      /write excepcoesinactividade.txt %inactividadenick
    }

  }

  menu menubar {
    -
    Inactividade script
    .Estado $+ $chr(58) %inactividadestatus :halt
    .-
    .$iif(%inactividadestatus = Ligado,$style(2) Ligar,Ligar):set %inactividadestatus Ligado
    .$iif(%inactividadestatus = Desligado,$style(2) Desligar,Desligar):set %inactividadestatus Desligado
    .-
    .Canal/canais %inactividadecanais :halt
    .Definir Canal/Canais: set %inactividadecanais $$?="Digite o canal ou canais. Os canais devem ser separados por uma vírgula! ex:#canal1,#canal2,#canal3..."
    .-
    .Tempo de inactividade permitida $+ $chr(58) %tempoinactividade $+ s :set %tempoinactividade $$?="coloque o tempo de inactividade em segundos!"
  }

  menu nicklist {
    -
    .$iif( $read(excepcoesinactividade.txt,w,$$1) ,Retirar excepção de inactividade,Adicionar ás excepções de inactividade):set %inactividadenick $$1 | add/removeinactividadenick
  }