# Should the bot show the question on each hint (1) or only on the first (0)?
# Botun her ipucu verildiginde soruyu tekrar gosterir gostermemesini ayarlar.
# 1= her seferinde soruyu gosterir, 0= sadece 1 kere gosterir.
set tgalwaysshowq 1

# Botun kullanicagi sorularin listesinin oldugu dosya.
# Duzenleyin.!
set tgqdb "scripts/trivia.txt"

# The character that seperates the question and in the
# question/answer file.
# Sorular dosyasinda sorulari cevaplardan ayirmak icin kullanilacak
# olan karakter. Dokunmayin.
set tgqdbsep "*"

# Soru ve cevaplarin sorular dosyasindaki ayirimini duzenlemeye yarar.
# Eger 1 olarak ayarli olursa soru*cevap
# Eger 0 olarak ayarli olursa cevap*soru seklinde sorular sorulucaktir.!
# Eger botunuz cevaplari soru olarak soruyorsa, bunu degistirin.
set tgqdbquestionfirst 1

# Hatalarin admine nasil gonderilecegini ayarlar. Eger 1 olarak 
# ayarlanirsa bot admine hatalari mail ile gonderir. Botun mail 
# erisimi olmasi gereklidir.! Eger 0 olarak birakilirsa bot hatalari
# dosyaya kayit eder. Duzenlemeye gerek yok.
set tgerrmethod 1
set tgscf "scripts/trivia.scores"
set tgerrmethod 1
set tgerrfil "kelime.errors"

# Botun admin`i nin Email Adresi.
set tgerremail "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

# Eger bot hatalari mail ile gondericekse bot gecici dosyalari
# nereye koyucagini ayarlar.
set tgerrmailtmp "eggdrop/oyun.errors"

# Web istatistikleri icin olusturulacak dosyanin tam yolu ve ismi.
# Ayrintili web istatistiklerinin nasil yapilacagini ogrenmek icin
# sitemizi ziyaret edin.
set tghtmlfile "/home/cumbusva/public_html/oyun.html"

# Web istatistikleri kac saniyede bir yenilenecek.!
set tghtmlrefresh 15

# Web sitesinin fontu.
set tghtmlfont "verdana,helvetica,arial"

# Oyunu oynanacagi kanal. Bu kanal sadece 1 tane olabilir. Ayrica ayni
# botda 2 ayri script birlikte calismaz.!!!
set tgchan "#Game"

# Her dogru cevap icin verilicek puan.
set tgpointsperanswer 15

# Maximum ipucu adedi.
set tgmaxhint 3

# Should the bot show the question on each hint (1) or only on the first (0)?
# Botun her ipucu verildiginde soruyu tekrar gosterir gostermemesini ayarlar.
# 1= her seferinde soruyu gosterir, 0= sadece 1 kere gosterir.
set tgalwaysshowq 1

# Sorulari BUYUK harflerle sorar. ( 0= sorulari kucuk harfle sorar.)
set tgcapsquestion 0

# Cevaplari BUYUK harfle yazar. (0= cevaplari kucuk harfle yazar.)
set tgcapsanswer 1

# Show hints in all CAPS (1) or not (0)?
# Ipuclarini BUYUK harfle yazar. (0= ipuclarini kucuk harfle yazar.)
set tgcapshint 1

# 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.
# Arka arkaya bilme rekorunun olabilmesi icin en az kac sorunun arka
# arkaya bilinmesi gerektigini ayarlar. (0= iptal eder)
set tgstreakmin 5

# Botu eger ayarlanan miktarda soruya cevap veren cikmazsa durur. 0 ayarlanirsa
# bot hic durmadan soru sorar.
set tgmaxmissed 0

# Sorularin kanalda sorulurken neyle sifrelenecegini ayarlar.
set tghintchar "*"

# Ipuclari arasindaki zaman farki. (saniye)
set tgtimehint 5

# Eski soruyla yeni sorulucak soru arasindaki zaman farki.
set tgtimenext 3

# Soru bilindiginde botun kullanacagi terimler.
set tgcongrats[list "Tebrikler..." "Harika" "Tebrik ederim, bildin!" "Gayet iyisin, tebrikler!" "Soruyu dogru bildin!" "Sen bir numarasin!" "Helal olsun!" ]

# Kimse bilemediginde botun kullanacagi terimler.
set tgnobodygotit[list "Soruyu kimse bilemedi!" "Canlanin arkadaslar! Hadi!" "Uyudunuz mu arkadaslar )"]

# Eski soru bitip yenisi sorulurken kulanilan terimler.
set tgtrythenextone[list "Yeni sorunuzu seciyorum.." "Hadi bakalim bunu bilebilecek misiniz ;)"]

# Cevabin kac saniye surdugunu aktif eder. (0=kapatir)
set tgtimeanswer 1

# Eger kimse dogru cevabi veremezse bot sorunun cevabini gosterir. (0=gostermez)
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.
# Birisi sorulan soruya dogru cevap verdiginde, bot sadece o kisinin skorunumu yoksa 
# butun ilk 20 yimi gostericek. 0= sadece kisinin, 1= ilk 20nin.
set tgshowallscores 1

# Use bold codes in messages (1) or not (0)?
# msglarda kalin yazi kullan(0) kullanma(1).
set tgusebold 0

# Send private messages using /msg (1) or not (0)?
# If set to 0, private messages will be sent using /notice
# msglar notice(0) ile mi yoksa msg(1) ilemi gonderilecek. ?
set tgpriv2msg 0

# Botdan yardim almak icin kullanilalacak komut.
set tgcmdhelp "YARDIM"

# Botu baslatma komutu.
set tgcmdstart "!BASLA"

# Oyunu baslatma yetkisi ayarlari.
set tgflagsstart "-|-"

# Oyunu durdurma komutu.
set tgcmdstop "!DUR"

# Oyunu durdurma yetkisi ayarlari.
set tgflagsstop "o|o"

# Ipucu almak icin kullanilan komut.
set tgcmdhint "!IPUCU"

# Ipucu almak icin yetki ayarlari.
set tgflagshint "-|-"

# Ipucu verildikten sonra kac diger ipucu icin kac saniye beklenicek.
set tgtempnohint 5

# Sorulan soruyu gecmek icin kullanilan komut.
set tgcmdskip "!GEC"

# Soruyu gecmek icin kullanilan yetki ayarlari.
set tgflagsskip "o|o"

# Ilk 10 nun gosterilme komutu.
set tgcmdtop10 "!TOP10"

# ilk 10 komutunu icin yetki ayari.
set tgflagstop10 "-|-"

# Skorlari resetlemek icin kullanilan komut.
set tgcmdreset "SIFIRLA"
set tgresetreqpw 0

# reset komutunu kullanilbek icin yetki ayari.
set tgflagsreset "n"

# Skorlara bakmak icin kullanilan komut.
set tgcmdlookup "SKOR"

# Sizden bir usttekine bakmak icin kullanilan komut.
set tgcmdtarget "HEDEF"

# Hatalari bildirmek icin kullanilan komut.
set tgcmderror "!HATA"

# Kurallari gormek icin kullanilan komutlar.
set tgcmdrules "!KURALLAR"

# Kanala Kurallari.!
set tgrules[list "\00310Oyunu Baslatmak icin\00304 !Basla\00310 yaziniz." "\00310Oyunu durdurmak icin\00304 !Dur\00310yaziniz."]

# Hatalari nasil bildirilecegini gonderen msg kac dakika da bir kanalda yazilicak.!
set tgerrremindtime 5




############
############### RENKLER ####################
############
# Mircdeki renk kodlari ile ayni kodlardir..!
# 00:Beyaz 01:Siyah 02:Lacivert 03:Koyu yesil
# 04:Kirmizi 05:Kahverengi 06:Mor 07:Turuncu
# 08:Sari 09:Acik yesil 10:Turkuaz 11:Cyan
# 12:Mavi 13:Pembe 14:Koyu gri 15:Acik gri

set tgcolourstart "0,2" ;#Oyun baslatildi.
set tgcolourstop "0,2" ;#Oyun durduruldu.
set tgcolourskip "01" ;#Soru gecildi.
set tgcolourerr "7,1" ;#Nasil hata bildirilir.
set tgcolourmiss "0,2" ;#Kimse soruyu bilemedi.
set tgcolourqhead "8,0|" ;#Soru basligi1.
set tgcolourqhead2 "0,8|" ;#Soru basligi2.
set tgcolourqhead3 "7,8|" ;#Soru basligi3.
set tgcolourqhead4 "8,7|" ;#Soru basligi4.
set tgcolourqhead5 "4,7|" ;#Soru basligi5.
set tgcolourqhead6 "7,4|" ;#Soru basligi6.
set tgcolourqhead7 "5,4|" ;#Soru basligi7.
set tgcolourqhead8 "4,5|" ;#Soru basligi8.
set tgcolourqhead9 "1,5|" ;#Soru basligi9.
set tgcolourqhead10 "5,1|" ;#Soru basligi10.
set tgcolourqhead11 "7,1" ;#Soru basligi (Sorunuz.
set tgcolourqhead12 "15,1" ;#Soru basligi (Soru No.
set tgcolourqhead13 "14,1" ;#Soru basligi (ipucu).
set tgcolourqbody "15,2" ;#Sorunun kendisi.
set tgcolourhint "0,14" ;#ipucu.
set tgcolourstrk "0,4" ;#Arka arkaya bilme rekorunda olan kisi.
set tgcolourscr1 "15,4" ;#1.Siradaki kisi.
set tgcolourscr2 "15,7" ;#2.Siradaki kisi.
set tgcolourscr3 "15,8" ;#3.Siradaki kisi.
set tgcolourrset "7,1" ;#Skorlar Resetlendi.
set tgcolourstend "12" ;#Arka arkaya bilme rekoru bitti.
set tgcolourmisc1 "0,2" ;#Ara renk 1.
set tgcolourmisc2 "7,2" ;#Ara renk 2.
set tgcolourmisc3 "4,2" ;#Ara renk 3.
set tgcolourmisc4 "09" ;#Ara renk 4.
set tgcolourmisc5 "08" ;#Ara renk 5.
set tgcolourmisc6 "11" ;#Ara renk 6.
set tgcolourmisc7 "0,1" ;#Ara renk 7.
set tgcolourmisc8 "0,14" ;#Ara renk 8.
set tgcolourmisc9 "1" ;#Siyah font.
set tgcolourmisc10 "2" ;#Lacivert font.
set tgcolourmisc11 "3" ;#Koyu yesil font.
set tgcolourmisc12 "4" ;#Kirmizi font.
set tgcolourmisc13 "5" ;#Kahverengi font.
set tgcolourmisc14 "6" ;#Mor font.
set tgcolourmisc15 "7" ;#Turuncu font.
set tgcolourmisc16 "8" ;#Sari font.
set tgcolourmisc17 "9" ;#Acik yesil font.
set tgcolourmisc18 "10" ;#Turkuaz font.
set tgcolourmisc19 "11" ;#Cyan font.
set tgcolourmisc20 "12" ;#Mavi font.
set tgcolourmisc21 "13" ;#Pembe font.
set tgcolourmisc22 "14" ;#Gri font.
set tgcolourmisc23 "15" ;#Acik gri font.
set tgcolourmisc24 "4,1" ;#Siyah art alana Kirmizi font. 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# #
# Any editing done beyond this point is done at your own risk! #
# #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #


#Misc checks & var initialisations
set tgver "1.3.4"
set tgrel "release"
if {[info tclversion]<8.2} {
putlog "\002[file tail [info script]]\002 failed to load: in order to use this script, eggdrop needs to be compiled to use tcl 8.2 or higher (recommended: latest stable version)."
return
}
if {$tgtimeanswer==1&&[info tclversion]<8.3} {
putlog "\002[file tail [info script]]\002 warning: timing of answers has been automatically disabled. this feature requires tcl 8.3 or higher."
set tgtimeanswer 0
}
if {![info exists alltools_loaded]||$allt_version<205} {
putlog "\002[file tail [info script]]\002 failed to load: please load alltools.tcl v1.14 or higher (available with eggdrop 1.6.13 or higher) before attempting to load this script."
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 failed to load: $tgqdb does not exist."
return
}
if {[llength [split $tgchan]]!=1} {
putlog "\002[file tail [info script]]\002 failed to load: too many channels specified."
return
}
if {![info exists tgplaying]} {
set ctcp-version "${ctcp-version} (with trivia.tcl $tgver ($tgrel) from 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set tgplaying 0
}
if {![info exists tghintnum]} {set tghintnum 0}
if {![info exists tgmissed]} {set tgmissed 0}

#Binds
bind pubm $tgflagsstart "$tgchan %$tgcmdstart" tgstart
bind pubm $tgflagsstop "$tgchan %$tgcmdstop" tgstop
proc tgbindhintcmd {} {
global tgflagshint tgcmdhint
bind pubm $tgflagshint "$::tgchan %$tgcmdhint" tgforcehint
}
proc tgunbindhintcmd {} {
global tgflagshint tgcmdhint
unbind pubm $tgflagshint "$::tgchan %$tgcmdhint" tgforcehint
}
tgbindhintcmd
bind pubm $tgflagsskip "$tgchan %$tgcmdskip" tgskip
bind pubm $tgflagstop10 "$tgchan %$tgcmdtop10" tgshowtop10
bind join -|- "$tgchan *" tgjoinmsg
bind msg - $tgcmdhelp tggivehelp
bind msg - $tgcmdlookup tgscorelookup
bind msg - $tgcmdtarget tgtargetlookup
bind msg - $tgcmderror tgerror
bind msg - $tgcmdrules tgrulesmsg
bind msg n $tgcmdreset tgresetscores
bind kick - "$tgchan $botnick" tgbotgotkicked
bind 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 tgmissed
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==0} {
tggamemsg "[tgcolstart] $nick oyunu baslatti.. "
tgnextq
set tgplaying 1
set tgstreak 0
set tgmissed 0
set 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 tgstreakmin
global tgerrremindtimer tgrebindhinttimer
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==1} {
tggamemsg "[tgcolstop] $nick oyunu durdurdu! "
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak 0
set tgplaying 0
catch {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 tgstreakmin
global tgtempnohint tgmaxhintcurrent tghintnum tgrebindhinttimer tgtempnohint
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==1&&[utimerexists tghint]!=""} {
killutimer $tghinttimer
tghint
tgunbindhintcmd
if {$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 tgstreak
global tgstreakmin tgtimenext tgrebindhinttimer
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==1&&[utimerexists tghint]!=""} {
tggamemsg "[tgcolmisc1] Yeni soruya geciliyor [tgcolmisc3]$nick[tgcolmisc1] oyle istedi  "
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin&&[strlwr [lindex [split $tgstreak ,] 0]]==[strlwr $nick]} {
tgstreakend
set tgstreak 0
}
catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
killutimer $tghinttimer
if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}
set tgnextqtimer [utimer $tgtimenext tgnextq]
}
}
}

#reminds channel how to report errors in questions/answers
proc tgerrremind {} {
global tgerrremindtimer tgerrremindtime botnick tgcmderror
tggamemsg "[tgcolerr] Hatali oldugunu dusundugunuz soru/cevaplari, [tgcolmisc24]/msg $botnick $tgcmderror \[Soru no\] \[Aciklama\][tgcolerr] yazarak bize iletebilirsiniz. "
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 tgerrremindtimer
global tgrebindhinttimer
if {$tgplaying==1} {
set tgstreak 0
set tgplaying 0
catch {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 tgquestionslist
set tgquestionstotal 0
set 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 tgquestionnumber
global tgquestionstotal tghintnum tgchan tgquestionslist tgqdbsep tgqdbquestionfirst
global tgcapsquestion tgcapsanswer
tgreadqdb
set 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 tghintnum
tghint
bind pubm -|- "$tgchan *" tgcheckanswer
return
}
#shows timed hints.
proc tghint {} {
global tgmaxhint tghintnum tgcurrentanswer tghinttimer tgchan
global tgtimehint tghintchar tgquestionnumber tgquestionstotal
global tgcurrentquestion tghintcharsused tgnextqtimer tgtimenext tgstreak tgstreakmin
global tgnobodygotit tgtrythenextone tgmissed tgmaxmissed tgcmdstart tgshowanswer
global tgtimestart tgtimeanswer tgalwaysshowq tgmaxhintcurrent tgtempnohint tgcapshint
if {[catch {incr tghintnum}]!=0} {
set tghintnum 0
regsub -all -- "\[^A-Za-z0-9\]" $tgcurrentanswer "" _hintchars
set 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 tgmissed
set _msg ""
append _msg "[tgcolmiss] [lindex $tgnobodygotit [rand [llength $tgnobodygotit]]]"
if {$tgshowanswer==1} {
append _msg " Dogru cevap[tgcolmisc2] $tgcurrentanswer[tgcolmiss]."
}
if {$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {
append _msg " Arka arkaya cevap verilmeyen $tgmissed soru. Bot otomatik olarak durucak. Tekrar calistirmak icin $tgcmdstart yaziniz."
tgquietstop
} else {
append _msg " [lindex $tgtrythenextone [rand [llength $tgtrythenextone]]] "
}
tggamemsg "[tgcolmiss]$_msg"
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak 0
catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
if {$tgmaxmissed==0||$tgmissed<$tgmaxmissed} {
set tgnextqtimer [utimer $tgtimenext tgnextq]
}
return
} elseif {$tghintnum == 0} {
set i 0
set _hint {}
set tghintcharsused {}
foreach word [split $tgcurrentanswer] {
regsub -all -- "\[A-Za-z0-9\]" $word $tghintchar _current
lappend _hint $_current
}
if {$tgtimeanswer==1} {
set tgtimestart [clock clicks -milliseconds]
}
} elseif {$tghintnum == 1} {
set i 0
set _hint {}
while {$i<[llength [split $tgcurrentanswer]]} {
set _word [lindex [split $tgcurrentanswer] $i]
set j 0
set _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 $_newword
incr i
}
} else {
set i 0
set _hint {}
while {$i<[llength [split $tgcurrentanswer]]} {
set _word [lindex [split $tgcurrentanswer] $i]
set j 0
set _newword {}
set _selected [rand [strlen $_word]]
regsub -all -- "\[^A-Za-z0-9\]" $_word "" _wordalnum
if {[strlen $_wordalnum]>=$tghintnum} {
while {[lsearch $tghintcharsused $i,$_selected]!=-1||[string is alnum [stridx $_word $_selected]]==0} {
set _selected [rand [strlen $_word]]
}
}
lappend tghintcharsused $i,$_selected
while {$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 $_newword
incr i
}
}
if {$tgcapshint==1} {
set _hint [strupr $_hint]
}
tggamemsg "[tgcolqhead][tgcolqhead2][tgcolqhead3][tgcolqhead4][tgcolqhead5][tgcolqhead6][tgcolqhead7][tgcolqhead8][tgcolqhead9][tgcolqhead10][tgcolqhead11] Soru:[tgcolqhead12] [expr $tgquestionnumber+1]/$tgquestionstotal[tgcolqhead13] [expr $tghintnum?"(Ipucu: $tghintnum/$tgmaxhint)":""] [tgcolqhead10][tgcolqhead9][tgcolqhead8][tgcolqhead7][tgcolqhead6][tgcolqhead5][tgcolqhead4][tgcolqhead3][tgcolqhead2][tgcolqhead]"
if {$tgalwaysshowq==1||$tghintnum==0} {
tggamemsg "[tgcolqbody] $tgcurrentquestion "
}
tggamemsg "[tgcolhint] Ipucu: [join $_hint] "
set tghinttimer [utimer $tgtimehint tghint]
}

#triggered when someone uses !top10 command
proc 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 "[tgcolmisc8] $_nick $_score "
}
incr i
}
tggamemsg "[tgcolmisc7] Top10: $_scores"
} else {
tggamemsg "[tgcolmisc1] Skor tabelasi bos."
}
}
}

#checks if anyone has said the correct answer on channel.
proc tgcheckanswer {nick host hand chan text} {
global tgcurrentanswer
if {[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 tgstreakmin
global tgscoresbyname tgranksbyname tgranksbynum tgcongrats tgscorestotal tgmissed
global tgtimestart tgshowallscores tgrealnames tgscoresbyrank tgtimeanswer
tggetscores
if {![info exists tgranksbyname([strlwr $nick])]} {
set _oldrank 0
} else {
set _oldrank $tgranksbyname([strlwr $nick])
}
tgincrscore $nick
tggetscores
set _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]]][tgcolmisc3] $nick[tgcolmisc1]! Dogru cevap[tgcolmisc2] $tgcurrentanswer[tgcolmisc1].[expr $tgtimeanswer==1?" Cevaplama suren[tgcolmisc2] $_timetoanswer[tgcolmisc1] saniye.":""] "
if {$_newrank<$_oldrank} {
if {$_newrank==1} {
append _msg "Tebrikler, suanda[tgcolmisc2] 1st[tgcolmisc1] siradasin!"
} else {
if {$tgshowallscores==0} {
append _msg "Listede yukselise gectin!"
} else {
append _msg "Yarismaya katilan[tgcolmisc2] $tgscorestotal[tgcolmisc1] kisi arasindan[tgcolmisc2] [ordnumber $tgranksbyname([strlwr $nick])][tgcolmisc1] siradasin. Senin onunde[tgcolmisc2] $tgscoresbyrank([expr $_newrank-1])[tgcolmisc1] puan ile[tgcolmisc3] $tgrealnames($tgranksbynum([expr $_newrank-1]))[tgcolmisc1] var. "
}
}
}
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][tgcolmisc5] $nick[tgcolstrk] ust uste[tgcolmisc15] [lindex [split $tgstreak ,] 1].[tgcolstrk] kez bildi, Bravo;))"
}
} else {
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak [strlwr $nick],1
}
} else {
set tgstreak [strlwr $nick],1
}
set tgmissed 0
tgshowscores $nick
catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
killutimer $tghinttimer
set tgnextqtimer [utimer $tgtimenext tgnextq]
}

#read current scores from file, sort and store in variable.
proc tggetscores {} {
global tgscf tgscorestotal tgscores tgscoresbyname tgranksbyname tgranksbynum
global tgrealnames tgscoresbyrank
if {[file exists $tgscf]&&[file size $tgscf]>2} {
set _sfile [open $tgscf r]
set tgscores [lsort -dict -decreasing [split [gets $_sfile]]]
close $_sfile
set 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 0
while {$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) $_score
set tgrealnames($_lwrnick) $_nick
set tgranksbyname($_lwrnick) [expr $i+1]
set tgranksbynum([expr $i+1]) $_lwrnick
set tgscoresbyrank([expr $i+1]) $_score
incr i
}
return
}

#increment someone's score.
proc tgincrscore {who} {
global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbyname
tggetscores
if {$tgscorestotal>0} {
set i 0
if {![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 $_sfile
return
}

#shows the current scores on channel.
proc tgshowscores {nick} {
global tgscores tgchan tgscorestotal tgshowallscores tgranksbyname tgranksbynum
global tgscoresbyname tgrealnames tgscoresbyrank
tggetscores
set i 0
if {$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 "[tgcolmisc8] $_nick $_score "
}
incr i
}
tggamemsg "[tgcolmisc7] Sonuclar: $_scores"
} else {
if {$tgranksbyname([strlwr $nick])==1} {
set _tgt "."
} else {
set _tgt ", onunde [tgcolmisc3]$tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] var [tgcolmisc2] $tgscoresbyrank([expr $tgranksbyname([strlwr $nick])-1])[tgcolmisc1] puan ile.."
}
tggamemsg "[tgcolmisc1][tgcolmisc3]$nick[tgcolmisc1] suan[tgcolmisc2] $tgscoresbyname([strlwr $nick])[tgcolmisc1] [expr $tgscoresbyname([strlwr $nick])==1?"point":"puanin"] var. Yarismaya katilan[tgcolmisc2] $tgscorestotal[tgcolmisc1] kisi arasindan[tgcolmisc2] [ordnumber $tgranksbyname([strlwr $nick])][tgcolmisc1] siradasin[tgcolmisc1] $_tgt [tgcolmisc1]"
}
}

#reset current scores.
proc tgresetscores {nick host hand text} {
global tgscf tgscorestotal tgscores tgplaying tgresetreqpw
if {($tgresetreqpw==1 && [passwdok $hand $text]) || $tgresetreqpw==0} {
if {[file exists $tgscf]&&[file size $tgscf]>2} {
set _sfile [open $tgscf w]
puts $_sfile ""
close $_sfile
set tgscores ""
set tgscorestotal 0
}
tggamemsg "[tgcolrset] Skorlar[tgcolmisc24] $nick[tgcolrset] tarafindan sifirlandi "
}
}

#triggered when a winning streak ends.
proc tgstreakend {} {
global tgstreak tgrealnames
tggamemsg "[tgcolstrk] Tebrikler[tgcolmisc5] $tgrealnames([lindex [split $tgstreak ,] 0])[tgcolstrk];) Bu cevap serisinin devamini bekliyoruz. "
return
}

#triggered when someone joins trivia chan.
proc tgjoinmsg {nick host hand chan} {
global botnick tgplaying tgcmdhelp tgcmdstart tgflagsstart tgcmdstop tgflagsstop tgchan
if {$nick != $botnick} {
set _msg ""
append _msg "\002$chan\002 kanalimiza hosgeldin \002$nick\002.. \002$botnick\002 suanda"
if {$tgplaying==1} {
append _msg " \002Calisiyor\002. Yardim almak icin \002/MSG $botnick [strupr $tgcmdhelp]\002 yaziniz. Iyi eglenceler.."
} else {
append _msg " \002Calismiyor\002. Oyunu baslatmak icin \002$chan\002 kanalinda \002$tgcmdstart\002 yaziniz. Detayli yardim almak istiyorsaniz \002/MSG $botnick [strupr $tgcmdhelp]\002 yaziniz. Iyi eglenceler."
}
[tgpriv] $nick "$_msg"
}
}

#triggered when someone /msgs the bot with the score lookup command.
proc tgscorelookup {nick host hand text} {
global tgscoresbyname tgranksbyname tgscorestotal tgrealnames
if {$text==""} { set text $nick } else { set text [lindex [split $text] 0] }
tggetscores
if {![info exists tgscoresbyname([strlwr $text])]} {
if {[strlwr $text]==[strlwr $nick]} {
set _who "[tgcolmisc1] Sana ait"
} else {
set _who "[tgcolmisc1][tgcolmisc3] $text[tgcolmisc1] nickine ait"
}
[tgpriv] $nick "\002[tgbold]$_who [tgcolmisc1] hic puan yok. \002"
} else {
if {[strlwr $text]==[strlwr $nick]} {
set _who "[tgcolmisc1] Sana ait"
} else {
set _who "[tgcolmisc1][tgcolmisc3] $tgrealnames([strlwr $text])[tgcolmisc1] nickine ait"
}
[tgpriv] $nick "\002[tgbold]$_who[tgcolmisc2] $tgscoresbyname([strlwr $text])[tgcolmisc1] puan var. Siralama; yarismaya katilan[tgcolmisc2] $tgscorestotal[tgcolmisc1] kisi arasindan[tgcolmisc2] [ordnumber $tgranksbyname([strlwr $text])][tgcolmisc1] sira.. \002"
}
}

#triggered when someone /msgs the bot with the target lookup command.
proc tgtargetlookup {nick host hand text} {
global tgscoresbyname tgranksbyname tgscorestotal tgranksbynum tgrealnames
tggetscores
if {![info exists tgscoresbyname([strlwr $nick])]} {
[tgpriv] $nick "\002[tgcolmisc1] Henuz hic puanin yok. \002"
} elseif {$tgranksbyname([strlwr $nick])==1} {
[tgpriv] $nick "\002[tgcolmisc1] Suan zaten[tgcolmisc2] 1st[tgcolmisc1] siradasin. Daha baska kimi gececeksin ki ) Einstein'i mi cagiralim  \002"
} else {
[tgpriv] $nick "\002[tgcolmisc1] Suan[tgcolmisc2] $tgscoresbyname([strlwr $nick])[tgcolmisc1] paunin var. Onunde; yarismaya katilan[tgcolmisc2] $tgscorestotal[tgcolmisc1] kisi arasindan[tgcolmisc2] $tgscoresbyname($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] puan ile[tgcolmisc2] [ordnumber [expr $tgranksbyname([strlwr $nick])-1]][tgcolmisc1] sirada olan[tgcolmisc2] $tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] var. \002"
}
}

#triggered when someone /msgs the bot with the error reporting command.
proc tgerror {nick host hand text} {
global tgquestionstotal tgquestionslist tgerrmethod tgerrfil tgerremail tgerrmailtmp
if {$text==""||![string is int [lindex [split $text] 0]]} {
[tgpriv] $nick "\002[tgcolerr] Soru numarasi ve hata hakkinda aciklama belirtmelisiniz! \002"
return
}
tgreadqdb
set _qnum [lindex [split $text] 0]
if {$_qnum>$tgquestionstotal} {
[tgpriv] $nick "[tgbold][tgcolmisc1]No such question."
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 "Hata hakkinda herhangi bir aciklama belirtilmemis." }
if {$tgerrmethod==1} {
set _fname $tgerrmailtmp\trivia[rand 100000].tmp
set _file [open $_fname w]
} else {
set _file [open $tgerrfil a]
}
puts $_file ""
puts $_file "Bu hata raporu [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S] tarihinde olusturuldu."
puts $_file "Raporu yazan:\t$nick!$host"
puts $_file "Soru No:\t$_qnum"
puts $_file "Soru:\t$_qques"
puts $_file "Cevap:\t\t$_qans"
puts $_file "Aciklama:\t$_desc"
puts $_file "------------------------------"
close $_file
if {$tgerrmethod==1} {
exec mail -s "$nick nickinden gelen hata raporu.." $tgerremail < $_fname
file delete $_fname
[tgpriv] $nick "\002[tgcolerr] Tesekkurler.. Raporunuz ilgili yoneticimize[tgcolmisc24] e-mail[tgcolerr] olarak iletilmistir. \002"
} else {
[tgpriv] $nick "\002[tgcolerr] Tesekkurler.. Raporunuzun kayda alinmistir, en kisa zamanda soru/cevabi duzeltilecektir. \002"
}
}

#triggered when someone /msgs the bot with the rules command.
proc tgrulesmsg {nick host hand text} {
global tgrules
[tgpriv] $nick "The channel's rules are as follows: $tgrules"
}

#triggered when someone /msgs the bot with the help command.
proc tggivehelp {nick host hand {text ""}} {
global botnick tgcmdlookup tgcmdhelp tgcmdstart tgcmdstop tgchan tgflagsstop
global tgcmdstop tgflagshint tgcmdhint tgflagsskip tgflagstop10 tgcmdtop10 tgcmdskip tgflagsreset tgcmdreset
global tgcmdtarget tgcmderror tgcmdrules tgflagsstart
if {$text==""} {
[tgpriv] $nick "Uygulayabileceginiz \002/MSG $botnick\002 komutlari:"
[tgpriv] $nick "\002/MSG $botnick [strupr $tgcmdrules]\002"
[tgpriv] $nick "- Kanal kurallarini listeler."
[tgpriv] $nick "\002/MSG $botnick [strupr $tgcmdlookup]\002 \002\[Nick\]\002"
[tgpriv] $nick "- Belirttiginiz nick e ait skor ve sirayi gosterir,"
[tgpriv] $nick " nick belirtmezseniz sizin skor ve siranizi gosterir."
[tgpriv] $nick "\002/MSG $botnick [strupr $tgcmdtarget]\002"
[tgpriv] $nick "- Siralamada onunuzde bulunan kisinin,"
[tgpriv] $nick " skoru ve siralamasi hakkinda bilgi verir."
[tgpriv] $nick "\002/MSG $botnick [strupr $tgcmderror]\002 \002\[Soru no\]\002 \002\[Aciklama\]\002"
[tgpriv] $nick "- Belirtilen no'lu soruya iliskin bir hata raporu olusturur,"
[tgpriv] $nick " aciklama kismi opsiyoneldir, ancak yazmalisiniz."
if {[matchattr $hand $tgflagsreset $tgchan]} {
[tgpriv] $nick "\002/MSG $botnick [strupr $tgcmdreset]\002"
[tgpriv] $nick "- Skor tabelasini sifirlar."
}
[tgpriv] $nick " Kanalda kullanabileceginiz komutlar icin,"
[tgpriv] $nick " \002/MSG $botnick [strupr $tgcmdhelp] !KOMUTLARI\002 yaziniz."
}
if {[strlwr $text]=="!komutlari"} {
[tgpriv] $nick "Kanal icerisinde kullanabileceginiz komutlar:"
if {[matchattr $hand $tgflagsstart $tgchan]} {
[tgpriv] $nick "\002$tgcmdstart\002 -- Oyunu baslatir."
}
if {[matchattr $hand $tgflagsstop $tgchan]} {
[tgpriv] $nick "\002$tgcmdstop\002 -- Oyunu durdurur."
}
if {[matchattr $hand $tgflagshint $tgchan]} {
[tgpriv] $nick "\002$tgcmdhint\002 -- Ipucu verir."
}
if {[matchattr $hand $tgflagsskip $tgchan]} {
[tgpriv] $nick "\002$tgcmdskip\002 -- Diger soruya gecirir."
}
if {[matchattr $hand $tgflagstop10 $tgchan]} {
[tgpriv] $nick "\002$tgcmdtop10\002 -- Siralamadaki ilk 10 yarismaciyi gosterir."
} 
}
}

# 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 "" text
set text "[string map -nocase[list \002 "" \017 "" \026 "" \037 ""] $text]"
return $text
}
proc tggamemsg {what} {
global tgchan
putquick "PRIVMSG $tgchan :[tgbold]$what"
}
proc tgbold {} {
global tgusebold
if {$tgusebold==1} { return "\002" }
}
proc tgcolstart {} {
global tgcolourstart
if {$tgcolourstart!=""} { return "\003$tgcolourstart" }
}
proc tgcolstop {} {
global tgcolourstop
if {$tgcolourstop!=""} { return "\003$tgcolourstop" }
}
proc tgcolskip {} {
global tgcolourskip
if {$tgcolourskip!=""} { return "\003$tgcolourskip" }
}
proc tgcolerr {} {
global tgcolourerr
if {$tgcolourerr!=""} { return "\003$tgcolourerr" }
}
proc tgcolmiss {} {
global tgcolourmiss
if {$tgcolourmiss!=""} { return "\003$tgcolourmiss" }
}
proc tgcolqhead {} {
global tgcolourqhead
if {$tgcolourqhead!=""} { return "\003$tgcolourqhead" }
}
proc tgcolqhead2 {} {
global tgcolourqhead2
if {$tgcolourqhead2!=""} { return "\003$tgcolourqhead2" }
}
proc tgcolqhead3 {} {
global tgcolourqhead3
if {$tgcolourqhead3!=""} { return "\003$tgcolourqhead3" }
}
proc tgcolqhead4 {} {
global tgcolourqhead4
if {$tgcolourqhead4!=""} { return "\003$tgcolourqhead4" }
}
proc tgcolqhead5 {} {
global tgcolourqhead5
if {$tgcolourqhead5!=""} { return "\003$tgcolourqhead5" }
}
proc tgcolqhead6 {} {
global tgcolourqhead6
if {$tgcolourqhead6!=""} { return "\003$tgcolourqhead6" }
}
proc tgcolqhead7 {} {
global tgcolourqhead7
if {$tgcolourqhead7!=""} { return "\003$tgcolourqhead7" }
}
proc tgcolqhead8 {} {
global tgcolourqhead8
if {$tgcolourqhead8!=""} { return "\003$tgcolourqhead8" }
}
proc tgcolqhead9 {} {
global tgcolourqhead9
if {$tgcolourqhead9!=""} { return "\003$tgcolourqhead9" }
}
proc tgcolqhead10 {} {
global tgcolourqhead10
if {$tgcolourqhead10!=""} { return "\003$tgcolourqhead10" }
}
proc tgcolqhead11 {} {
global tgcolourqhead11
if {$tgcolourqhead11!=""} { return "\003$tgcolourqhead11" }
}
proc tgcolqhead11 {} {
global tgcolourqhead11
if {$tgcolourqhead11!=""} { return "\003$tgcolourqhead11" }
}
proc tgcolqhead12 {} {
global tgcolourqhead12
if {$tgcolourqhead12!=""} { return "\003$tgcolourqhead12" }
}
proc tgcolqhead13 {} {
global tgcolourqhead13
if {$tgcolourqhead13!=""} { return "\003$tgcolourqhead13" }
}
proc tgcolqbody {} {
global tgcolourqbody
if {$tgcolourqbody!=""} { return "\003$tgcolourqbody" }
}
proc tgcolhint {} {
global tgcolourhint
if {$tgcolourhint!=""} { return "\003$tgcolourhint" }
}
proc tgcolstrk {} {
global tgcolourstrk
if {$tgcolourstrk!=""} { return "\003$tgcolourstrk" }
}
proc tgcolscr1 {} {
global tgcolourscr1
if {$tgcolourscr1!=""} { return "\003$tgcolourscr1" }
}
proc tgcolscr2 {} {
global tgcolourscr2
if {$tgcolourscr2!=""} { return "\003$tgcolourscr2" }
}
proc tgcolscr3 {} {
global tgcolourscr3
if {$tgcolourscr3!=""} { return "\003$tgcolourscr3" }
}
proc tgcolrset {} {
global tgcolourrset
if {$tgcolourrset!=""} { return "\003$tgcolourrset" }
}
proc tgcolstend {} {
global tgcolourstend
if {$tgcolourstend!=""} { return "\003$tgcolourstend" }
}
proc tgcolmisc1 {} {
global tgcolourmisc1
if {$tgcolourmisc1!=""} { return "\003$tgcolourmisc1" }
}
proc tgcolmisc2 {} {
global tgcolourmisc2
if {$tgcolourmisc2!=""} { return "\003$tgcolourmisc2" }
}
proc tgcolmisc3 {} {
global tgcolourmisc3
if {$tgcolourmisc3!=""} { return "\003$tgcolourmisc3" }
}
proc tgcolmisc4 {} {
global tgcolourmisc4
if {$tgcolourmisc4!=""} { return "\003$tgcolourmisc4" }
}
proc tgcolmisc5 {} {
global tgcolourmisc5
if {$tgcolourmisc5!=""} { return "\003$tgcolourmisc5" }
}
proc tgcolmisc6 {} {
global tgcolourmisc6
if {$tgcolourmisc6!=""} { return "\003$tgcolourmisc6" }
}
proc tgcolmisc7 {} {
global tgcolourmisc7
if {$tgcolourmisc7!=""} { return "\003$tgcolourmisc7" }
}
proc tgcolmisc8 {} {
global tgcolourmisc8
if {$tgcolourmisc8!=""} { return "\003$tgcolourmisc8" }
}
proc tgcolmisc9 {} {
global tgcolourmisc9
if {$tgcolourmisc9!=""} { return "\003$tgcolourmisc9" }
}
proc tgcolmisc10 {} {
global tgcolourmisc10
if {$tgcolourmisc10!=""} { return "\003$tgcolourmisc10" }
}
proc tgcolmisc11 {} {
global tgcolourmisc11
if {$tgcolourmisc11!=""} { return "\003$tgcolourmisc11" }
}
proc tgcolmisc12 {} {
global tgcolourmisc12
if {$tgcolourmisc12!=""} { return "\003$tgcolourmisc12" }
}
proc tgcolmisc13 {} {
global tgcolourmisc13
if {$tgcolourmisc13!=""} { return "\003$tgcolourmisc13" }
}
proc tgcolmisc14 {} {
global tgcolourmisc14
if {$tgcolourmisc14!=""} { return "\003$tgcolourmisc14" }
}
proc tgcolmisc15 {} {
global tgcolourmisc15
if {$tgcolourmisc15!=""} { return "\003$tgcolourmisc15" }
}
proc tgcolmisc16 {} {
global tgcolourmisc16
if {$tgcolourmisc16!=""} { return "\003$tgcolourmisc16" }
}
proc tgcolmisc17 {} {
global tgcolourmisc17
if {$tgcolourmisc17!=""} { return "\003$tgcolourmisc17" }
}
proc tgcolmisc18 {} {
global tgcolourmisc18
if {$tgcolourmisc18!=""} { return "\003$tgcolourmisc18" }
}
proc tgcolmisc19 {} {
global tgcolourmisc19
if {$tgcolourmisc19!=""} { return "\003$tgcolourmisc19" }
}
proc tgcolmisc20 {} {
global tgcolourmisc20
if {$tgcolourmisc20!=""} { return "\003$tgcolourmisc20" }
}
proc tgcolmisc21 {} {
global tgcolourmisc21
if {$tgcolourmisc21!=""} { return "\003$tgcolourmisc21" }
}
proc tgcolmisc22 {} {
global tgcolourmisc22
if {$tgcolourmisc22!=""} { return "\003$tgcolourmisc22" }
}
proc tgcolmisc23 {} {
global tgcolourmisc23
if {$tgcolourmisc23!=""} { return "\003$tgcolourmisc23" }
}
proc tgcolmisc24 {} {
global tgcolourmisc24
if {$tgcolourmisc24!=""} { return "\003$tgcolourmisc24" }
}
proc tgpriv {} {
global tgpriv2msg
if {$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 rank
proc tghtml {} {
global tgchan botnick tghtmlfile tghtmlrefresh server tgscoresbyname tgranksbyname
global tgscorestotal tgranksbyname tgrealnames tgscoresbyrank tgranksbynum tgplaying
global tgquestionstotal tghtmlrefreshtimer tghtmlfont
tggetscores
tgreadqdb
set _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>. . : : [lindex [split $server :] 0] Sunucusu $tgchan Kanali $botnick Yarismasi Istatistikleri : : . .</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 script for eggdrop. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 " <h2> [lindex [split $server :] 0] Sunucusu $tgchan Kanali $botnick Yarismasi Istatistikleri</h2>"
puts $_file " <hr size=\"1\" noshade>"
if {![onchan $botnick $tgchan]} {
puts $_file " <p>Istatistiklerin gosterilebilmesi icin <b>$botnick</b> botunun <b>$tgchan</b> kanalinda olmasi gerekir.</p>"
puts $_file " <p><b>$botnick</b> botu suan <b>$tgchan</b> kanalinda degil!</p>"
} else {
puts $_file " <p>$botnick botu su anda [expr $tgplaying==1?"veritabanindaki toplam <b>$tgquestionstotal</b> soru ile <b>Calisiyor</b>":"<b>Calismiyor</b>"]."
puts $_file " <p>Su anda $tgchan kanalinda yarisan kisiler:<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>Nick</b></td>"
puts $_file " <td><b>Puan</b></td>"
puts $_file " <td><b>Siralama</b></td>"
puts $_file " <td><b>Ne zamandir konusmuyor?</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]?"":""]</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>Skor tablosunda toplam <b>$tgscorestotal</b> kisi var.<br>"
set _rank 1
while {$_rank<=$tgscorestotal} {
puts $_file " <b>$_rank</b>. $tgrealnames($tgranksbynum($_rank)) $tgscoresbyrank($_rank)<br>"
incr _rank
}
} else {
puts $_file " <p><b><small>Skor tablosunda kimse yok.</b><br>"
}
puts $_file " </small></p>"
puts $_file " <hr size=\"1\" noshade>"
puts $_file " <small>Guncelleme tarihi: [strftime %d\ %B\ %Y\ -\ %A\ @\ %H:%M:%S] <br>"
puts $_file " (Bu sayfa her [expr $tghtmlrefresh==1?"saniyede":"$tghtmlrefresh saniyede"] bir yenilenmektedir.)</small>"
puts $_file " (Sohbetmetro.com Game Oyunu )</small>"
puts $_file " </body>"
puts $_file "</html>"
close $_file
file rename -force $tghtmlfile~new $tghtmlfile
set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]
}

putlog "================================================= ======"
putlog "[tgcolmisc10]***[tgcolmisc15] irc.cumbusvar.net soru-cevap oyun tcl'si [tgcolmisc10]***"
tgreadqdb
putlog "[tgcolmisc10]***[tgcolmisc15] Soru veritabani,[tgcolmisc12] $tgqdb[tgcolmisc14] (Boyutu: [file size $tgqdb] byte) [tgcolmisc15]dosyasi bunyesindeki toplam[tgcolmisc12] $tgquestionstotal [tgcolmisc15]sorudan ibarettir. [tgcolmisc10]***"
putlog "================================================= ======"