check flags

smash · Post by **smash** » Thu Jun 21, 2007 10:23 am

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.

Post by **Sir_Fz** » Thu Jun 21, 2007 11:25 am

How to check for +ao flags? through whois?

smash · Post by **smash** » Fri Jun 22, 2007 11:15 pm

yes can do that with!

putserv "privmsg Q :whois $::botnick"

putserv "privmsg L :whois $::botnick"

Post by **Sir_Fz** » Sat Jun 23, 2007 4:57 am

and receive what?

smash · Post by **smash** » Sat Jun 23, 2007 11:56 am

Sir_Fz wrote: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.

Post by **Sir_Fz** » Sat Jun 23, 2007 5:27 pm

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

r0t3n · Post by **r0t3n** » Sun Jun 24, 2007 5:23 pm

they are notices.

Code: Select all

bind notc -|- {*} flags:check

setudef flag checkflags

proc 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...

smash · Post by **smash** » Sun Jun 24, 2007 7:37 pm

thanks Tosser^^

I got this error mat.

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

r0t3n · Post by **r0t3n** » Mon Jun 25, 2007 10:46 am

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

smash · Post by **smash** » Tue Jun 26, 2007 3:24 pm

Hmm, theres no error now m8.

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

r0t3n · Post by **r0t3n** » Wed Jun 27, 2007 11:02 am

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

bootdisk · Post by **bootdisk** » Wed Jun 27, 2007 1:17 pm

Tosser^^ wrote:they are notices.

Code: Select all

bind notc -|- {*} flags:check

setudef flag checkflags

proc 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?

smash · Post by **smash** » Sun Jul 01, 2007 3:18 pm

nothing at all in the bots logs mate