A voice script needed

[Kaarel]

Ok, I would like such a voice script that doesnt`t give voice to user when he gets a auto voice in channel. I would like voice script that voices in period a time all peole that doesn`t have voice. And ops will not be voiced
Is that possible

[ReaLz]

I have made this code for you but I haven't tested it.

Code: Select all

bind time - "?0 * * * *" time_proc

set channel "#chan"

proc time_proc {min hour day month year} {voice_all}

proc voice_all {} {
if {![botisop $channel]} { 
putlog "I'm not oped in $channel."
} 
foreach user [chanlist $channel] { 
if {![isvoice $user $channel] && ![isop $user $channel]} { 
pushmode $channel +v $user 
} 
} 
putlog "I just voiced all the users in $channel." 
}

with this script the bot will voice all the users that are not voiced or opped every 10 minutes. to change the delay read the tcl-commands.doc and look at the bind time.

[Kaarel]

ReaLz thanks, but I thought is that possible to ignore some users, that is not voiced and bot will not gives their voice

[ReaLz]

you can do that...
replace this:

Code: Select all

if {![isvoice $user $channel] && ![isop $user $channel]} {

with this:

Code: Select all

if {![isvoice $user $channel] && ![isop $user $channel] && ![matchattr $user B]} {

you have to add the users you want them devoiced to the bot with the flag B and only that flag.
uppercase B (blacklisted) is a custom flag that the bot will use to except some users. ofcourse you can use any other capital letter you want.

[ReaLz]

also put this:

Code: Select all

set hand [nick2hand $user]

after the:

Code: Select all

foreach user [chanlist $channel] {

and replace this:

Code: Select all

![matchattr $user B]

with this:

Code: Select all

![matchattr $hand B]

[Kaarel]

My bot says
<Botman> [18:50] Tcl error [time_proc]: can't read "channel": no such variable



And that code if {![isvoice $user $channel] && ![isop $user $channel] && ![matchattr $user B]} {


Where do I have to put names

[ReaLz]

here is the complete code:

Code: Select all

set channel "#chan"

bind time - "?0 * * * *" time_proc 

proc time_proc {min hour day month year} {voice_all} 

proc voice_all {} { 
if {![botisop $::channel]} { 
putlog "I'm not oped in $::channel." 
} 
foreach user [chanlist $::channel] {
set hand [nick2hand $user]
if {![isvoice $user $::channel] && ![isop $user $::channel] && ![matchattr $hand B]} { 
pushmode $::channel +v $user 
} 
} 
putlog "I just voiced all the users in $::channel." 
}

putlog "Auto voice tcl loaded.."

[Kaarel]

Ok it worked, but please make to me a script like the bot doesn`t voice Peter Karl and Joshep

[Storm]

Give them B flag.
.chattr <user> +B

[ReaLz]

Do these and the user you want won't be voiced anymore:

Code: Select all

.adduser nick
.chattr nick +B

[Kaarel]

Ok, is this impossible to addusers all the users starting [PT]


Like [PT]stats
[PT]log

It would be then much easier

[ReaLz]

you want to add them and chattr them +B or NOT add them?

[Kaarel]

you want to add them and chattr them +B or NOT add them?

I want to add them aand chattr them +b (all users starting [PT] )

[stdragon]

Try creating a user called ptusers, then adding the hostmask [pt]*!*@*

Then give ptusers +B and you're done.

[Kaarel]

Try creating a user called ptusers, then adding the hostmask [pt]*!*@*

Then give ptusers +B and you're done.

Sorry but I cant underestand
Can you give me a code what I have to write into bot in DCC chat