This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
.pt
Halfop
Posts: 71 Joined: Wed Nov 16, 2005 10:14 am
Post
by .pt » Thu Jul 19, 2007 3:22 pm
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
Revered One
Posts: 3794 Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:
Post
by Sir_Fz » Thu Jul 19, 2007 4:35 pm
awyeah
Revered One
Posts: 1580 Joined: Mon Apr 26, 2004 2:37 am
Location: Switzerland
Contact:
Post
by awyeah » Fri Jul 20, 2007 12:43 am
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) }
}
·awyeah·
==================================
Facebook: jawad@idsia.ch (Jay Dee)
PS: Guys, I don't accept script helps or requests personally anymore.
==================================
4mirc
Voice
Posts: 37 Joined: Fri May 16, 2008 11:11 pm
Contact:
Post
by 4mirc » Mon May 19, 2008 9:24 pm
i like this script can u add devoice the user if he idle for 10 minutes ?
Alchera
Revered One
Posts: 3344 Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:
Post
by Alchera » Mon May 19, 2008 11:34 pm
Search the Tcl Archives for av.pubmsg.tcl
Add [SOLVED] to the thread title if your issue has been.
Search |
FAQ |
RTM
username
Op
Posts: 196 Joined: Thu Oct 06, 2005 9:20 am
Location: Russian Federation, Podolsk
Contact:
Post
by username » Tue May 20, 2008 4:26 am