How do i set a random nickname

[chaokusc]

When a user types !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: Select all

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

[De Kus]

a random username from the current people on the channel?!

Code: Select all

set users [chanlist $chan]
if {[set total [llength $users]] < 3} {
   puthelp "NOTICE $nick :We are the only ones here!"
  return 0
}
set randomuser $nick
while {$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

[Sir_Fz]

a random username from the current people on the channel?!

Code: Select all

set users [chanlist $chan]
if {[set total [llength $users]] < 3} {
   puthelp "NOTICE $nick :We are the only ones here!"
  return 0
}
set randomuser $nick
while {$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

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.

[chaokusc]

So the full code would be this ?

Code: Select all

bind pub - !random pub_random
proc 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: Select all

bind pub - !random pub_random
proc 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"
 }
}

[Alchera]

So the full code would be this ?

The code with Sir_Fz's changes.

[chaokusc]

It still did not work, but i tried it a little different.
Here is what i came up with and it works.

Code: Select all

bind pub - !random pub_random
proc 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 ^^

[Alchera]

It still did not work, but i tried it a little different.
Here is what i came up with and it works.

Code: Select all

bind pub - !random pub_random
proc 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.