On Join Op/Voice certain users script by address

[Romantic-Soul]

I haven't seen a script on here that can do this Need help creating one

For IRc Script the script looks like this...

on @Voice:JOIN:#:mode $chan +v $nick | msg $chan $nick is an Auto-Voice

menu nicklist,query {
Voice List
.add:.auser Voice $address($$1,2) | echo -a 10 $$1 Is Added To Voice List. | /mode # +v $$1
.add3:.auser Voice $address($$1,3) | echo -a 10 $$1 Is Added To Voice List. | /mode # +v $$1
.del:.ruser Voice $address($$1,2) | echo -a 10 $$1 is Deleted From Voice List.
.del3:.ruser Voice $address($$1,3) | echo -a 10 $$1 is Deleted From Voice List.
}


on @OP:JOIN:#:mode $chan +o $nick | msg $chan $nick is an Auto-Op

menu nicklist,query {
OP List
.add:.auser OP $address($$1,2) | echo -a 10 $$1 Is Added To OP List. | /mode # +o $$1
.add3:.auser OP $address($$1,3) | echo -a 10 $$1 Is Added To OP List. | /mode # +o $$1
.del:.ruser OP $address($$1,2) | echo -a 10 $$1 is Deleted From OP List.
.del3:.ruser OP $address($$1,3) | echo -a 10 $$1 is Deleted From OP List.
}

How would i make a tcl script that can do the same?

what it does is ops or voices a nick by address when they join a channel

Please help.

Thanks In Advance

Romantic-Soul

[DarkJFMan]

I'm working on same script, it's very hard, maybe you can help out, [url]

http://www.eggheads.org/support/egghtml ... l#chancmds

[greenbear]

if you just want to add +o and +v flags to users, use the default commands.

.help chattr

and for autoop/autovoice

.help chanset

[Romantic-Soul]

ty gb and DarkJFMan. I wished it helped me tho

I don't understand anything about Tcl scripting. Its a whole new language.

and what those help files show is like reading another langauge.

Haven't figured out anything about tcl scripting yet.

I keep looking but can't make heads or tails about it.

Thanks for your help.

Romantic-Soul

[user]

Read .help +user, .help chattr and .help whois (clues: +a = autoop, +g = autovoice)
then add some users, give them some flags and load this ugly little script:

Code: Select all

bind join g * annoying_message:g
proc annoying_message:g {n u h c} {
	putserv "PRIVMSG $c :$n is an Auto-Voice"
}
bind join a * annoying_message:a
proc annoying_message:a {n u h c} {
	putserv "PRIVMSG $c :$n is an Auto-Op"
}