Timers not dying[solved]

[vigilant]

First i want to ask, how can kill a timer using .tcl in DCC?
Is there a way hehe?

And now, my script i'm using this code, but it's not killing the timers, it keeps starting... hehe

I am basically trying to do, if it finds itself op i want to kill the timers for the message
thanks

Code: Select all

proc complain {} {
global services botnick
utimer $services(complaintime) complain
set chan $::channel
	puthelp "PRIVMSG $chan :No access to op myself, please op me."
set testtimer ""
foreach testtimer [utimers] {
if {[string match "complain" $testtimer]} {
utimer $services(complaintime) complain
if {[botisop $chan]} {
set killit ""
foreach killit [utimers] {
if {[string equal -nocase complain [lindex $killit 1]]} { 
killutimer [lindex $killit 2]
break
}
}
}
}
 } }

[TCL_no_TK]

Checked the TCL Archive theres a script in there for killing timers via .dcc called Timer Tools. Search link http://www.egghelp.org/tclhtml/3478-4-0-0-1-timer.htm

[nml375]

As to your op-check, eggdrop has a mechanism to detect when it is opless, allowing you to execute custom code when that happens. Once an opless state has been detected, the code will be executed continuosly (with a slight delay inbetween invocations) until your eggdrop regains op.

Current, recommended, approach is something like this:

Code: Select all

bind need - "% op" wewantops
proc wewantops {chan what} {
 puthelp "PRIVMSG $chan :No access to op myself, please op me."
}

An older, now deprecated approach is something like this:

Code: Select all

channel set #yourchannel need-op { puthelp "PRIVMSG #yourchannel :No access to op myself, please op me."

Worth noting, in the second approach, the code is limited to 120 characters, whereas the first has no such limit.

[vigilant]

As to your op-check, eggdrop has a mechanism to detect when it is opless, allowing you to execute custom code when that happens. Once an opless state has been detected, the code will be executed continuosly (with a slight delay inbetween invocations) until your eggdrop regains op.

Current, recommended, approach is something like this:

Code: Select all

bind need - "% op" wewantops
proc wewantops {chan what} {
 puthelp "PRIVMSG $chan :No access to op myself, please op me."
}

An older, now deprecated approach is something like this:

Code: Select all

channel set #yourchannel need-op { puthelp "PRIVMSG #yourchannel :No access to op myself, please op me."

Worth noting, in the second approach, the code is limited to 120 characters, whereas the first has no such limit.

Thank you sir. This does work clearly. I got told, i was trying to reinvent the wheel haha.. so yeah.

Got it working