egghelp/eggheads community

Auto announcement every 10 min after nick gets halfop

2021-12-13T09:45:30-04:00

tested again and it seems to do exactly as expected so far it seems doing all it should thanks spike^^ / CrazyCat

Statistics: Posted by simo — Mon Dec 13, 2021 9:45 am

Auto announcement every 10 min after nick gets halfop

2021-12-13T09:31:17-04:00

loaded and tested it and it doesnt seem to remove Timer if hop nick has left channel or is de-halfopped spike^^

also if nick rejoins and gets halfopped again +h nick the previous timer is still running but no annoucements are made

Statistics: Posted by simo — Mon Dec 13, 2021 9:31 am

Auto announcement every 10 min after nick gets halfop

2021-12-12T17:51:07-04:00

OK, I bet I know what is going on:)

Let us assume that the recently added, infinitely repeating timer Does Not function as one might Hope and Expect it to....

Code:

bind mode - "#% *+*h*" auto:announcementproc auto:announcement {nick uhost handle chan mode target} {   if {[isbotnick $target] || ![string equal -nocase $chan "#test"]} { return }   set tglow [string tolower $target]   if {[info exists ::ish($tglow)]} { return }   putserv "PRIVMSG $chan :$target is on air tune in to your radio"   #set ::ish($tglow) [timer 10 [list repeat:announcement $chan $target] 0]   set ::ish($tglow) [timer 10 [list repeat:announcement $chan $target]]}proc repeat:announcement {chan target} {   ##   set tglow [string tolower $target]   if {[onchan $target $chan] && [ishalfop $target $chan]} {      putserv "PRIVMSG $chan :$target is on air tune into your radio"      ##      set ::ish($tglow) [timer 10 [list repeat:announcement $chan $target]]   } else {      #killtimer $::ish($tglow)      unset ::ish($tglow)   }}bind mode - "#% *-*h*" stop:announcementproc stop:announcement {nick uhost handle chan mode target} {   if {[isbotnick $target] || ![string equal -nocase $chan "#test"]} { return }   set tglow [string tolower $target]   if {![info exists ::ish($tglow)]} { return }   putserv "PRIVMSG $chan :$target show is done thank you $target for the nice show"   killtimer $::ish($tglow)   unset ::ish($tglow)}

Statistics: Posted by SpiKe^^ — Sun Dec 12, 2021 5:51 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T17:05:35-04:00

tested it same result thanks for the efforts u put into it tho Spike^^ and CrazyCat

Statistics: Posted by simo — Sun Dec 12, 2021 5:05 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T16:22:17-04:00

Maybe it's just a case issue with the array element name?
one last try...

Code:

bind mode - "#% *+*h*" auto:announcementproc auto:announcement {nick uhost handle chan mode target} {   if {[isbotnick $target] || ![string equal -nocase $chan "#test"]} { return }   set tglow [string tolower $target]   if {[info exists ::ish($tglow)]} { return }   putserv "PRIVMSG $chan :$target is on air tune in to your radio"   set ::ish($tglow) [timer 10 [list repeat:announcement $chan $target] 0]}proc repeat:announcement {chan target} {   if {[onchan $target $chan] && [ishalfop $target $chan]} {      putserv "PRIVMSG $chan :$target is on air tune into your radio"   } else {      set tglow [string tolower $target]      killtimer $::ish($tglow)      unset ::ish($tglow)   }}bind mode - "#% *-*h*" stop:announcementproc stop:announcement {nick uhost handle chan mode target} {   if {[isbotnick $target] || ![string equal -nocase $chan "#test"]} { return }   set tglow [string tolower $target]   if {![info exists ::ish($tglow)]} { return }   putserv "PRIVMSG $chan :$target show is done thank you $target for the nice show"   killtimer $::ish($tglow)   unset ::ish($tglow)}

Statistics: Posted by SpiKe^^ — Sun Dec 12, 2021 4:22 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T15:52:50-04:00

thanks for trying Spike^^ CrazyCat much apreciated

Statistics: Posted by simo — Sun Dec 12, 2021 3:52 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T15:45:40-04:00

perhaps the halfopped nick can be stored seperate in a var as well to be used by repeat announcement proc

Statistics: Posted by simo — Sun Dec 12, 2021 3:45 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T15:42:55-04:00

the repeat announcement doesnt seem to know what nicks to check for as it doesnt get feeded the nick after the first time nick is halfopped

perhaps if the nick is stored to be used by repeat annoucer it can do the checks

Statistics: Posted by simo — Sun Dec 12, 2021 3:42 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T15:39:41-04:00

ive loaded it and changed to utimer to test with not to have to wait minutes to see results

but when nick is de-halfopped or left channel the timer doesnt get removed tho

Statistics: Posted by simo — Sun Dec 12, 2021 3:39 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T15:31:03-04:00

Code:

bind mode - "#% *+*h*" auto:announcementproc auto:announcement {nick uhost handle chan mode target} {   if {[isbotnick $target] || ![string equal -nocase $chan "#test"]} { return }   if {[info exists ::ish($target)]} { return }   putserv "PRIVMSG $chan :$target is on air tune in to your radio"   set ::ish($target) [timer 10 [list repeat:announcement $chan $target] 0]}proc repeat:announcement {chan nick} {   if {[onchan $nick $chan] && [ishalfop $nick $chan]} {      putserv "PRIVMSG $chan :$nick is on air tune into your radio"   } else {      killtimer $::ish($nick)      unset ::ish($nick)   }}bind mode - "#% *-*h*" stop:announcementproc stop:announcement {nick uhost handle chan mode target} {   if {[isbotnick $target] || ![string equal -nocase $chan "#test"]} { return }   if {![info exists ::ish($target)]} { return }   putserv "PRIVMSG $chan :$target show is done thank you $target for the nice show"   killtimer $::ish($target)   unset ::ish($target)}

Statistics: Posted by SpiKe^^ — Sun Dec 12, 2021 3:31 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T13:00:44-04:00

now i also get error:

Tcl error [stop:announcement]: invalid timerID

Statistics: Posted by simo — Sun Dec 12, 2021 1:00 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T12:51:41-04:00

oh true thanks for the correction this is what i have so far

Code:

bind mode - "#% *+*h*" auto:announcementproc auto:announcement {nick uhost handle chan mode target} {   if {[info exists ::ish($target)]} { return }   if {($target != $::botnick) && [string equal -nocase $chan "#test"]} {      putserv "PRIVMSG $chan :[colors] $target [end][colors] is on air tune into your radio [end]"      set ::ish($target) [utimer 10 [list repeat:announcement $chan $target] 0]   }}proc repeat:announcement {chan nick} {   if {![info exists ::ish($nick)]} { return }   if {[onchan $nick $chan] && [ishalfop $nick $chan]} {      putserv "PRIVMSG $chan :[colors] $nick [end][colors] is on air tune into your radio [end]"   } else {      killutimer $::ish($nick)   }}bind mode - "#% *-*h*" stop:announcementproc stop:announcement {nick uhost handle chan mode target} {   if {![info exists ::ish($target)]} { return }   if {($target != $::botnick) && [string equal -nocase $chan "#test"]} {      putserv "PRIVMSG $chan :[colors] $target [end][colors] show is done thank you [end][colors] $target [end][colors]for the nice show [end]"      killutimer $::ish($target)   }}

it still seems to not remove timer if halfop nick has left channel

Statistics: Posted by simo — Sun Dec 12, 2021 12:51 pm

Auto announcement every 10 min after nick gets halfop

2021-12-12T11:55:09-04:00

I understand, but it was already managed.
If you want to kill the previous timer and start a new one (to reinit the 10 minutes delay), just unset ::ish($target) if it exists.

Note that in your code (proc auto:announcement), you have an error:

Code:

if {[info exists ::ish($nick)]} { return }

It's not $nick but $target

Statistics: Posted by CrazyCat — Sun Dec 12, 2021 11:55 am

Auto announcement every 10 min after nick gets halfop

2021-12-12T09:33:55-04:00

Why do you add your if {[set thetimer ....} { killtimer xxxxx } in all procs ?
Just keep the if {[info exists ::ish($nick)]} { return } in proc auto:announcement, it will be ok when pple come out and in and regain hop.

And concerning the person out of the chan when timer runs... why catch unset ? The timer is killed if $nick is not on chan OR $nick is not halfop. With your catch, you first unset the "memory" timer ID and then try to use this variable to kill the timer.

I resume your code:
Code:
# try to delete ::is($nick)catch { unset ::ish($nick) }# don't care if deleted or not, use it to kill the timerkillutimer $::ish($nick)# probably an error, no ?

the reason i added is in an ettempt to make sure if if halfopped nick has left channel to have the timer lifted and also to make sure if timer is running and halfopped nick rejoining channel and gets halfop again +h nick not to have a duplicate timer start again while there already was one running

Statistics: Posted by simo — Sun Dec 12, 2021 9:33 am

Auto announcement every 10 min after nick gets halfop

2021-12-12T00:09:12-04:00

hi simo

remove:
catch { unset ::ish($nick) }

and look for this :
killutimer $::ish($nick)

change it to:
unset -nocomplain -- ::is($nick)

Statistics: Posted by Arnold_X-P — Sun Dec 12, 2021 12:09 am