Code: Select all
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
# ____ _ _____ _ _ ___ #
# / ___| |__ __ _ _ _|_ _|__ ___ | |___ __ _/ | / _ \ #
# | | | '_ \ / _` | '_ \| |/ _ \ / _ \| / __| \ \ / / || | | | #
# | |___| | | | (_| | | | | | (_) | (_) | \__ \ \ V /| || |_| | #
# \____|_| |_|\__,_|_| |_|_|\___/ \___/|_|___/ \_/ |_(_)___/ #
# #
# Moonspell www.wolfheart.org moon@pthelp.org #
# #
# Script desenvolvido por Filipe Silva. #
# Bugs, sugestões, opiniões, comentários: enviem para moon@pthelp.org #
# #
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
# -=(. Anti-Idle .)=- # Script Anti-Idle, Funciona para Idle Global, (raw 317) #
# # Verifica primeiro o idle no Canal #
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
# Canal ou Canais em que pretende usar o Script! (separar por espaços)
set idle_channels "#teste"
# Intervalo de tempo para verificar o Idle! (minutos)
set idle_interval "10"
# Máximo de tempo idle permitido no Canal! (minutos)
set idle_time "30"
# [ops/voices/both] - Utilizadores aos quais se aplicará o Script.
set idle_users ops
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
# -=(. FAQ .)=- # Respostas às possiveis dúvidas que possam surgir #
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
# P: O que é uma Flag? #
# R: Flag é o nome dado ao estatuto(s) que cada Utilizador do Eggdrop tem, para #
# mais informações sobre cada uma delas faz (.help whois) na PartyLine do bot.#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
# P: O que quer dizer Idle ? #
# R: Idle é o tempo de inactividade de um cliente em relação ao seu servidor, #
# ou seja, um utilizador que não envia nenhuma Informação durante "X" tempo, #
# esse "X" corresponde ao Idle. #
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
# P: Eu tenho uma dúvida diferente, onde posso obter ajuda ? #
# R: Nesse caso, poderás sempre pedir ajuda no canal #Eggdrop (irc.ptnet.org), e #
# #Egg (irc.brasnet.org), canais pertencentes ao GUPE (Grupo de Utilizadores #
# Portugueses de Eggdrops), ou directamente comigo. #
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
### Não alterar nada a partir daqui...
#
set chantools "\002(\002ChanTools\002)\002\037\:\037"
set ver "v1.0"
putlog "## $chantools $ver by Moonspell - Activo!"
proc u {} {return };# underline code
proc r {} {return };# reverse code
proc b {} {return };# bold code
proc c {} {return };# color code
proc o {} {return };# reset attributes code
### -=(. Anti-Idle .)=- BINDS\PROCS:
#Binds
bind raw - "317" raw_317 ;# Idle Time
#Procs
proc idlecheck { } {
global idle_channels botnick idle_users idle_interval idle_time whois
set whois idlemode
if {$idle_channels == " "} {
set idle_temp [channels]
} else {
set idle_temp $idle_channels
}
foreach chan $idle_temp {
foreach person [chanlist $chan] {
switch [lindex $idle_users 0] {
"ops" {
if {[isop $person $chan]} {
if {(![matchattr [nick2hand $person $chan] b]) && ($person != $botnick) && ([getchanidle $person $chan]>$idle_time)} { putserv "WHOIS $person $person" }
}
}
"voices" {
if {[isvoice $person $chan]} {
if {(![matchattr [nick2hand $person $chan] b]) && ($person != $botnick) && ([getchanidle $person $chan]>$idle_time)} { putserv "WHOIS $person $person" }
}
}
"both" {
if {([isop $person $chan]) || ([isvoice $person $chan]) && ([getchanidle $person $chan]>$idle_time)} {
if {(![matchattr [nick2hand $person $chan] b]) && ($person != $botnick)} { putserv "WHOIS $person $person" }
}
}
}
}
}
if {![string match "*time_idle*" [timers]]} {
timer $idle_interval idlecheck
}
}
if {![string match "*time_idle*" [timers]]} {
timer $idle_interval idlecheck
}
putlog "-- $chantools Anti-Idle - Activo!"
proc raw_317 {from key arg} {
global idle_time idle_channels whois
switch [lindex $whois 0] {
"idlemode" {
set nick [string tolower [lindex $arg 1]]
set idle [string tolower [lindex $arg 2]]
set minutesidle [expr $idle / 60]
if {$minutesidle > $idle_time} {
foreach channel $idle_channels {
putserv "MODE $channel -o-v $nick $nick"
}
}
}
}
}
#EOF!
