a tcl script to make +o users identify when they join channe

KrE80r · Post by **KrE80r** » Thu Jun 05, 2003 8:19 pm

pls if any1 knwo such script:
i want a script to make +o users identify when they join the channel immeditaly and they cant do any pubcmds or anything before they identify to this tcl any1 know something like this pls??

stdragon · Post by **stdragon** » Thu Jun 05, 2003 8:21 pm

Actually you will have to modify your pubcmds script rather than use another script. Find the places that check for the +o flag and change it to check for another flag like +A (or any capital letter you want). Then you need a simple auth procedure that gives the user +A when they identify.

I suppose you could keep using +o, but that means you have to take away the +o flag from all your users, since they can only get it temporarily when they identify. You probably don't want to do that.

KrE80r · Post by **KrE80r** » Thu Jun 05, 2003 8:41 pm

well infact y i need so?
i have a trivia.tcl running
it runs using !start command
which is enabled for +o users only
so other users do what they cahnge into a +o user nick and quickly type :
!start and then change the nick back so they run the trivia thats it y i need such tcl to identify to bot when u enter the channel immdeitaly
any other ideas??

KrE80r · Post by **KrE80r** » Thu Jun 05, 2003 8:42 pm

well infact y i need so?
i have a trivia.tcl running
it runs using !start command
which is enabled for +o users only
so other users do what they cahnge into a +o user nick and quickly type :
!start and then change the nick back so they run the trivia thats it y i need such tcl to identify to bot when u enter the channel immdeitaly
any other ideas??

stdragon · Post by **stdragon** » Thu Jun 05, 2003 9:04 pm

It sounds like the easiest thing is to change the start command. Get rid of the public !start command and make it a message command instead. It should be like, /msg bot !start yourpassword. That way, only +o users can use it, but even then they have to supply their passwords.

KrE80r · Post by **KrE80r** » Thu Jun 05, 2003 9:18 pm

well man its cool but how its not my script how to make it ask for password
i think i can cahnge
bind pub $tgflagsstart $tgcmdstart tgstart into
bind msg $tgflagsstart $tgcmdstart tgstart

nut how to ask for the password?? with the command??

stdragon · Post by **stdragon** » Thu Jun 05, 2003 9:22 pm

That's right for the first step. Now you have to modify the tgstart procedure. First of all, the arguments change (no channel). Check tcl-commands.doc for the correct arguments. The password will be in the last argument. Read tcl-commands.doc for help on how to validate the password.

KrE80r · Post by **KrE80r** » Thu Jun 05, 2003 9:28 pm

sorry for being lame but pls tell me how can i cahnge it
here is the proc

proc tgstart {nick host hand chan text}
what shall i add or remove man???

Post by **caesar** » Fri Jun 06, 2003 2:01 am

What you've pasted is the proc. What you should be modifing is the bind. Also, read and folow stdragon sugestions. They have great value..

KrE80r · Post by **KrE80r** » Fri Jun 06, 2003 4:40 am

well caesar :
i just wanna this !start proc asks for password also
here is what i added :
#starts the game if it isn't running.
proc tgstart {nick uhost hand arg} {
set pass [lindex $arg 0]
if {[passwdok $handle $pass]} {

dont think it will work but hmm try to help me out

stdragon · Post by **stdragon** » Fri Jun 06, 2003 4:46 am

You're doing great so far. You can get rid of the lindex part, because $arg will be the password already (it's not a list). After that, try testing it.

Papillon · Post by **Papillon** » Fri Jun 06, 2003 4:48 am

or make it look like this...

Code: Select all

set pass [lindex [split $arg] 0]

KrE80r · Post by **KrE80r** » Fri Jun 06, 2003 4:54 am

well it is asking for the variable chan which i removed based on ur request stdragon
the error is
Tcl error [tgstart]: can't read "chan": no such variable

so shall i return it back??

KrE80r · Post by **KrE80r** » Fri Jun 06, 2003 4:55 am

hmm i added back variable chan i get
Tcl error [tgstart]: no value given for parameter "arg" to "tgstart"

hmm wanna me send u the file ?

Papillon · Post by **Papillon** » Fri Jun 06, 2003 5:09 am

paste the tgstart proc in here please