voice after so many public chat lines

[silx]

need something that will auto voice people after a set number of lines that person has typed in a public channel.


or if that cannot be done.
voice after xx minutes on a channel


plz help

[metroid]

Code: Select all

set lines 10
array set users {}

bind pubm - * voice:lines

proc voice:lines {nick host hand chan arguments} {
  global users lines
  if {![info exists users($host)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
    set users($host) 1
  } elseif {[expr $users($host) + 1] >= $lines} {
    pushmode $chan +v $nick; unset users($host)
  } else {
    incr users($host)
  }
}

This should work like you wanted it too

[silx]

Tcl error [voice:lines]: can't read "users(-----@-------.net)": no such element in array


---- was replaced

[Sir_Fz]

Try this:

Code: Select all

set lines 10
array set users {}

bind pubm - * voice:lines

proc voice:lines {nick host hand chan arguments} {
  global users lines
  if {![info exists users($host)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
    set users($host) 1
  } elseif {[info exists users($host)] && [expr $users($host) + 1] >= $lines} {
    pushmode $chan +v $nick; unset users($host)
  } elseif {[info exists users($host)]} {
    incr users($host)
  }
}

[silx]

that worked
thanks alot

anyway to add a public channel command to for users to type to get voice? like. !bot-voiceme

[eggi]

if the bot s oper bot & not in a op mode then what line i have to replace ??

[pakistani1]

what if we want the bot to devoice the nick after some idle time .. lets say 2 minutes .. idle after being voiced after writing 10 lines ..
and after the devoice the line count should again go to 0..
thanx

[caesar]

I for one would go for a md5 hash with the nick!ident@host, and splt, part, quit, etc. binds to remove them from the list.

[Aditya]

With a Script like "Voice On Lines" a Person Culd gain voice with just typing

1
2
3
4
5
6
7
8
9
10

Its better to always have something like 'voice on characters'

I made one for myself long before.. try it

Code: Select all

set voice(len) 120 

bind pubm - * voice:lines 


proc voice:lines {nick host hand chan arguments} { 
   global voice 
   if {[string length $arguments] > $voice(len)} { 
      if {![isvoice $nick $chan] || ![isop $nick $chan]} { 
         pushmode $chan +v $nick 
      } 
   } 
} 

Note:

Code: Select all

set voice(len) 120

can be set according to the channel's needs..[/b]

[Aditya]

what if we want the bot to devoice the nick after some idle time .. lets say 2 minutes .. idle after being voiced after writing 10 lines ..
and after the devoice the line count should again go to 0..
thanx

Try This:

http://www.egghelp.org/cgi-bin/tcl_arch ... oad&id=354

[mvp1]

Try this:

Code: Select all

set lines 10
array set users {}

bind pubm - * voice:lines

proc voice:lines {nick host hand chan arguments} {
  global users lines
  if {![info exists users($host)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
    set users($host) 1
  } elseif {[info exists users($host)] && [expr $users($host) + 1] >= $lines} {
    pushmode $chan +v $nick; unset users($host)
  } elseif {[info exists users($host)]} {
    incr users($host)
  }
}

Hi guys, thanks for this. I am using below code and it's working fine. Is there a way I could add a specific nick in this code which is an exception and not to be voiced after 5 lines? For example "specificnick1" ?

set lines 5
array set users {}

bind pubm - * voice:lines

proc voice:lines {nick host hand chan arguments} {
global users lines
if {![info exists users($host)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
set users($host) 1
} elseif {[info exists users($host)] && [expr $users($host) + 1] >= $lines} {
pushmode $chan +v $nick; unset users($host)
} elseif {[info exists users($host)]} {
incr users($host)
}
}

[SpiKe^^]

See if this helps any...

Code: Select all

set lines 10

# Exempt hostmask(s) to not voice
# example:  set exemptmasks {myNick!*@* *!*@*.sumhost.com}
#   Note: set empty to disable any masks checking
set exemptmasks {specificnick1!*@*}

array set users {}

bind pubm - * voice:lines

proc voice:lines {nick host hand chan arguments} {
  global users lines exemptmasks

  foreach xmask [split [string trim $exemptmasks]] {    ;# check if Exempt Hostmask #
    if {[matchaddr $xmask ${nick}!$host]} {  return 0  }
  }

  if {![info exists users($host)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
    set users($host) 1
  } elseif {[info exists users($host)] && [expr $users($host) + 1] >= $lines} {
    pushmode $chan +v $nick; unset users($host)
  } elseif {[info exists users($host)]} {
    incr users($host)
  }
}

[mvp1]

Cheers Spike mate, will test this and let you know. Quick question; Any chance this would work for more than one exceptions nick? e.g specificnick1 , specificnick2 and so on.. if I only change below as?

set exemptmasks {specificnick1!*@* specificnick2!*@* specificnick3!*@*}

[Spartan]

Is better the bot to give voice to the user who have 15 min and up who talk in channel not from 5 line, and if user doesnt talk 30 min in channel to devoice
also to check if the users is blacklist to not get voice.

[simo]

it would probably be a good idea as Spartan suggested to add a check how long the nick has been in channel for example 5 or 10 min to make sure abusers and flooders dont get voiced altho abusers and flooders can be in channel after 5 or 10 min but usually they join and want to abuse/flood right away and therefor get removed so the script shouldnt consider them as they are prob removed before threshold is reached

this is a usefull code in the case of massive abuse or floods and the channel is set to +m or +M so the regular active chatters can resume chatting