egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-06-15T04:04:08-04:00 https://forum.eggheads.org/app.php/feed/topic/11998 2006-06-15T03:47:12-04:00 2006-06-15T03:47:12-04:00 https://forum.eggheads.org/viewtopic.php?p=64032#p64032 <![CDATA[How do i set a random nickname]]>
It still did not work, but i tried it a little different.
Here is what i came up with and it works.

Code: 

bind pub - !random pub_randomproc pub_random {nick uhost hand chan t} { global botnick  if {$t == ""} {   set users [chanlist $chan]   set rembot [lsearch $users $botnick]   set mylist [lreplace $users $rembot $rembot]   set listlength [llength $users]   set myindex [rand $listlength]   set target [lindex $users $myindex]  if {[set total [llength $users]] < 3} {   puthelp "NOTICE $nick :We are the only ones here $nick!"  return 0 }  set randomuser $nick   while {$randomuser != $nick && ![isbotnick $randomuser]} {    set randomuser [lindex $users [rand $total]]   }  putserv "PRIVMSG $chan : Hi $nick, a random user is $target" }}
Thanks for all the help ^^
Excellent job. :) Witha little help and an effort on your part your problem was solved. :)

Statistics: Posted by Alchera — Thu Jun 15, 2006 3:47 am

]]> 2006-06-15T00:59:43-04:00 2006-06-15T00:59:43-04:00 https://forum.eggheads.org/viewtopic.php?p=64027#p64027 <![CDATA[How do i set a random nickname]]> Here is what i came up with and it works.

Code: 

bind pub - !random pub_randomproc pub_random {nick uhost hand chan t} { global botnick  if {$t == ""} {   set users [chanlist $chan]   set rembot [lsearch $users $botnick]   set mylist [lreplace $users $rembot $rembot]   set listlength [llength $users]   set myindex [rand $listlength]   set target [lindex $users $myindex]  if {[set total [llength $users]] < 3} {   puthelp "NOTICE $nick :We are the only ones here $nick!"  return 0 }  set randomuser $nick   while {$randomuser != $nick && ![isbotnick $randomuser]} {    set randomuser [lindex $users [rand $total]]   }  putserv "PRIVMSG $chan : Hi $nick, a random user is $target" }}
Thanks for all the help ^^

Statistics: Posted by chaokusc — Thu Jun 15, 2006 12:59 am

]]> 2006-06-14T19:56:50-04:00 2006-06-14T19:56:50-04:00 https://forum.eggheads.org/viewtopic.php?p=64023#p64023 <![CDATA[How do i set a random nickname]]>
So the full code would be this ?
The code with Sir_Fz's changes. :)

Statistics: Posted by Alchera — Wed Jun 14, 2006 7:56 pm

]]> 2006-06-13T16:50:06-04:00 2006-06-13T16:50:06-04:00 https://forum.eggheads.org/viewtopic.php?p=63990#p63990 <![CDATA[How do i set a random nickname]]>

Code: 

bind pub - !random pub_randomproc pub_random {nick uhost hand chan t} { if {$t == ""} {  set users [chanlist $chan]   if {[set total [llength $users]] < 3} {    puthelp "NOTICE $nick :We are the only ones here $nick!"   return 0  } set randomuser $nick  while {$randomuser != $nick && ![isbotnick $randomuser]} {   set randomuser [lindex $users [rand $total]]  }  putserv "NOTICE $nick : Hi $nick, a random user is $randomuser" }}
or

Code: 

bind pub - !random pub_randomproc pub_random {nick uhost hand chan t} { if {$t == ""} {  set users [chanlist $chan]   if {[set total [llength $users]] < 3} {    puthelp "NOTICE $nick :We are the only ones here $nick!"   return 0  } set randomuser ""  while {$randomuser != $nick && ![isbotnick $randomuser]} {   set randomuser [lindex $users [rand $total]]  }  putserv "NOTICE $nick : Hi $nick, a random user is $randomuser" }}

Statistics: Posted by chaokusc — Tue Jun 13, 2006 4:50 pm

]]> 2006-06-13T11:58:14-04:00 2006-06-13T11:58:14-04:00 https://forum.eggheads.org/viewtopic.php?p=63987#p63987 <![CDATA[How do i set a random nickname]]>
a random username from the current people on the channel?!

Code: 

set users [chanlist $chan]if {[set total [llength $users]] < 3} {   puthelp "NOTICE $nick :We are the only ones here!"  return 0}set randomuser $nickwhile {$randomuser != $nick && ![isbotnick $randomuser]} {   set randomuser [lindex $users [rand $total]]}
The counter to 10 just makes sure to not loop infinite, if the user and the bot are the only one in the channel :D
you set randomuser $nick then check if $randomuser != $nick in the while condition, the code will never enter the loop then. You probably meant to set randomuser "" instead of $nick.

Statistics: Posted by Sir_Fz — Tue Jun 13, 2006 11:58 am

]]> 2006-06-15T04:04:08-04:00 2006-06-13T06:22:21-04:00 https://forum.eggheads.org/viewtopic.php?p=63972#p63972 <![CDATA[How do i set a random nickname]]>

Code: 

set users [chanlist $chan]if {[set total [llength $users]] < 3} {   puthelp "NOTICE $nick :We are the only ones here!"  return 0}set randomuser $nickwhile {$randomuser == $nick || [isbotnick $randomuser]} {   set randomuser [lindex $users [rand $total]]}
The check for <3 just makes sure to not loop infinite, if the user and the bot are the only one in the channel :D

Statistics: Posted by De Kus — Tue Jun 13, 2006 6:22 am

]]> 2006-06-13T05:50:10-04:00 2006-06-13T05:50:10-04:00 https://forum.eggheads.org/viewtopic.php?p=63969#p63969 <![CDATA[How do i set a random nickname]]> !random it should post a random username in the string, except the bots name or the user who posted the command... but im unsure how to do it.
Any help is greatly appreciated.

Code: 

bind pub - !random pub_randomproc pub_random {nick uhost hand chan t} {if {$t == ""} {putserv "NOTICE $nick : Hi $nick, a random user is $randomuser" }}

Statistics: Posted by chaokusc — Tue Jun 13, 2006 5:50 am

]]>