An addition to trivia.tcl case you don't like the HTML

2002-10-13T03:07:14-04:00

Hey, it looks pretty good. Very nice for integrating into the rest of your site.

Statistics: Posted by Souperman — Sun Oct 13, 2002 3:07 am

An addition to trivia.tcl case you don't like the HTML

2002-09-18T09:18:08-04:00

Oh in case you want to see a preview check http://axe4.axenet.org/index.php?page=stats/trivia

Statistics: Posted by Guest — Wed Sep 18, 2002 9:18 am

An addition to trivia.tcl case you don't like the HTML

2002-09-18T09:12:30-04:00

I took the liberty to edit the TCL script (trivia.tcl) by adding a somewhat nicer and more configurable HTML output as the old output its well, pretty basic. Anyway here it is:

At the top of the code

Code:

# Table Colorsset tgbcolor "#000000"       ;#Border Colorset tgcellcolor "#EDE7E7"    ;#Cell colorset tgcellcolor_top "FFE1B5" ;# Table Head color# Java chat available?set tgjavachat "1" ;# 0 is no java chat, 1 is javachatset tgjavaurl "http://axe4.axenet.org/index.php?page=chat&channel=trivia" ;# Url to point to

In stead of the old proc tghtml

Code:

proc tghtml {} { global tgchan botnick tghtmlfile tghtmlrefresh server tgscoresbyname tgranksbyname global tgscorestotal tgranksbyname tgrealnames tgscoresbyrank tgranksbynum tgplaying global tgquestionstotal tghtmlrefreshtimer tghtmlfont  global tgbcolor tgcellcolor tgcellcolor_top tgjavachat tgjavaurl tggetscores tgreadqdb set _file [open $tghtmlfile~new w] puts $_file "" puts $_file "" puts $_file " " puts $_file "  $botnick's trivia channel: $tgchan on [lindex [split $server :] 0]" puts $_file "  " puts $_file "  " puts $_file "  " puts $_file " " puts $_file " " puts $_file "  " puts $_file " Trivia Statistics for $tgchan on [lindex [split $server :] 0]
Generated on [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S]
" if {$tgjavachat>0} {  puts $_file " Play Now!" } puts $_file " 
" if {![onchan $botnick $tgchan]} {  puts $_file "  Hmmm... for some reason I'm not on $tgchan at the moment. Please try again later.
" } else {  puts $_file "  Trivia game is currently [expr $tgplaying==1?"on":"off"]. There are $tgquestionstotal questions in the database."  puts $_file "  
People on $tgchan right now:

"  puts $_file "  
"  puts $_file "   "  puts $_file "    "  puts $_file "    "  puts $_file "    "  puts $_file "    "  puts $_file "   "  foreach nick [lsort [chanlist $tgchan]] {   puts $_file "   "   puts $_file "    "   if {[info exists tgscoresbyname([strlwr $nick])]} {    puts $_file "    "   } else {    puts $_file "    "   }   if {[info exists tgranksbyname([strlwr $nick])]} {    puts $_file "    "   } else {    puts $_file "    "   }   puts $_file "   "   puts $_file "   "  }  puts $_file "  Nick Score Rank Idle
[expr [isop $nick $tgchan]?"@":""][expr [ishalfop $nick $tgchan]?"%":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (that's me!)":""] $tgscoresbyname([strlwr $nick]) - $tgranksbyname([strlwr $nick]) - [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]


" } if {$tgscorestotal>0} {  puts $_file "  There [expr $tgscorestotal==1?"is":"are"] currently $tgscorestotal [expr $tgscorestotal==1?"nick":"nicks"] in the score table:
"  set _rank 1  puts $_file "  "  while {$_rank<=$tgscorestotal} {   puts $_file ""   incr _rank  }  puts $_file " Rank Nickname Score
$_rank $tgrealnames($tgranksbynum($_rank)) $tgscoresbyrank($_rank)
 " } else {  puts $_file "There are currently no nicks in the score table.

" } puts $_file "  
" puts $_file "  Generated on [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S] by trivia.tcl for eggdrop.
" puts $_file "  This page is automatically updated every [expr $tghtmlrefresh==1?"second":"$tghtmlrefresh seconds"]." puts $_file " 
" puts $_file "" close $_file file rename -force $tghtmlfile~new $tghtmlfile set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]}

----
CaliMonk
Network Administrator
Axenet IRC Network

Statistics: Posted by Guest — Wed Sep 18, 2002 9:12 am

egghelp/eggheads community

An addition to trivia.tcl case you don't like the HTML

An addition to trivia.tcl case you don't like the HTML

An addition to trivia.tcl case you don't like the HTML