egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2014-07-29T02:59:36-04:00 https://forum.eggheads.org/app.php/feed/topic/19757 2014-07-29T00:56:34-04:00 2014-07-29T00:56:34-04:00 https://forum.eggheads.org/viewtopic.php?p=103083#p103083 <![CDATA[setudef flag not working]]>
second one says " if we don't have that-flag ,won't do anything ..."

Statistics: Posted by heartbroken — Tue Jul 29, 2014 12:56 am

]]> 2014-07-29T00:52:09-04:00 2014-07-29T00:52:09-04:00 https://forum.eggheads.org/viewtopic.php?p=103082#p103082 <![CDATA[setudef flag not working]]>

Code: 

if {[channel get $chan that-flag]} {...
or

Code: 

if {![channel get $chan that-flag]} { return }if ......
?

Statistics: Posted by daigo — Tue Jul 29, 2014 12:52 am

]]> 2014-07-29T02:59:36-04:00 2014-07-29T00:43:33-04:00 https://forum.eggheads.org/viewtopic.php?p=103081#p103081 <![CDATA[setudef flag not working]]>
there is only setudef flag ... line outside of the procs , it doesn't check if this defined channel flag activated on $chan in the procs...

there are only checks that : if $spy(chan) equivalence to $channel .. in every proc
-> https://www.tcl.tk/man/tcl8.6/TclCmd/string.htm

so how we gonna check this "user defined channel flags in procs?"

method 1 : "channel get" -> http://www.eggheads.org/support/egghtml ... l#chancmds

Code: 

if {[channel get $chan that-flag]} { ....
method 2 : with "lsearch" -> http://www.tcl.tk/man/tcl8.6/TclCmd/lsearch.htm

Code: 

if {[lsearch -exact [channel info $chan] "+that-flag"] != -1} {

Statistics: Posted by heartbroken — Tue Jul 29, 2014 12:43 am

]]> 2014-07-28T23:55:29-04:00 2014-07-28T23:55:29-04:00 https://forum.eggheads.org/viewtopic.php?p=103080#p103080 <![CDATA[setudef flag not working]]>

Code: 

setudef flag relayset spy(home) "#daigo"set spy(chan) "#helpops"bind PUBM   -|- *                spychan:chatbind CTCP   -|- "ACTION"         spychan:actionbind SIGN   -|- "$spy(chan) *"   spychan:signbind JOIN   -|- "$spy(chan) *"   spychan:joinbind PART   -|- "$spy(chan) *"   spychan:partbind SPLT   -|- "$spy(chan) *"   spychan:splitbind KICK   -|- "$spy(chan) *"   spychan:kickbind RAW     *  "MODE"           spychan:modeproc spychan:part { nickname hostname handle channel reason } {global spyif {[string equal -nocase $channel $spy(chan)]} {putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has left $spy(chan)"}       }proc spychan:join { nickname hostname handle channel } {global spyif {[string equal -nocase $channel $spy(chan)]} {putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has joined $spy(chan)"}       }proc spychan:kick { nickname hostname handle channel target reason } {global spyif {[string equal -nocase $channel $spy(chan)]} {putserv "PRIVMSG $spy(home) :\[$channel\] * $target was kicked from $spy(chan) by $nickname ($reason)"}       }proc spychan:mode { from key arguments } {global spyset channel [string trim [lindex [split $arguments] 0]] set modechange [string trim [lindex [split $arguments] 1]] set victims [string trim [join [lrange [split $arguments] 2 end]]] set nickname [string trim [lindex [split $from "!"] 0]] set hostname [string trim [lindex [split $from "!"] 1]]if {[string equal -nocase $channel $spy(chan)]} {putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname sets mode: $modechange $victims"}       }proc spychan:sign { nickname hostname handle channel reason } {global spyif {[string equal -nocase $channel $spy(chan)]} {putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has quit IRC ($reason)"}       }proc spychan:split { nickname hostname handle channel arguments } {global spyif {[string equal -nocase $channel $spy(chan)]} {putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname has split from the network"}       }proc spychan:chat { nickname hostname handle channel arguments } {global spyif {[string equal -nocase $channel $spy(chan)]} {        putserv "PRIVMSG $spy(home) :\[$channel\] <$nickname> $arguments"        }       }proc spychan:action { nickname hostname handle channel keyword arguments } {global spyif {[string equal -nocase $channel $spy(chan)]} {        putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname $arguments"        }       }
Even though I didn't set the +relay flag in any channels (it's -relay in all channels), it still relays all the messages into #daigo from #helpops. I even restarted the bot but it still activates.

Statistics: Posted by daigo — Mon Jul 28, 2014 11:55 pm

]]>