| View previous topic :: View next topic |
| Author |
Message |
.pt
Halfop
Joined: 16 Nov 2005
Posts: 71
|
 Posted: Thu Jul 19, 2007 3:22 pm Post subject: autovoice on certain number of lines |
 |
|
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 |
|
| Back to top |
|
 |
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
awyeah
Revered One
Joined: 26 Apr 2004
Posts: 1580
Location: Switzerland
|
| Posted: Fri Jul 20, 2007 12:43 am Post subject: |
|
|
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: |
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) }
}
|
_________________
·awyeah·
==================================
Facebook: jawad@idsia.ch (Jay Dee)
PS: Guys, I don't accept script helps or requests personally anymore.
================================== |
|
| Back to top |
|
|
4mirc
Voice
Joined: 16 May 2008
Posts: 37
|
| Posted: Mon May 19, 2008 9:24 pm Post subject: |
|
|
| i like this script can u add devoice the user if he idle for 10 minutes ? |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Mon May 19, 2008 11:34 pm Post subject: |
|
|
Search the Tcl Archives for av.pubmsg.tcl
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
username
Op
Joined: 06 Oct 2005
Posts: 196
Location: Russian Federation, Podolsk
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
