egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-12-16T12:09:00-04:00 https://forum.eggheads.org/app.php/feed/topic/626 2001-12-16T12:09:00-04:00 2001-12-16T12:09:00-04:00 https://forum.eggheads.org/viewtopic.php?p=2821#p2821 <![CDATA[random characters]]>

proc randchar {len} {
set t ""
set alphanum "ABCDEFGHIJKLMOPQRSTUVWXYZabcdefghijklmopqrstuvwxyz01234567890"
while {[string length $t] < $len} {
append t [string index $alphanum [rand [string length $alphanum]]]
}
return $t
}
Then in your script, while outputting, use
putserv "PRIVMSG nick :random [randchar 10]"

Statistics: Posted by ppslim — Sun Dec 16, 2001 12:09 pm

]]> 2001-12-16T00:34:00-04:00 2001-12-16T00:34:00-04:00 https://forum.eggheads.org/viewtopic.php?p=2807#p2807 <![CDATA[random characters]]>
I am new to tcl (this is my first attempt), and I am trying to get the bot to respond with an action on text in the channel

I have the bind in place and everything works, but now I would like to respond with random characters. Random alhpanumerics at least 10 characters in length.

Is this possible?

Thanks in advance

Statistics: Posted by Guest — Sun Dec 16, 2001 12:34 am

]]>