IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Ocak 2008, 18:00   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Kelime Oyunu




Arkadaşlar selam

Yeni Kelime Oyunu Kullanmaya başladım. Fakat doğru cevabı bilsek bile doğru bildin vs.. diye bişey demiyor, puan da vermiyor. Yani istediği kadar cevap verilsin cevapları kabul etmiyor. Sebebi ne olabilir?

Sorulandandır diye düşündüm:
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
teyniz ?*zeytin
ramut 
?*armut 

şeklinde idi sorular, bunları trivia oyundaki gibi
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
teyniz*zeytin
ramut
*armut 

yaptım ama gene aynı şekilde. Acaba ne yapmak lazım, var mı acaba bilen?

Teşekkürler şimdiden


Konu seal tarafından (20 Ocak 2008 Saat 21:36 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 20 Ocak 2008, 18:46   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kelime Oyu




Tcl yi ßi kontrol et soru cevaplar ilqili bilqiler var orda bakıp bulamassan buraya yaz bide biz bakalım yada botu cıkartıp tekrar sokmayı dene.

 
Alıntı ile Cevapla

Alt 20 Ocak 2008, 21:44   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kelime Oyu




Tşekkür ederim cevap için. Tekrar tekrar çıkarıp çok yeniden başlattım ama dediğin gibi galiba TCL'de bir ayar sorunu var o zaman. Aşağıya yazayım ben, baktım ben ama anlayamadım nerde sorun. Yardımcı olabilirsen çok sevinirim :

Kelimeturetmece.TCL
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# Botun kullanicagi sorularin listesinin oldugu dosya.
# Duzenleyin.!
set tgqdb "/home/sohbet/eggdrop/scripts/kelime.questions"
 
# 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
 
# Skorlarin tutulacagi dosyanin adi. Dokunmayin.!
set tgscf "/home/sohbet/eggdrop/kelime.scores"
 
# 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 0
 
# Botun hatalari kayit edecegi dosya.
set tgerrfil "/home/sohbet/eggdrop/scripts/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 gondericeks ebot gecici dosyalari
# nereye koyucagini ayarlar.
set tgerrmailtmp "/tmp"
 
# Web istatistikleri icin olusturulacak dosyanin tam yolu ve ismi.
# Ayrintili web istatistiklerinin nasil yapilacagini ogrenmek icin
# sitemizi ziyaret edin.
#set tghtmlfile "/home/mynak/public_html/kelimeturetmece/skorlar/index.html"
 
# Web istatistikleri kac saniyede bir yenilenecek.!
set tghtmlrefresh 60
 
# 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 "#Kelime"
 
# Her dogru cevap icin verilicek puan.
set tgpointsperanswer 15
 
# Maximum ipucu adedi.
set tgmaxhint 4
 
# 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
 
# Ipuclarini BUYUK harfle yazar. (0= ipuclarini kucuk harfle yazar.)
set tgcapshint 0
 
# Arka arkaya bilme rekorunun olabilmesi icin en az kac sorunun arka
# arkaya bilinmesi gerektigini ayarlar. (0= iptal eder)
set tgstreakmin 0
 
# 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 15
 
# Eski soruyla yeni sorulucak soru arasindaki zaman farki.
set tgtimenext 5
 
# Soru bilindiginde botun kullanacagi terimler.
set tgcongrats[list " Tebrikler" " Soruyu Bildin" " Mükemmelsin" " Harikasın" " Süpersin" ]
 
# Kimse bilemediginde botun kullanacagi terimler.
set tgnobodygotit[list " Sorular Sanırım Zor.." " Soruya Cevap Verilmedi." " HU HU Orda Kimse Varmı.." " Neden Cevap Vermiyorsunuz.." ]
 
# Eski soru bitip yenisi sorulurken kulanilan terimler.
set tgtrythenextone[list "Sıradaki Soruya Geçiyorum.." "Sıradaki Soru İçin Hazır mısınız..?" "Bir Sonraki Soru Geliyor..." "İşte Sıradaki Sorunuz.." ]
 
# Cevabin kac saniye surdugunu aktif eder. (0=kapatir)
set tgtimeanswer 1
 
# Eger kimse dogru cevabi veremezse bot sorunun cevabini gosterir. (0=gostermez)
set tgshowanswer 0
 
# Birisi sorulan soruya dogru cevap verdiginde, bot sadece o kisinin skorunumu yoksa 
# butun ilk 20 yimi gostericek. 1= sadece kisinin, 0= ilk 20nin.
set tgshowallscores 1
 
# msglarda kalin yazi kullan(1) kullanma(0).
set tgusebold 0
 
# msglar notice(0) ile mi yoksa msg(1) ilemi gonderilecek. ?
set tgpriv2msg 1
 
# 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 "m|m"
 
# Ilk 10 nun gosterilme komutu.
set tgcmdtop10 "!top10"
 
# ilk 10 komutunu icin yetki ayari.
set tgflagstop10 "o|o"
 
# Skorlari resetlemek icin kullanilan komut.
set tgcmdreset "!temizle"
 
# reset komutunu kullanilbek icin yetki ayari.
set tgflagsreset "m|m"
 
# 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 "Kelime Türetmece Oyununu Başlatmak İçin !basla Yazınız.!"
 
# Hatalari nasil bildirilecegini gonderen msg kac dakika da bir kanalda yazilicak.!
set tgerrremindtime 20
 
#  RENKLER
# Mircdeki renk kodlari ile ayni kodlardir..!
#  00:beyaz        01:siyah        02:koyu mavi    03:koyu yesil #  04:kirmizi      05:krengi       06:pembe        07:portakal
#  08:sari         09:acik yesil   10:turkuaz      11:cyan
#  12:acik mavi    13:magenta      14:koyu gri     15:acik gri
 
set tgcolourstart "03"   ;#Oyun baslatildi.
set tgcolourstop "03"   ;#Oyun durduruldu.
set tgcolourskip "01"   ;#Soru gecildi.
set tgcolourerr "01"          ;#Nasil hata bildirilir.
set tgcolourmiss "04"      ;#Kimse soruyu bilemedi.
set tgcolourqhead "03"   ;#Soru basligi.
set tgcolourqbody "04"       ;#Sorunun kendisi.
set tgcolourhint "03"       ;#Ipucu.
set tgcolourstrk "07"   ;#Arka arkaya bilme rekorunda olan kisi.
set tgcolourscr1 "01"       ;#1.Siradaki kisi.
set tgcolourscr2 "04"       ;#2.Siradaki kisi.
set tgcolourscr3 "03"       ;#3.Siradaki kisi.
set tgcolourrset "07"       ;#Skorlar Resetlendi.
set tgcolourstend "06"   ;#Arka arkaya bilme rekoru bitti.
set tgcolourmisc1 "05"   ;#Ara reng 1.
set tgcolourmisc2 "06"   ;#Ara reng 2.
 
 
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #                                                                   #
#    LUTFEN BURDAN SONRASINI EDITLEMEYINIZ..!                       #
#                                                                   #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
#Misc checks & var initialisations
set tgver "1.0"
set tgrel "stable"
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} (Kelime.tcl)"
       
set tgplaying 0
}
if {![
info exists tghintnum]} {set tghintnum 0}
if {![
info exists tgmissed]} {set tgmissed 0}
 
#Binds
bind pubm $tgflagsstart "$tgchan %$tgcmdstarttgstart
bind pubm $tgflagsstop 
"$tgchan %$tgcmdstoptgstop
proc tgbindhintcmd 
{} {
       global 
tgflagshint tgcmdhint
       bind pubm $tgflagshint 
"$::tgchan %$tgcmdhinttgforcehint
}
proc tgunbindhintcmd {} {
       global 
tgflagshint tgcmdhint
       unbind pubm $tgflagshint 
"$::tgchan %$tgcmdhinttgforcehint
}
tgbindhintcmd
bind pubm $tgflagsskip 
"$tgchan %$tgcmdskiptgskip
bind pubm $tgflagstop10 
"$tgchan %$tgcmdtop10tgshowtop10
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 $tgflagsreset 
"$tgcmdresettgresetscores
bind kick 
"$tgchan $botnicktgbotgotkicked
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 Kelime Türetmece Oyununu Başlattı.! İyi Eğlenceler.."
                     
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 Kelime Türetmece 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 "[tgcolskip]Yeni Soruya Geçiliyor [tgcolmisc2]$nick's[tgcolskip] Öyle İstedi.!"
                     
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]UYARI: Sorularda Ve Cevaplarda Hata Var İse Lütfen Yandaki Komutu Yazınız.. /msg $botnick $tgcmderror <Soru> \[Cevabı\]"
       
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 "Doğru Cevap [tgcolmisc2]$tgcurrentanswer[tgcolmiss]."
              
}
              if {
$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {
                     
append _msg "Arka arkaya cevap verilmeyen $tgmissed soru. Bot otomatik olarak durucak. Tekrar calıştırmak için $tgcmdstart yazınız.!"
                     
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] _1,7İşte Kelimeniz  Düzenleyin  :_3 [join $tgcurrentquestion]"
      
tggamemsg "[tgcolqhead][tgcolhint]_4 15 Puan Değerinde :  _7_İpucu :_   _3 [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 ", [tgcolmisc1]$_nick $_score"
                            
}
                            
incr i
                     
}
                     
tggamemsg "[tgcolmisc1]Top 10: $_scores"
              
} else {
                     
tggamemsg "[tgcolmisc1]Score table is empty."
              
}
       }
}
 
#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]]] [tgcolmisc2]$nick[tgcolmisc1] Doğru Cevap [tgcolmisc2]$tgcurrentanswer[tgcolmisc1].[expr $tgtimeanswer==1?"_4 15 Puan Kazandınız.":""]"
       
if {$_newrank<$_oldrank} {
              if {
$_newrank==1} {
                     
append _msg "BiRiNCi Sıradasın.."
              
} else {
                     if {
$tgshowallscores==0} {
                            
append _msg "Yüksek Listeye Çıktın..!"
                     
} else {
                            
append _msg "Şuanki Sıran [tgcolmisc2][ordnumber $tgranksbyname([strlwr $nick])][tgcolmisc1]  [tgcolmisc2]$tgscorestotal[tgcolmisc1] doğru cevap ile, senin önünde [tgcolmisc2]$tgrealnames($tgranksbynum([expr $_newrank-1]))[tgcolmisc1] var, [tgcolmisc2]$tgscoresbyrank([expr $_newrank-1])[tgcolmisc1] doğru cevap ile."
                     
}
              }
       }
       
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] is on a winning streak! [tgcolmisc2][lindex [split $tgstreak ,] 1] [tgcolstrk]in a row so far!"
                     
}
              } 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 ", [tgcolmisc1]$_nick $_score"
                     
}
                     
incr i
              
}
              
tggamemsg "[tgcolmisc1] Sonuclar: $_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]now has [tgcolmisc2]$tgscoresbyname([strlwr $nick]) [tgcolmisc1][expr $tgscoresbyname([strlwr $nick])==1?"point":"points"] and is ranked [tgcolmisc2][ordnumber $tgranksbyname([strlwr $nick])] [tgcolmisc1]of [tgcolmisc2]$tgscorestotal[tgcolmisc1]$_tgt"
       
}
}
 
#reset current scores.
proc tgresetscores {nick host hand text} {
       global 
tgscf tgscorestotal tgscores tgplaying tgresetreqpw
       
if {($tgresetreqpw==&& [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]===== Kelime Türetmece TCL^'si Hazırlayan By DjSooN ====="
       
}
}
 
#triggered when a winning streak ends.
proc tgstreakend {} {
              global 
tgstreak tgrealnames
              tggamemsg 
"[tgcolstend]So much for [tgcolmisc2]$tgrealnames([lindex [split $tgstreak ,] 0])'s[tgcolstend] winning streak."
              
return
}
 
#triggered when someone joins trivia chan. 
proc tgjoinmsg {nick host hand chan} { 
global 
botnick tgplaying tgcmdhelp tgcmdstart tgflagsstart tgcmdstop tgflagsstop tgchan 
global tgscorelookupjoin tgscoresbyname tgranksbyname tgscorestotal tgrealnames 
global tgscoresbyrank tgscores 
tggetscores 
if {$nick != $botnick} { 
set _msg "" 
append _msg "Kelime Kanalımıza HoŞ Geldin $nick, Kanalda Şuanda Oyun." 
if {$tgplaying==1} { 
append _msg " \002Oynanıyor\002." 
} else { 
append _msg " \002Oynanmıyor\002." 

if {[
matchattr $hand $tgflagsstart $tgchan]&&$tgplaying==0} { 
append _msg " Kelime Türetmece Oyununu Başlatmak İçin Kanalda \002$tgcmdstart\002 Yazınız." 

append _msg " Yardım Almak İçin \002/MSG $botnick [strupr $tgcmdhelp]\002 Yazınız. Iyi Oyunlar." 
[tgpriv$nick "$_msg
 
if {![info exists tgscoresbyname([strlwr $nick])]} { 
tggamemsg "[tgcolmisc1] Hoş Geldin..   [tgcolmisc2]$nick [tgcolmisc1] ! Hemen Sende Sorularıma Katıl. En Kısa Zamanda Cevap Vermeye Çalış." 
} else { 
tggamemsg "[tgcolmisc1] Selam [tgcolmisc2]$nick ![tgcolmisc1] Sen Sahipsin -> [tgcolmisc2]$tgscoresbyname([strlwr $nick]) [tgcolmisc1]<- [expr $tgscoresbyname([strlwr $nick])==1?"point":"Şunda"] ! Sen Sayılırsın [tgcolmisc2][ordnumber $tgranksbyname([strlwr $nick])] [tgcolmisc1]of [tgcolmisc2]$tgscorestotal[tgcolmisc1], var [tgcolmisc2]$tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] with [tgcolmisc2]$tgscoresbyrank([expr $tgranksbyname([strlwr $nick])-1])[tgcolmisc1]." 

set i 0 
 
while {$i<[llength $tgscores]} { 
set _item [lindex $tgscores $i
set _nick [lindex [split $_item ,] 2
set _score [lindex [split $_item ,] 0
if {
$i<=9&&$nick==$_nick&&[botisop $tgchan]} { 
putserv "MODE $tgchan +v $nick
putserv "PRIVMSG $tgchan :[tgcolmisc1] Tebrikler [tgcolmisc2]$nick [tgcolmisc1]! Kelime Türetmece Oyununda Ilk10 Listesindesin, Bot size otomatik voice verdi.! Hadi şimdi puanlarını yükseltme zamanı." 

incr i 



 
#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 $text0] }
       
tggetscores
       
if {![info exists tgscoresbyname([strlwr $text])]} {
              if {[
strlwr $text]==[strlwr $nick]} {
                     
set _who "[tgcolmisc1]You are"
              
} else {
                     
set _who "[tgcolmisc2]$text [tgcolmisc1]is"
              
}
              [
tgpriv$nick "[tgbold]$_who [tgcolmisc1]not on the score list."
       
} else {
              if {[
strlwr $text]==[strlwr $nick]} {
                     
set _who "[tgcolmisc1]You have"
              
} else {
                     
set _who "[tgcolmisc2]$tgrealnames([strlwr $text]) [tgcolmisc1]has"
              
}
              [
tgpriv$nick "[tgbold]$_who [tgcolmisc2]$tgscoresbyname([strlwr $text])[tgcolmisc1] points, ranked [tgcolmisc2][ordnumber $tgranksbyname([strlwr $text])] [tgcolmisc1]of [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 tgrealnames
       tggetscores
       
if {![info exists tgscoresbyname([strlwr $nick])]} {
              [
tgpriv$nick "[tgbold][tgcolmisc1]You are not on the score list yet."
       
} elseif {$tgranksbyname([strlwr $nick])==1} {
              [
tgpriv$nick "[tgbold][tgcolmisc1]You are in first place!"
       
} else {
              [
tgpriv$nick "[tgbold][tgcolmisc1]You are on [tgcolmisc2]$tgscoresbyname([strlwr $nick])[tgcolmisc1]. Your next target is [tgcolmisc2]$tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1])) [tgcolmisc1]with [tgcolmisc2]$tgscoresbyname($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1], ranked [tgcolmisc2][ordnumber [expr $tgranksbyname([strlwr $nick])-1]] [tgcolmisc1]of [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 tgerrmailtmp
       
if {$text==""||![string is int [lindex [split $text0]]} {
              [
tgpriv$nick "[tgbold][tgcolmisc1]You need to specify the number of the question."
              
return
       }
       
tgreadqdb
       set _qnum 
[lindex [split $text0]
       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 $text1 end]]
       if {
$_desc==""} { set _desc "No further info given for this error." }
       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 "Error report generated [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S]"
       
puts $_file "Reported by:\t$nick!$host"
       
puts $_file "Question #:\t$_qnum"
       
puts $_file "Question:\t$_qques"
       
puts $_file "Answer:\t\t$_qans"
       
puts $_file "Comments:\t$_desc"
       
puts $_file "------------------------------"
       
close $_file
       
if {$tgerrmethod==1} {
              
exec mail -"kelime.tcl error report from $nick$tgerremail $_fname
              file delete $_fname
              
[tgpriv$nick "[tgbold][tgcolmisc1]Thanks! Your error report has been e-mailed to my owner."
       
} else {
              [
tgpriv$nick "[tgbold][tgcolmisc1]Thanks! Your error report has been logged and will be looked at as soon as possible."
       
}
}
 
#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 tgcmdskip tgflagsreset tgcmdreset
       
global tgcmdtarget tgcmderror tgcmdrules tgflagsstart
       
if {$text==""} {
              [
tgpriv$nick "You have access to the following /MSG commands:"
              
[tgpriv$nick "To use, /MSG $botnick <command>"
              
[tgpriv$nick "  \002[strupr $tgcmdrules]\002"
              
[tgpriv$nick "   -- Lists the channel rules."
              
[tgpriv$nick "  \002[strupr $tgcmdlookup]\002 \[nick\]"
              
[tgpriv$nick "   -- Shows you the rank & score of \[nick\], if specified,"
              
[tgpriv$nick "    otherwise, shows you your own rank & score."
              
[tgpriv$nick "  \002[strupr $tgcmdtarget]\002"
              
[tgpriv$nick "   -- Shows you the rank & score of the person ranked"
              
[tgpriv$nick "    one above you."
              
[tgpriv$nick "  \002[strupr $tgcmderror]\002 <number> \[description\]"
              
[tgpriv$nick "   -- Reports an error in question <number>"
              
[tgpriv$nick "    The description is optional, but helpful."
              
if {[matchattr $hand $tgflagsreset $tgchan]} {
                     [
tgpriv$nick "  \002[strupr $tgcmdreset]\002"
                     
[tgpriv$nick "   -- Resets the score table."
              
}
              [
tgpriv$nick "For a list of channel commands, /MSG $botnick [strupr $tgcmdhelp] PUBCMDS"
       
}
       if {[
strlwr $text]=="pubcmds"} {
              [
tgpriv$nick "You have access to the following channel commands:"
              
if {[matchattr $hand $tgflagsstart $tgchan]} {
                     [
tgpriv$nick "  \002$tgcmdstart\002 -- starts the trivia game."
              
}
              if {[
matchattr $hand $tgflagsstop $tgchan]} {
                     [
tgpriv$nick "  \002$tgcmdstop\002 -- stops the trivia game."
              
}
              if {[
matchattr $hand $tgflagshint $tgchan]} {
                     [
tgpriv$nick "  \002$tgcmdhint\002 -- shows a hint."
              
}
              if {[
matchattr $hand $tgflagsskip $tgchan]} {
                     [
tgpriv$nick "  \002$tgcmdskip\002 -- skips current question."
              
}
              [
tgpriv$nick "For a list of /MSG commands, /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 "" 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 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 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>$botnick's Sorucevap Kanali: $tgchan 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=\"Turkce Kelime.tcl \">"
       
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 "  <b>Kelime Turetmece [lindex [split $server :] 0] sunucumuz $tgchan kanalinda oynaniyor.!</b>"
       
puts $_file "  <hr size=\"1\" noshade>"
       
if {![onchan $botnick $tgchan]} {
              
puts $_file "  <p>Suanda $tgchan kanalinda degilim.! Bu yuzden istatistikleri gosteremiyorum.!.</p>"
       
} else {
              
puts $_file "  <p>Kanalda Şuanda Oyun <b>[expr $tgplaying==1?"Oynanıyor":"Oynanmıyor"]</b>. Botun hafızasında toplam olarak <b>$tgquestionstotal</b> soru bulunmakta."
              
puts $_file "  <p>Şuanda $tgchan Kanalında Bulunanlar:<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>Skor</b></td>"
              
puts $_file "    <td><b>Sira</b></td>"
              
puts $_file "    <td><b>Idle</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]?" (that's me!)":""]</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 1
              while {$_rank<=$tgscorestotal} {
                     puts $_file "  <b>$_rank</b>. $tgrealnames($tgranksbynum($_rank)) $tgscoresbyrank($_rank)<br>"
                     incr _rank
              }
       } else {
              puts $_file "  <p><small>There are currently no nicks in the score table.<br>"
       }
       puts $_file "  </small></p>"
       puts $_file "  <hr size=\"1\" noshade>"
       puts $_file "  <small>Bu sayfa [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S] tarihinde <a href=\"DjSooN/\">Turkce Kelime.tcl</a> Tarafından Oluşturulmuştur.!.<br>"
       puts $_file "  Bu Sayfa her [expr $tghtmlrefresh==1?"second":"$tghtmlrefresh saniyede"] bir kendini yenilemektedir.1</small>"
       puts $_file "  <br><img src="DjSooN">
       puts $_file " </body>"
       puts $_file "</html>"
       close $_file
       file rename -force $tghtmlfile~new $tghtmlfile
       set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]
}
 
putlog "======================================================="
putlog "* KelimeTuretmece Botu $tgver ($tgrel) DjSooN"
putlog "* Yapan: DjSooN"
putlog "* Kelime Turetmece Kanali: $tgchan"
tgreadqdb
putlog "* Toplam $tgquestionstotal soru $tgqdb ([file size $tgqdb]) ile basari ile yuklendi."
putlog "=======================================================" 



Konu seal tarafından (20 Ocak 2008 Saat 21:51 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 20 Ocak 2008, 22:18   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kelime Oyu




ßaktım ßi Sorun Yok qißi Varsada qöremedim.. ßaşka ßi Arkadaşta ßaksın ßeLki qözümden Kaçmıştır. ßen Yine Senin için ßi Kelime Türetme ßotu Attım Ekten İndirebilirsin O tCl de Sorun Olursa Yardımcı Olurum Ama oLucaqını Sanmıyorum Kendine Göre Editler KuLlanırsın..

Burdan İndir Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.
 
Alıntı ile Cevapla

Alt 22 Ocak 2008, 02:48   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kelime Oyu




Tşkler Hype
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 22 Ocak 2008, 03:27   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kelime Oyu




Rica Ederim nedemek yardımcı olabildiysem ne mutlu bana ;scare

 
Alıntı ile Cevapla

Alt 23 Ocak 2008, 04:10   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kelime Oyu




Hype bu arada senin eklediğin kelime.rar içinde sanırım kelime.TCL çıkması lazım değil mi. Kelime diye bir doaya çıktı ama uzantısı yok ve de text editörle de bir türlü açılmıyor, çok karman çorman bişey çıkıyor. Acaba yenisini yollayabilir misin, onu bi test edeyim, yoksa bu sorun çözülmiycek sanırım, millet puan almadan oynuyo : )

 
Alıntı ile Cevapla

Alt 23 Ocak 2008, 04:56   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kelime Oyu




kelime.txt Dosyasınıda eggdrop/script Klasorunun içine atıcaksın calısıcaktır sorun olmaz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
oyu, kelime


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Kelime kelime’ pedofili savaşı hAte Bing 0 27 Eylül 2014 21:04
O ses kayıtları kelime kelime analiz edildi Amelia Haber Arşivi 0 25 Şubat 2014 17:16
Kelime Kalemzede Felsefe 0 10 Kasım 2011 10:04
İki Kelime.. kup{a}pazl Şiir, Hikaye ve Güzel Sözler 2 24 Eylül 2010 19:27