egghelp/eggheads community

check flags

2007-07-01T15:18:26-04:00

nothing at all in the bots logs mate

Statistics: Posted by smash — Sun Jul 01, 2007 3:18 pm

check flags

2007-06-27T13:17:18-04:00

they are notices.

Code:

bind notc -|- {*} flags:checksetudef flag checkflagsproc flags:check {nickname hostname handle dest text} {  if {$nickname == "Q"} {    if {[regexp -nocase {^Access level (.*?) on channel (.*?)$} $text -> flags channel]} {      putlog "I have $flags on $channel - Q"      if {[validchan $channel] && [channel get $channel checkflags] && ![string match -nocase *a* $flags] && ![string match -nocase *o* $flags]} {        putlog "bot does not have +ao in $channel - Q"        putquick "PART $channel :you need to give me +ao on Q/L"        channel remove $channel        putlog "removed $channel due to no +ao - Q"      }    }  } elseif {$nickname == "L"} {    if {[regexp -nocase {^#(.*?)\s{1,40}(.*?)$} $text -> channel flags]} {      set channel "#$channel"      putlog "I have $flags on $channel - L"      if {[validchan $channel] && [channel get $channel checkflags] && ![string match -nocase *a* $flags] && ![string match -nocase *o* $flags]} {        putlog "bot does not have +ao on $channel - L"        putquick "PART $channel :you need to give me +ao on Q/L"        channel remove $channel        putlog "removed $channel due to no +ao - L"      }    }  }}

this is only an example, not tested...

How to change this code so it checks the flags when it joins the channel, and if the bot do not have the flags, then it will msg the channel and say that it need the flags and then wait 5min, check again. and if the bot still not have the flags it will part the channel.

Anyone wanna try to add that to this script?

Statistics: Posted by bootdisk — Wed Jun 27, 2007 1:17 pm

check flags

2007-06-27T11:02:39-04:00

I,ve made an edited version above with some putlog's for debugging. Give it a try and post back the results from putlog.

Statistics: Posted by r0t3n — Wed Jun 27, 2007 11:02 am

check flags

2007-06-26T15:24:02-04:00

Hmm, theres no error now m8.

but nothing happens, bots in 2 channels with no op, but dont part the channel.

Statistics: Posted by smash — Tue Jun 26, 2007 3:24 pm

check flags

2007-06-25T10:46:34-04:00

I made a regexp error for the Q flags, used the variable reference $ when not needed. I edited the version above with the fix.

Statistics: Posted by r0t3n — Mon Jun 25, 2007 10:46 am

check flags

2007-06-24T19:37:27-04:00

thanks Tosser^^

I got this error mat.

Tcl error [flags:check]: can't read "flags": no such variable

Statistics: Posted by smash — Sun Jun 24, 2007 7:37 pm

check flags

2007-06-27T11:01:58-04:00

they are notices.

Code:

bind notc -|- {*} flags:checksetudef flag checkflagsproc flags:check {nickname hostname handle dest text} {  if {$nickname == "Q"} {    if {[regexp -nocase {^Access level (.*?) on channel (.*?)$} $text -> flags channel]} {      putlog "I have $flags on $channel - Q"      if {[validchan $channel] && [channel get $channel checkflags] && ![string match -nocase *a* $flags] && ![string match -nocase *o* $flags]} {        putlog "bot does not have +ao in $channel - Q"        putquick "PART $channel :you need to give me +ao on Q/L"        channel remove $channel        putlog "removed $channel due to no +ao - Q"      }    }  } elseif {$nickname == "L"} {    if {[regexp -nocase {^#(.*?)\s{1,40}(.*?)$} $text -> channel flags]} {      set channel "#$channel"      putlog "I have $flags on $channel - L"      if {[validchan $channel] && [channel get $channel checkflags] && ![string match -nocase *a* $flags] && ![string match -nocase *o* $flags]} {        putlog "bot does not have +ao on $channel - L"        putquick "PART $channel :you need to give me +ao on Q/L"        channel remove $channel        putlog "removed $channel due to no +ao - L"      }    }  }}

this is only an example, not tested...

Statistics: Posted by r0t3n — Sun Jun 24, 2007 5:23 pm

check flags

2007-06-23T17:27:18-04:00

Ok so these do not look like notices.. you have to give us the raw numerics of the server replies.

Statistics: Posted by Sir_Fz — Sat Jun 23, 2007 5:27 pm

check flags

2007-06-23T11:56:30-04:00

and receive what?

Msg q whois FBAlien
: FBAlien is online right now.
: FBAlien is authed as RailJunkie.
: Last auth: [Friday, 2007-06-22 22:24:19]
: Channel list:
: Access level +aot on channel #frag-agency
: Access level +av on channel #KingChaos
: Access level +ao on channel #Deadly-Bots
: Access level +ao on channel #fragbots
: Access level +ao on channel #dtdesign
: Access level +av on channel #onlylinux
: Access level +v on channel #hkq3
: Access level +av on channel #forwarded
: End of list.

Msg L whois FBAlien
: FBAlien is authed as RailJunkie.
: Last auth: Fri Jun 22 22:24:20 2007
: Known on the following channels:
: channel access flags
: ---------------------------------------
#fragbottest v
: #f0v aov
: #fragbots.staff ao
: #fadmin ao
: #railjunkies.com amo
: RailJunkie is known to you on 5 channel/s (max 20 channels).
End of list.

Statistics: Posted by smash — Sat Jun 23, 2007 11:56 am

check flags

2007-06-23T04:57:21-04:00

and receive what?

Statistics: Posted by Sir_Fz — Sat Jun 23, 2007 4:57 am

check flags

2007-06-22T23:15:44-04:00

yes can do that with!

putserv "privmsg Q :whois $::botnick"

putserv "privmsg L :whois $::botnick"

Statistics: Posted by smash — Fri Jun 22, 2007 11:15 pm

check flags

2007-06-21T11:25:24-04:00

How to check for +ao flags? through whois?

Statistics: Posted by Sir_Fz — Thu Jun 21, 2007 11:25 am

check flags

2007-06-21T10:23:30-04:00

I have been looking for a script, where the bot will check to see if it has +ao flags on quakenet with Q/L service bots and if its oped in channel every 15 minuits, if it has no servece flags or is not oped in that channel, the bot will auto part.

need to set it in dcc .setchan #channel +checkflags
any help please
Thanks.

Statistics: Posted by smash — Thu Jun 21, 2007 10:23 am