Code:

#######################################################################PLEASE customise the settings before rehashing your bot!            ########################################################################  The full path to the file containing the questions and answers.#  The account the bot runs on must have read access to this file.set tgqdb "scripts/trivia.questions"#  The character that seperates the question and the answer in the#  question/answer file.set tgqdbsep "|"#  What you set here defines how the bot expects the question/answer#  pairs to be arranged.#  If set to 1, bot expects lines in the format:#    question<seperator>answer#  If set to 0, bot expects lines in the format:#    answer<seperator>questionset tgqdbquestionfirst 0#  The full path to the file which tracks the scores. The account#  the bot runs on must have read & write access to this file. If#  the file does not exist, it will be created when needed.set tgscf "scripts/trivia.scores"#  How to send error reports. Set to 1 to send error report to an#  e-mail address of your choice, or 0 to record errors in a file.#  Sending via e-mail requires that the bot have access to the "mail"#  program. If the bot doesn't have access to this program (e.g. if#  you're running the bot on the Windows platform), then set this to#  0 to have errors recorded in a file.set tgerrmethod 0#  The full path to the file which records error reports. The#  account the bot runs on must have read & write access to this#  file. If the file does not exist, it will be created when needed.set tgerrfil "scripts/trivia.errors"#  The e-mail address to send error reports to.set tgerremail "support@magicspeed.net"#  If error reports are sent via e-mail, where will the bot create#  a temp file? /tmp is usually a good idea.set tgerrmailtmp "tmp/"#  The full path to the file which the bot will use to generate#  an HTML info page. The account the bot runs on must have read#  & write access to this file. If the file does not exist, it will#  be created when needed.set tghtmlfile "index.html"#  How often (in seconds) does the html file get updated. Set to 0#  to disable HTML page.set tghtmlrefresh 0#  The font to use on the html page.set tghtmlfont "verdana,helvetica,arial"#  The name of the channel where the game will be played. The game#  can only be played on one channel.set tgchan "#bitefight.bg-quiz"#  How many points to give a person for a correctly answered#  question.set tgpointsperanswer 1#  The maximum number of hints to give before the question 'expires'#  and the bot goes on to another one. This EXCLUDES the first hint#  given as the question is asked (i.e. the hint which shows no letters,#  only placeholders).set tgmaxhint 3#  Should the bot show the question on each hint (1) or only on the first (0)?set tgalwaysshowq 1#  Show questions in all CAPS (1) or not (0)?set tgcapsquestion 0#  Show answers in all CAPS (1) or not (0)?set tgcapsanswer 0#  Show hints in all CAPS (1) or not (0)?set tgcapshint 0#  The minimum number of correct answers in a row by one person which#  puts them on a winning streak. Setting this to 0 will disable the#  winning streak feature.set tgstreakmin 3#  The number of missed (i.e. unanswered, not skipped) questions to allow#  before automatically stopping the game. Setting this to 0 will cause the#  game to run until somebody uses the stop command, or the bot dies, gets#  killed, pings out, or whatever.set tgmaxmissed 50#  The character to use as a placeholder in hints.set tghintchar "*"#  The time in seconds between hints.set tgtimehint 20#  The time in seconds between a correct answer, 'expired' or skipped question#  and the next question being asked.set tgtimenext 10#  Phrases to use at random when someone answers a question correctly. This must#  be a TCL list. If you don't know what that means, stick to the defaults.set tgcongrats [list "Pozdrawleniq" "Dobre se sprawi" "Dobre go davash" "Doba-+*r si :)" "Pozna" "Prodyljawaj w systiq duh" "Pokaji im kak stawa, dawaj" "Da ne si wkliuchil ekstra mozyka?" "Evala ti , pozna :)"]#  Phrases to use when the question has 'expired'. Must also be a TCL list.set tgnobodygotit [list "Nikoj ne uceli prawilniq otgowor..." "Ehoo? Ima li nqkoj w kysti??" "Wzemi se napyni malko de!" "Da ne bi wyprosite da se mnogo trudni za teb?" "Abe da ne sym samo az tuka?" "Ako go mislite taka, wyobste nqma da wi dam to4ki!" "Hej, hej, hej, kakwo wi stawa, trqbwa da se koncetrirate!"]#  Phrases to use when the question expired and there's another one coming up.#  Yep, you guessed it... another TCL list.set tgtrythenextone [list "Neka widim kak ste se spraweite sys sledwastiq wypros.." "Gotwete se za nowiqt wypros, dosta e truden!:)" "Moje bi ste mojete da otgatnete sledwastiq wypros..." "Opitajte se da poznaete sledwastiqt wypros..." "Eto go i sledwastiq wypros..." "Mislq da wi zatrudnq sys sledwastiq wypros, podgotwete se"]#  Will the bot calculate the time it took to get the correct#  answer (1) or not (0)? (requires TCL 8.3 or higher).set tgtimeanswer 1#  Will the bot show the correct answer if nobody gets it (1) or not (0)?set tgshowanswer 1#  When someone answers a question, will the bot show just that person's score (0)#  or will it show all players' scores (1) (default). This is useful in channels with#  a large number (>20) players.set tgshowallscores 0#  Use bold codes in messages (1) or not (0)?set tgusebold 0#  Send private messages using /msg (1) or not (0)?#  If set to 0, private messages will be sent using /noticeset tgpriv2msg 0#  Word to use as /msg command to give help.#  e.g. set tgcmdhelp "helpme" will make the bot give help when someone#  does "/msg <botnick> helpme"set tgcmdhelp "?"#  Channel command used to start the game.set tgcmdstart "!start"#  Flags required to be able to use the start command.set tgflagsstart "-|-"#  Channel command used to stop the game.set tgcmdstop "!stop"#  Flags required to be able to use the stop command.set tgflagsstop "o|o"#  Channel command used to give a hint.set tgcmdhint "!hint"#  Flags required to be able to use the hint command.set tgflagshint "-|-"#  Disable the !hint command x seconds after someone uses it. This#  prevents accidental double hints if two people use the command in#  quick succession.set tgtempnohint 10#  Channel command used to skip the question.set tgcmdskip "!skip"#  Flags required to be able to use the skip command.set tgflagsskip "o|o"#  Channel command for showing the top 10 scores.set tgcmdtop10 "!top10"#  Flags required to use the top 10 command.set tgflagstop10 "-|-"#  /msg command used to reset scores.set tgcmdreset "reset"#  Flags required to be able to use the reset command.set tgflagsreset "m|m"#  Require password for resetting scores?#  If enabled, you must use /msg bot reset <password> to reset scores.#  The password is the one set by a user using '/msg bot pass'.set tgresetreqpw 1#  /msg command for looking up somebody's score.set tgcmdlookup "score"#  /msg command for looking up your target.#  (i.e. the person ranked one higher than you).set tgcmdtarget "target"#  /msg command for reporting errors in questions and/or answers.set tgcmderror "error"#  /msg command to show channel's rules.set tgcmdrules "rules"#  Channel's rules.set tgrules " Welcome To #bitefight.bg-quiz ! Ekipat na BiteFight.bg vi pojelava priqtna igra , molq spazvaite dobriqt ton v kanala. Zabawlqwajte se. :-)"#  Number of minutes between reminders of how to report errors.set tgerrremindtime 15#  COLOURS#  The colour codes used are the same as those used by mIRC:#  00:white        01:black        02:dark blue    03:dark green#  04:red          05:brown        06:purple       07:orange#  08:yellow       09:light green  10:turquoise    11:cyan#  12:light blue   13:magenta      14:dark grey    15:light grey##  Always specify colour codes as two digits, i.e. use "01" for#  black, not "1".#  You can specify a background colour using "00,04" (white text#  on red background).#  To disable a colour, use "".#  Note that disabling some colours but not others may yield#  unexpected results.set tgcolourstart "03";#Game has started.set tgcolourstop "04";#Game has stopped.set tgcolourskip "10";#Question has been skipped.set tgcolourerr "04";#How to report errors.set tgcolourmiss "10";#Nobody answered the question.set tgcolourqhead "04";#Question heading.set tgcolourqbody "12";#Question textset tgcolourhint "03";#Hint.set tgcolourstrk "12";#Person is on a winning streak.set tgcolourscr1 "04";#Score of person in first place.set tgcolourscr2 "12";#Score of person in second place.set tgcolourscr3 "03";#Score of person in third place.set tgcolourrset "04";#Scores have been reset.set tgcolourstend "12";#Winning streak ended.set tgcolourmisc1 "06";#Miscellaneous colour #1.set tgcolourmisc2 "04";#Miscellaneous colour #2.# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # ##                                                                   ##    Any editing done beyond this point is done at your own risk!   ##                                                                   ## # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # ##Misc checks & var initialisationsset tgver "1.3.4"set tgrel "release"if {[info tclversion]<8.2} {putlog "\002[file tail [info script]]\002 greshka pri zarejdane: tcl wersiq 8.2 ili powe4e trqbwat, za da se pusne tozi skript."return}if {$tgtimeanswer==1&&[info tclversion]<8.3} {putlog "\002[file tail [info script]]\002 wnimanie: wremeto za otgowor e premahnata, tej kato se nujdaete ot tcl wersiq 8.3."set tgtimeanswer 0}if {![info exists alltools_loaded]||$allt_version<205} {putlog "\002[file tail [info script]]\002 greshka pri zarejdane: zaredete alltools.tcl v1.14 ili po-golqma wersiq (ot eggdrop 1.6.13 primerno ili po-golqma wersiq)."return}if {[utimerexists tghtml]!=""} {killutimer $tghtmlrefreshtimer}if {$tghtmlrefresh>0} {set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]}if {![file exists $tgqdb]} {putlog "\002[file tail [info script]]\002 greshka pri zarejdane: $tgqdb ne systestwuwa."return}if {[llength [split $tgchan]]!=1} {putlog "\002[file tail [info script]]\002 greshka pri zarejdane: mnogo kanali sa zadadeni."return}if {![info exists tgplaying]} {set ctcp-version "${ctcp-version} (s trivia.tcl $tgver ($tgrel) ot www.eggdrop.za.net)"set tgplaying 0}if {![info exists tghintnum]} {set tghintnum 0}if {![info exists tgmissed]} {set tgmissed 0}#Bindsbind pubm $tgflagsstart "$tgchan %$tgcmdstart" tgstartbind pubm $tgflagsstop "$tgchan %$tgcmdstop" tgstopproc tgbindhintcmd {} {global tgflagshint tgcmdhintbind pubm $tgflagshint "$::tgchan %$tgcmdhint" tgforcehint}proc tgunbindhintcmd {} {global tgflagshint tgcmdhintunbind pubm $tgflagshint "$::tgchan %$tgcmdhint" tgforcehint}tgbindhintcmdbind pubm $tgflagsskip "$tgchan %$tgcmdskip" tgskipbind pubm $tgflagstop10 "$tgchan %$tgcmdtop10" tgshowtop10bind join -|- "$tgchan *" tgjoinmsgbind msg - $tgcmdhelp tggivehelpbind msg - $tgcmdlookup tgscorelookupbind msg - $tgcmdtarget tgtargetlookupbind msg - $tgcmderror tgerrorbind msg - $tgcmdrules tgrulesmsgbind msg $tgflagsreset "$tgcmdreset" tgresetscoresbind kick - "$tgchan $botnick" tgbotgotkickedbind evnt - disconnect-server tgbotgotdisconnected#starts the game if it isn't running.proc tgstart {nick host hand chan text} {global tgplaying tgstreak tgchan tgerrremindtime tgerrremindtimer tgmissedif {[strlwr $tgchan]==[strlwr $chan]} {if {$tgplaying==0} {tggamemsg "[tgcolstart]Triviata e startirana ot $nick!"tgnextqset tgplaying 1set tgstreak 0set tgmissed 0set tgerrremindtimer [timer $tgerrremindtime tgerrremind]}}}#stops the game if it's running.proc tgstop {nick host hand chan text} {global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakminglobal tgerrremindtimer tgrebindhinttimerif {[strlwr $tgchan]==[strlwr $chan]} {if {$tgplaying==1} {tggamemsg "[tgcolstop]Triviata e sprqna ot $nick!"if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }set tgstreak 0set tgplaying 0catch {unbind pubm -|- "$tgchan *" tgcheckanswer}if {[utimerexists tghint]!=""} {killutimer $tghinttimer}if {[utimerexists tgnextq]!=""} {killutimer $tgnextqtimer}if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}}}}#gives a hint if there is currently a question to answer.proc tgforcehint {nick host hand chan text} {global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakminglobal tgtempnohint tgmaxhintcurrent tghintnum tgrebindhinttimer tgtempnohintif {[strlwr $tgchan]==[strlwr $chan]} {if {$tgplaying==1&&[utimerexists tghint]!=""} {killutimer $tghinttimertghinttgunbindhintcmdif {$tghintnum<$tgmaxhintcurrent} {set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd]}}}}#skips the current question if one has been asked.proc tgskip {nick host hand chan text} {global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreakglobal tgstreakmin tgtimenext tgrebindhinttimerif {[strlwr $tgchan]==[strlwr $chan]} {if {$tgplaying==1&&[utimerexists tghint]!=""} {tggamemsg "[tgcolskip]Skipping to next question by [tgcolmisc2]$nick's[tgcolskip] request..."if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin&&[strlwr [lindex [split $tgstreak ,] 0]]==[strlwr $nick]} {tgstreakendset tgstreak 0}catch {unbind pubm -|- "$tgchan *" tgcheckanswer}killutimer $tghinttimerif {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}set tgnextqtimer [utimer $tgtimenext tgnextq]}}}#reminds channel how to report errors in questions/answersproc tgerrremind {} {global tgerrremindtimer tgerrremindtime botnick tgcmderrortggamemsg "[tgcolerr]Zapomnete: za da syobstite za greshkai pri wyprosa/otgowora, napishete /msg $botnick $tgcmderror <nomer> \[opisanie\]"set tgerrremindtimer [timer $tgerrremindtime tgerrremind]}#bot got kicked. stop the game.proc tgbotgotkicked {nick host hand chan targ text} {tgquietstop}#bot got disconnected. stop the game.proc tgbotgotdisconnected {disconnect-server} {tgquietstop}#stops the game without telling the channel.proc tgquietstop {} {global tgplaying tgstreak tgchan tgcurrentanswer tghinttimer tgnextqtimer tgerrremindtimerglobal tgrebindhinttimerif {$tgplaying==1} {set tgstreak 0set tgplaying 0catch {unbind pubm -|- "$tgchan *" tgcheckanswer}if {[utimerexists tghint]!=""} {killutimer $tghinttimer}if {[utimerexists tgnextq]!=""} {killutimer $tgnextqtimer}if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}}}#reads the question database.proc tgreadqdb {} {global tgqdb tgquestionstotal tgquestionslistset tgquestionstotal 0set tgquestionslist ""set qfile [open $tgqdb r]set tgquestionslist [split [read -nonewline $qfile] "\n"]set tgquestionstotal [llength $tgquestionslist]close $qfile}#selects the next question.proc tgnextq {} {global tgqdb tgcurrentquestion tgcurrentanswer tgquestionnumberglobal tgquestionstotal tghintnum tgchan tgquestionslist tgqdbsep tgqdbquestionfirstglobal tgcapsquestion tgcapsanswertgreadqdbset tgcurrentquestion ""set tgcurrentanswer ""while {$tgcurrentquestion == ""} {set tgquestionnumber [rand [llength $tgquestionslist]]set tgquestionselected [lindex $tgquestionslist $tgquestionnumber]set tgcurrentquestion [lindex [split $tgquestionselected $tgqdbsep] [expr $tgqdbquestionfirst^1]]if {$tgcapsquestion==1} {set tgcurrentquestion [strupr $tgcurrentquestion]}set tgcurrentanswer [string trim [lindex [split $tgquestionselected $tgqdbsep] $tgqdbquestionfirst]]if {$tgcapsanswer==1} {set tgcurrentanswer [strupr $tgcurrentanswer]}}unset tghintnumtghintbind pubm -|- "$tgchan *" tgcheckanswerreturn}#shows timed hints.proc tghint {} {global tgmaxhint tghintnum tgcurrentanswer tghinttimer tgchanglobal tgtimehint tghintchar tgquestionnumber tgquestionstotalglobal tgcurrentquestion tghintcharsused tgnextqtimer tgtimenext tgstreak tgstreakminglobal tgnobodygotit tgtrythenextone tgmissed tgmaxmissed tgcmdstart tgshowanswerglobal tgtimestart tgtimeanswer tgalwaysshowq tgmaxhintcurrent tgtempnohint tgcapshintif {[catch {incr tghintnum}]!=0} {set tghintnum 0regsub -all -- "\[^A-Za-z0-9\]" $tgcurrentanswer "" _hintcharsset tgmaxhintcurrent [expr [strlen $_hintchars]<=$tgmaxhint?[expr [strlen $_hintchars]-1]:$tgmaxhint]catch {tgunbindhintcmd}if {$tgmaxhintcurrent>0} {set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd]}}if {$tghintnum >= [expr $tgmaxhintcurrent+1]} {incr tgmissedset _msg ""append _msg "[tgcolmiss][lindex $tgnobodygotit [rand [llength $tgnobodygotit]]]"if {$tgshowanswer==1} {append _msg " Otgoworyt beshe [tgcolmisc2]$tgcurrentanswer[tgcolmiss]."}if {$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {append _msg " Towa sa $tgmissed wyprosa, na koito wie ne ste otgoworili! Igrata awtomati4no spira. Za da q startirate napishete, $tgcmdstart"tgquietstop} else {append _msg " [lindex $tgtrythenextone [rand [llength $tgtrythenextone]]]"}tggamemsg "[tgcolmiss]$_msg"if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }set tgstreak 0catch {unbind pubm -|- "$tgchan *" tgcheckanswer}if {$tgmaxmissed==0||$tgmissed<$tgmaxmissed} {set tgnextqtimer [utimer $tgtimenext tgnextq]}return} elseif {$tghintnum == 0} {set i 0set _hint {}set tghintcharsused {}foreach word [split $tgcurrentanswer] {regsub -all -- "\[A-Za-z0-9\]" $word $tghintchar _currentlappend _hint $_current}if {$tgtimeanswer==1} {set tgtimestart [clock clicks -milliseconds]}} elseif {$tghintnum == 1} {set i 0set _hint {}while {$i<[llength [split $tgcurrentanswer]]} {set _word [lindex [split $tgcurrentanswer] $i]set j 0set _newword {}while {$j<[strlen $_word]} {if {$j==0} {append _newword [stridx $_word $j]lappend tghintcharsused $i,$j} else {if {[string is alnum [stridx $_word $j]]} {append _newword $tghintchar} else {append _newword [stridx $_word $j]lappend tghintcharsused $i,$j}}incr j}lappend _hint $_newwordincr i}} else {set i 0set _hint {}while {$i<[llength [split $tgcurrentanswer]]} {set _word [lindex [split $tgcurrentanswer] $i]set j 0set _newword {}set _selected [rand [strlen $_word]]regsub -all -- "\[^A-Za-z0-9\]" $_word "" _wordalnumif {[strlen $_wordalnum]>=$tghintnum} {while {[lsearch $tghintcharsused $i,$_selected]!=-1||[string is alnum [stridx $_word $_selected]]==0} { set _selected [rand [strlen $_word]]}}lappend tghintcharsused $i,$_selectedwhile {$j<[strlen $_word]} {if {[lsearch $tghintcharsused $i,$j]!=-1||[string is alnum [stridx $_word $j]]==0} {append _newword [stridx $_word $j]} else {if {[string is alnum [stridx $_word $j]]} {append _newword $tghintchar}}incr j}lappend _hint $_newwordincr i}}if {$tgcapshint==1} {set _hint [strupr $_hint]}tggamemsg "[tgcolqhead]===== Wypros [expr $tgquestionnumber+1]/$tgquestionstotal [expr $tghintnum?"(Joker $tghintnum/$tgmaxhintcurrent)":""] ====="if {$tgalwaysshowq==1||$tghintnum==0} {tggamemsg "[tgcolqbody]$tgcurrentquestion"}tggamemsg "[tgcolhint]Joker: [join $_hint]"set tghinttimer [utimer $tgtimehint tghint]}#triggered when someone uses !top10 commandproc tgshowtop10 {nick host hand chan text} {global tgscores tgchan tgscorestotalif {[strlwr $chan]==[strlwr $tgchan]} {tggetscoresif {$tgscorestotal>0} {if {$tgscorestotal>9} {set _max 9} else {set _max [expr $tgscorestotal-1]}set i 0while {$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]Tabliztata e prazna."}}}#checks if anyone has said the correct answer on channel.proc tgcheckanswer {nick host hand chan text} {global tgcurrentanswerif {[strlwr $tgcurrentanswer] == [tgstripcodes [strlwr [string trim $text]]]} {tgcorrectanswer $nick}}#triggered when someone says the correct answer.proc tgcorrectanswer {nick} {global tgcurrentanswer tghinttimer tgtimenext tgchan tgnextqtimer tgstreak tgstreakminglobal tgscoresbyname tgranksbyname tgranksbynum tgcongrats tgscorestotal tgmissedglobal tgtimestart tgshowallscores tgrealnames tgscoresbyrank tgtimeanswertggetscoresif {![info exists tgranksbyname([strlwr $nick])]} {set _oldrank 0} else {set _oldrank $tgranksbyname([strlwr $nick])}tgincrscore $nicktggetscoresset _newrank $tgranksbyname([strlwr $nick])set _timetoanswer ""if {$tgtimeanswer==1} {set _timetoanswer [expr [expr [clock clicks -milliseconds]-$tgtimestart]/1000.00]}set _msg "[tgcolmisc1][lindex $tgcongrats [rand [llength $tgcongrats]]] [tgcolmisc2]$nick[tgcolmisc1]! Otgoworyt beshe [tgcolmisc2]$tgcurrentanswer[tgcolmisc1].[expr $tgtimeanswer==1?" Pozna go za [tgcolmisc2]$_timetoanswer[tgcolmisc1] sekundi.":""]"if {$_newrank<$_oldrank} {if {$_newrank==1} {append _msg " Na purwo mqsto ste!"} else {if {$tgshowallscores==0} {append _msg " Edna pozitziq napred ste!"} else {append _msg " poziciqta wi e [tgcolmisc2][ordnumber $tgranksbyname([strlwr $nick])][tgcolmisc1] ot [tgcolmisc2]$tgscorestotal[tgcolmisc1], zad [tgcolmisc2]$tgrealnames($tgranksbynum([expr $_newrank-1]))[tgcolmisc1] s [tgcolmisc2]$tgscoresbyrank([expr $_newrank-1])[tgcolmisc1]."}}}tggamemsg "$_msg"if {$tgstreak!=0} {if {[lindex [split $tgstreak ,] 0]==[strlwr $nick]} {set tgstreak [strlwr $nick],[expr [lindex [split $tgstreak ,] 1]+1]if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} {tggamemsg "[tgcolstrk][tgcolmisc2]$nick[tgcolstrk] pak prawi serijka! [tgcolmisc2][lindex [split $tgstreak ,] 1] [tgcolstrk] werni otgowora za sega!"}} else {if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }set tgstreak [strlwr $nick],1}} else {set tgstreak [strlwr $nick],1}set tgmissed 0tgshowscores $nickcatch {unbind pubm -|- "$tgchan *" tgcheckanswer}killutimer $tghinttimerset tgnextqtimer [utimer $tgtimenext tgnextq]}#read current scores from file, sort and store in variable.proc tggetscores {} {global tgscf tgscorestotal tgscores tgscoresbyname tgranksbyname tgranksbynumglobal tgrealnames tgscoresbyrankif {[file exists $tgscf]&&[file size $tgscf]>2} {set _sfile [open $tgscf r]set tgscores [lsort -dict -decreasing [split [gets $_sfile]]]close $_sfileset tgscorestotal [llength $tgscores]} else {set tgscores ""set tgscorestotal 0}if {[info exists tgscoresbyname]} {unset tgscoresbyname}if {[info exists tgranksbyname]} {unset tgranksbyname}if {[info exists tgrealnames]} {unset tgrealnames}if {[info exists tgranksbynum]} {unset tgranksbynum}set i 0while {$i<[llength $tgscores]} {set _item [lindex $tgscores $i]set _nick [lindex [split $_item ,] 2]set _lwrnick [lindex [split $_item ,] 3]set _score [lindex [split $_item ,] 0]set tgscoresbyname($_lwrnick) $_scoreset tgrealnames($_lwrnick) $_nickset tgranksbyname($_lwrnick) [expr $i+1]set tgranksbynum([expr $i+1]) $_lwrnickset tgscoresbyrank([expr $i+1]) $_scoreincr i}return}#increment someone's score.proc tgincrscore {who} {global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbynametggetscoresif {$tgscorestotal>0} {set i 0if {![info exists tgscoresbyname([strlwr $who])]} {append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who] "}while {$i<[llength $tgscores]} {set _item [lindex $tgscores $i]set _nick [lindex [split $_item ,] 2]set _time [lindex [split $_item ,] 1]set _score [lindex [split $_item ,] 0]if {[strlwr $who]==[strlwr $_nick]} {append _newscores "[expr $_score+$tgpointsperanswer],[expr 1000000000000.0/[unixtime]],$who,[strlwr $who][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"} else {append _newscores "$_score,$_time,$_nick,[strlwr $_nick][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"}incr i}} else {append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"}set _sfile [open $tgscf w]puts $_sfile "$_newscores"close $_sfilereturn}#shows the current scores on channel.proc tgshowscores {nick} {global tgscores tgchan tgscorestotal tgshowallscores tgranksbyname tgranksbynumglobal tgscoresbyname tgrealnames tgscoresbyranktggetscoresset i 0if {$tgshowallscores} {while {$i<[llength $tgscores]} {set _item [lindex $tgscores $i]set _nick [lindex [split $_item ,] 2]set _score [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"} elseif {[onchan $_nick $tgchan]} {append _scores ", [tgcolmisc1]$_nick $_score"}incr i}tggamemsg "[tgcolmisc1]To4kite: $_scores"} else {if {$tgranksbyname([strlwr $nick])==1} {set _tgt "."} else {set _tgt ", behind [tgcolmisc2]$tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] with [tgcolmisc2]$tgscoresbyrank([expr $tgranksbyname([strlwr $nick])-1])[tgcolmisc1]."}tggamemsg "[tgcolmisc2]$nick [tgcolmisc1]sega ima [tgcolmisc2]$tgscoresbyname([strlwr $nick]) [tgcolmisc1][expr $tgscoresbyname([strlwr $nick])==1?"point":"points"] i e [tgcolmisc2][ordnumber $tgranksbyname([strlwr $nick])] [tgcolmisc1]ot [tgcolmisc2]$tgscorestotal[tgcolmisc1]$_tgt"}}#reset current scores.proc tgresetscores {nick host hand text} {global tgscf tgscorestotal tgscores tgplaying tgresetreqpwif {($tgresetreqpw==1 && [passwdok $hand $text]) || $tgresetreqpw==0} {if {[file exists $tgscf]&&[file size $tgscf]>2} {set _sfile [open $tgscf w]puts $_sfile ""close $_sfileset tgscores ""set tgscorestotal 0}tggamemsg "[tgcolrset]===== To4kite sa iztriti ot $nick! ====="}}#triggered when a winning streak ends.proc tgstreakend {} {global tgstreak tgrealnamestggamemsg "[tgcolstend]Tolkowa beshe s seriqta [tgcolstend] na [tgcolmisc2]$tgrealnames([lindex [split $tgstreak ,] 0])."return}#triggered when someone joins trivia chan.proc tgjoinmsg {nick host hand chan} {global botnick tgplaying tgcmdhelp tgcmdstart tgflagsstart tgcmdstop tgflagsstop tgchanif {$nick != $botnick} {set _msg ""append _msg "Dobre doshyl w trivia kanala na $botnick. Triviata e pusnata"if {$tgplaying==1} {append _msg " \002wkliuchena\002."} else {append _msg " \002izkliuchena\002."}if {[matchattr $hand $tgflagsstart $tgchan]&&$tgplaying==0} {append _msg " Za da startirate igrata, napishete \002$tgcmdstart\002 w $tgchan."}append _msg " Napishete \002/MSG $botnick [strupr $tgcmdhelp]\002, ako se nujdaete ot pomost. Zabawlqwajte se! :-)"[tgpriv] $nick "$_msg"}}#triggered when someone /msgs the bot with the score lookup command.proc tgscorelookup {nick host hand text} {global tgscoresbyname tgranksbyname tgscorestotal tgrealnamesif {$text==""} { set text $nick } else { set text [lindex [split $text] 0] }tggetscoresif {![info exists tgscoresbyname([strlwr $text])]} {if {[strlwr $text]==[strlwr $nick]} {set _who "[tgcolmisc1]Ti si"} else {set _who "[tgcolmisc2]$text [tgcolmisc1]e"}[tgpriv] $nick "[tgbold]$_who [tgcolmisc1]Ne e w spisyka s to4kite."} else {if {[strlwr $text]==[strlwr $nick]} {set _who "[tgcolmisc1]Imate"} else {set _who "[tgcolmisc2]$tgrealnames([strlwr $text]) [tgcolmisc1]ima"}[tgpriv] $nick "[tgbold]$_who [tgcolmisc2]$tgscoresbyname([strlwr $text])[tgcolmisc1] to4ki, poziciq [tgcolmisc2][ordnumber $tgranksbyname([strlwr $text])] [tgcolmisc1]ot [tgcolmisc2]$tgscorestotal[tgcolmisc1]."}}#triggered when someone /msgs the bot with the target lookup command.proc tgtargetlookup {nick host hand text} {global tgscoresbyname tgranksbyname tgscorestotal tgranksbynum tgrealnamestggetscoresif {![info exists tgscoresbyname([strlwr $nick])]} {[tgpriv] $nick "[tgbold][tgcolmisc1]Wyobste nqmate to4ki oste."} elseif {$tgranksbyname([strlwr $nick])==1} {[tgpriv] $nick "[tgbold][tgcolmisc1]Pyrwi ste!"} else {[tgpriv] $nick "[tgbold][tgcolmisc1]Wie ste [tgcolmisc2]$tgscoresbyname([strlwr $nick])[tgcolmisc1]. Sledwastiqt e [tgcolmisc2]$tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1])) [tgcolmisc1]s [tgcolmisc2]$tgscoresbyname($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1], poziciq [tgcolmisc2][ordnumber [expr $tgranksbyname([strlwr $nick])-1]] [tgcolmisc1]ot [tgcolmisc2]$tgscorestotal[tgcolmisc1]."}}#triggered when someone /msgs the bot with the error reporting command.proc tgerror {nick host hand text} {global tgquestionstotal tgquestionslist tgerrmethod tgerrfil tgerremail tgerrmailtmpif {$text==""||![string is int [lindex [split $text] 0]]} {[tgpriv] $nick "[tgbold][tgcolmisc1]Trqbwa da zadadete nomer na wyprosa."return}tgreadqdbset _qnum [lindex [split $text] 0]if {$_qnum>$tgquestionstotal} {[tgpriv] $nick "[tgbold][tgcolmisc1]Nqma takyw wypros."return}set _qques [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 1]set _qans [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 0]set _desc [join [lrange [split $text] 1 end]]if {$_desc==""} { set _desc "No further info given for this error." }if {$tgerrmethod==1} {set _fname $tgerrmailtmp\trivia[rand 100000].tmpset _file [open $_fname w]} else {set _file [open $tgerrfil a]}puts $_file ""puts $_file "Doklad za greshka naprawen na [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S]"puts $_file "Doklad ot:\t$nick!$host"puts $_file "Wypros #:\t$_qnum"puts $_file "Wypros:\t$_qques"puts $_file "Otgowor:\t\t$_qans"puts $_file "Komentar:\t$_desc"puts $_file "------------------------------"close $_fileif {$tgerrmethod==1} {exec mail -s "trivia.tcl error report from $nick" $tgerremail < $_fnamefile delete $_fname[tgpriv] $nick "[tgbold][tgcolmisc1]Blagodarim! Greshkata e pratena po e-mail na moqt sobstwenik."} else {[tgpriv] $nick "[tgbold][tgcolmisc1]Blagodarim! Greshkata e zapisana i ste byde orpawena sywsem skoro."}}#triggered when someone /msgs the bot with the rules command.proc tgrulesmsg {nick host hand text} {global tgrules[tgpriv] $nick "Prawilata za kanala sa slednite: $tgrules"}#triggered when someone /msgs the bot with the help command.proc tggivehelp {nick host hand {text ""}} {global botnick tgcmdlookup tgcmdhelp tgcmdstart tgcmdstop tgchan tgflagsstopglobal tgcmdstop tgflagshint tgcmdhint tgflagsskip tgcmdskip tgflagsreset tgcmdresetglobal tgcmdtarget tgcmderror tgcmdrules tgflagsstartif {$text==""} {[tgpriv] $nick "Imate dostyp do slednite /MSG komandi:"[tgpriv] $nick "Za da izpolzwate komandite, /MSG $botnick <komanda>"[tgpriv] $nick "  \002[strupr $tgcmdrules]\002"[tgpriv] $nick "   -- Pokazwa wi prawilata na kanala."[tgpriv] $nick "  \002[strupr $tgcmdlookup]\002 \[psewdonim\]"[tgpriv] $nick "   -- Pokazwa wi poziciqta i to4kite na \[psewdonim\], ako e zadaden,"[tgpriv] $nick "    ina4e pokazwa washite."[tgpriv] $nick "  \002[strupr $tgcmdtarget]\002"[tgpriv] $nick "   -- Pokazwa wi to4kite i poziciqta na potrebitelq, kojto e"[tgpriv] $nick "    edin poziciq nad was."[tgpriv] $nick "  \002[strupr $tgcmderror]\002 <nomer> \[opisanie\]"[tgpriv] $nick "   -- Dokladwate za greshen wypros nomer <nomer>"[tgpriv] $nick "    Opisanieto ne e zadyljitelno, no jelatelno."if {[matchattr $hand $tgflagsreset $tgchan]} {[tgpriv] $nick "  \002[strupr $tgcmdreset]\002"[tgpriv] $nick "   -- Wsi4ki to4ki se gubqt."}[tgpriv] $nick "Za spisyk s /MSG komandite, /MSG $botnick [strupr $tgcmdhelp] PUBCMDS"}if {[strlwr $text]=="pubcmds"} {[tgpriv] $nick "Imate dostyp do slednite komandi za kanala:"if {[matchattr $hand $tgflagsstart $tgchan]} {[tgpriv] $nick "  \002$tgcmdstart\002 -- startira triviata."}if {[matchattr $hand $tgflagsstop $tgchan]} {[tgpriv] $nick "  \002$tgcmdstop\002 -- spira triviata."}if {[matchattr $hand $tgflagshint $tgchan]} {[tgpriv] $nick "  \002$tgcmdhint\002 -- joker za otgowora."}if {[matchattr $hand $tgflagsskip $tgchan]} {[tgpriv] $nick "  \002$tgcmdskip\002 -- prepuskata wyprosa."}[tgpriv] $nick "Za spisyk s /MSG komandite, /MSG $botnick [strupr $tgcmdhelp]"}}# Returns text without colour, bold, etc. control codes.# This is a stripped down version of the proc in MC_8's mc.moretools.tcl.proc tgstripcodes {text} {regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $text "" textset text "[string map -nocase [list \002 "" \017 "" \026 "" \037 ""] $text]"return $text}proc tggamemsg {what} {global tgchanputquick "PRIVMSG $tgchan :[tgbold]$what"}proc tgbold {} {global tguseboldif {$tgusebold==1} { return "\002" }}proc tgcolstart {} {global tgcolourstartif {$tgcolourstart!=""} { return "\003$tgcolourstart" }}proc tgcolstop {} {global tgcolourstopif {$tgcolourstop!=""} { return "\003$tgcolourstop" }}proc tgcolskip {} {global tgcolourskipif {$tgcolourskip!=""} { return "\003$tgcolourskip" }}proc tgcolerr {} {global tgcolourerrif {$tgcolourerr!=""} { return "\003$tgcolourerr" }}proc tgcolmiss {} {global tgcolourmissif {$tgcolourmiss!=""} { return "\003$tgcolourmiss" }}proc tgcolqhead {} {global tgcolourqheadif {$tgcolourqhead!=""} { return "\003$tgcolourqhead" }}proc tgcolqbody {} {global tgcolourqbodyif {$tgcolourqbody!=""} { return "\003$tgcolourqbody" }}proc tgcolhint {} {global tgcolourhintif {$tgcolourhint!=""} { return "\003$tgcolourhint" }}proc tgcolstrk {} {global tgcolourstrkif {$tgcolourstrk!=""} { return "\003$tgcolourstrk" }}proc tgcolscr1 {} {global tgcolourscr1if {$tgcolourscr1!=""} { return "\003$tgcolourscr1" }}proc tgcolscr2 {} {global tgcolourscr2if {$tgcolourscr2!=""} { return "\003$tgcolourscr2" }}proc tgcolscr3 {} {global tgcolourscr3if {$tgcolourscr3!=""} { return "\003$tgcolourscr3" }}proc tgcolrset {} {global tgcolourrsetif {$tgcolourrset!=""} { return "\003$tgcolourrset" }}proc tgcolstend {} {global tgcolourstendif {$tgcolourstend!=""} { return "\003$tgcolourstend" }}proc tgcolmisc1 {} {global tgcolourmisc1if {$tgcolourmisc1!=""} { return "\003$tgcolourmisc1" }}proc tgcolmisc2 {} {global tgcolourmisc2if {$tgcolourmisc2!=""} { return "\003$tgcolourmisc2" }}proc tgpriv {} {global tgpriv2msgif {$tgpriv2msg==1} { return "putmsg" } else { return "putnotc" }}#this generates an html file with all the people on the chan with#their score, as well as a list of all scores, sorted by rankproc tghtml {} {global tgchan botnick tghtmlfile tghtmlrefresh server tgscoresbyname tgranksbynameglobal tgscorestotal tgranksbyname tgrealnames tgscoresbyrank tgranksbynum tgplayingglobal tgquestionstotal tghtmlrefreshtimer tghtmlfonttggetscorestgreadqdbset _file [open $tghtmlfile~new w]puts $_file "<!DOCTYPE HTML PUBLIC \"-/W3C/DTD HTML 4.01 Transitional/EN\">"puts $_file "<html>"puts $_file " <head>"puts $_file "  <title>trivia kanala na $botnick: $tgchan na [lindex [split $server :] 0]</title>"puts $_file "  <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">"puts $_file "  <meta http-equiv=\"refresh\" content=\"$tghtmlrefresh\">"puts $_file "  <meta name=\"generator\" content=\"trivia.tcl skript za eggdrop. http://www.eggdrop.za.net/\">"puts $_file "  <style type=\"text/css\">"puts $_file "  <!--"puts $_file "  body,td{font-family:$tghtmlfont;font-size:13px;}"puts $_file "  a{text-decoration:none;color:#09f;}"puts $_file "  -->"puts $_file "  </style>"puts $_file " </head>"puts $_file " <body>"puts $_file "  <h1>$tgchan na [lindex [split $server :] 0]</h1>"puts $_file "  <hr size=\"1\" noshade>"if {![onchan $botnick $tgchan]} {puts $_file "  <p>Hmmm... Poradi nqkakwa pri4ina ne sym w $tgchan to4no w momenta. Opitajte po-kysno.</p>"} else {puts $_file "  <p>Triviata w momenta e <b>[expr $tgplaying==1?"wkliuchena":"izkliuchena"]</b>. Ima <b>$tgquestionstotal</b> wyprosa w bazata danni."puts $_file "  <p>Hora w $tgchan w momenta:<br>"puts $_file "  <table width=\"50%\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\"><tr><td><table width=\"100%\" cellspacing=\"3\" border=\"0\">"puts $_file "   <tr>"puts $_file "    <td><b>Psewdonim</b></td>"puts $_file "    <td><b>To4ki</b></td>"puts $_file "    <td><b>Poziciq</b></td>"puts $_file "    <td><b>Bezdejstwie</b></td>"puts $_file "   </tr>"foreach nick [lsort [chanlist $tgchan]] {puts $_file "   <tr>"puts $_file "    <td>[expr [isop $nick $tgchan]?"@":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (towa sym az!)":""]</td>"if {[info exists tgscoresbyname([strlwr $nick])]} {puts $_file "    <td>$tgscoresbyname([strlwr $nick])</td>"} else {puts $_file "    <td>-</td>"}if {[info exists tgranksbyname([strlwr $nick])]} {puts $_file "    <td>$tgranksbyname([strlwr $nick])</td>"} else {puts $_file "    <td>-</td>"}puts $_file "   <td>[expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]</td>"puts $_file "   </tr>"}puts $_file "  </table></td></tr></table>"}if {$tgscorestotal>0} {puts $_file "  <p><small>There [expr $tgscorestotal==1?"is":"are"] currently <b>$tgscorestotal</b> [expr $tgscorestotal==1?"nick":"nicks"] in the score table:<br>"set _rank 1while {$_rank<=$tgscorestotal} {puts $_file "  <b>$_rank</b>. $tgrealnames($tgranksbynum($_rank)) $tgscoresbyrank($_rank)<br>"incr _rank}} else {puts $_file "  <p><small>W momenta nqma hora w bazata danni.<br>"}puts $_file "  </small></p>"puts $_file "  <hr size=\"1\" noshade>"puts $_file "  <small>Generirana na [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S] ot <a href=\"http://www.eggdrop.za.net/\">trivia.tcl</a> za <a href=\"http://www.eggheads.org\">eggdrop</a>.<br>"puts $_file "  Tazi stranica awtomati4no se opresnqwa (i se refreshva, ako browser-a wi go poddyrja) [expr $tghtmlrefresh==1?"wsqka":"wseki"] [expr $tghtmlrefresh==1?"sekunda":"$tghtmlrefresh sekundi"].</small>"puts $_file " </body>"puts $_file "</html>"close $_filefile rename -force $tghtmlfile~new $tghtmlfileset tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]}putlog "======================================================="putlog "* trivia.tcl $tgver ($tgrel) ot Souperman zaredena."putlog "* Posetete http://www.eggdrop.za.net/ za nowa wersiq."tgreadqdbputlog "* $tgquestionstotal wyprosi w $tgqdb ([file size $tgqdb] bytes)"putlog "======================================================="