set a [expr [random 999000]+1000]
set b [expr (($a*7)&543)<<3|(($a+872)/7)<<9|(($a-123)&131)<<5]
msg $nick Auth: $b
return 1
}
Basically Im trying to setup a second auth with math problem. When a bot joins, a opped bot will msg it <botnick> 30498 . The non-op bot will then have to send <botnick> Auth: answer . What is the best way to set this up. proc? etc...
Well you need a way to see when a bot joins the channel (bind) and also when the master bot receives an auth reply (bind) and finally, for the slave bots, a way to see when they've been challenged (bind again).
Looks like you've already picked a little formula. The way to send a private message is putserv "privmsg $nick :blah blah". For binds, check tcl-commands.doc or see how it's done in an existing script (there are lots of examples).