Çevrimdışı

Forumda Bilmece Botu İsteyen Arkadaslar Buyrun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#================================================= ==================##
# === E G G D R O P C O N F I G BY WhiSkEy === #
#================================================= ==================#
#===================== LINE NEEDED FOR LOADCONF ====================#
#! /path/to/eggdrop
#======================= GENERAL BOT SETTINGS ======================#
set username "USERNAME"
set admin "NİCK"
set network "İP"
set timezone "EST"
set offset "5"
set my-hostname "İP"
set my-ip "İP"
#==================== GENERAL BOT LOGGING OPTIONS ==================#
set max-logsize 0
set quick-logs 0
logfile mco * "scripts/log/fasulye.log"
logfile bjk #zurna "scripts/log/fasulye.log"
set log-time 1
set keep-all-logs 0
set switch-logfiles-at 300
set quiet-save 0
set console "mkcobxs"
#================ GENERAL BOT FILE/LOCATION SETTINGS ===============#
set userfile "scripts/log/botcan.user"
set sort-users 0
set help-path "help/"
set temp-path "/tmp"
set motd "motd"
set telnet-banner "telnet-banner"
#====================== GENERAL BOTNET OPTIONS =====================#
#set botnet-nick "RoboT"
#listen 3333 all
set protect-telnet 0
set dcc-sanitycheck 0
set ident-timeout 5
set require-p 0
set open-telnets 0
set stealth-telnets 0
set use-telnet-banner 0
set connect-timeout 15
set dcc-flood-thr 3
set telnet-flood 5:60
set paranoid-telnet-flood 1
set resolve-timeout 15
#===================== ADVANCED SETTINGS FOR BOT ===================#
#set firewall "proxy:178"
#set nat-ip "127.0.0.1"
#set reserved-port 9076
set ignore-time 0
set hourly-updates 00
set owner "Cyprus"
set notify-newusers "$owner"
set default-flags "hp"
set whois-fields "url birthday"
set remote-boots 2
set share-unlinks 1
set die-on-sighup 0
set die-on-sigterm 0
unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set
set must-be-owner 0
unbind dcc n simul *dcc:simul
set max-dcc 50
set dcc-portrange 1024:65535
set enable-simul 1
set allow-dk-cmds 1
#==================== GENERAL BOT MODULE SETTINGS ==================#
#set mod-path "modules-1.6.15"
#==================== GENERAL BOT CHANNEL MODULES ==================#
loadmodule channels
set chanfile "scripts/log/oyuncak.chan"
set ban-time 0
set exempt-time 60
set invite-time 60
# set force-expire 0
set share-greet 0
set use-info 1
set global-flood-chan 5:3
set global-flood-deop 5:10
set global-flood-kick 0:0
set global-flood-join 8:30
set global-flood-ctcp 8:30
set global-chanset {
+clearbans +enforcebans
+dynamicbans +userbans
+autoop -bitch
+greet +nodesynch
+statuslog -stopnethack
-revenge -secret
-autovoice +cycle
+dontkickops -wasoptest
-inactive +protectfriends
+shared -seen
+userexempts +dynamicexempts
+userinvites +dynamicinvites
}
channel add #bilmece {
need-op { putserv "MODE #bilmece +o $botnick " }
chanmode "+nt"
idle-kick 0
}
set global-chanmode ""
#==================== GENERAL BOT SERVER MODULES ===================#
loadmodule server
set net-type 0
set nick "Bilmece"
set realname "IRCForumlari"
set init-server { putserv "PRIVMSG nickserv :identify 123456789"
putserv "oper NİCK PASS"
}
set servers {
İP:6667
}
set keep-nick 1
set use-ison 1
set strict-host 0
set quiet-reject 1
set lowercase-ctcp 0
set answer-ctcp 3
set flood-msg 0:0
# how many CTCPs in how many seconds?
set flood-ctcp 0:0
set never-give-up 1
set strict-servernames 0
set default-port 6667
set server-cycle-wait 30
set server-timeout 15
set servlimit 0
set check-stoned 1
set use-console-r 0
set debug-output 0
set serverror-quit 1
set max-queue-msg 300
set trigger-on-ignore 0
set double-mode 0
set double-server 0
set double-help 0
#set use-silence 1
#set check-mode-r 1
loadmodule ctcp
set ctcp-mode 0
loadmodule irc
set bounce-bans 1
set bounce-modes 0
set kick-bogus-bans 1
set bounce-bogus-bans 1
set max-bans 20
set max-modes 30
set allow-desync 0
set kick-bogus 0
set ban-bogus 0
set kick-fun 0
set ban-fun 0
set learn-users 0
set wait-split 600
set wait-info 180
set mode-buf-length 200
#unbind msg - hello *msg:hello
#bind msg - myword *msg:hello
unbind msg - ident *msg:ident
unbind msg - addhost *msg:addhost
#bind msg - myidentword *msg:ident
set no-chanrec-info 0
set revenge-mode 1
set bounce-exempts 0
set bounce-invites 0
set max-exempts 20
set max-invites 20
set bounce-bogus-exempts 0
set kick-bogus-exempts 0
set bounce-bogus-invites 0
set kick-bogus-invites 0
# set use-exempts 0
# set use-invites 0
set prevent-mixing 1
#set kick-method 1
#set modes-per-line 3
#set use-354 0
#set rfc-compliant 1
#loadmodule transfer
set max-dloads 3
set dcc-block 1024
set copy-to-tmp 1
set xfer-timeout 30
#==================== GENERAL BOT SHARE MODULES ====================#
#loadmodule share
#set allow-resync 0
#set resync-time 900
#set private-owner 0
#set private-global 0
#set private-globals "mnot"
#set private-user 0
#================== GENERAL BOT FILESYSTEM MODULES =================#
#loadmodule filesys
set files-path "/home/chatzade/filesys"
set incoming-path "/home/chatzade/filesys/incoming"
set upload-to-pwd 0
set filedb-path ""
set max-file-users 20
set max-filesize 1024
#===================== GENERAL BOT NOTES MODULES ===================#
loadmodule notes
set notefile "scripts/log/Nothing.notes"
set max-notes 50
set note-life 60
set allow-fwd 0
set notify-users 1
set notify-onjoin 1
#==================== GENERAL BOT CONSOLE MODULES ==================#
loadmodule console
set console-autosave 1
set force-channel 0
set info-party 0
#==================== GENERAL BOT WOOBIE MODULES ===================#
loadmodule woobie
#===================== GENERAL BOT SEEN MODULES ====================#
loadmodule seen
#==================== GENERAL BOT BLOWFISH MODULES =================#
checkmodule blowfish
#===================== GENERAL BOT ASSOC MODULES ===================#
loadmodule assoc
#===================== GENERAL BOT WRITE MODULES ===================#
loadmodule wire
#======================== GENERAL BOT SCRIPTS ======================#
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/compat.tcl
source scripts/bilmece.tcl
#=========== GENERAL BOT HELP MODULES ====================#
loadhelp scripts/userinfo.help

 

Çevrimdışı

TCL

################################################## ####################
# BİLMECE.TCL BY PRaNGaLaR #
################################################## ####################
# The full path to the file containing the questions and answers.
# The account the bot runs on must have read access to this file.
set tgqdb "/home/mirc/eggdrop/scripts/bilmece.questions"
# The character that seperates the question and the answer in the
# question/answer file.
set tgqdbsep "|"
# What you set here defines how the bot expects the question/answer
# pairs to be arranged.
# If set to 1, bot expects lines in the format:
# question<seperator>answer
# If set to 0, bot expects lines in the format:
# answer<seperator>question
set tgqdbquestionfirst 0
# The full path to the file which tracks the scores. The account
# the bot runs on must have read & write access to this file. If
# the file does not exist, it will be created when needed.
set tgscf "bilmece.scores"
# How to send error reports. Set to 1 to send error report to an
# e-mail address of your choice, or 0 to record errors in a file.
# Sending via e-mail requires that the bot have access to the "mail"
# program. If the bot doesn't have access to this program (e.g. if
# you're running the bot on the Windows platform), then set this to
# 0 to have errors recorded in a file.
set tgerrmethod 1
# The full path to the file which records error reports. The
# account the bot runs on must have read & write access to this
# file. If the file does not exist, it will be created when needed.
set tgerrfil "trivia.errors"
# The e-mail address to send error reports to.
set tgerremail "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
# If error reports are sent via e-mail, where will the bot create
# a temp file? /tmp/ is a good idea.
set tgerrmailtmp "/tmp"
# The full path to the file which the bot will use to generate
# an HTML info page. The account the bot runs on must have read
# & write access to this file. If the file does not exist, it will
# be created when needed.
set tghtmlfile "/home/kelebekc/public_html/oyun.html"
# How often (in seconds) does the html file get updated. Set to 0
# to disable HTML page.
set tghtmlrefresh 60
# The font to use on the html page.
set tghtmlfont "verdana,helvetica,arial"
# The name of the channel where the game will be played. The game
# can only be played on one channel.
set tgchan "#bilmece"
# How many points to give a person for a correctly answered
# question.
set tgpointsperanswer 1
# The maximum number of hints to give before the question 'expires'
# and the bot goes on to another one. This EXCLUDES the first hint
# given as the question is asked (i.e. the hint which shows no letters,
# only placeholders).
set tgmaxhint 2
# Should the bot show the question on each hint (1) or only on the first (0)?
set tgalwaysshowq 1
# Show questions in all CAPS (1) or not (0)?
set tgcapsquestion 1
# Show answers in all CAPS (1) or not (0)?
set tgcapsanswer 1
# Show hints in all CAPS (1) or not (0)?
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.
set tgstreakmin 3
# The number of missed (i.e. unanswered, not skipped) questions to allow
# before automatically stopping the game. Setting this to 0 will cause the
# game to run until somebody uses the stop command, or the bot dies, gets
# killed, pings out, or whatever.
set tgmaxmissed 50
# The character to use as a placeholder in hints.
set tghintchar "*"
# The time in seconds between hints.
set tgtimehint 20
# The time in seconds between a correct answer, 'expired' or skipped question
# and the next question being asked.
set tgtimenext 10
# Phrases to use at random when someone answers a question correctly. This must
# be a TCL list. If you don't know what that means, stick to the defaults.
set tgcongrats[list "Tebrikler" "Iyi Deneme" "Iyi Gidiyorsun" "Boyle Devam Et" "Cok Iyi" "Harika" "Guzel" "Aferin"]
# Phrases to use when the question has 'expired'. Must also be a TCL list.
set tgnobodygotit[list "Boyle Giderse Hic Puan Alamayacaksiniz!" "Merhaba Orada Kimse Var mi?" "Uyudunuz mu, Bana mi Oyle Geliyor!" "Ne O Kucuk Dilinizimi Yuttunuz?" "Bu Sorular Senin Icin Cokmu ZoOor?" "Neden Kimse Cevap Veremiyor?"]
# Phrases to use when the question expired and there's another one coming up.
# Yep, you guessed it... another TCL list.
set tgtrythenextone[list "02Belki Diger Soruda Denemelisin..." "02Diger Soruda Gorusuruz..." "02Diger Soru GeliyoOoOOOr..." "02Sansinizi Bir Sonraki Soruda Deneyin..." "02Siradaki Soru Geliyor.."]
# Will the bot calculate the time it took to get the correct
# answer (1) or not (0)? (requires TCL 8.3 or higher).
set tgtimeanswer 1
# Will the bot show the correct answer if nobody gets it (1) or not (0)?
set tgshowanswer 1
# When someone answers a question, will the bot show just that person's score (0)
# or will it show all players' scores (1) (default). This is useful in channels with
# a large number (>20) players.
set tgshowallscores 0
# Use bold codes in messages (1) or not (0)?
set tgusebold 1
# Send private messages using /msg (1) or not (0)?
# If set to 0, private messages will be sent using /notice
set tgpriv2msg 0
# Word to use as /msg command to give help.
# e.g. set tgcmdhelp "helpme" will make the bot give help when someone
# does "/msg <botnick> helpme"
set tgcmdhelp "?"
# Channel command used to start the game.
set tgcmdstart "!basla"
# Flags required to be able to use the start command.
set tgflagsstart "-|-"
# Channel command used to stop the game.
set tgcmdstop "!stop"
# Flags required to be able to use the stop command.
set tgflagsstop "-|-"
# Channel command used to give a hint.
set tgcmdhint "!hint"
# Flags required to be able to use the hint command.
set tgflagshint "-|-"
# Disable the !hint command x seconds after someone uses it. This
# prevents accidental double hints if two people use the command in
# quick succession.
set tgtempnohint 10
# Channel command used to skip the question.
set tgcmdskip "!skip"
# Flags required to be able to use the skip command.
set tgflagsskip "-|-"
# Channel command for showing the top 10 scores.
set tgcmdtop10 "!top10"
# Flags required to use the top 10 command.
set tgflagstop10 "-|-"
# /msg command used to reset scores.
set tgcmdreset "resset4"
# Flags required to be able to use the reset command.
set tgflagsreset "m|m"
# /msg command for looking up somebody's score.
set tgcmdlookup "score"
# /msg command for looking up your target.
# (i.e. the person ranked one higher than you).
set tgcmdtarget "target"
# /msg command for reporting errors in questions and/or answers.
set tgcmderror "error"
# /msg command to show channel's rules.
set tgcmdrules "rules"
# Channel's rules.
set tgrules "Lutfen Kayitli Rumuzlariniz Ile Yarismaya Katiliniz.Bu Kanalda Sadece Yarisin , Eglenin :-)"
# Number of minutes between reminders of how to report errors.
set tgerrremindtime 5
# COLOURS
# The colour codes used are the same as those used by mIRC:
# 00:white 01:black 02:dark blue 03:dark green
# 04:red 05:brown 06:purple 07:orange
# 08:yellow 09:light green 10:turquoise 11:cyan
# 12:light blue 13:magenta 14:dark grey 15:light grey
#
# Always specify colour codes as two digits, i.e. use "01" for
# black, not "1".
# You can specify a background colour using "00,04" (white text
# on red background).
# To disable a colour, use "".
# Note that disabling some colours but not others may yield
# unexpected results.
set tgcolourstart "03" ;#Game has started.
set tgcolourstop "04" ;#Game has stopped.
set tgcolourskip "0,2" ;#Question has been skipped.
set tgcolourerr "04" ;#How to report errors.
set tgcolourmiss "02" ;#Nobody answered the question.
set tgcolourqhead "04" ;#Question heading.
set tgcolourqbody "12" ;#Question itself.
set tgcolourhint "06" ;#Hint.
set tgcolourstrk "12" ;#Person is on a winning streak.
set tgcolourscr1 "04" ;#Score of person in first place.
set tgcolourscr2 "12" ;#Score of person in second place.
set tgcolourscr3 "03" ;#Score of person in third place.
set tgcolourrset "04" ;#Scores have been reset.
set tgcolourstend "12" ;#Winning streak ended.
set tgcolourmisc1 "02" ;#Miscellaneous colour #1.
set tgcolourmisc2 "04" ;#Miscellaneous colour #2.

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# #
# Any editing done beyond this point is done at your own risk! #
# #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
set bilmece "osmandark"
#Misc checks & var initialisations
set tgver "1.3.1"
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<204} {
putlog "\002[file tail [info script]]\002 failed to load: please load alltools.tcl v1.6 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) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])"
set tgplaying 0
}
if {![info exists tghintnum]} {set tghintnum 0}
if {![info exists tgmissed]} {set tgmissed 0}
#Binds
bind pub $tgflagsstart $tgcmdstart tgstart
bind pub $tgflagsstop $tgcmdstop tgstop
proc tgbindhintcmd {} {
global tgflagshint tgcmdhint
bind pub $tgflagshint $tgcmdhint tgforcehint
}
proc tgunbindhintcmd {} {
global tgflagshint tgcmdhint
unbind pub $tgflagshint $tgcmdhint tgforcehint
}
tgbindhintcmd
bind pub $tgflagsskip $tgcmdskip tgskip
bind pub $tgflagstop10 $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 $tgflagsreset "$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]bilmece Oyunu Basliyor.... $nick!"
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]Oyun $nick! Tarafindan Durduruldu."
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak 0
set tgplaying 0
catch {unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer}
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]Bu Soruyu Pass Geciyorum.Diger Soru Geliyor [tgcolmisc2]$nick[tgcolskip] "
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin&&[strlwr [lindex [split $tgstreak ,] 0]]==[strlwr $nick]} {
tgstreakend
set tgstreak 0
}
unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
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]Hatirlatma: Hatali Oldugunu Dusundugunuz Soru/Cevap 'lari Bize Yazabilirsiniz. /msg $botnick $tgcmderror <numara> \[tanim\]"
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 $tgcurrentanswer" tgcorrectanswer}
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]
while {![eof $qfile]} {
lappend tgquestionslist [gets $qfile]
incr tgquestionstotal
}
close $qfile
}
#selects the next question.
proc tgnextq {} {
global tgqdb tgcurrentquestion tgcurrentanswer tgquestionnumber tgquestionstotal
global tghintnum tgchan tgquestionslist tgqdbsep tgqdbquestionfirst
tgreadqdb
set tgquestionnumber [rand [llength $tgquestionslist]]
set tgquestionselected [lindex $tgquestionslist $tgquestionnumber]
set tgcurrentquestion [lindex [split $tgquestionselected $tgqdbsep] [expr $tgqdbquestionfirst^1]]
set tgcurrentanswer [strlwr [lindex [split $tgquestionselected $tgqdbsep] $tgqdbquestionfirst]]
unset tghintnum
tghint
bind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
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
global tgcapsanswer tgcapsquestion tgcapshint
if {[catch {incr tghintnum}]!=0} {
set tghintnum 0
regsub -all -- "\[^A-Za-z0-9\]" [string trim $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 "4 Bu Soruya Kimse Dogru Yanit Veremedi."
}
if {$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {
append _msg " That's $tgmissed questions gone by unanswered! The game is now automatically disabled. To start the game again, type $tgcmdstart"
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 $tgcurrentanswer" tgcorrectanswer}
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
}
}
tggamemsg "[tgcolqhead]Toplam Soru Sayisi==> $tgquestionstotal [expr $tghintnum?"(Ipucu $tghintnum/$tgmaxhintcurrent)":""] "
if {$tgalwaysshowq==1||$tghintnum==0} {
tggamemsg "Soru : [tgcolqbody][expr $tgcapsquestion?"[strupr $tgcurrentquestion]":"$tgcurrentquestion"]"
}
tggamemsg "[tgcolhint]Ipucu: [strupr [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 "4 1.Sirada $_nick $_score "
} elseif {$i==1} {
append _scores ",12 2.Sirada $_nick $_score "
} elseif {$i==2} {
append _scores ",5 3.Sirada $_nick $_score "
} elseif {$i==3} {
append _scores ",2 4.Sirada $_nick $_score "
} elseif {$i==4} {
append _scores ",6 5.Sirada $_nick $_score "
} elseif {$i==5} {
append _scores ",1 6.Sirada $_nick $_score "
} elseif {$i==6} {
append _scores ",4 7.Sirada $_nick $_score "
} elseif {$i==7} {
append _scores ",12 8.Sirada $_nick $_score "
} elseif {$i==8} {
append _scores ",5 9.Sirada $_nick $_score "
} elseif {$i==9} {
append _scores ",6 10.Sirada $_nick $_score 2Puana Sahipler. "
} else {
append _scores ", [tgcolmisc1]$_nick $_score Puana Sahipler. "
}
incr i
}
tggamemsg "[tgcolmisc1]En Iyi 10 Oyuncu Listesi: $_scores"
} else {
tggamemsg "[tgcolmisc1]Skor Tablosuna Kimse Kayitli Degil..."
}
}
}
#triggered when someone says the correct answer.
proc tgcorrectanswer {nick host hand chan text} {
global tgcurrentanswer tghinttimer tgtimenext tgchan tgnextqtimer tgstreak tgstreakmin
global tgscoresbyname tgranksbyname tgranksbynum tgcongrats tgscorestotal tgmissed
global tgtimestart tgshowallscores tgrealnames tgscoresbyrank tgtimeanswer tgcapsanswer
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]..!Bu Sorunun Yaniti [tgcolmisc2][strupr $tgcurrentanswer][tgcolmisc1] .[expr $tgtimeanswer==1?"Bu Soruyu $_timetoanswer[tgcolmisc1] Surede Yanitladin.":""]"
if {$_newrank<$_oldrank} {
if {$_newrank==1} {
append _msg " [tgcolmisc2]Sen Birinci Siraya Yerlestin!"
} else {
if {$tgshowallscores==0} {
append _msg " [tgcolmisc2]Siralamadaki Yerin Degisti!"
} else {
append _msg " Simdiki Siraniz [tgcolmisc2][tgordnum $tgranksbyname([strlwr $nick])][tgcolmisc1]Toplam Oyuncu Sayisi $tgscorestotal[tgcolmisc1], Guclu Rakibin $tgrealnames($tgranksbynum([expr $_newrank-1]))[tgcolmisc1] ise, $tgscoresbyrank([expr $_newrank-1])[tgcolmisc1] Puana Sahip."
}
}
}
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] Harikasin! Art Arda [lindex [split $tgstreak ,] 1] [tgcolstrk]Dogru Yanit Verdin!"
}
} 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
unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
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]The scores: $_scores"
} else {
if {$tgranksbyname([strlwr $nick])==1} {
set _tgt "."
} else {
set _tgt ", Guclu Rakibin $tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] ise, $tgscoresbyrank([expr $tgranksbyname([strlwr $nick])-1])[tgcolmisc1] Puana Sahip."
}
tggamemsg "[tgcolmisc2]$nick [tgcolmisc1]Simdi $tgscoresbyname([strlwr $nick]) [tgcolmisc1][expr $tgscoresbyname([strlwr $nick])==1?"Puana":"Puana"] Sahipsin Ve Skor Tablosunda [tgordnum $tgranksbyname([strlwr $nick])] [tgcolmisc1][tgcolmisc2]Toplam Oyuncu Sayisi $tgscorestotal[tgcolmisc1]$_tgt"
}
}
#reset current scores.
proc tgresetscores {nick host hand text} {
global tgscf tgscorestotal tgscores tgplaying
if {[file exists $tgscf]&&[file size $tgscf]>2} {
set _sfile [open $tgscf w]
puts $_sfile ""
close $_sfile
set tgscores ""
set tgscorestotal 0
}
tggamemsg "[tgcolrset]===== Puan Tablosu $nick Tarafindan Resetlendi! ====="
}
#triggered when a winning streak ends.
proc tgstreakend {} {
global tgstreak tgrealnames
tggamemsg "[tgcolstend]Serinin Sonuna Geldin $tgrealnames([lindex [split $tgstreak ,] 0])[tgcolstend] Bol Sanslar :-)"
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 "0,4$nick Hosgeldin Oyun Kanalina... Oyun Su Anda"
if {$tgplaying==1} {
append _msg " \002Calisiyor\002."
} else {
append _msg " \002Calismiyor\002."
}
if {[matchattr $hand $tgflagsstart $tgchan]&&$tgplaying==0} {
append _msg " Oyunu Calistirmak Icin \002$tgcmdstart\002 Yaziniz."
}
append _msg " Yardim Konularimi Goruntulemek Icin Lutfen \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]Senin"
} 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]Sen"
} else {
set _who "[tgcolmisc2]$tgrealnames([strlwr $text]) [tgcolmisc1]has"
}
[tgpriv] $nick "[tgbold]$_who [tgcolmisc2]$tgscoresbyname([strlwr $text])[tgcolmisc1] points, ranked [tgcolmisc2][tgordnum $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]Puan Tablosuna Kayitli Degilsin."
} elseif {$tgranksbyname([strlwr $nick])==1} {
[tgpriv] $nick "[tgbold][tgcolmisc1]Sen Birinci Siradasin!"
} else {
[tgpriv] $nick "[tgbold][tgcolmisc1]Sen $tgscoresbyname([strlwr $nick])[tgcolmisc1] Puana Sahipsin. Guclu Rakibin $tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1])) [tgcolmisc1]ise, $tgscoresbyname($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] Puana Sahip, Skor Tablosunda [tgordnum [expr $tgranksbyname([strlwr $nick])-1]] [tgcolmisc1]Toplam Oyuncu Sayisi $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 $text] 0]]} {
[tgpriv] $nick "[tgbold][tgcolmisc1]Lutfen Hatali Sorunun Numarasini Yaziniz..."
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 "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 -s "trivia.tcl error report from $nick" $tgerremail < $_fname
file delete $_fname
[tgpriv] $nick "[tgbold][tgcolmisc1]Tesekkurler!Raporunuz Kayit Edildi."
} else {
[tgpriv] $nick "[tgbold][tgcolmisc1]Tesekkuler!Sana Ait Raporu Yukledim."
}
}
#triggered when someone /msgs the bot with the rules command.
proc tgrulesmsg {nick host hand text} {
global tgrules
[tgpriv] $nick "Kanal Kurallari: $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 "Kullanilabilecek Komutlarin Listesi"
[tgpriv] $nick "Kullanabilmek Icin, /MSG $botnick Komut"
[tgpriv] $nick " \002[strupr $tgcmdrules]\002"
[tgpriv] $nick " -- Kanal Kurallarin Listesi."
[tgpriv] $nick " \002[strupr $tgcmdlookup]\002 \[nick\]"
[tgpriv] $nick " -- Senin Sahip Oldugun Puani Gosterir \[nick\]"
[tgpriv] $nick " Kullanildigi Zaman Nike Ait Puani Gosterir."
[tgpriv] $nick " \002[strupr $tgcmdtarget]\002"
[tgpriv] $nick " -- Skor Tablosundaki"
[tgpriv] $nick " Yerini ve Puanini Gosterir."
[tgpriv] $nick " \002[strupr $tgcmderror]\002 <number> \[description\]"
[tgpriv] $nick " -- Hatali Soru Rapor Eder"
[tgpriv] $nick " Komut Listesinin Sonu."
if {[matchattr $hand $tgflagsreset $tgchan]} {
[tgpriv] $nick " \002[strupr $tgcmdreset]\002"
[tgpriv] $nick " -- Skoru Resetler."
}
[tgpriv] $nick "AXX e Sahipseniz, /MSG $botnick [strupr $tgcmdhelp] PUBCMDS Yaziniz"
}
if {[strlwr $text]=="pubcmds"} {
[tgpriv] $nick "Kanal Komutlari:"
if {[matchattr $hand $tgflagsstart $tgchan]} {
[tgpriv] $nick " \002$tgcmdstart\002 -- Oyunu Baslatir."
}
if {[matchattr $hand $tgflagsstop $tgchan]} {
[tgpriv] $nick " \002$tgcmdstop\002 -- Oyunu Kapatir."
}
if {[matchattr $hand $tgflagshint $tgchan]} {
[tgpriv] $nick " \002$tgcmdhint\002 -- Ipucu Gosterir."
}
if {[matchattr $hand $tgflagsskip $tgchan]} {
[tgpriv] $nick " \002$tgcmdskip\002 -- Soruyu Pass Gecer."
}
[tgpriv] $nick "Kanal Komutlarinin Sonu /MSG $botnick [strupr $tgcmdhelp]"
}
}
proc tggamemsg {what} {
global tgchan
putquick "PRIVMSG $tgchan :[tgbold]$what"
}
#Returns ordinal version of number passed to it.
#i.e. [tgordnum 1] returns "1st", [tgordnum 33] returns "33rd"
#Surely there's an easier way to do this?
proc tgordnum {num} {
set _last1 [string range $num [expr [strlen $num]-1] end]
set _last2 [string range $num [expr [strlen $num]-2] end]
if {$_last1=="1"&&$_last2!="11"} {
return "[expr $num].Siradasin"
} elseif {$_last1=="2.Siradasin"&&$_last2!="12"} {
return "[expr $num]nd"
} elseif {$_last1=="3.Siradasin"&&$_last2!="13"} {
return "[expr $num].Siradasin"
} else {
return "[expr $num].Siradasin"
}
}
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 trivia channel: $tgchan on [lindex [split $server :] 0]</title>"
puts $_file " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">"
puts $_file " <meta http-equiv=\"refresh\" content=\"$tghtmlrefresh\">"
puts $_file " <meta name=\"generator\" content=\"trivia.tcl script for eggdrop.

 

Çevrimdışı

SORULAR


ayakkabi baginda|Hangi bagda üzüm yetismez ?
saglik karnesinde|Hangi karnede sifir olmaz?
alin yazisi|Hiç kimsenin okuyamadigi yazi hangisidir?
ikiside her havadan caları|Kadinla radyo arasinda ne fark vardır?
yercekimi kanunu|Hangi kanun insanlari yargilamaz?
ilan edilince çarpısma baslar|ilani ask ile ilani harp arasinda ne gibi bir benzerlik vardir?
agzina bakariz|Bir politikacinin ölüp ölmedigini nasil anlariz?
Baliklar kokmasin diye|Denizler nicin tuzludur?
lahmacunla|Hangi macunla dis fırcalanmaz?
Agri dagi|En cok aci ceken dag hangisidir?
Sereflikochisar|Türkiyenin en namuslu ilcesi hangisidir?
icine kurt düsmüs|Adamin biri durmadan uluyormus, neden?
Sarhoslar|Dünyanin en iyi döndügünü kim bilir?
laf salatasi|Milletvekillerinin en cok yedigi salata hangisidir?


Sorular Az Ama Arastırsanız Bulursunuz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kolay Gelsin