Anti-Idle

Ayuda general en cuanto a programación de Scripts para Eggdrop.
Avatar de Usuario
Quetzalcoatl
Moderador Global
Moderador Global
Mensajes: 4
Registrado: Mar Dic 04, 2018 1:14 pm
Agradecido : 5 veces
Agradecimiento recibido: 3 veces

Anti-Idle

Mensaje por Quetzalcoatl » Mié Mar 13, 2019 9:44 am

Más que un post es un recordatorio
la variable de intervalos es el mínimo de minutos, y no hay más que comentar, el código se explica solo.

Código: Seleccionar todo

set intervalos 5

if {[string match "*anti:idle*" [timers]] == 0} {
  timer $intervalos anti:idle
  putserv "silence +$::botnick"
}
proc anti:idle { } {
  global intervalos
  if {[string match "*anti:idle*" [timers]] == 0} {
    putserv "PRIVMSG $::botnick :anti-idle"
    timer [expr {int($intervalos + rand() * 60)}] anti:idle
  }
}
Responder