autovoice on certain number of lines

[.pt]

can someone create a simple script that will voice anyone that says a certain number of lines on a channel (resetting it if he leaves channel)


ty in advance

[Sir_Fz]

Search the forum.

[awyeah]

Your nick luck, I use an exactly similar script which I coded myself, just pasting this because I don't have to bear it coding for you, else I wouldn't have since I think already some people have coded such similar scripts. Enjoy!!

Code: Select all

set voicelines "30"

bind pubm - "*" autovoice:users
bind join - "*" erase:record

proc autovoice:users {nick host hand chan text} {
 global voiceuser voicelines
 if {[isbotnick $nick] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 }
 if {[string match -nocase "#*" $chan]} {
 set userhost [string tolower $nick:$chan]
 if {![info exists voiceuser($userhost)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
   set voiceuser($userhost) 1
 } elseif {[info exists voiceuser($userhost)] && ($voiceuser($userhost) >= $voicelines) && ![isop $nick $chan] && ![isvoice $nick $chan]} {
   utimer [rand 10] [list voice:delay $chan $nick]; unset voiceuser($userhost)
 } elseif {[info exists voiceuser($userhost)]} {
   incr voiceuser($userhost)
  }
 }
}

proc voice:delay {chan nick} {
 if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {
  putserv "MODE $chan +v-k $nick \0032Active.\00312chatter"
  }
}

proc erase:record {nick host hand chan} {
 global voiceuser
 if {[isbotnick $nick]} { return 0 }
 set userhost [string tolower $nick:$chan]
 if {[info exists voiceuser($userhost)]} { unset voiceuser($userhost) }
}

[4mirc]

i like this script can u add devoice the user if he idle for 10 minutes ?

[Alchera]

Search the Tcl Archives for av.pubmsg.tcl

[username]

Or read about another nice script there: http://forum.egghelp.org/viewtopic.php?t=13881