egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-07-23T11:25:05-04:00 https://forum.eggheads.org/app.php/feed/topic/13686 2007-07-23T11:25:05-04:00 2007-07-23T11:25:05-04:00 https://forum.eggheads.org/viewtopic.php?p=74685#p74685 <![CDATA[Auto Voice Top 3 trivia players]]>
Try to add this to your joining proc. If you don't know how.. just post your joining proc here.

Code: 

# Set this to how many players you like to voice.set topplayer 3# Joining trivia chan.proc tgjoinmsg {nick host hand chan} {    global tgranksbyname topplayer tgscoresbyname tgchan       tggetscoresif {![info exists tgscoresbyname([strlwr $nick])]} {   tggamemsg ">>>> Hellooo $nick , you're not in the scores list!!! ;\)"  } else {  if {$tgranksbyname([strlwr $nick])<=$topplayer&&[botisop $tgchan]} {     putserv "MODE $tgchan +v $nick"      putserv "PRIVMSG $tgchan :>>>> You're a Top$topplayer $nick and deserve voice. :\)"   } }}
Greets,
~werner

Statistics: Posted by oxygen — Mon Jul 23, 2007 11:25 am

]]> 2007-06-29T14:57:29-04:00 2007-06-29T14:57:29-04:00 https://forum.eggheads.org/viewtopic.php?p=74009#p74009 <![CDATA[Auto Voice Top 3 trivia players]]>

Code: 

  #triggered when someone uses !top10 commandproc tgshowtop10 {nick host hand chan text} {        global tgscores tgchan tgscorestotal        if {[strlwr $chan]==[strlwr $tgchan]} {                tggetscores                if {$tgscorestotal>0} {                        if {$tgscorestotal>9} {                                set _max 9                        } else {                                set _max [expr $tgscorestotal-1]                        }                        set i 0                        while {$i<=$_max} {                                set _item [lindex $tgscores $i]                                set _nick [join [lindex [split $_item ,] 2]]                                set _score [join [lindex [split $_item ,] 0]]                                if {$i==0} {                                        append _scores "[tgcolscr1]$_nick $_score"                                } elseif {$i==1} {                                        append _scores ", [tgcolscr2]$_nick $_score"                                } elseif {$i==2} {                                        append _scores ", [tgcolscr3]$_nick $_score"                                } else {                                        append _scores ", [tgcolmisc1]$_nick $_score"                                }                                incr i                        }                        tggamemsg "[tgcolmisc1]Top 10: $_scores"                } else {                        tggamemsg "[tgcolmisc1]Score table is empty."                }        }}

Statistics: Posted by BIF — Fri Jun 29, 2007 2:57 pm

]]>