i need a help, this code its perfect and i dont have problem with tcl.
if the bot sees example a nick hat idle x minute make -o or -v and when a nick its in the botlist example and when the bot detected he has idle bot must make nothing
* 17:21:01 * Guardian sets mode: -o Shoqeria
* 17:21:01 * Shoqeria sets mode: +o Shoqeria
I want to put this name Shoqeria in the list from Guardian.
My englisch its poor sorry
Code:
# +-------------------------------------------------------------------------------------+# | |# | Idle Action v1.0.0 |# | |# +-------------------------------------------------------------------------------------+# | |# | *** Website @ http://www.EggdropTCL.com |# | *** GitHub @ http://github.com/MadaliNTCL/eggdrop-tcl |# | |# +-------------------------------------------------------------------------------------+# | *** IRC Support: |# | #EggdropTCL @ QuakeNET |# | #EggdropTCL @ UnderNET |# | #EggdropTCL @ EfNET |# | |# | *** Contact: |# | Yahoo Messenger/Mail: madalinmen28@yahoo.com |# | Google Mail : madalinmen28@gmail.com |# | Skype Messenger : madalinmen28 |# | |# +-------------------------------------------------------------------------------------+# + *** Commands *** |# | +----------------+ |# | [ ADMIN - PUBLIC ] |# | +----------------+ |# | |# | ++ !idleaction <deop on/off 10> |# | ++ !idleaction <devoice on/off 10> |# | ++ !idleaction <deop on oa> |# | ++ !idleaction <devoice on gv> |# | ++ !idleaction status |# | |# | IMPORTANT |# | - Deop/devoice time is SET in minutes |# | - 'oa' and 'gv' represent LOCAL user flags you can add any valid flag |# | |# +-------------------------------------------------------------------------------------+bind PUBM - * idleaction:pubmbind TIME - * idleaction:routinesetudef flag idledeopsetudef flag idledevoicesetudef int ideopsetudef int idevoicesetudef str idvprotectsetudef str idoprotectproc idleaction:pubm {nick uhost hand chan arg} {if {[string index $arg 0] in {! . `}} {set temp(cmd) [string range $arg 1 end]set temp(cmd) [lindex [split $temp(cmd)] 0]set arg [join [lrange [split $arg] 1 end]]} elseif {[isbotnick [lindex [split $arg] 0]]} {set temp(cmd) [lindex [split $arg] 1]set arg [join [lrange [split $arg] 2 end]]} else { return 0 }if {[info commands $temp(cmd):icpubcmd] ne ""} { $temp(cmd):icpubcmd $nick $uhost $hand $chan $arg }}proc idleaction:icpubcmd {nick uhost hand chan arg} {switch -exact -- [lindex [split $arg] 0] {deop {switch -exact -- [lindex [split $arg] 1] {on {if {![matchattr $hand n]} { return }if {[lindex [split $arg] 2] eq ""} {channel set $chan +idledeopchannel set $chan ideop "120"channel set $chan idoprotect "o"putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-deop\00302 sapo keni bere \00304ON\00302, Koha: \00304120 minuta\00302 mbrojtje \002\00304+[channel get $chan idoprotect]\002\00302"} else {channel set $chan +idledeopif {[isnumber [lindex [split $arg] 2]]} {channel set $chan ideop [lindex [split $arg] 2]putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-deop\00302 spo keni bere \00304ON\003, Koha: \00304[lindex [split $arg] 2] minuta"} else {channel set $chan idoprotect [lindex [split $arg] 2]putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-deop\00302 spo keni bere \00304ON\003, mbrojtje: \00304\002+[lindex [split $arg] 2]"}}}off {if {![matchattr $hand n]} { return }channel set $chan -idledeopchannel set $chan ideop ""putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-deop\00302 spo keni bere \00304OFF\003"}}}devoice {switch -exact -- [lindex [split $arg] 1] {on {if {![matchattr $hand n]} { return }if {[lindex [split $arg] 2] eq ""} {channel set $chan +idledevoicechannel set $chan idevoice "120"channel set $chan idvprotect "v"putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-devoice\00302 spo keni bere \00304ON\00302, Koha: \00304120 minutes\00302 and protection for \002\00304+[channel get $chan idvprotect]\002\00302 local flags"} else {channel set $chan +idledevoiceif {[isnumber [lindex [split $arg] 2]]} {channel set $chan idevoice [lindex [split $arg] 2]putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-devoice\00302 spo keni bere \00304ON\003, Koha: \00304[lindex [split $arg] 2] minutes"} else {channel set $chan idvprotect [lindex [split $arg] 2]putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-devoice\00302 spo keni bere \00304ON\003, Mbrojtja: \00304\002+[lindex [split $arg] 2]"}}}off {if {![matchattr $hand n]} { return }channel set $chan -idledevoicechannel set $chan idevoice ""putquick "PRIVMSG $chan :\002$nick\002 - \00312Idle-devoice\00302 spo keni bere \00304OFF\003"}}}status {if {[channel get $chan idledevoice]} { set idvstatus "\002\00312AKTIV\003\002" } else { set idvstatus "\00304DEAKTIV\003" }if {[channel get $chan idledeop]} { set idostatus "\002\00312AKTIV\003\002" } else { set idostatus "\00304DEAKTIV\003" }putquick "PRIVMSG $chan :\002$nick\002 - \00302Idle-deop\003: $idostatus (\00303[channel get $chan ideop]\00302 minuta -- Mbrojtja: \00304\002+[channel get $chan idoprotect]\002 usera\003) \037\002/\037\002 \00302Idle-devoice\003: $idvstatus (\00303[channel get $chan idevoice]\00302 minuta\00302 -- Mbrojtja: \00304\002+[channel get $chan idvprotect]\002 usera\003)"}}}proc idleaction:routine {min hour day month year} {## ++ Devoiceforeach chan [channels] {if {[channel get $chan idledevoice]} {set idevoice [channel get $chan idevoice]if {[channel get $chan idvprotect] ne ""} { set dvprotect [channel get $chan idvprotect] } else { set dvprotect "v"}foreach nick [chanlist $chan] { if {![isbotnick $nick] && [isvoice $nick $chan] && ![matchattr $nick |$dvprotect $chan]} { if {[getchanidle $nick $chan] >= $idevoice} { pushmode $chan -v $nick } } }}}flushmode $chan## ++ Deopforeach chan [channels] {if {[channel get $chan idledeop]} {set ideop [channel get $chan ideop]if {[channel get $chan idoprotect] ne ""} { set doprotect [channel get $chan idoprotect] } else { set doprotect "o" }foreach nick [chanlist $chan] { if {![isbotnick $nick] && [isop $nick $chan] && ![matchattr $nick |$doprotect $chan]} { if {[getchanidle $nick $chan] >= $ideop} { pushmode $chan -o $nick } } }}}flushmode $chan}putlog "++ \[ - \00304PUBLIC\003 - \00306loaded\003 * \00303Idle Action\003 \]"Statistics: Posted by AdmiraL — Wed Dec 29, 2021 12:27 pm
]]>