mode

[ap]

Hi, i would appreciate if someone can write me a small procedure to count how many time bot has set +i mode in the channel? if count is greater than 5 then set +m mode

thank you

[Sir_Fz]

Count since when?

[ap]

Hi Sir_Fz,

When first time bot sets +i mode due to floods then it should start the count.
thank you

[r0t3n]

Try:

Code: Select all

set count(channels) "[list #channel1 #channel2 #channel3 #etc]"

set count(max) "5"

set count(modes) "+m"

bind mode -|- "% *+i*" count:mode

proc count:mode {nickname hostname handle channel mode target} {
  global count
  if {[lsearch -exact $count(channels) $channel] == -1} { return }
  if {![isbotnick $nickname]} { return }
  if {$mode == "+i"} {
    if {![info exists count($channel)]} {
      set count($channel) "1"
    } else {
      incr count($channel) 1
    }
    if {$count($channel) >= $count(max)} {
      pushmode $channel $count(modes)
    }
  }
}

[nml375]

Keep in mind that lsearch uses case-sensitive searches, so your list of channels would have to match whatever case is used by whomever issues the mode (in this case, bot only). Same goes for the channel-speciffic counter.
You'd probably be better off using a chanset toggle, and using something like "string tolower" when indexing your array.

[metroid]

Code: Select all

# only in lowercase, so #channel1 and not #ChannEl1.
set count(channels) [list #channel1 #channel2 #channel3 #etc]

set count(max)    5

set count(modes) "+m"

bind mode -|- "% *+i*" count:mode

proc count:mode {nickname hostname handle channel mode target} {
  global count
  if {([lsearch -exact $count(channels) [string tolower $channel]] == -1) || ![isbotnick $nickname]} { return }
  if {![info exists count($channel)]} {
    set count($channel) 1
  } else {
    incr count($channel)
  }
  if {$count($channel) >= $count(max)} {
    pushmode $channel $count(modes)
  }
}

[nml375]

Chanset enabled version:

Code: Select all

setudef flag countmodes
setudef int maxcountmodes
setudef str docountmodes

bind mode -|- "% *+i*" count:mode

proc count:mode {nickname hostname handle channel mode target} {
  global count
  if {!([channel get $channel countmodes] && [isbotnick $nickname])} { return 0 }
  set channel [string tolower $channel]
  if {![info exists count($channel)]} {
    set count($channel) 1
  } else {
    incr count($channel)
  }
  if {$count($channel) >= [channel get $channel maxcountmodes]} {
    pushmode $channel [channel get $channel docountmodes]
  }
}

[ap]

Thank you very much everyone.

sorry one last question please. if i have a dcc procedure like

Code: Select all

proc dcc:test {handle idx text } {......}

and i wanted to call this from the following codes, what would be the correct way.

Code: Select all

proc count:mode {nickname hostname handle channel mode target} {
 .......
  if {$count($channel) >= $count(max)} {
     dcc:test $handle $idx $text <---------- is this correct?
  }
}

thanks again

[nml375]

Assuming you've defined the variables idx and text somewhere within your code, yes.

[Sir_Fz]

for the idx, you can use [hand2idx $handle] but for text it depends on what you want "text" to contain.

[ap]

nml375, Sir_Fz; Thank you so much.

[honeybee]

Chanset enabled version:

Code: Select all

setudef flag countmodes
setudef int maxcountmodes
setudef str docountmodes

bind mode -|- "% *+i*" count:mode

proc count:mode {nickname hostname handle channel mode target} {
  global count
  if {!([channel get $channel countmodes] && [isbotnick $nickname])} { return 0 }
  set channel [string tolower $channel]
  if {![info exists count($channel)]} {
    set count($channel) 1
  } else {
    incr count($channel)
  }
  if {$count($channel) >= [channel get $channel maxcountmodes]} {
    pushmode $channel [channel get $channel docountmodes]
  }
}

I dont think this script works, set up settings but still nothing happened and i was wondering if it can check max mode change in mints. ex: 3:5