Guest User

Untitled

a guest
Jun 29th, 2018
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 1.24 KB | None | 0 0
  1. ################
  2. # Configuração #
  3. ################
  4.  
  5. set whoisc "#SPFC"
  6.  
  7. #Defina o tempo aqui. 20 = Minutos
  8. set whoisidle "20"
  9.  
  10. set nicksig { "Morumbi Tricolor SPFC" }
  11.  
  12. ###########################################################################################
  13. # Não mude nada em baixo , pois a TCL poderá não funcionar corretamente !!!!!!!!!!!!!!!!! #
  14. # Não mude nada em baixo , pois a TCL poderá não funcionar corretamente !!!!!!!!!!!!!!!!! #
  15. # Não mude nada em baixo , pois a TCL poderá não funcionar corretamente !!!!!!!!!!!!!!!!! #
  16. # Não mude nada em baixo , pois a TCL poderá não funcionar corretamente !!!!!!!!!!!!!!!!! #
  17. ###########################################################################################
  18.  
  19. bind time - "?0 * * * *" verificaridle
  20.  
  21. proc verificaridle {m h d M y} {
  22.   global whoisc whoisidle botnick verists nicksig
  23.   foreach var [chanlist $whoisc] {
  24.       if {[isop $var $whoisc] && [string match -nocase "*$var*" "$nicksig"]==0 && [getchanidle $var $whoisc]>=$whoisidle} {
  25.           pushmode $whoisc -o $var
  26.           putlog "PRIVMSG $var :\[\Anti idle\]\ DEOPADO por idle maior que [duration [expr $whoisidle * 60]]. Seu idle era de [duration [expr [getchanidle $var $whoisc] * 60]]"
  27.     }
  28.   }
  29. }
Add Comment
Please, Sign In to add comment