#%v2064#%dt111023#%t-2.tcl#
################################################## Date: 23Oct11 ##
## BogusTrivia 2.06.4.4 by SpiKe^^ The Ultimate Trivia Script ##
###################################################################
# Version 2.06.4.4 #
# ! USE AT YOUR OWN RISK ! #
# If you'd like to Preview the script Visit Undernet #BogusTrivia #
# #
# Please report bugs or make comments at: #
# irc: undernet: #pc-mIRC-help #
# email: spike@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]clscripts.com #
# web site:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #
# #
# Support Forum: #
#
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #
# #
# View Extensive Info, FAQ Sheets and Screenshots #
#
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #
# #
###################################################################
# #
# Version 2.06.4.4 Release Notes: #
# #
# -> New Updated File: t-2.tcl <- #
# Bug Fix: (Thanks speechles) #
# Fixed a script load issue causing the following error... #
# can't read "tclr(-emsg)": no such element in array #
# #
# -> New Updated File: bogus.ques.sample <- #
# New Trivia Question File: #
# Add 12,000 New Questions to the BogusTrivia Database. #
# #
# -> New Updated File: t-2.settings.tcl <- #
# File Maintenance Only, No New Settings were Added: #
# Cleaned and Organized the BogusTrivia Settings File. #
# #
# No Other Files were Changed from the 2.06.4.2 Release! #
# No New Options or Settings were Added to this patch release. #
# #
# #
# Upgrading from version 2.06.4 may also require: #
# -> New Updated File: t-2.html.tcl <- #
# Bug Fix: #
# Fixed an issue that was keeping BogusHTML 2.06.2.beta3 #
# from running at all with BogusTrivia 2.06.4 and above #
# NOTE: Use the included t-2.html.tcl to patch an existing #
# install of BogusHTML 2.06.2 beta3 to run with this #
# version of BogusTrivia. #
# #
###################################################################
# Version 2.06.4.2 Release Notes: #
# #
# -> New Updated File: t-2.tcl <- #
# Bug Fix: #
# Fixed an issue where the information displayed for public #
# stats & auto-voice was not always reset properly at midnight. #
# #
# -> New Updated File: t-2.html.tcl <- #
# Bug Fix: #
# Fixed an issue that was keeping BogusHTML 2.06.2.beta3 #
# from running at all with BogusTrivia 2.06.4 #
# NOTE: Use the included t-2.html.tcl to patch an existing #
# install of BogusHTML 2.06.2 beta3 to run with this #
# version of BogusTrivia. #
# #
# No Other Files were Changed from the 2.06.4 Release! #
# No New Options or Settings were Added to this patch release. #
###################################################################
# Version 2.06.4 Release Notes: #
# #
# Bug Fix: #
# Game Play timings should now update and change with a .rehash #
# of the bot. #
# #
# -> New in v2.06.4 <- #
# 1. Point Matching System On or Off (stops points theft abuse) #
# 2. Show or Hide Answers for Questions & Kaos #
# 3. Channel Greet System with Flood Control #
# 4. Auto-Voice Top Players with Exempts #
# 5. On-Join Flood Settings #
# 6. Game Can Stop When No One Is Playing #
# 7. Auto-Start Game On-Join with Exempts #
# 8. Public Commands to View Stats #
# 9. Custom On-Join Greet Colors #
###################################################################
###################################################################
## Included ReadMe Files ##
## !! Please Read !! ##
## ##
## 1. ReadMe.txt ##
## 2. Installation.txt ##
## 3. Commands.txt ##
## 4. Important Notes.txt ##
## ##
###################################################################
###################################################################
# VERSION HISTORY: #
# -> New in v2.06.4 <- #
# 1. Point Matching System On or Off (stops points theft abuse) #
# 2. Show or Hide Answers for Questions & Kaos #
# 3. Channel Greet System with Flood Control #
# 4. Auto Voice Top Players with Exempts #
# 5. On-Join Flood Settings #
# 6. Game Can Stop When No One Is Playing #
# 7. Auto Start Game On-Join with Exempts #
# 8. Public Commands to View Stats #
# 9. Custom OnJoin Greet Colors #
# -> Updates in v2.06.3.2 <- #
# 1. Fixes the install & restart issues found in v2.06.3 #
# 2. Only the t-2.tcl was updated #
# -> Updates in v2.06.3 <- #
# 1. Contains all new files! #
# 2. Smooth installation or upgrades #
# 3. Custom on|off triggers now accepted #
# 4. Show|Hide stats to the channel #
# 5. New settings to translate day and month names #
# 6. Restart game play on rejoin bot to the channel #
# 7. Scheduled backup of user and history files #
# -> Updates in v2.06.2.beta2 <- #
# 1. Last release with bundled html page generator #
# 2. New templates & CSS files #
# 3. History stats, previous Days, Weeks and Months #
# 4. /msg command .make to generate pages on demand #
# -> Updates in v2.06.2.beta1 <- #
# 1. Now supports html stat page generator #
# 2. Currently supports Active Stats Only #
# 3. Player stats for Today, This Week, This Month & Lifetime #
# 4. Creates public_html folder and moves pages to it. #
# -> Updates in v2.06.1 <- #
# 1. Added support for non-english characters in answers #
# -> Updates in v2.06 <- #
# 1. Moved All Script Settings To File: t-2.settings.tcl #
# 2. Added Three Advanced Stats Options #
# 3. Fixed The Stats Bug That Allowed A User To Lose Their Stats #
# 4. Will Fix Old User File, Combines & Removes All Doubles #
# 5. Fixed: Script Would Crash If Kaos Was On & Had No Kaos Files #
# -> Updates in v2.05.2 <- #
# 1. Script Now Supports KAOS #
# 2. Added Advanced KAOS Options #
# 3. Additional Color Themes #
# -> Updates in v2.04 <- #
# 1. Script Now Supports UWord & Scrambles #
# 2. Now Supports Multiple-Choice Answers (example: "two" or "2") #
# 3. New Custom Colors Setup (choose your own colors:) #
# 4. Anti-Theft Feature now with On-Off #
# 5. Added several other Advanced Settings #
###################################################################
###################################################################
## BogusTrivia Game Features ##
###################################################################
# #
# 1. Scores Reset Daily, Weekly, and Monthly. #
# 2. 8 Preset Colors Themes & Colorless. #
# 3. Custom Color Setup. #
# 4. Includes a Question File. #
# 5. Supports UWord, Scramble, Multiple-Choice, and KAOS. #
# 6. Custom On|Off Triggers #
# 7. User Flag Protected Commands #
# 8. Anti-Theft Feature On|Off #
# 9. Unlimited Point Ranges #
# 10. Bonus Questions On|Off w/ Point Ranges & Intervals #
# 11. KAOS Questions On|Off w/ Point Ranges & Intervals #
# 12. Custom Hints (trigger & timer setting) #
# 13. Show|Hide Channel Stats (10-20-30 players) #
# 14. Unlimited Custom Channel Ads #
# 15. Question Repeat #
# 16. Custom Week Reset (mon-tues-wed) #
# 17. Custom KAOS Options #
# 18. Unlimited Questions (subject to hd space or 1 million) #
# 19. Will accept almost any q&a format or text file extension. #
# 20. No line limit on the question files added. #
# 21. Error correction: removes bad questions & creates a badqes #
# file you may edit or discard. #
# 22. Flood control on all public commands. #
# 23. Adjustable timers to slow trivia if there are no players. #
# 24. Tracks Users by handle, nick or username@host. #
# 25. Accurate Scores Totals. #
# 26. Support for non-english characters in answers #
# examples: ñ á æ ø å). #
# 27. User file clean up. remove players not seen in x amount #
# of time #
# 28. Restart game play on rejoin #
# 29. Scheduled backup of user and history files #
# #
###################################################################
############################################################################
##### All BogusTrivia Script Settings In File: t-2.settings.tcl #####
##### #####
##### EDIT THE SETTINGS IN: t-2.settings.tcl & UPLOAD IT WITH THIS TCL #####
############################################################################
############################################################################
### NO SCRIPT SETTINGS IN THIS FILE!! NO SCRIPT SETTINGS IN THIS FILE!! ###
############################################################################
####### !! DO NOT EDIT THIS FILE !! DO NOT EDIT THIS FILE !! #######
############################################################################
### !! All BogusTrivia Script Settings In File: t-2.settings.tcl !! ###
############################################################################
putlog "Loading \00310BogusTrivia\003 v2.06.4.4 by SpiKe^^..."
set ttmp(pwdpath) [pwd]/ ; set ttmp(scrpath) [file dirname [info script]]/
set ttmp(sysdir) t2/ ; set ttmp(qesdir) t2/ques/
if {[set ttmp(temp) [info tclversion]]<"8.4"} {
putlog "Tcl Version Conflict. This Script Requires Tcl 8.4 or Higher."
putlog "[info hostname] is currently running old Tcl ver. $ttmp(temp) (PatchLevel: [info patchlevel])"
putlog "Contact your shell to have them update the tcl library, or go to mytclscripts.com for a script that will run on old tcl."
putlog "\00310BogusTrivia\003 game script not loaded!" ; unset ttmp ; return
}
if {![info exists t2(pwdpath)]} { set t2(pwdpath) $ttmp(pwdpath)
set t2(scrpath) $ttmp(scrpath) ; set t2(sfpath) $t2(pwdpath)$t2(scrpath)$ttmp(sysdir)
set t2(qfpath) $t2(pwdpath)$t2(scrpath)$ttmp(qesdir)
}
if {[info exists t2(ver)]} {
if {$t2(ver) eq "2.06.4" || $t2(ver) eq "2.06.4.4"} { set ttmp(temp) 0
} else { die "BogusTrivia script update: Bot must be restarted!" }
}
if {![file exists $t2(sfpath)]} { file mkdir $t2(sfpath) }
if {![file exists [set ttmp(temp) $t2(pwdpath)$t2(scrpath)t-2.settings.tcl]]} {
putlog "Couldn't find t-2.tcl settings file: $t2(scrpath)t-2.settings.tcl"
putlog "\00310BogusTrivia\003 game script not loaded!" ; unset ttmp ; return }
source $ttmp(temp)
proc TStrInt {str} { return [string is integer -strict $str] }
proc TStrDig {str} { return [string is digit -strict $str] }
proc TStrLo {str} { return [string tolower $str] }
proc TStrTrSp {s} { return [string map {" " " "} [string map {" " " " " " " " " " " "} [string trim $s]]] }
if {[file exists [set ttmp(temp) $t2(pwdpath)$t2(scrpath)t-2.commands.tcl]]} {
if {[file exists $t2(sfpath)t2.commands]} {
file rename -force $t2(sfpath)t2.commands $t2(sfpath)t2.commands.bak }
file rename -force $ttmp(temp) $t2(sfpath)t2.commands
} elseif {[file exists [set ttmp(temp) $t2(sfpath)t-2.commands.tcl]]} {
if {[file exists $t2(sfpath)t2.commands]} {
file rename -force $t2(sfpath)t2.commands $t2(sfpath)t2.commands.bak }
file rename -force $ttmp(temp) $t2(sfpath)t2.commands
}
set ttmp(cver) ""
if {[file exists $t2(sfpath)t2.commands]} { set ttmp(open) [open $t2(sfpath)t2.commands]
set ttmp(x) [string range [gets $ttmp(open)] 3 6] ; close $ttmp(open)
if {[TStrDig $ttmp(x)] && $ttmp(x)>"2060" && $ttmp(x)<"2070"} { set ttmp(cver) $ttmp(x)
} else { set ttmp(cver) 0 }
}
if {[file exists $t2(sfpath)t2.hist]} { set ttmp(open) [open $t2(sfpath)t2.hist]
set ttmp(ln1) [gets $ttmp(open)] ; close $ttmp(open)
if {[string match ::N:* $ttmp(ln1)]} {
if {$ttmp(cver) eq ""} { set ttmp(stop) 1
} elseif {$ttmp(cver)<"2063"} { set ttmp(stop) 2
} else { set t2(_cm) h ; source $t2(sfpath)t2.commands }
if {[info exists ttmp(stop)]} {
putlog "BogusTrivia History File Needs to be Updated. The code to do that is in the New Commands File."
if {$ttmp(stop)=="1"} {
putlog "Couldn't find t-2.tcl commands file: $t2(scrpath)t-2.commands.tcl"
} else { putlog "Existing t-2.tcl commands file needs to be replaced." }
putlog "Put the included t-2.commands.tcl file in $t2(scrpath) & rehash the bot."
putlog "\00310BogusTrivia\003 game script not loaded!" ; unset ttmp ; return
}
}
}
set ttmp(err) 0
if {$ttmp(cver) eq ""} { set ttmp(err) 1
putlog "Couldn't find t-2.tcl commands file: $t2(scrpath)t-2.commands.tcl"
} elseif {$ttmp(cver)=="0"} { set ttmp(err) 2
putlog "Corrupt t-2.tcl commands file: $t2(scrpath)t-2.commands.tcl"
} elseif {$ttmp(cver)<"2064"} { set ttmp(err) 3
putlog "Old t-2.tcl commands file: $t2(scrpath)t-2.commands.tcl"
}
if {$ttmp(err)>"0"} { set ttmp(x) greet/voice
if {$ttmp(err)<"3"} { set ttmp(x) mix/greet/voice }
if {[info exists t2(autostart)] && $t2(autostart) ne "0"} { append ttmp(x) /autostart }
if {[info exists t2(pubcmd)] && $t2(pubcmd) ne "0"} { append ttmp(x) /newcommands }
set t2(greet) 0 ; set t2(voice) 0 ; set t2(autostart) 0 ; set t2(pubcmd) 0
putlog "All BogusTrivia $ttmp(x) functions disabled!"
putlog "Put the included t-2.commands.tcl file in $t2(scrpath) & rehash the bot."
}
proc TRanking {pls len {how 1} {ho2 1} } { global t2 ; set new "" ; set tls "" ; set tnum 0
if {$pls eq ""} { return $pls }
if {$how=="2"} { set pls [lsort -index 1 -integer -decreasing $pls]
} else { set pls [lsort -index 0 -integer -decreasing $pls] }
lappend pls[list 0 0 0 0]
foreach usr $pls {
if {$tnum=="0"} { lappend tls $usr
if {$how=="2"} { set tnum [lindex $usr 1] } else { set tnum [lindex $usr 0] }
} elseif {$how=="2" && [lindex $usr 1]==$tnum} { lappend tls $usr
} elseif {$how=="1" && [lindex $usr 0]==$tnum} { lappend tls $usr
} else {
if {[llength $tls]>"1"} {
if {$ho2=="2"} {
if {$how=="2"} { set tls [lsort -index 0 -integer -decreasing $tls]
} else { set tls [lsort -index 1 -integer -increasing $tls] }
} else { set tls [lsort -index 3 -integer -increasing $tls] }
}
foreach tu $tls { lappend new $tu }
set tls "" ; lappend tls $usr
if {$how=="2"} { set tnum [lindex $usr 1] } else { set tnum [lindex $usr 0] }
}
}
if {[llength $new]>$len} { set new [lreplace $new $len end] }
return $new
}
if {![TStrDig $t2(lpoint)] || $t2(lpoint)<"100"} { set t2(lpoint) 100 }
if {![TStrDig $t2(hpoint)] || $t2(hpoint)<=$t2(lpoint)} {
if {$t2(lpoint)<"1000"} { set t2(hpoint) [expr {$t2(lpoint)+100}]
} else { set t2(hpoint) [expr {$t2(lpoint)+1000}] }
}
if {![TStrDig $t2(maxbonus)] || $t2(maxbonus)<"1000"} { set t2(maxbonus) 1000 }
if {$t2(maxbonus)<=$t2(hpoint)} { set t2(maxbonus) [expr {$t2(hpoint)+$t2(lpoint)}] }
if {![TStrDig $t2(klpoint)] || $t2(klpoint)<$t2(lpoint)} { set t2(klpoint) [expr {$t2(lpoint)*3}] }
if {![TStrDig $t2(khpoint)] || $t2(khpoint)<=$t2(klpoint)} {
if {$t2(klpoint)<"1000"} { set t2(khpoint) [expr {$t2(klpoint)+100}]
} else { set t2(khpoint) [expr {$t2(klpoint)+1000}] }
}
if {![TStrDig $t2(qtime)]} { set t2(qtime) 10 } elseif {$t2(qtime)<"5"} { set t2(qtime) 5 }
if {![TStrDig $t2(ptime)]} { set t2(ptime) 10 } elseif {$t2(ptime)<"5"} { set t2(ptime) 5 }
if {![TStrDig $t2(ktime)]} { set t2(ktime) 10 } elseif {$t2(ktime)<"5"} { set t2(ktime) 5 }
foreach ttmp(x) {qslow pslow rest} {
if {![TStrDig $t2($ttmp(x))] || $t2($ttmp(x))=="0"} { set t2($ttmp(x)) 0
} elseif {$t2($ttmp(x))<"5"} { set t2($ttmp(x)) 5 }
}
if {$t2(qslow)=="0" || $t2(pslow)=="0"} { set t2(qslow) 0 ; set t2(pslow) 0 ; set t2(rest) 0 }
if {$t2(qslow)<$t2(qtime) && $t2(qslow)>"0"} { set t2(qslow) $t2(qtime) }
if {$t2(pslow)<$t2(ptime) && $t2(pslow)>"0"} { set t2(pslow) $t2(ptime) }
if {$t2(rest)<$t2(qslow) && $t2(rest)>"0"} { set t2(rest) $t2(qslow) }
if {$t2(rest)<$t2(pslow) && $t2(rest)>"0"} { set t2(rest) $t2(pslow) }
if {$t2(kaos)>"0"} {
if {$t2(ktime)<$t2(qtime)} { set t2(ktime) $t2(qtime) }
}
if {![info exists t2(-htime)]} { set t2(-htime) $t2(qtime) }
if {![info exists t2(-ptime)]} { set t2(-ptime) $t2(ptime) }
if {![info exists t2(match)]} { set t2(match) 1 }
if {[string length $t2(match)]!="1" || ![TStrDig $t2(match)]} { set t2(match) 1 }
if {$t2(match)>"1"} { set t2(match) 1 }
if {![info exists t2(greet)]} { set t2(greet) 0 }
set ttmp(allg) "g-xflag g-xnick g-same G01 G02 G11 G21 G31 G81 G82 G83 G84 G85 G86"
append ttmp(allg) " G71 G72 G73 G74 G78 G79 G91 G92 G93 G94 G95 G96 G97 G98"
foreach ttmp(x) $ttmp(allg) {
if {![info exists t2($ttmp(x))]} { set t2($ttmp(x)) "" }
}
if {![info exists t2(g-say)]} { set t2(g-say) "" }
if {![info exists t2(g-fludsay)]} { set t2(g-fludsay) "" }
if {$t2(greet) ne "0"} { ;###### ALL ON-JOIN GREETING LANGUAGE TEXT ######
## greet 1 unknown person (publicly) ###
set t2(G01) {
%g
} ;## END - greet 1 unknown person (publicly) ###
## greet 1 unknown person (privatly) ###
set t2(G11) {
%g
} ;## END - greet 1 unknown person (privatly) ###
## greet multiple persons (always public) ###
set t2(G02) {
%g
} ;## END - greet multiple persons (always public) ###
## greet 1 known player (publicly) ###
set t2(G21) {
%g
%3 %n's Stats: %4 Points (answers) %d%w%mTotal Ever: %5 %e
} ;## END - greet 1 known player (publicly) ###
## greet 1 known player (privatly) ###
set t2(G31) {
%g
%3 Your Stats: %4 Points (answers) %d%w%mTotal Ever: %5 %e
} ;## END - greet 1 known player (privatly) ###
set t2(G71) "" ; set t2(G72) "" ; set t2(G73) "" ; set t2(G74) ""
set t2(G78) "" ; set t2(G79) "" ; set t2(G81) "" ; set t2(G82) ""
set t2(G83) "" ; set t2(G84) "" ; set t2(G85) "" ; set t2(G86) ""
set t2(G91) "Today: %5 #%rd %pd (%qd) %4 "
set t2(G92) ""
set t2(G93) "This Week: %5 #%rw %pw (%qw) %4 "
set t2(G94) ""
set t2(G95) "This Month: %5 #%rm %pm (%qm) %4 "
set t2(G96) ""
set t2(G97) "#%re %pe (%qe)"
set t2(G98) "none"
###### END - ALL ON-JOIN GREETING LANGUAGE TEXT ######
foreach ttmp(x) {g-say g-fludsay} { set ttmp(y) [split $t2($ttmp(x)) "\n"] ; set ttmp(z) ""
foreach ttmp(l) $ttmp(y) {
if {$ttmp(l) ne "" && $ttmp(l) ne " "} { lappend ttmp(z) $ttmp(l) }
}
set t2($ttmp(x)) $ttmp(z)
}
foreach ttmp(x) {G01 G11 G02 G21 G31} { set ttmp(y) [split $t2($ttmp(x)) "\n"] ; set ttmp(z) ""
if {$ttmp(x) eq "G02"} { set ttmp(g) $t2(g-fludsay) } else { set ttmp(g) $t2(g-say) }
foreach ttmp(l) $ttmp(y) {
if {$ttmp(l) ne "" && $ttmp(l) ne " "} {
if {[set ttmp(f) [string first %g $ttmp(l)]]>"-1"} {
if {[llength $ttmp(g)]>"1"} { set ttmp(num) 0
foreach ttmp(el) $ttmp(g) { incr ttmp(num)
if {$ttmp(num)=="1"} {
if {$ttmp(f)=="0"} { lappend ttmp(z) $ttmp(el)
} else { lappend ttmp(z) [string range $ttmp(l) 0 [expr {$ttmp(f)-1}]]$ttmp(el) }
} elseif {$ttmp(num)==[llength $ttmp(g)]} { incr ttmp(f)
if {$ttmp(f)==[string length $ttmp(l)]} { lappend ttmp(z) $ttmp(el)
} else { lappend ttmp(z) $ttmp(el)[string range $ttmp(l) [expr {$ttmp(f)+1}] end] }
} else { lappend ttmp(z) $ttmp(el) }
}
} else { lappend ttmp(z) [string map[list %g [join $ttmp(g)]] $ttmp(l)] }
} else { lappend ttmp(z) $ttmp(l) }
}
}
set t2($ttmp(x)) $ttmp(z)
}
}
unset t2(g-say) t2(g-fludsay)
foreach ttmp(x) {gr1 gr2 gstat gsta2 gsta3} {
if {![info exists tscl($ttmp(x))]} { set tscl($ttmp(x)) "" }
}
if {[string length $t2(greet)]!="1" || ![TStrDig $t2(greet)]} { set t2(greet) 0 }
if {$t2(greet)>"0"} {
if {$t2(greet)>"4"} { set t2(greet) 3 }
if {$t2(greet)<"3" && $t2(G11) eq "" && $t2(G31) eq ""} { set t2(greet) 0 }
if {$t2(greet)>"2" && $t2(G01) eq "" && $t2(G21) eq ""} { set t2(greet) 0 }
}
if {$t2(greet)=="0"} {
foreach ttmp(x) $ttmp(allg) { unset t2($ttmp(x)) }
unset tscl(gr1) tscl(gr2) tscl(gstat) tscl(gsta2) tscl(gsta3)
if {[info exists t2(-gls)]} { unset t2(-gls) t2(-lastgnk) t2(-lastgut) }
}
foreach ttmp(x) {voice v-top3 v-top10 v-min v-how v-op} {
if {![info exists t2($ttmp(x))]} { set t2($ttmp(x)) 0 }
}
foreach ttmp(x) {v-xflag v-xnick v-max v-mhow v-msg V01 V02 V11 V21 V31 V81 V82 V83 V84 V85 V86 V91 V92 V93} {
if {![info exists t2($ttmp(x))]} { set t2($ttmp(x)) "" }
}
foreach ttmp(x) {vo1 vo2 vo3 vo4} {
if {![info exists tscl($ttmp(x))]} { set tscl($ttmp(x)) "" }
}
if {$t2(voice) ne "0" && $t2(v-how) ne "0"} { ;##### ALL SAY PLAYER WAS VOICED LANGUAGE TEXT #####
## say voiced 1 player on-join (publicly) ###
set t2(V01) {
%4 ->%2 %n %1has been%2 Auto-Voiced %1 for being a%3 %z Top %y Player %1!!! %4<-
} ;## END - say voiced 1 player on-join (publicly) ###
## say voiced 1 player on-join (privatly) ###
set t2(V11) {
%4 ->%2 You %1have been%2 Auto-Voiced %1 for being a%3 %z Top %y Player %1!!! %4<-
} ;## END - say voiced 1 player on-join (privatly) ###
## say voiced multiple players on-join (always public) ###
set t2(V02) {
%4 ->%2 [%n] %1have been%2 Auto-Voiced %1 for being%3 %z Top %y Players %1!!! %4<-
} ;## END - say voiced multiple players on-join (always public) ###
## say voiced 1 active player (publicly) ###
set t2(V21) {
%4 ->%2 %n %1has been%2 Auto-Voiced %1 for being a%3 %z Top %y Player %1!!! %4<-
} ;## END - say voiced 1 active player (publicly) ###
## say voiced 1 active player (privatly) ###
set t2(V31) {
%4 ->%2 You %1have been%2 Auto-Voiced %1 for being a%3 %z Top %y Player %1!!! %4<-
} ;## END - say voiced 1 active player (privatly) ###
set t2(V81) "" ; set t2(V82) "" ; set t2(V83) ""
set t2(V84) "" ; set t2(V85) "" ; set t2(V86) ""
set t2(V91) "/"
set t2(V92) "Weekly"
set t2(V93) "Monthly"
###### END - ALL SAY PLAYER WAS VOICED LANGUAGE TEXT ######
foreach ttmp(x) {V01 V11 V02 V21 V31} { set ttmp(y) [split $t2($ttmp(x)) "\n"] ; set ttmp(z) ""
foreach ttmp(l) $ttmp(y) {
if {$ttmp(l) ne "" && $ttmp(l) ne " "} { lappend ttmp(z) $ttmp(l) }
}
set t2($ttmp(x)) $ttmp(z)
}
}
if {[string length $t2(voice)]!="1" || ![TStrDig $t2(voice)]} { set t2(voice) 0 }
if {[string length $t2(v-top3)]!="1" || ![TStrDig $t2(v-top3)]} { set t2(v-top3) 3 }
if {[string length $t2(v-top10)]!="1" || ![TStrDig $t2(v-top10)]} { set t2(v-top10) 0 }
if {$t2(v-top3)=="0" && $t2(v-top10)=="0"} { set t2(voice) 0 }
if {$t2(voice)>"3"} { set t2(voice) 3 }
if {$t2(voice)>"0"} {
if {![TStrDig $t2(v-min)]} { set t2(v-min) 0 }
if {[string length $t2(v-how)]!="1" || ![TStrDig $t2(v-how)]} { set t2(v-how) 0 }
if {[string length $t2(v-op)]!="1" || ![TStrDig $t2(v-op)]} { set t2(v-op) 0 }
if {$t2(v-top3)>"3"} { set t2(v-top3) 3 }
if {$t2(v-top10)>"3"} { set t2(v-top10) 3 }
if {$t2(v-how)>"4"} { set t2(v-how) 3 }
if {$t2(v-op)>"3"} { set t2(v-op) 3 }
if {$t2(v-how)>"0"} {
if {$t2(v-how)<"3" && $t2(V11) eq "" && $t2(V31) eq ""} { set t2(v-how) 0 }
if {$t2(v-how)>"2" && $t2(V01) eq "" && $t2(V21) eq ""} { set t2(v-how) 0 }
}
if {$t2(v-how)=="0"} { array set t2 {V01 "" V11 "" V21 "" V31 "" V02 ""}
unset t2(V81) t2(V82) t2(V83) t2(V84) t2(V85) t2(V86) t2(V91) t2(V92) t2(V93)
unset tscl(vo1) tscl(vo2) tscl(vo3) tscl(vo4)
}
} else { array unset t2 v-* ; unset t2(V01) t2(V11) t2(V21) t2(V31) t2(V02)
unset t2(V81) t2(V82) t2(V83) t2(V84) t2(V85) t2(V86) t2(V91) t2(V92) t2(V93)
unset tscl(vo1) tscl(vo2) tscl(vo3) tscl(vo4)
if {[info exists t2(-vls)]} { unset t2(-vls) t2(-lastvnk) t2(-lastvut) }
if {[info exists t2(-sayvls)]} { unset t2(-sayvls) }
}
if {![info exists t2(autostart)]} { set t2(autostart) 0 }
foreach ttmp(x) {a-xflag a-xnick a-delay A01 A11} {
if {![info exists t2($ttmp(x))]} { set t2($ttmp(x)) "" }
}
if {$t2(autostart) ne "0"} { ;###### ALL ON-JOIN AUTO START LANGUAGE TEXT ######
## Trivia starting in 'x' seconds, get ready!!! (public) ###
set t2(A01) {%1 BogusTrivia starting in %x seconds, get ready!!! }
###### END - ALL ON-JOIN AUTO START LANGUAGE TEXT ######
set t2(A11) {}
foreach ttmp(x) {A01 A11} { set ttmp(y) [split $t2($ttmp(x)) "\n"] ; set ttmp(z) ""
foreach ttmp(l) $ttmp(y) {
if {$ttmp(l) ne "" && $ttmp(l) ne " "} { lappend ttmp(z) $ttmp(l) }
}
set t2($ttmp(x)) $ttmp(z)
}
}
foreach ttmp(x) {as1 as2} {
if {![info exists tscl($ttmp(x))]} { set tscl($ttmp(x)) "" }
}
if {[string length $t2(autostart)]!="1" || ![TStrDig $t2(autostart)]} { set t2(autostart) 0 }
if {$t2(autostart)>"3"} { set t2(autostart) 2 }
if {$t2(autostart)>"0" && $t2(qslow)>"0" && $t2(rest)>"0"} { set t2(autostart) 0 }
if {$t2(autostart)=="0"} { unset t2(a-xflag) t2(a-xnick) t2(a-delay) t2(a-same) t2(A01) t2(A11)
unset tscl(as1) tscl(as2)
if {[info exists t2(-aoff)]} { unset t2(-aoff) t2(-als) t2(-lastank) t2(-lastaut) }
}
if {![info exists t2(pubcmd)] || ![TStrDig $t2(pubcmd)]} { set t2(pubcmd) 0 }
set ttmp(all)[list p-gflag p-mystat p-owner p-tflag p-top-d p-t20-d p-tmor-d p-tmax-d p-top-w p-t20-w]
lappend ttmp(all) p-tmor-w p-tmax-w p-top-m p-t20-m p-tmor-m p-tmax-m p-top-e p-t20-e p-tmor-e p-tmax-e
lappend ttmp(all) P01 P02 P03 P04 P11 P12 P13 P14 P21 P22 P23 P24 P31 P32 P33 P34
lappend ttmp(all) P41 P50 P51 P52 P53 P54 P55 P56 P57 P58 P59
foreach ttmp(x) $ttmp(all) {
if {![info exists t2($ttmp(x))]} { set t2($ttmp(x)) "" }
}
if {$t2(pubcmd)>"0"} { ;###### ALL PUBLIC COMMANDS LANGUAGE TEXT ######
## Top 10 players taday ###
set t2(P01) {%1 TODAYS Top 10 - %x}
## Top 11-20 players taday ###
set t2(P02) {%1 TODAYS Top 11-20: - %x}
## Top daily players above 20 ###
set t2(P03) {%1 TODAYS Top %s-%e: - %x}
## Top daily players - stats for each nick ###
set t2(P04) {%2 \002#%r:\002 %3 %n %p }
## Top 10 players this week ###
set t2(P11) {%1 This WEEKS Top 10 - %x}
## Top 11-20 players this week ###
set t2(P12) {%1 This WEEKS Top 11-20: - %x}
## Top weekly players above 20 ###
set t2(P13) {%1 This WEEKS Top %s-%e: - %x}
## Top weekly players - stats for each nick ###
set t2(P14) {%2 \002#%r:\002 %3 %n %p }
## Top 10 players this month ###
set t2(P21) {%1 This MONTHS Top 10 - %x}
## Top 11-20 players this month ###
set t2(P22) {%1 This MONTHS Top 11-20: - %x}
## Top monthly players above 20 ###
set t2(P23) {%1 This MONTHS Top %s-%e: - %x}
## Top monthly players - stats for each nick ###
set t2(P24) {%2 \002#%r:\002 %3 %n %p }
## Top 10 players ever ###
set t2(P31) {%1 TOP 10 PLAYERS - %x}
## Top 11-20 players ever ###
set t2(P32) {%1 Top PLAYERS 11-20: - %x}
## Top players ever above 20 ###
set t2(P33) {%1 Top PLAYERS %s-%e: - %x}
## Top players ever - stats for each nick ###
set t2(P34) {%2 \002#%r:\002 %3 %n %p }
## !owner reply text ###
set t2(P41) {%1 %s v%v by %a -
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
## !mystats reply to known player ###
set t2(P50) {%1 %n's Stats: %2 Points (answers) %d%w%mTotal Ever: %3 %e }
## !mystats reply to unknown player (set empty to not reply to unknown player) ###
set t2(P51) {}
set t2(P52) "Today: %3 #%rd %pd (%qd) %2 "
set t2(P53) ""
set t2(P54) "This Week: %3 #%rw %pw (%qw) %2 "
set t2(P55) ""
set t2(P56) "This Month: %3 #%rm %pm (%qm) %2 "
set t2(P57) ""
set t2(P58) "#%re %pe (%qe)"
set t2(P59) "none"
###### END - ALL PUBLIC COMMANDS LANGUAGE TEXT ######
foreach ttmp(x) {P01 P02 P03 P04 P11 P12 P13 P14 P21 P22 P23 P24 P31 P32 P33 P34 P41 P50 P51 P52 P53 P54 P55 P56 P57 P58 P59} {
set ttmp(y) [split $t2($ttmp(x)) "\n"] ; set ttmp(z) ""
foreach ttmp(l) $ttmp(y) {
if {$ttmp(l) ne "" && $ttmp(l) ne " "} { lappend ttmp(z) $ttmp(l) }
}
set t2($ttmp(x)) $ttmp(z)
}
}
if {$t2(pubcmd)>"0"} {
if {$t2(p-top-d) ne "" && $t2(P01) ne "" && $t2(P04) ne ""} {
if {$t2(p-t20-d) ne "" && $t2(P02) ne ""} {
if {![TStrDig $t2(p-tmax-d)] || $t2(p-tmax-d)<"21"} { set t2(p-tmax-d) 0 }
if {$t2(p-tmax-d)>"0" && [string index $t2(p-tmax-d) end]>"0"} {
set ttmp(x) [string range $t2(p-tmax-d) 0 end-1] ; incr ttmp(x) ; set t2(p-tmax-d) $ttmp(x)0
}
if {$t2(p-tmor-d) ne "" && $t2(P03) ne "" && $t2(p-tmax-d)>"0"} {
} else { set t2(p-tmor-d) "" ; unset t2(P03) t2(p-tmax-d) }
} else { array set t2 {p-t20-d "" p-tmor-d ""} ; unset t2(P02) t2(P03) t2(p-tmax-d) }
} else { set t2(p-top-d) "" ; unset t2(P01) t2(P02) t2(P03) t2(P04) t2(p-t20-d) t2(p-tmor-d) t2(p-tmax-d) }
if {$t2(p-top-w) ne "" && $t2(P11) ne "" && $t2(P14) ne ""} {
if {$t2(p-t20-w) ne "" && $t2(P12) ne ""} {
if {![TStrDig $t2(p-tmax-w)] || $t2(p-tmax-w)<"21"} { set t2(p-tmax-w) 0 }
if {$t2(p-tmax-w)>"0" && [string index $t2(p-tmax-w) end]>"0"} {
set ttmp(x) [string range $t2(p-tmax-w) 0 end-1] ; incr ttmp(x) ; set t2(p-tmax-w) $ttmp(x)0
}
if {$t2(p-tmor-w) ne "" && $t2(P13) ne "" && $t2(p-tmax-w)>"0"} {
} else { set t2(p-tmor-w) "" ; unset t2(P13) t2(p-tmax-w) }
} else { array set t2 {p-t20-w "" p-tmor-w ""} ; unset t2(P12) t2(P13) t2(p-tmax-w) }
} else { set t2(p-top-w) "" ; unset t2(P11) t2(P12) t2(P13) t2(P14) t2(p-t20-w) t2(p-tmor-w) t2(p-tmax-w) }
if {$t2(p-top-m) ne "" && $t2(P21) ne "" && $t2(P24) ne ""} {
if {$t2(p-t20-m) ne "" && $t2(P22) ne ""} {
if {![TStrDig $t2(p-tmax-m)] || $t2(p-tmax-m)<"21"} { set t2(p-tmax-m) 0 }
if {$t2(p-tmax-m)>"0" && [string index $t2(p-tmax-m) end]>"0"} {
set ttmp(x) [string range $t2(p-tmax-m) 0 end-1] ; incr ttmp(x) ; set t2(p-tmax-m) $ttmp(x)0
}
if {$t2(p-tmor-m) ne "" && $t2(P23) ne "" && $t2(p-tmax-m)>"0"} {
} else { set t2(p-tmor-m) "" ; unset t2(P23) t2(p-tmax-m) }
} else { array set t2 {p-t20-m "" p-tmor-m ""} ; unset t2(P22) t2(P23) t2(p-tmax-m) }
} else { set t2(p-top-m) "" ; unset t2(P21) t2(P22) t2(P23) t2(P24) t2(p-t20-m) t2(p-tmor-m) t2(p-tmax-m) }
if {$t2(p-top-e) ne "" && $t2(P31) ne "" && $t2(P34) ne ""} {
if {$t2(p-t20-e) ne "" && $t2(P32) ne ""} {
if {![TStrDig $t2(p-tmax-e)] || $t2(p-tmax-e)<"21"} { set t2(p-tmax-e) 0 }
if {$t2(p-tmax-e)>"0" && [string index $t2(p-tmax-e) end]>"0"} {
set ttmp(x) [string range $t2(p-tmax-e) 0 end-1] ; incr ttmp(x) ; set t2(p-tmax-e) $ttmp(x)0
}
if {$t2(p-tmor-e) ne "" && $t2(P33) ne "" && $t2(p-tmax-e)>"0"} {
} else { set t2(p-tmor-e) "" ; unset t2(P33) t2(p-tmax-e) }
} else { array set t2 {p-t20-e "" p-tmor-e ""} ; unset t2(P32) t2(P33) t2(p-tmax-e) }
} else { set t2(p-top-e) "" ; unset t2(P31) t2(P32) t2(P33) t2(P34) t2(p-t20-e) t2(p-tmor-e) t2(p-tmax-e) }
if {$t2(p-owner) ne "" && $t2(P41) ne ""} {
} else { set t2(p-owner) "" ; unset t2(P41) }
if {$t2(p-mystat) ne "" && $t2(P50) ne ""} {
} else { set t2(p-mystat) "" ; unset t2(P50) t2(P51) t2(P52) t2(P53) t2(P54) t2(P55) t2(P56) t2(P57) t2(P58) t2(P59) }
if {$t2(p-top-d) eq "" && $t2(p-top-w) eq "" && $t2(p-top-m) eq "" && $t2(p-top-e) eq ""} {
if {$t2(p-owner) eq "" && $t2(p-mystat) eq ""} {
set t2(pubcmd) 0
}
}
}
if {$t2(pubcmd)<"1"} { lappend ttmp(all) -ptrigls -ptrigl2
foreach ttmp(x) $ttmp(all) {
if {[info exists t2($ttmp(x))]} { unset t2($ttmp(x)) }
}
}
foreach ttmp(x) [binds TJoin] {
foreach {ttmp(t) ttmp(f) ttmp(n) ttmp(h) ttmp(p)} $ttmp(x) { break }
unbind $ttmp(t) $ttmp(f) $ttmp(n) $ttmp(p)
}
foreach ttmp(x) [binds TPubTrig] {
foreach {ttmp(t) ttmp(f) ttmp(n) ttmp(h) ttmp(p)} $ttmp(x) { break }
unbind $ttmp(t) $ttmp(f) $ttmp(n) $ttmp(p)
}
if {$t2(voice)=="1" || $t2(voice)=="3" || $t2(greet)>"0" || $t2(autostart)>"0"} {
set t2(_cm) j ; source $t2(sfpath)t2.commands
} else {
foreach ttmp(x) {jflud jqtime jftime -jcnt -jflud -wasjflud -jtimer -jqtimr -jls} {
if {[info exists t2($ttmp(x))]} { unset t2($ttmp(x)) }
}
}
set t2(recsiz) 15 ; set t2(-stats) 0
if {$t2(voice)>"0"} { set t2(_cm) s }
if {![info exists t2(_cm)] && $t2(greet)>"0"} {
foreach ttmp(x) {G01 G11 G21 G31 G02} {
if {[string match {*%[adehmpqrw]*} $t2($ttmp(x))]} { set t2(_cm) s ; break }
}
}
if {![info exists t2(_cm)] && $t2(pubcmd)>"0"} {
if {$t2(p-top-d) ne "" || $t2(p-top-w) ne "" || $t2(p-top-m) ne "" || $t2(p-top-e) ne ""} { set t2(_cm) s }
if {![info exists t2(_cm)] && $t2(p-mystat) ne ""} {
if {[string match {*%[dempqrw]*} $t2(P50)]} { set t2(_cm) s }
}
}
if {[info exists t2(_cm)]} { source $t2(sfpath)t2.commands } else { array unset t2 S-* }
if {$t2(-stats)>"0"} { set t2(recsiz) 1 }
if {$t2(greet)>"0" || $t2(voice)>"0" || $t2(autostart)>"0" || $t2(pubcmd)>"0"} {
set t2(_cm) c ; source $t2(sfpath)t2.commands }
if {![info exists t2(givansr)]} { set t2(givansr) "1" }
if {![info exists t2(givkaos)]} { set t2(givkaos) "1" }
set t2(days1) "" ; set t2(days2) "" ; set t2(mons1) "" ; set t2(mons2) ""
##################################################
######### Translate Day & Month Names ##########
### ###
### Remove the # from the lines below and ###
### edit each name in the list. ###
### ###
## -> To use the defaults, don't edit these! <- ##
##################################################
#set t2(days1) {
#MONDAY
#TUESDAY
#WEDNESDAY
#THURSDAY
#FRIDAY
#SATURDAY
#SUNDAY
#}
#set t2(days2) {
#Monday
#Tuesday
#Wednesday
#Thursday
#Friday
#Saturday
#Sunday
#}
#set t2(mons1) {
#JANUARY
#FEBRUARY
#MARCH
#APRIL
#MAY
#JUNE
#JULY
#AUGUST
#SEPTEMBER
#OCTOBER
#NOVEMBER
#DECEMBER
#}
#set t2(mons2) {
#January
#February
#March
#April
#May
#June
#July
#August
#September
#October
#November
#December
#}
##################################################
####### END Translate Day & Month Names ########
##################################################
foreach ttmp(var) {days1 days2 mons1 mons2} {
if {$t2($ttmp(var)) ne ""} {
set ttmp(is) [split $t2($ttmp(var)) "\n"] ; set ttmp(new) ""
foreach ttmp(item) $ttmp(is) { set ttmp(item) [string trim $ttmp(item)]
if {$ttmp(item) ne ""} { lappend ttmp(new) $ttmp(item) }
}
if {[string match d* $ttmp(var)]} {
if {[llength $ttmp(new)]=="7"} { set t2($ttmp(var)) [linsert $ttmp(new) 0 0]
} else { set t2($ttmp(var)) "" }
} else {
if {[llength $ttmp(new)]=="12"} { set t2($ttmp(var)) [linsert $ttmp(new) 0 0]
} else { set t2($ttmp(var)) "" }
}
}
}
if {$t2(randad)>"0"} {
set t2(rndlin) [split $t2(rndlin) "\n"] ; set ttmp(rls) ""
foreach ttmp(temp) $t2(rndlin) {
if {$ttmp(temp) ne "" && $ttmp(temp) ne " "} { lappend ttmp(rls) $ttmp(temp) }
}
set t2(rndlin) $ttmp(rls)
if {[llength $t2(rndlin)]=="0"} { set t2(randad) 0 }
} elseif {$t2(randad)=="0"} { set t2(rndlin) "" }
if {![info exists t2(-ison)]} { set t2(-ison) 0 }
if {![info exists t2(-active)]} { set t2(-active) "" }
if {![info exists t2(-qtimer)]} { set t2(-qtimer) "" }
if {![info exists t2(-otimer)]} { set t2(-otimer) "" }
if {![info exists t2(-abound)]} { set t2(-abound) 0 }
if {![info exists t2(-a2bound)]} { set t2(-a2bound) 0 }
if {![info exists t2(-qbound)]} { set t2(-qbound) 0 }
if {![info exists t2(-hbound)]} { set t2(-hbound) 0 }
if {![info exists t2(-reply)]} { set t2(-reply) "" }
if {![info exists t2(-newfiles)]} { set t2(-newfiles) "" }
if {![info exists t2(-openbad)]} { set t2(-openbad) "" }
if {![info exists t2(-iskaos)]} { set t2(-iskaos) 0 }
proc TDoClr {} { global t2 tclr tscl ; set t2(-endclr) "\003"
if {$t2(custclr)=="1"} {
if {$tscl(same)=="1"} { set tmp[list w10 $tscl(d10) w11 $tscl(d11) w12 $tscl(d12)]
lappend tmp m10 $tscl(d10) m11 $tscl(d11) m12 $tscl(d12)
lappend tmp e10 $tscl(d10) e11 $tscl(d11) e12 $tscl(d12)
array set tscl $tmp
}
if {$tscl(ksame)=="1"} { set tmp[list khnt $tscl(hint) khnt2 $tscl(hint2)]
lappend tmp kpnt1 $tscl(pnt1) kpnt2 $tscl(pnt2)
lappend tmp ktu $tscl(tu1) ktu2 $tscl(tu2) kng $tscl(tu1)
lappend tmp kstat $tscl(pnt2) ksta2 $tscl(pnt1) kbon $tscl(bonus) kbon2 $tscl(bon2)
array set tscl $tmp
}
unset tscl(same) tscl(ksame)
foreach {cn cs} [array get tscl] {
if {$cs eq ""} { set tclr(-$cn) "\003"
} else { set err 0
if {[string match *,* $cs]} { set cs [split $cs ,] }
if {[llength $cs]>"2"} { set err 1
} else { set new ""
foreach num $cs {
if {[TStrDig $num]=="0"} { set err 2 ; break
} elseif {[string length $num]>"2"} { set err 3 ; break
} elseif {$num>"15"} { set err 4 ; break
} else {
if {[string length $num]=="1"} { set num "0$num" }
if {$new eq ""} { set new "\003$num" } else { append new "," $num }
}
}
}
if {$err=="0"} { set tclr(-$cn) $new } else { set tclr(-$cn) "\003" }
}
}
if {$tclr(-qt) eq "\003"} { set t2(randfil) 0 ; set tclr(-qt) "" ; set tclr(-qs) ""
} elseif {[string match *,* $tclr(-qt)]=="0"} { set t2(randfil) 0 ; set tclr(-qs) ""
} else { set tmp [string range $tclr(-qt) end-1 end] ; set tclr(-qs) "\003$tmp,$tmp" }
} elseif {$t2(color)=="2"} {
array set tclr {-pnt1 \00312 -pnt2 "" -bonus \00300,04 -bon2 ""
-qt \00300,02 -qs \00302,02 -hint \00300,02 -hint2 "" -hnt1 \00312 -hnt2 \002
-tu1 \00304 -tu2 \00312 -randad \00300,01
-khnt \00300,02 -khnt2 "" -kpnt1 \00312 -kpnt2 ""
-ktu \00312 -ktu2 \00304 -kng \00312
-kstat \00312 -ksta2 \00304 -kbon \00300,04 -kbon2 ""
-d10 \00308,02 -d11 "" -d12 "" -w10 \00308,02 -w11 "" -w12 ""
-m10 \00308,02 -m11 "" -m12 "" -e10 \00308,02 -e11 "" -e12 ""}
} elseif {$t2(color)=="3"} {
array set tclr {-pnt1 \00312 -pnt2 "" -bonus \00300,04 -bon2 ""
-qt \00301,09 -qs \00309,09 -hint \00301,09 -hint2 "" -hnt1 \00312 -hnt2 \002
-tu1 \00304 -tu2 \00312 -randad \00301,08
-khnt \00301,09 -khnt2 "" -kpnt1 \00312 -kpnt2 ""
-ktu \00312 -ktu2 \00304 -kng \00312
-kstat \00312 -ksta2 \00304 -kbon \00300,04 -kbon2 ""
-d10 \00301,08 -d11 \00301,08 -d12 \00300,04 -w10 \00300,04 -w11 \00300,04 -w12 \00301,08
-m10 \00301,08 -m11 \00301,08 -m12 \00300,04 -e10 \00300,04 -e11 \00300,04 -e12 \00301,08}
} elseif {$t2(color)=="4"} {
array set tclr {-pnt1 \00314 -pnt2 \00306 -bonus \00300,14 -bon2 ""
-qt \00315,06 -qs \00306,06 -hint \00315,06 -hint2 "" -hnt1 \00315,06 -hnt2 ""
-tu1 \00306 -tu2 \00314 -randad \00300,14
-khnt \00315,06 -khnt2 "" -kpnt1 \00314 -kpnt2 \00306
-ktu \00306 -ktu2 \00314 -kng \00306
-kstat \00314 -ksta2 \00306 -kbon \00300,14 -kbon2 ""
-d10 \00306,15 -d11 \00314,15 -d12 \00306,15 -w10 \00306,15 -w11 \00306,15 -w12 \00314,15
-m10 \00306,15 -m11 \00314,15 -m12 \00306,15 -e10 \00306,15 -e11 \00306,15 -e12 \00314,15}
} elseif {$t2(color)=="5"} {
array set tclr {-pnt1 \00305 -pnt2 \00314 -bonus \00305,15 -bon2 \00314,15
-qt \00315,05 -qs \00305,05 -hint \00315,05 -hint2 "" -hnt1 \00315,05 -hnt2 "\00300,05"
-tu1 \00305 -tu2 \00314 -randad \00300,14
-khnt \00315,05 -khnt2 "" -kpnt1 \00305 -kpnt2 \00314
-ktu \00305 -ktu2 \00314 -kng \00305
-kstat \00305 -ksta2 \00314 -kbon \00305,15 -kbon2 \00314,15
-d10 \00305,15 -d11 \00314,15 -d12 \00305,15 -w10 \00305,15 -w11 \00305,15 -w12 \00314,15
-m10 \00305,15 -m11 \00314,15 -m12 \00305,15 -e10 \00305,15 -e11 \00305,15 -e12 \00314,15}
} elseif {$t2(color)=="6"} {
array set tclr {-pnt1 \003 -pnt2 \00307 -bonus \00301,07 -bon2 ""
-qt \00307,01 -qs \00301,01 -hint \00307,01 -hint2 "" -hnt1 \00307,01 -hnt2 ""
-tu1 \00307 -tu2 \003 -randad \00300,01
-khnt \00307,01 -khnt2 "" -kpnt1 \003 -kpnt2 \00307
-ktu \00307 -ktu2 \003 -kng \00307
-kstat \003 -ksta2 \00307 -kbon \00301,07 -kbon2 ""
-d10 \00300,01 -d11 \00307,01 -d12 \00307,01 -w10 \00300,01 -w11 \00307,01 -w12 \00307,01
-m10 \00300,01 -m11 \00307,01 -m12 \00307,01 -e10 \00300,01 -e11 \00307,01 -e12 \00307,01}
} elseif {$t2(color)=="7"} {
array set tclr {-pnt1 \00310 -pnt2 \00302 -bonus \00310 -bon2 \00304
-qt \00309,02 -qs \00302,02 -hint \00308,02 -hint2 \00309,02 -hnt1 \00308,02 -hnt2 ""
-tu1 \00303 -tu2 \00302 -randad \00301,08
-khnt \00308,02 -khnt2 \00309,02 -kpnt1 \00310 -kpnt2 \00302
-ktu \00303 -ktu2 \00302 -kng \00303
-kstat \00302 -ksta2 \00310 -kbon \00310 -kbon2 \00304
-d10 \00308,02 -d11 \00309,02 -d12 \00308,02 -w10 \00308,02 -w11 \00309,02 -w12 \00308,02
-m10 \00308,02 -m11 \00309,02 -m12 \00308,02 -e10 \00308,02 -e11 \00309,02 -e12 \00308,02}
} elseif {$t2(color)=="8"} {
array set tclr {-pnt1 \00307 -pnt2 \00305 -bonus \00307 -bon2 \00305
-qt \00301,15 -qs \00315,15 -hint \00305,15 -hint2 \00301,15 -hnt1 \00305,15 -hnt2 ""
-tu1 \00305 -tu2 \00307 -randad \00300,01
-khnt \00305,15 -khnt2 \00301,15 -kpnt1 \00307 -kpnt2 \00305
-ktu \00305 -ktu2 \00307 -kng \00305
-kstat \00305 -ksta2 \00307 -kbon \00307 -kbon2 \00305
-d10 \00315,01 -d11 \00307,01 -d12 \00315,01 -w10 \00315,01 -w11 \00307,01 -w12 \00315,01
-m10 \00315,01 -m11 \00307,01 -m12 \00315,01 -e10 \00315,01 -e11 \00307,01 -e12 \00315,01}
} elseif {$t2(color)=="0"} { set t2(-endclr) ""
array set tclr {-pnt1 "" -pnt2 "" -bonus "" -bon2 ""
-qt "" -qs "" -hint "" -hint2 "" -hnt1 "" -hnt2 ""
-tu1 "" -tu2 "" -randad "" -khnt "" -khnt2 "" -kpnt1 "" -kpnt2 ""
-ktu "" -ktu2 "" -kng "" -kstat "" -ksta2 "" -kbon "" -kbon2 ""
-d10 "" -d11 "" -d12 "" -w10 "" -w11 "" -w12 "" -m10 "" -m11 "" -m12 "" -e10 "" -e11 "" -e12 ""}
} else {
array set tclr {-pnt1 \003 -pnt2 \00310 -bonus \003 -bon2 \00310
-qt \00300,10 -qs \00310,10 -hint \00300,10 -hint2 "" -hnt1 \00300,10 -hnt2 ""
-tu1 \003 -tu2 \00310 -randad \00300,01
-khnt \00300,10 -khnt2 "" -kpnt1 \003 -kpnt2 \00310
-ktu \00310 -ktu2 \003 -kng \00310
-kstat \003 -ksta2 \00310 -kbon \003 -kbon2 \00310
-d10 \00300,10 -d11 \00308,10 -d12 \00300,10 -w10 \00300,10 -w11 \00308,10 -w12 \00300,10
-m10 \00300,10 -m11 \00308,10 -m12 \00300,10 -e10 \00300,10 -e11 \00308,10 -e12 \00300,10}
}
if {$t2(custclr)!="1" && ($t2(greet)>"0" || $t2(voice)>"0" || $t2(autostart)>"0" || $t2(pubcmd)>"0")} { TDOMorClr }
array unset tscl
}
TDoClr
#### Do Not Change These ####
set tclr(-msg) \00310 ; set tclr(-emsg) \003 ; set t2(setupnik) ""
set t2(newfil) *triv* ; set t2(layout) q*a ; set t2(dflag) m|m
set t2(hntcnt) 3 ; set t2(tflag) o|o ; set t2(evusrs) 30
set t2(fast) .fast ; set t2(slow) .slow ; set t2(actvsiz) 30
set t2(keepda) 7 ; set t2(keepwe) 4 ; set t2(keepmo) 4
set t2(keephi) 1200 ; set t2(dausrs) "30 20"
set t2(weusrs) "30 20" ; set t2(mousrs) "30 20"
set double-server 1 ;## force eggdrop conf setting ##
proc TSavHist { {wat 0} } { global t2 tclr botnick nick ; set isnew 0 ; set hflver 2
if {![file exists $t2(sfpath)t2.hist]} { TDoHInfo ; set isnew 1
} elseif {$wat=="1"} { set y [open $t2(sfpath)t2.hist] ; set z [gets $y] ; close $y
if {[string match ::N:* $z]} {
if {![file exists $t2(sfpath)t2.commands]} { set hflver 1
} else { set open [open $t2(sfpath)t2.commands]
set cver [string range [gets $open] 3 6] ; close $open
if {![TStrDig $cver] || $cver<"2063"} { set hflver 1
} else { set t2(_cm) h ; source $t2(sfpath)t2.commands }
}
}
}
if {$wat>"0"} {
if {[file exists $t2(sfpath)t2.recent]} { TSavUsers 1 }
set tusfile [open $t2(sfpath)t2.users] ; set tulin0 [gets $tusfile]
foreach {nt d10 dt w10 wt m10 mt e10 uc} $tulin0 { break }
set doda 0 ; set dowe 0 ; set domo 0 ; set doev 0
set dals "" ; set wels "" ; set mols "" ; set evls ""
if {$wat=="1"} { set wls [TFigurWe 1 $wt] ; set toda [strftime %j]
if {[strftime %j $dt]!=$toda} { set doda 1
if {[lsearch -exact $wls $toda]=="-1"} { set dowe 1 }
if {[strftime %m]!=[strftime %m $mt]} { set domo 1 }
set xdals "" ; set xwels "" ; set xmols ""
set dells "" ; set oldusr 0
if {$t2(oldusr)>"0"} { if {$t2(oldusr)<"45"} { set t2(oldusr) 45 }
set oldusr [expr {[unixtime]-($t2(oldusr)*86400)}] }
} else { close $tusfile ; return 0 }
set tutmpfil [open $t2(sfpath)t2.usr.tmp w]
} else {
if {$t2(-shoda10)=="1"} { set doda 1 ; set t2(-shoda10) 0
} elseif {$t2(-showe10)=="1"} { set dowe 1 ; set t2(-showe10) 0
} elseif {$t2(-shomo10)=="1"} { set domo 1 ; set t2(-shomo10) 0
} elseif {$t2(-shoev10)=="1"} { set doev 1 ; set t2(-shoev10) 0 }
}
set delrest 0 ; set lincnt 0
while {![eof $tusfile]} { set temp [gets $tusfile]
if {$temp != ""} { set temp [split $temp]
foreach {nk hn uh tp tc wp wc mp mc ep ec at st n2 u2} $temp { break }
if {$delrest>"0"} { incr delrest
} elseif {$wat=="1"} {
if {$st<$oldusr} { incr delrest ; set delrsn 1
} elseif {$lincnt==$t2(usrmax)} { incr delrest ; set delrsn 2 }
}
if {$delrest>"0"} { lappend delrsn $nk $hn $uh $at $st ; continue }
if {$doda=="1"} {
if {$tp>=$d10 && $tp>"0"} { lappend dals[list $tp $tc $nk $hn $uh]
} elseif {$wat=="1" && $tp>"0"} { lappend xdals[list $tp $tc $nk $hn $uh] }
if {$wat=="1"} { set tp 0 ; set tc 0 }
}
if {$dowe=="1"} {
if {$wp>=$w10 && $wp>"0"} { lappend wels[list $wp $wc $nk $hn $uh]
} elseif {$wat=="1" && $wp>"0"} { lappend xwels[list $wp $wc $nk $hn $uh] }
if {$wat=="1"} { set wp 0 ; set wc 0 }
}
if {$domo=="1"} {
if {$mp>=$m10 && $mp>"0"} { lappend mols[list $mp $mc $nk $hn $uh]
} elseif {$wat=="1" && $mp>"0"} { lappend xmols[list $mp $mc $nk $hn $uh] }
if {$wat=="1"} { set mp 0 ; set mc 0 }
}
if {$doev=="1"} {
if {$ep>=$e10} { lappend evls[list $ep $ec $nk $hn $uh] }
}
if {$wat=="1"} { incr lincnt
puts $tutmpfil "$nk $hn $uh $tp $tc $wp $wc $mp $mc $ep $ec $at $st $n2 $u2"
}
}
}
close $tusfile
if {$wat=="1"} { set uc $lincnt
if {$delrest>"0"} { set one "" ; if {$delrest>"1"} { set one s } ; set pls ""
foreach {x y z q1 q2} [lrange $delrsn 1 end] { lappend pls [string range $x 3 end] }
putlog "Removed $delrest old user record$one ([join $pls])."
if {[lindex $delrsn 0]=="1"} { putlog "Player$one not seen in over $t2(oldusr) days."
} else { putlog "BogusTrivia userfile was over $t2(usrmax) players." }
}
close $tutmpfil ; set cntda 0 ; set cntwe 0 ; set cntmo 0
if {$hflver=="1"} { set thifile [open $t2(sfpath)t2.hist a]
} else { set thifile [open $t2(sfpath)t2.hst.tmp w]
set thfold [open $t2(sfpath)t2.hist] ; puts $thifile [gets $thfold]
}
if {$doda=="1"} { set count 0 ; incr cntda
set dals [lsort -index 0 -integer -decreasing $dals]
puts $thifile "::D: [strftime %j $dt] $dt [expr {[llength $dals]+[llength $xdals]}]"
foreach item $dals { incr count
if {$count>[lindex $t2(dausrs) 0]} { break }
foreach {tp tc nk hn uh} $item { break } ; puts $thifile "$nk $hn $uh $tp $tc"
}
if {$xdals ne ""} { set keep 0
if {$count<[lindex $t2(dausrs) 0]} { set keep [lindex $t2(dausrs) 0] }
if {$keep>"0"} { set xdals [lsort -index 0 -integer -decreasing $xdals]
foreach item $xdals { incr count ; if {$count>$keep} { break }
foreach {tp tc nk hn uh} $item { break } ; puts $thifile "$nk $hn $uh $tp $tc"
}
}
}
set d10 0 ; set dt [unixtime]
}
if {$dowe=="1"} { set count 0 ; incr cntwe
set wels [lsort -index 0 -integer -decreasing $wels]
puts $thifile "::W: [strftime %j $wt] $wt [expr {[llength $wels]+[llength $xwels]}]"
foreach item $wels { incr count
if {$count>[lindex $t2(weusrs) 0]} { break }
foreach {wp wc nk hn uh} $item { break } ; puts $thifile "$nk $hn $uh $wp $wc"
}
if {$xwels ne ""} { set keep 0
if {$count<[lindex $t2(weusrs) 0]} { set keep [lindex $t2(weusrs) 0] }
if {$keep>"0"} { set xwels [lsort -index 0 -integer -decreasing $xwels]
foreach item $xwels { incr count ; if {$count>$keep} { break }
foreach {tp tc nk hn uh} $item { break } ; puts $thifile "$nk $hn $uh $tp $tc"
}
}
}
set w10 0 ; set wt [unixtime]
}
if {$domo=="1"} { set count 0 ; incr cntmo
set mols [lsort -index 0 -integer -decreasing $mols]
puts $thifile "::M: [strftime %j $mt] $mt [expr {[llength $mols]+[llength $xmols]}]"
foreach item $mols { incr count
if {$count>[lindex $t2(mousrs) 0]} { break }
foreach {mp mc nk hn uh} $item { break } ; puts $thifile "$nk $hn $uh $mp $mc"
}
if {$xmols ne ""} { set keep 0
if {$count<[lindex $t2(mousrs) 0]} { set keep [lindex $t2(mousrs) 0] }
if {$keep>"0"} { set xmols [lsort -index 0 -integer -decreasing $xmols]
foreach item $xmols { incr count ; if {$count>$keep} { break }
foreach {tp tc nk hn uh} $item { break } ; puts $thifile "$nk $hn $uh $tp $tc"
}
}
}
set m10 0 ; set mt [unixtime]
}
if {$hflver=="1"} { close $thifile
putlog "BogusTrivia History File Needs to be Updated! The code to do that is in the new Commands File."
if {![file exists $t2(sfpath)t2.commands]} {
putlog "Couldn't find t-2.tcl commands file: $t2(scrpath)t-2.commands.tcl"
} else { putlog "Existing t-2.tcl commands file needs to be updated." }
putlog "Put the included t-2.commands.tcl file in $t2(scrpath) & rehash the bot."
putlog "\00310BogusTrivia\003 History File Not Being Saved Correctly!" ; return 0
}
set delme 0 ; set isold [expr {[unixtime]-2764800}]
set moveme 0 ; set movels "" ; set doing 1 ; set dwm ""
while {![eof $thfold]} { set temp [gets $thfold]
if {$dwm ne "" && ![string match :N:* $temp]} { set delme 0 ; set moveme 0 ; set dwm ""
if {$doing=="1" && $cntda>"6" && $cntwe>"6" && $cntmo>"6"} { incr doing
puts $thifile "::X: Extra History:"
if {$movels ne ""} {
foreach hln $movels { puts $thifile $hln } ; set movels ""
}
}
}
if {[string match ::D:* $temp]} { incr cntda ; set pc 0 ; set dwm d
if {$cntda>$t2(keepda)} { set delme 1
} else { set kp [lindex $t2(dausrs) 1]
if {$cntda>"7" && $doing=="1"} { set moveme 1 ; lappend movels $temp
} else { puts $thifile $temp }
if {$cntda=="1"} { set kp [lindex $t2(dausrs) 0]
} elseif {$cntda>"7" && [llength $t2(dausrs)]>"2"} { set kp [lindex $t2(dausrs) 2] }
}
} elseif {[string match ::W:* $temp]} { incr cntwe ; set pc 0 ; set dwm w
if {$cntwe>$t2(keepwe)} { set delme 1
} else { set kp [lindex $t2(weusrs) 1]
if {$cntwe>"7" && $doing=="1"} { set moveme 1 ; lappend movels $temp
} else { puts $thifile $temp }
if {$cntwe=="1"} { set kp [lindex $t2(weusrs) 0]
} elseif {$cntwe>"7" && [llength $t2(weusrs)]>"2"} { set kp [lindex $t2(weusrs) 2] }
}
} elseif {[string match ::M:* $temp]} { incr cntmo ; set pc 0 ; set dwm m
if {$cntmo>$t2(keepmo)} { set delme 1
} else { set kp [lindex $t2(mousrs) 1]
if {$cntmo>"7" && $doing=="1"} { set moveme 1 ; lappend movels $temp
} else { puts $thifile $temp }
if {$cntmo=="1"} { set kp [lindex $t2(mousrs) 0]
} elseif {$cntmo>"7" && [llength $t2(mousrs)]>"2"} { set kp [lindex $t2(mousrs) 2] }
}
} elseif {[string match :N:* $temp]} { incr pc
if {$delme>"0"} { continue }
if {$pc>$kp} { set delme 1 ; continue }
if {$moveme>"0"} { lappend movels $temp } else { puts $thifile $temp }
} else {
if {$doing=="1"} { incr doing ; puts $thifile "::X: Extra History:"
if {$movels ne ""} {
foreach hln $movels { puts $thifile $hln } ; set movels ""
}
}
if {[string match ::X:* $temp] || $temp eq ""} { continue }
if {[string match ::O:* $temp] && [lindex [split $temp] end]<$isold} { continue }
puts $thifile $temp
}
}
close $thifile ; close $thfold ; file delete $t2(sfpath)t2.hist
file rename -force $t2(sfpath)t2.hst.tmp $t2(sfpath)t2.hist
file delete $t2(sfpath)t2.hst.tmp ; set x $cntda ; set y $cntwe ; set z $cntmo
set tmlist[list $x 1 12 $y 1 22 $x 2 13 $z 1 32 $x 3 14 $y 2 23] ; set hlist ""
lappend tmlist $x 4 15 $z 2 33 $x 5 16 $y 3 24 $x 6 17 $z 3 34
foreach {x y z} $tmlist { if {$x>$y} { lappend hlist $z } }
if {[file exists $t2(sfpath)t2.hist.info]} { set thifile [open $t2(sfpath)t2.hist.info]
set hinfo [gets $thifile] ; close $thifile ; file delete $t2(sfpath)t2.hist.info
set hinfo [split $hinfo]
if {[TStrDig [lindex $hinfo 0]]} {
foreach {x y} $hinfo { break }
if {[llength $hinfo]>"2"} { set z [lindex $hinfo end]
} else { set y 0 ; set z 0 }
} else { set x [unixtime] ; set y 0 ; set z 0 }
} else { set x [unixtime] ; set y 0 ; set z 0 }
set thifile [open $t2(sfpath)t2.hist.info w]
if {$hlist ne ""} {
if {$y=="0"} { set y 1 } ; if {$z=="0"} { set z 1 }
puts $thifile "$x $y [join $hlist] $z"
} else { puts $thifile "$x $y" }
close $thifile ; set tusfile [open $t2(sfpath)t2.users w]
set tutmpfil [open $t2(sfpath)t2.usr.tmp]
puts $tusfile "$nt $d10 $dt $w10 $wt $m10 $mt $e10 $uc"
while {![eof $tutmpfil]} { set temp [gets $tutmpfil]
if {$temp != ""} { puts $tusfile "$temp" }
}
close $tutmpfil ; close $tusfile ; file delete $t2(sfpath)t2.usr.tmp
if {[info exists t2(-html)] && $t2(-html) ne ""} {
if {$dowe=="0" && $domo=="0"} {
if {$t2(-html) eq "d" || $t2(-html) eq "d2"} { set t2(hdowat) history }
} elseif {$dowe=="1" && $domo=="1"} {
if {$t2(-html) eq "d" || $t2(-html) eq "d2"} { set t2(hdowat) historywm
} elseif {$t2(-html) eq "wm" || $t2(-html) eq "mw"} { set t2(hdowat) historywm
} elseif {$t2(-html) eq "w"} { set t2(hdowat) historyw
} elseif {$t2(-html) eq "m"} { set t2(hdowat) historym }
} elseif {$dowe=="1"} { set t2(hdowat) historywm
if {$t2(-html) eq "d" || $t2(-html) eq "d2"} { set t2(hdowat) historyw
} elseif {$t2(-html) eq "wm" || $t2(-html) eq "w"} { set t2(hdowat) historyw }
} elseif {$domo=="1"} { set t2(hdowat) historywm
if {$t2(-html) eq "d" || $t2(-html) eq "d2"} { set t2(hdowat) historym
} elseif {$t2(-html) eq "wm" || $t2(-html) eq "m"} { set t2(hdowat) historym }
}
if {[info exists t2(hdowat)]} { source $t2(pwdpath)$t2(scrpath)t-2.html.tcl }
}
if {$t2(-ison)=="1"} { utimer 1 TSavUsers ; utimer 2 TDoHInfo }
return 0
} elseif {$wat=="2"} { set toplin "" ; set topln2 "" ; set topln3 ""
if {$doda=="1" && $dals!=""} { set count 0
set topls [lsort -index 0 -integer -decreasing $dals]
set toplin "$tclr(-d10) TODAYS Top 10 - "
if {$t2(today)>"1" && [llength $topls]>"11"} {
set topln2 "$tclr(-d10) TODAYS Top 11-20: - " }
if {$t2(today)>"2" && [llength $topls]>"21"} {
set topln3 "$tclr(-d10) TODAYS Top 21-30: - " }
foreach topusr $topls { incr count
foreach {tp tc nk hn uh} $topusr { break }
set tnick [string range $nk 3 end]
if {$count<"11"} {
append toplin "$tclr(-d11) \002#$count:\002 $tclr(-d12) $tnick $tp "
} elseif {$count<"21"} {
if {$topln2!=""} {
append topln2 "$tclr(-d11) \002#$count:\002 $tclr(-d12) $tnick $tp " }
} elseif {$count<"31"} {
if {$topln3!=""} {
append topln3 "$tclr(-d11) \002#$count:\002 $tclr(-d12) $tnick $tp " }
}
if {$count=="30"} { set d10 $tp ; break }
}
if {$count<"30" && $d10>"0"} { set d10 [expr {round("$d10.0"-($d10/6))}] }
} elseif {$dowe=="1" && $wels!=""} { set count 0
set topls [lsort -index 0 -integer -decreasing $wels]
set toplin "$tclr(-w10) This WEEKS Top 10 - "
if {$t2(today)>"1" && [llength $topls]>"11"} {
set topln2 "$tclr(-w10) This WEEKS Top 11-20: - " }
if {$t2(today)>"2" && [llength $topls]>"21"} {
set topln3 "$tclr(-w10) This WEEKS Top 21-30: - " }
foreach topusr $topls { incr count
foreach {tp tc nk hn uh} $topusr { break }
set tnick [string range $nk 3 end]
if {$count<"11"} {
append toplin "$tclr(-w11) \002#$count:\002 $tclr(-w12) $tnick $tp "
} elseif {$count<"21"} {
if {$topln2!=""} {
append topln2 "$tclr(-w11) \002#$count:\002 $tclr(-w12) $tnick $tp " }
} elseif {$count<"31"} {
if {$topln3!=""} {
append topln3 "$tclr(-w11) \002#$count:\002 $tclr(-w12) $tnick $tp " }
}
if {$count=="30"} { set w10 $tp ; break }
}
if {$count<"30" && $w10>"0"} { set w10 [expr {round("$w10.0"-($w10/6))}] }
} elseif {$domo=="1" && $mols!=""} { set count 0
set topls [lsort -index 0 -integer -decreasing $mols]
set toplin "$tclr(-m10) This MONTHS Top 10 - "
if {$t2(today)>"1" && [llength $topls]>"11"} {
set topln2 "$tclr(-m10) This MONTHS Top 11-20: - " }
if {$t2(today)>"2" && [llength $topls]>"21"} {
set topln3 "$tclr(-m10) This MONTHS Top 21-30: - " }
foreach topusr $topls { incr count
foreach {tp tc nk hn uh} $topusr { break }
set tnick [string range $nk 3 end]
if {$count<"11"} {
append toplin "$tclr(-m11) \002#$count:\002 $tclr(-m12) $tnick $tp "
} elseif {$count<"21"} {
if {$topln2!=""} {
append topln2 "$tclr(-m11) \002#$count:\002 $tclr(-m12) $tnick $tp " }
} elseif {$count<"31"} {
if {$topln3!=""} {
append topln3 "$tclr(-m11) \002#$count:\002 $tclr(-m12) $tnick $tp " }
}
if {$count=="30"} { set m10 $tp ; break }
}
if {$count<"30" && $m10>"0"} { set m10 [expr {round("$m10.0"-($m10/6))}] }
} elseif {$doev=="1" && $evls!=""} { set count "0"
set topls [lsort -index 0 -integer -decreasing $evls]
set toplin "$tclr(-e10) TOP 10 PLAYERS - "
if {$t2(today)>"1" && [llength $topls]>"11"} {
set topln2 "$tclr(-e10) Top PLAYERS 11-20: - " }
if {$t2(today)>"2" && [llength $topls]>"21"} {
set topln3 "$tclr(-e10) Top PLAYERS 21-30: - " }
foreach topusr $topls { incr count
foreach {tp tc nk hn uh} $topusr { break }
set tnick [string range $nk 3 end]
if {$count<"11"} {
append toplin "$tclr(-e11) \002#$count:\002 $tclr(-e12) $tnick $tp "
} elseif {$count<"21"} {
if {$topln2!=""} {
append topln2 "$tclr(-e11) \002#$count:\002 $tclr(-e12) $tnick $tp " }
} elseif {$count<"31"} {
if {$topln3!=""} {
append topln3 "$tclr(-e11) \002#$count:\002 $tclr(-e12) $tnick $tp " }
}
if {$count=="30"} { set e10 $tp ; break }
}
if {$count<"30" && $e10>"0"} { set e10 [expr {round("$e10.0"-($e10/6))}] }
}
set tutmpfil [open $t2(sfpath)t2.usr.tmp w]
puts $tutmpfil "$nt $d10 $dt $w10 $wt $m10 $mt $e10 $uc"
set tusfile [open $t2(sfpath)t2.users] ; set tulin0 [gets $tusfile]
while {![eof $tusfile]} { set temp [gets $tusfile]
if {$temp != ""} { puts $tutmpfil "$temp" }
}
close $tutmpfil ; close $tusfile ; file delete $t2(sfpath)t2.users
file rename $t2(sfpath)t2.usr.tmp $t2(sfpath)t2.users
if {$toplin!=""} { putquick "PRIVMSG $t2(chan) :$toplin"
if {$topln3!=""} { utimer 4 "[list TShoLine $topln2 $topln3]"
} elseif {$topln2!=""} { utimer 4 "[list TShoLine $topln2]" }
}
}
}
}
if {![info exists t2(jackpot)] || $t2(jackpot) eq "" || ![TStrDig $t2(jackpot)]} { set t2(jackpot) 0 }
if {$t2(jackpot)=="0"} {
foreach ttmp(temp) {pot-lo pot-hi pot-incr -potnow -potout} {
if {[info exists t2($ttmp(temp))]} { unset t2($ttmp(temp)) }
}
foreach ttmp(temp) {t2.jp.now t2.jp.pot t2.jp.ques} {
if {[file exists $t2(sfpath)$ttmp(temp)]} { file delete $t2(sfpath)$ttmp(temp) }
}
} else {
if {$t2(jackpot)>"3"} { set t2(jackpot) 1 }
if {![info exists t2(pot-lo)] || $t2(pot-lo) eq "" || ![TStrDig $t2(pot-lo)]} {
}
}
foreach ttmp(temp) {ever tda twe tmo lda lwe lmo} {
if {![info exists t2($ttmp(temp))] || $t2($ttmp(temp)) eq ""} { set t2($ttmp(temp)) 1 }
if {$t2($ttmp(temp)) ne "1" && $t2($ttmp(temp)) ne "0"} { set t2($ttmp(temp)) 1 }
}
foreach ttmp(temp) {restart custclr} {
if {![info exists t2($ttmp(temp))] || $t2($ttmp(temp)) eq ""} { set t2($ttmp(temp)) 0 }
if {$t2($ttmp(temp)) ne "1" && $t2($ttmp(temp)) ne "0"} { set t2($ttmp(temp)) 0 }
}
foreach ttmp(temp) {bakupu bakuph bakhow} {
if {![info exists t2($ttmp(temp))] || $t2($ttmp(temp)) eq ""} { set t2($ttmp(temp)) 1 }
if {![TStrDig $t2($ttmp(temp))]} { set t2($ttmp(temp)) 1 }
}
if {$t2(bakhow) ne "1" && $t2(bakhow) ne "2"} { set t2(bakhow) 1 }
if {$t2(bakhow)=="2" && $t2(bakupu)=="1"} { set t2(bakupu) 2 }
if {![info exists t2(off)] || $t2(off) eq ""} { set t2(off) $t2(on) }
if {$t2(off) ne $t2(on)} { bind pubm $t2(oflag) "$t2(chan) $t2(off)" TOnOff }
bind pubm $t2(oflag) "$t2(chan) $t2(on)" TOnOff
bind msgm $t2(mflag) .add* TAdd
bind msg $t2(mflag) .mix TMix
if {$t2(color)=="0" && $t2(randfil)!="0"} { set t2(randfil) 0 }
proc TChar {how chr} {
if {$chr eq " "} {
if {$how=="1" || $how=="2"} { return 0 }
}
if {$how=="1"} {
if {[string match {[A-Za-z0-9]} $chr]} { return 1 } else { return 0 }
} elseif {$how=="2"} {
if {[string match {[aeiouAEIOU]} $chr]} { return 1 } else { return 0 }
}
return $chr
}
proc TRandL {} { global t2
set lstr "qNwMrLtJpCsZdRfQgShFjklPzxTcWvb"
return [string index $lstr [rand 30]]
}
proc TDoNum { {num Error} } {
switch -exact -- $num {
0 { return Zero }
1 { return One }
2 { return Two }
3 { return Three }
4 { return Four }
5 { return Five }
6 { return Six }
7 { return Seven }
8 { return Eight }
9 { return Nine }
10 { return Ten }
11 { return Eleven }
12 { return Twelve }
13 { return Thirteen }
14 { return Fourteen }
15 { return Fifteen }
default { return $num }
}
}
proc TFigurWe { {wat 0} {start 0} } { global t2
if {$wat=="1" && $start!="0"} { set begin [strftime %u $start] }
if {$t2(newweek)=="1"} { set wkend 7
} else { set wkend [expr {$t2(newweek)-1}] }
set wkls [strftime %j $start] ; set nexda $start
if {$begin!=$wkend} { set dacnt $begin
while {$dacnt!=$wkend} {
if {$dacnt=="7"} { set dacnt 1 } else { incr dacnt }
incr nexda 86400 ; append wkls " [strftime %j $nexda]"
}
}
if {$wat=="1"} { return $wkls }
}
proc TShoTrv2 {} { global t2 botnick ; set t2(-qtimer) ""
if {$t2(-ison)=="1"} { set t2(-hntnum) -3 ; TShoTriv }
}
proc TGotIt {nk uh hn ch tx} { global t2 tclr botnick ; set iskaos 0
if {$t2(kaos)>"0" && $t2(-iskaos)==$t2(kaos)} { set iskaos 1 }
set temp -1 ; set fnd 0
foreach x $t2(-allansls) {
if {$fnd=="0"} { incr temp }
if {[string equal -nocase $x $tx]} { incr fnd
if {$fnd=="2"} { set nerp 1 ; break }
}
}
if {$fnd<"1"} { return 0 }
unset x ; set uh [string trimleft $uh ~] ; array set t2 {-utrigd 1 -udead 0}
if {[info exists t2(-hactv)]} { incr t2(-hnew) }
if {$iskaos=="1"} { set endnow 0
if {[llength $t2(-allansls)]=="1"} { set endnow 1
} else { set t2(-allansls) [lreplace $t2(-allansls) $temp $temp] }
} else { set endnow 1 }
if {$endnow=="1"} { set timrls [utimers]
if {[lsearch $timrls "* $t2(-qtimer)"]!="-1"} { killutimer $t2(-qtimer) }
set t2(-qtimer) "" ; if {$t2(-hbound)=="1"} { TBind h u }
if {$t2(-qbound)=="1"} { TBind q u }
set qestime [expr {[clock clicks -milliseconds]-$t2(-qstart)}]
if {[string length $qestime]=="1"} { set qestime 000$qestime
} elseif {[string length $qestime]=="2"} { set qestime 00$qestime
} elseif {[string length $qestime]=="3"} { set qestime 0$qestime }
set qestime [string range $qestime 0 end-3].[string range $qestime end-2 end]
}
if {$iskaos=="1"} { set temp -1 ; set fnd 0
foreach {x1 x2 x3 x4} $t2(-kansls) { incr temp 4
if {[string equal -nocase $x1 $tx]} { set fnd 1 ; break }
}
if {$fnd>"0"} { set tmp2 [lindex $t2(-kansls) $temp] ; incr temp -3 }
if {$endnow=="1"} { TBind a u
} else {
if {![info exists nerp]} {
unbind pubm $t2(pflag) "$t2(chan) $t2($tmp2)" TGotIt }
if {$tmp2 eq "-answer"} { set t2(-answer) ""
} else { array unset t2 $tmp2 }
}
set t2(-kansls) [lreplace $t2(-kansls) $temp [expr {$temp+3}]]
putquick "PRIVMSG $ch :$tclr(-ktu) $nk gets $t2(-points) points for: $tclr(-ktu2) $tx "
incr t2(-kgotpnts) $t2(-points)
if {$t2(-kusrls) eq ""} { set t2(-kusrls)[list $nk $hn $uh $t2(-points) 1]
} else { set kfnd 0 ; set nidx 0
foreach {n h u p c} $t2(-kusrls) {
if {[TStrLo $nk] eq [TStrLo $n]} { set kfnd 1 ; break }
if {$t2(match)>"0" && $hn ne "*" && $hn eq $h} { set kfnd 2 ; break }
if {$t2(match)>"0" && $uh eq $u} { set kfnd 3 ; break }
incr nidx 5
}
if {$kfnd>"0"} { set end [expr {$nidx+4}]
incr c ; set p [expr {round("$p.0"+$t2(-points))}]
if {$t2(match)=="1" && $hn eq "*"} { set hn $h }
set t2(-kusrls) [lreplace $t2(-kusrls) $nidx $end $nk $hn $uh $p $c]
} else { lappend t2(-kusrls) $nk $hn $uh $t2(-points) 1 }
}
if {$endnow=="1"} { set newaddls $t2(-kusrls) }
} else {
if {$t2(-abound)=="1"} { TBind a u }
if {$t2(descend)=="0"} { set points [expr {$t2(-points)*2}]
} elseif {$t2(-hntnum)=="1"} { set points [expr {$t2(-points)*2}]
} elseif {$t2(-hntnum)=="2"} { set points $t2(-points)
} else { set points [expr {$t2(-points)/2}] }
putquick "PRIVMSG $ch :$tclr(-tu2) YES,$tclr(-tu1) $nk $tclr(-tu2)got the answer ->$tclr(-tu1) $tx $tclr(-tu2)<- in$tclr(-tu1) $qestime $tclr(-tu2)seconds, and gets$tclr(-tu1) $points $tclr(-tu2)points "
set newaddls[list $nk $hn $uh $points 1]
if {[string match -nocase "$nk *" $t2(-qansrd)]=="1"} {
set anscnt [expr { [lindex [split $t2(-qansrd)] 1]+1 }] ; set t2(-qansrd) "$nk $anscnt"
} else { set anscnt 1 ; set t2(-qansrd) "$nk 1" }
set pstr "$tclr(-tu1) $nk $tclr(-tu2)has won$tclr(-tu1) $anscnt $tclr(-tu2)in a row!"
}
if {$endnow=="1"} {
if {$iskaos=="1"} { set opt 1
set kalltx "$tclr(-ktu) Congratulations, $tclr(-ktu2)You've Guessed Them All !!"
if {[llength $newaddls]>"5" && $t2(-kbon)>"0"} {
append kalltx " $tclr(-kbon) Everyone gets a$tclr(-kbon2) $t2(-kbon) Point $tclr(-kbon)Bonus !! "
set newaddl2 ""
} else { append kalltx "! " ; set t2(-kbon) 0 }
}
foreach {anik ahan aush apnt acnt} $newaddls {
if {$iskaos=="1"} {
if {$t2(-kbon)=="0"} { break }
set t2(-kgotpnts) [expr { round("$t2(-kgotpnts).0"+$t2(-kbon)) }]
set apnt [expr { round("$apnt.0"+$t2(-kbon)) }]
lappend newaddl2 $anik $ahan $aush $apnt $acnt
} else { set fnd 0 ; set nidx 0
foreach {fnk fn2 fhn fuh fu2 da we mo} $t2(-active) {
if {[TStrLo $anik] eq $fnk} { set fnd 1 ; break }
if {$t2(match)>"0" && $fhn ne "*" && [TStrLo $ahan] eq $fhn} { set fnd 2 ; break }
if {$t2(match)>"0" && [TStrLo $anik] eq $fn2} { set fnd 3 ; break }
if {$t2(match)>"0" && ([TStrLo $aush] eq $fuh || [TStrLo $aush] eq $fu2)} { set kfnd 4 ; break }
incr nidx 8
}
if {$fnd>"0"} { set end [expr {$nidx+7}] ; set opt 0
set da [expr {round("$da.0"+$apnt)}] ; set we [expr {round("$we.0"+$apnt)}]
set mo [expr {round("$mo.0"+$apnt)}]
if {[TStrLo $anik] ne $fnk && [TStrLo $anik] ne $fn2} { set opt 1
} elseif {[TStrLo $aush] ne $fuh && [TStrLo $aush] ne $fu2} { set opt 1
} elseif {$t2(match)=="0" && [TStrLo $ahan] ne $fhn} { set opt 1
} elseif {$t2(match)=="1" && $ahan ne "*" && [TStrLo $ahan] ne $fhn} { set opt 1
} else { set t2(-active) [lreplace $t2(-active) $nidx $end]
set t2(-active) [linsert $t2(-active) 0 $fnk $fn2 $fhn $fuh $fu2 $da $we $mo]
}
putquick "PRIVMSG $ch :$pstr Total Points TODAY:$tclr(-tu1) $da $tclr(-tu2) this WEEK:$tclr(-tu1) $we $tclr(-tu2) & this MONTH:$tclr(-tu1) $mo "
} else { putquick "PRIVMSG $ch :$pstr" ; set opt 1 }
}
}
if {$iskaos=="1"} {
if {$t2(-kbon)>"0"} { set t2(-kusrls) $newaddl2 }
set kstats "$tclr(-kstat) Total Awarded:$tclr(-ksta2) $t2(-kgotpnts) Points "
if {[llength $t2(-kusrls)]>"5"} {
append kstats "$tclr(-kstat)to [expr {[llength $t2(-kusrls)]/5}] Players "
}
putquick "PRIVMSG $t2(chan) :$kalltx" ; putquick "PRIVMSG $t2(chan) :$kstats"
}
array set t2 {-hint "" -hnt2 "" -hnt3 "" -uhint "" -uhnt2 "" -uhnt3 ""}
array set t2 {-points "" -questn "" -answer "" -uqes "" -utrigd 1 -udead 0}
array set t2 {-allansls ""}
if {$iskaos=="1"} { unset t2(-kansls) t2(-kanstot) t2(-kgotpnts) t2(-kbon) }
set t2(-htime) $t2(qtime) ; set t2(-ptime) $t2(ptime)
if {$t2(dobonus)>"0"} {
if {$t2(-lastbns)<$t2(dobonus)} { incr t2(-lastbns)
} else { set t2(-lastbns) 0 ; incr t2(-shobons) }
}
if {$t2(kaos)>"0"} {
if {$t2(-iskaos)>=$t2(kaos)} { set t2(-iskaos) 1
} else { incr t2(-iskaos) }
}
set t2(-qtimer) [utimer $t2(-ptime) TShoTrv2]
set t2(-otimer) [utimer 4[list TSavActiv $nk $uh $hn $apnt $opt $iskaos]]
if {$iskaos=="0"} { set t2(-notsaved)[list $nk $uh $hn $apnt] }
}
}
proc TPQues {nk uh hn ch tx} { global t2 tclr
TBind q u ; putserv "PRIVMSG $ch :$t2(-uqes)" ; set t2(-uqes) ""
array set t2 {-utrigd 1 -udead 0}
set t2(-htime) $t2(qtime) ; set t2(-ptime) $t2(ptime)
}
proc TDoHint {nk uh hn ch tx} { global t2 tclr botnick ; TBind h u
if {$t2(-hntnum)=="1"} {
putserv "PRIVMSG $ch :$tclr(-hnt1) Hint:$tclr(-hnt2) $t2(-uhint) " ; set t2(-uhint) ""
} elseif {$t2(-hntnum)=="2"} {
putserv "PRIVMSG $ch :$tclr(-hnt1) Hint:$tclr(-hnt2) $t2(-uhnt2) " ; set t2(-uhnt2) ""
} else {
putserv "PRIVMSG $ch :$tclr(-hnt1) Hint:$tclr(-hnt2) $t2(-uhnt3) " ; set t2(-uhnt3) "" }
array set t2 {-utrigd 1 -udead 0}
set t2(-htime) $t2(qtime) ; set t2(-ptime) $t2(ptime)
}
proc TOnOff {nk uh hn ch tx {from 0} } { global t2 tclr botnick nick
if {![file exists $t2(sfpath)t2.settings]} { set temp [TSetup $nk $uh $hn 1 1]
if {$temp=="0"} { return 0 }
}
if {$t2(-ison)=="0"} {
if {$from>"0" && $tx=="0"} { return 0 }
if {$from=="0" && ![string match -nocase $t2(on) $tx]} { return 0 }
if {$t2(-hbound)=="1"} { TBind h u } ; if {$t2(-qbound)=="1"} { TBind q u }
if {$t2(-abound)=="1"} { TBind a u } ; TCntQes
if {$t2(-qfcnt)=="0"} {
putserv "PRIVMSG $ch :$t2(script): No questions loaded." ; return 0
}
set t2(-ison) 1 ; set updat 0 ; TDoHInfo
if {[file exists $t2(sfpath)t2.users]} { set isnewus 0
set tusfile [open $t2(sfpath)t2.users] ; set tlin0 [gets $tusfile] ; close $tusfile
if {[string match ::N:* $tlin0]} { set updat 1 }
} else { TSavUsers ; set isnewus 1 }
set wasbad [TSavActiv 0 $updat]
if {$from=="5"} { set t2(-aon) $hn
} else { putquick "PRIVMSG $ch :$t2(script) by $t2(auth) Loading..." }
set t2(-htime) $t2(qtime) ; set t2(-ptime) $t2(ptime)
array set t2 {-shorand 0 -randcnt 0 -shoda10 0 -showe10 0 -shomo10 0 -shoev10 0}
array set t2 {-shohist 0 -qansrd 0 -qmissd 0 -utrigd 1 -udead 0 -shoad 0}
array set t2 {-shobons 0 -lastbns 0 -qtimer "" -otimer "" -qstart "" -dosave 0}
array set t2 {-preqes "" -active ""}
if {$isnewus=="0" || $wasbad=="1"} { TSavUsers }
TAddHEvent[list "::O:on $nk $hn $uh [unixtime]"]
TBind s ; bind time - "* * * * *" TBndTime
if {[string length $t2(-qcount)]<"4"} { set tmcnt $t2(-qcount)
} else { set tmcnt [string trimleft [string range $t2(-qcount) end-2 end] 0]
if {$tmcnt==""} { set tmcnt 0 }
}
set qflcnt 0 ; set t2(-opnfil) [open $t2(-qflnow)]
if {$tmcnt!="0"} {
while {![eof $t2(-opnfil)] && $qflcnt<$tmcnt} {
set qfline [gets $t2(-opnfil)] ; incr qflcnt }
if {$qfline == ""} { set t2(-ison) 0 ; return 0 }
}
if {$t2(kaos)>"0"} {
if {$t2(-iskaos)=="0"} {
if {$t2(kaos)>"5"} { set t2(-iskaos) [expr {($t2(kaos)-4)-[rand 3]}]
if {$t2(-iskaos)<"1"} { set t2(-iskaos) $t2(kaos) }
} else { set t2(-iskaos) $t2(kaos) }
}
set tmc2 -1 ; set stopat [expr {$t2(-kcount)-1}]
foreach tmkfl $t2(-kfills) {
if {$tmkfl==$t2(-kflnow)} { break }
set temp [split [lindex [split $tmkfl /] end] .]
if {[llength $temp]=="3"} { incr tmc2 1000
} else { incr tmc2 [lindex $temp 3] }
}
set t2(-opnkfil) [open $t2(-kflnow)]
set kfline :start:
while {![eof $t2(-opnkfil)]} {
if {$tmc2==$stopat} { break }
set kfline [gets $t2(-opnkfil)] ; incr tmc2
}
if {$kfline == ""} { set t2(-ison) 0 ; return 0 }
}
if {[info exists t2(-hactv)]} { set t2(-hcnt) 0 ; set t2(-hnew) 0 }
set t2(-hntnum) -1 ; TShoTriv
} else {
if {$from>"0" && $tx=="1"} { return 0 }
if {$from=="0" && ![string match -nocase $t2(off) $tx]} { return 0 }
if {$t2(-hbound)=="1"} { TBind h u }
if {$t2(-qbound)=="1"} { TBind q u }
if {$t2(-abound)=="1"} { TBind a u }
set t2(-ison) 0 ; set timrls [utimers]
if {$t2(autostart)>"0" && $from=="0"} { set t2(-aoff) 0 }
if {$t2(-qtimer) ne "" && [lsearch $timrls "* $t2(-qtimer)"]!="-1"} { killutimer $t2(-qtimer) }
if {$t2(-otimer) ne "" && [lsearch $timrls "* $t2(-otimer)"]!="-1"} { killutimer $t2(-otimer) }
set t2(-qtimer) "" ; set t2(-otimer) ""
TBind s u ; unbind time - "* * * * *" TBndTime
close $t2(-opnfil) ; if {$t2(kaos)>"0"} { close $t2(-opnkfil) }
if {$t2(kaos)>"0" && $t2(-iskaos)==$t2(kaos)} {
if {[info exists t2(-kusrls)] && $t2(-kusrls) ne ""} { TSavActiv nk u@h hn apnt 1 2 }
} else {
if {[info exists t2(-notsaved)]} {
foreach {nik ush hnd apnt} $t2(-notsaved) { break }
TSavActiv $nik $ush $hnd $apnt 2 0
}
}
TSavUsers 1 ; file delete $t2(sfpath)t2.recent
TAddHEvent[list "::O:off $nk $hn $uh [unixtime]"]
array set t2 {-hint "" -hnt2 "" -hnt3 "" -uhint "" -uhnt2 "" -uhnt3 ""}
array set t2 {-points "" -questn "" -answer "" -uqes "" -active "" -preqes ""}
if {[info exists t2(-allansls)]} { unset t2(-allansls) }
if {[info exists t2(-kusrls)]} { unset t2(-kusrls) }
if {[info exists t2(-kansls)]} { unset t2(-kansls) }
if {[info exists t2(-kanstot)]} { unset t2(-kanstot) }
if {[info exists t2(-kgotpnts)]} { unset t2(-kgotpnts) }
if {[info exists t2(-kbon)]} { unset t2(-kbon) }
if {[info exists t2(-hactv)]} {
if {$t2(-hnew)>"0"} {
set t2(hdowat) active ; source $t2(pwdpath)$t2(scrpath)t-2.html.tcl
}
unset t2(-hcnt) ; unset t2(-hnew)
}
if {[info exists t2(-dobakup)]} {
if {$t2(-dobakup)=="1"} {
if {$t2(bakupu)>"0"} { TBakUp u 0 }
if {$t2(bakuph)>"0"} { TBakUp h 0 }
} else { TBakUp u 0 }
unset t2(-dobakup)
}
putquick "PRIVMSG $ch :$t2(script) by $t2(auth) Stopped."
}
}
proc TAddHEvent {els} { global t2 botnick
if {![file exists $t2(sfpath)t2.hist]} { TDoHInfo }
set thifold [open $t2(sfpath)t2.hist] ; set ln1 [gets $thifold]
if {[string match ::N:* $ln1]} { close $thifold
if {![file exists $t2(sfpath)t2.commands]} { set stop 1
} else { set open [open $t2(sfpath)t2.commands]
set cver [string range [gets $open] 3 6] ; close $open
if {![TStrDig $cver] || $cver<"2063"} { set stop 2
} else { set t2(_cm) h ; source $t2(sfpath)t2.commands }
}
if {[info exists stop]} { set thifold [open $t2(sfpath)t2.hist a]
foreach ev $els { puts $thifold $ev } ; close $thifold ; return $stop
}
set thifold [open $t2(sfpath)t2.hist] ; set ln1 [gets $thifold]
}
set thifile [open $t2(sfpath)t2.hst.tmp w] ; puts $thifile $ln1
while {![eof $thifold]} { set temp [gets $thifold]
if {$temp ne ""} { puts $thifile $temp }
if {[string match ::X:* $temp]} {
foreach ev $els { puts $thifile $ev } ; set els ""
}
}
if {$els ne ""} { puts $thifile "::X: Extra History:"
foreach ev $els { puts $thifile $ev }
}
close $thifold ; close $thifile ; file delete $t2(sfpath)t2.hist
file rename -force $t2(sfpath)t2.hst.tmp $t2(sfpath)t2.hist
file delete $t2(sfpath)t2.hst.tmp ; return 0
}
proc TShoTriv {} { global t2 tclr botnick
if {$t2(-ison)=="0"} { return 0 } ; set iskaos 0
if {$t2(kaos)>"0" && $t2(-iskaos)==$t2(kaos)} { set iskaos 1 }
if {$t2(-hntnum)>=$t2(hntcnt) || $t2(-hntnum)=="-1" || $t2(-hntnum)=="-2"} { set istop 0
if {$t2(-hntnum)=="-1"} {
if {![info exists t2(-aon)]} { set t2(-qtimer) [utimer 8 TShoTriv]
} else { set t2(-qtimer) [utimer $t2(-aon) TShoTriv] ; unset t2(-aon) }
} elseif {$t2(-hntnum)=="-2"} { return 0
} else {
if {$t2(-utrigd)=="0" && ($t2(qslow)=="0" || $t2(rest)=="0")} { set x $t2(-udead) ; incr x
if {$x>=$t2(rqcnt) || ($x>=$t2(sqcnt) && $t2(qslow)=="0")} { set istop 1 }
}
if {$istop=="0"} { set t2(-qtimer) [utimer $t2(-ptime) TShoTriv] }
if {$iskaos=="1"} { set kleft [expr {[llength $t2(-kansls)]/4}]
set kgot [expr {$t2(-kanstot)-$kleft}] ; set kusrs [expr {[llength $t2(-kusrls)]/5}]
if {$t2(givkaos)!="0"} { set ktutmp "$tclr(-ktu) Times up! $tclr(-ktu2) No one got $tclr(-kng) "
foreach {kans hn2 hn3 kvar} $t2(-kansls) { append ktutmp "\[$kans\] " }
} else { set ktutmp "$tclr(-ktu2) Times up! " }
putquick "PRIVMSG $t2(chan) :$ktutmp"
if {$kgot>"0"} {
set ktutm2 "$tclr(-kstat) Correctly Answered:$tclr(-ksta2) $kgot of $t2(-kanstot) "
append ktutm2 "$tclr(-kstat) Total Awarded:$tclr(-ksta2) $t2(-kgotpnts) Points "
if {$kusrs>"1"} { append ktutm2 "$tclr(-kstat)to $kusrs Players " }
putquick "PRIVMSG $t2(chan) :$ktutm2"
}
} else { set ansr ""
if {$t2(givansr)!="0"} { set ansr "$tclr(-tu2) The answer was -> $tclr(-tu1) $t2(-answer) $tclr(-tu2) <- " }
putquick "PRIVMSG $t2(chan) :$tclr(-tu1) Times up! $ansr"
}
}
if {$t2(-hntnum)>"-1" && $iskaos=="1" && $kgot>"0"} {
set t2(-otimer) [utimer 4[list TSavActiv nk u@h hn apnt 1 1]]
} else {
if {$istop=="0"} { set t2(-otimer) [utimer 4 TMkLines] }
if {$t2(-hntnum)>"-1" && $iskaos=="1"} { unset t2(-kusrls) }
}
if {$t2(-abound)=="1"} { TBind a u }
if {$t2(-qbound)=="1"} { TBind q u } ; if {$t2(-hbound)=="1"} { TBind h u }
array set t2 {-hint "" -hnt2 "" -hnt3 "" -uhint "" -uhnt2 "" -uhnt3 ""}
array set t2 {-points "" -questn "" -answer "" -uqes "" -hntnum 0}
set t2(-allansls) ""
if {$iskaos=="1"} {
if {[info exists t2(-kanstot)]} { unset t2(-kanstot) }
if {[info exists t2(-kansls)]} { unset t2(-kansls) }
if {[info exists t2(-kgotpnts)]} { unset t2(-kgotpnts) }
if {[info exists t2(-kbon)]} { unset t2(-kbon) }
}
if {$t2(dobonus)>"0"} {
if {$t2(-lastbns)<$t2(dobonus)} { incr t2(-lastbns)
} else { set t2(-lastbns) 0 ; incr t2(-shobons) }
}
if {$t2(kaos)>"0"} {
if {$t2(-iskaos)>=$t2(kaos)} { set t2(-iskaos) 1
} else {
if {$t2(krest)=="1"} {
if {$t2(-udead)<$t2(rqcnt)} { incr t2(-iskaos) }
} elseif {$t2(krest)>"1"} {
if {$t2(-udead)<$t2(sqcnt)} { incr t2(-iskaos) }
} else { incr t2(-iskaos) }
}
}
if {$istop=="1"} {
if {$t2(autostart)>"0"} { set t2(-aoff) 1 }
TOnOff $botnick idle stop $t2(chan) 0 4
}
} elseif {$t2(-hntnum)=="0" || $t2(-hntnum)=="-3"} {
if {$t2(-preqes)!=""} {
putquick "PRIVMSG $t2(chan) :$tclr(-randad) $t2(-preqes) " ; set t2(-preqes) "" }
putquick "PRIVMSG $t2(chan) :$t2(-questn)" ; putquick "PRIVMSG $t2(chan) :$t2(-hint)"
if {$t2(-uhint)!=""} { TBind h } ; TBind a ; set t2(-qstart) [clock clicks -milliseconds]
if {$iskaos=="1"} { incr t2(-kcount) ; set tkcntfil [open $t2(sfpath)t2.kcount w]
puts $tkcntfil "$t2(-kcount)" ; close $tkcntfil ; set sec $t2(ktime)
if {$t2(-udead)>=$t2(sqcnt) && $t2(-htime)>$t2(ktime)} { set sec $t2(-htime) }
set t2(-qtimer) [utimer $sec TShoTriv]
} else { incr t2(-qcount) ; set tqcntfil [open $t2(sfpath)t2.qcount w]
puts $tqcntfil "$t2(-qcount)" ; close $tqcntfil ; set t2(-qtimer) [utimer $t2(-htime) TShoTriv]
}
set t2(-hntnum) 1
} elseif {$t2(-hntnum)=="1"} { set t2(-hntnum) 2
if {$iskaos=="1"} { set sec $t2(ktime) ; set doshort 0
if {$t2(-udead)>=$t2(sqcnt) && $t2(-htime)>$t2(ktime)} { set sec $t2(-htime) }
set t2(-qtimer) [utimer $sec TShoTriv]
if {$t2(krest)=="1" && $t2(-udead)>=$t2(rqcnt)} { set doshort 1
} elseif {$t2(krest)>"1" && $t2(-udead)>=$t2(sqcnt)} { set doshort 1 }
set t2(-hnt2) "$tclr(-khnt) 2nd Hint:$tclr(-khnt2)"
if {$t2(kstyle)>"1" || $doshort=="1"} { set kleft [expr {[llength $t2(-kansls)]/4}]
if {$kleft==$t2(-kanstot)} { append t2(-hnt2) " All Answers Remaining at "
} elseif {$kleft=="1"} { append t2(-hnt2) " One Answer Remaining at "
} else { append t2(-hnt2) " $kleft of $t2(-kanstot) Answers Remaining at " }
if {$kleft=="1"} { append t2(-hnt2) "$t2(-points) Points $t2(-endclr) $tclr(-kpnt1) "
} else { append t2(-hnt2) "$t2(-points) Points Each $t2(-endclr) $tclr(-kpnt1) " }
putquick "PRIVMSG $t2(chan) :$t2(-hnt2)[expr {$sec*2}] seconds "
} else {
if {$t2(descend)=="1"} { set t2(-points) [expr {$t2(-points)/2}] }
foreach {kans hn2 hn3 kvar} $t2(-kansls) { append t2(-hnt2) " $hn2" }
append t2(-hnt2) " $t2(-endclr) $tclr(-kpnt1) [expr {$sec*2}] seconds "
putquick "PRIVMSG $t2(chan) :$t2(-hnt2)"
}
} else { set t2(-qtimer) [utimer $t2(-htime) TShoTriv]
set t2(-hnt2) "$tclr(-hint) 2nd Hint:$tclr(-hint2) $t2(-hnt2) $t2(-endclr) "
if {$t2(descend)=="1"} {
append t2(-hnt2) "$tclr(-pnt1) [expr {$t2(-htime)*2}] secs &$tclr(-pnt2) $t2(-points)"
putquick "PRIVMSG $t2(chan) :$t2(-hnt2) Points $tclr(-pnt1)Remaining "
} else { append t2(-hnt2) "$tclr(-pnt1) [expr {$t2(-htime)*2}] secs remaining. Value:"
putquick "PRIVMSG $t2(chan) :$t2(-hnt2)$tclr(-pnt2) [expr {$t2(-points)*2}] Points "
}
}
if {$t2(-uqes)!="" && $t2(usrqes)=="1"} { TBind q }
if {$t2(-uhnt2)!=""} {
if {$t2(-hbound)=="0"} { TBind h }
} else {
if {$t2(-hbound)=="1"} { TBind h u }
}
} elseif {$t2(-hntnum)=="2"} { set t2(-hntnum) 3
if {$iskaos=="1"} { set sec $t2(ktime) ; set doshort 0
if {$t2(-udead)>=$t2(sqcnt) && $t2(-htime)>$t2(ktime)} { set sec $t2(-htime) }
set t2(-qtimer) [utimer $sec TShoTriv]
if {$t2(krest)=="1" && $t2(-udead)>=$t2(rqcnt)} { set doshort 1
} elseif {$t2(krest)>"1" && $t2(-udead)>=$t2(sqcnt)} { set doshort 1 }
set t2(-hnt3) "$tclr(-khnt) 3rd Hint:$tclr(-khnt2)"
if {$t2(kstyle)>"2" || $doshort=="1"} { set kleft [expr {[llength $t2(-kansls)]/4}]
if {$kleft==$t2(-kanstot)} { append t2(-hnt3) " All Answers Remaining at "
} elseif {$kleft=="1"} { append t2(-hnt3) " One Answer Remaining at "
} else { append t2(-hnt3) " $kleft of $t2(-kanstot) Answers Remaining at " }
if {$kleft=="1"} { append t2(-hnt3) "$t2(-points) Points $t2(-endclr) $tclr(-kpnt1) "
} else { append t2(-hnt3) "$t2(-points) Points Each $t2(-endclr) $tclr(-kpnt1) " }
putquick "PRIVMSG $t2(chan) :$t2(-hnt3)$sec seconds "
} else {
if {$t2(descend)=="1"} { set t2(-points) [expr {$t2(-points)/2}] }
foreach {kans hn2 hn3 kvar} $t2(-kansls) { append t2(-hnt3) " $hn3" }
append t2(-hnt3) " $t2(-endclr) $tclr(-kpnt1) $sec seconds "
putquick "PRIVMSG $t2(chan) :$t2(-hnt3)"
}
} else { set t2(-qtimer) [utimer $t2(-htime) TShoTriv]
set t2(-hnt3) "$tclr(-hint) 3rd Hint:$tclr(-hint2) $t2(-hnt3) $t2(-endclr) "
if {$t2(descend)=="1"} {
append t2(-hnt3) "$tclr(-pnt1) $t2(-htime) secs &$tclr(-pnt2) [expr {$t2(-points)/2}]"
putquick "PRIVMSG $t2(chan) :$t2(-hnt3) Points $tclr(-pnt1)Remaining "
} else { append t2(-hnt3) "$tclr(-pnt1) $t2(-htime) secs remaining. Value:"
putquick "PRIVMSG $t2(chan) :$t2(-hnt3)$tclr(-pnt2) [expr {$t2(-points)*2}] Points "
}
}
if {$t2(-uhnt3)!=""} {
if {$t2(-hbound)=="0"} { TBind h }
} else {
if {$t2(-hbound)=="1"} { TBind h u }
}
}
}
proc TSavActiv { {nk 0} {uh 0} {hn 0} {points 0} {opt 0} {iskaos 0} } {
global t2 tclr botnick ; set isnew 0
if {[info exists t2(-notsaved)]} { unset t2(-notsaved) }
if {![file exists $t2(sfpath)t2.recent]} { set trefile [open $t2(sfpath)t2.recent w]
puts $trefile "::N:[unixtime]" ; set t2(-reccnt) 0
if {$nk eq "0"} { close $trefile
if {$uh eq "1"} { TSavUsers 1 1 } ; return 0
}
set isnew 1
} else {
if {$nk eq "0"} { TSavUsers 1 ; set trefile [open $t2(sfpath)t2.recent w]
puts $trefile "::N:[unixtime]" ; close $trefile ; set t2(-reccnt) 0 ; return 1
}
}
if {$isnew=="0"} { set trefile [open $t2(sfpath)t2.recent a] }
if {$iskaos=="0"} { puts $trefile ":N:$nk $hn $uh $points" ; incr t2(-reccnt)
} else {
foreach {nk hn uh pnt cnt} $t2(-kusrls) {
puts $trefile ":N:$nk $hn $uh $pnt $cnt" ; incr t2(-reccnt)
}
unset t2(-kusrls)
}
close $trefile
if {$iskaos<"2" && $opt<"2"} { set t2(-otimer) ""
if {$opt=="1"} { TSavUsers 1 ; TSavUsers 0
} elseif {$t2(-reccnt)>=$t2(recsiz)} { TSavUsers 1 }
TMkLines
}
}
proc TSavUsers { {wat 0} {w2 0} } { global t2 tclr botnick ; set isnew 0 ; set tlin0 ""
if {![file exists $t2(sfpath)t2.users]} {
set tlin0 "::N2:[unixtime] 0 [unixtime] 0 [unixtime] 0 [unixtime] 0 0"
set tusfile [open $t2(sfpath)t2.users w]
puts $tusfile "$tlin0" ; close $tusfile
if {$wat=="0"} { return 1 } ; set isnew 1
} else {
if {$wat=="0"} { set t2(-active) "" ; set lincnt 0
set tusfile [open $t2(sfpath)t2.users] ; set tlin0 [gets $tusfile]
foreach {nt d10 dt w10 wt m10 mt e10 uc} $tlin0 { break }
if {[strftime %j $dt] != [strftime %j]} { close $tusfile ; TSavHist 1
if {$t2(-stats)>"0"} { TSetStat }
set tusfile [open $t2(sfpath)t2.users] ; set tlin0 [gets $tusfile]
}
while {![eof $tusfile]} { set temp [TStrLo [gets $tusfile]]
if {$temp ne ""} { incr lincnt
if {$lincnt>"0" && $lincnt<=$t2(actvsiz)} { set temp [split $temp]
foreach {nk hn uh tp tc wp wc mp mc ep ec ad ud n2 u2} $temp { break }
set nk [string range $nk 3 end]
if {$n2 ne "-"} { set n2 [string range $n2 3 end] }
lappend t2(-active) $nk $n2 $hn $uh $u2 $tp $wp $mp
} elseif {$lincnt>$t2(actvsiz)} { break }
}
}
close $tusfile ; return 0
} elseif {$wat=="1"} { set tusfile [open $t2(sfpath)t2.users]
set tlin0 [gets $tusfile] ; close $tusfile
foreach {nt d10 dt w10 wt m10 mt e10 uc} $tlin0 { break }
if {$uc=="0"} { set isnew 1 }
if {[string match ::N:* $nt]} { set nt [string replace $nt 2 2 N2]
set tlin0 [lreplace $tlin0 0 0 $nt] }
}
}
if {$w2=="0"} { set trefile [open $t2(sfpath)t2.recent] ; set content [read $trefile]
close $trefile ; set content [split [string trimright $content \n] "\n"]
set tlidx -1 ; set newls "" ; set rlin0 ""
foreach tline $content { incr tlidx
if {$tlidx=="0"} { set rlin0 $tline
} else {
foreach {nk hn uh pt cnt} [split $tline] { break }
if {$cnt eq ""} { set cnt 1 } ; set uh [string trimleft $uh ~]
if {$newls==""} { lappend newls $nk $hn $uh $pt $cnt
} else { set fnd 0 ; set nidx 0
foreach {n h u p c} $newls {
if {[TStrLo $nk] eq [TStrLo $n]} { set fnd 1 ; break }
if {$t2(match)>"0" && $hn ne "*" && $hn eq $h} { set fnd 2 ; break }
if {$t2(match)>"0" && $uh eq $u} { set fnd 3 ; break }
incr nidx 5
}
if {$fnd>"0"} { set end [expr {$nidx+4}]
set p [expr {round("$p.0"+$pt)}] ; set c [expr {round("$c.0"+$cnt)}]
if {$t2(match)=="1" && $hn eq "*"} { set hn $h }
set newls [lreplace $newls $nidx $end $nk $hn $uh $p $c]
} else { lappend newls $nk $hn $uh $pt $cnt }
}
}
}
} else { set newls "" ; putlog "Updating Bogus UserFile: t2.users..." }
if {$t2(-stats)>"0"} { set recnkls ""
if {$newls ne ""} {
foreach {ank ahn auh apt act} $newls { set ank [string range $ank 3 end]
if {$recnkls==""} { lappend recnkls $ank
} else { set fnd 0
foreach n $recnkls {
if {[TStrLo $ank] eq [TStrLo $n]} { set fnd 1 ; break }
}
if {$fnd=="0"} { lappend recnkls $ank }
}
}
}
}
if {$isnew=="0"} { set dubnks "" ; set dubls "" ; set nikls "" ; set hstls ""
set tusfile [open $t2(sfpath)t2.users] ; set lincnt -1
set tmpfile1 [open $t2(sfpath)t2.usr.tmp1 w] ; set tmpfile2 [open $t2(sfpath)t2.usr.tmp2 w]
while {![eof $tusfile]} { set temp [split [gets $tusfile]]
if {$temp ne ""} { incr lincnt
if {$lincnt>"0"} {
foreach {nk hn uh tp tc wp wc mp mc ep ec ad ud n2 u2} $temp { break }
if {$n2 eq "" || $t2(match)=="0"} { set n2 - ; set u2 - }
set uh [string trimleft $uh ~] ; set fnd 0 ; set nidx 0
if {$newls ne ""} {
foreach {fnk fhn fuh fpt fct} $newls {
if {[TStrLo $nk] eq [TStrLo $fnk]} { set fnd 1 ; break }
if {$t2(match)=="0"} { incr nidx 5 ; continue }
if {$hn ne "*" && $hn eq $fhn} { set fnd 2 ; break }
if {[TStrLo $uh] eq [TStrLo $fuh]} { set fnd 3 ; break }
if {[TStrLo $n2] eq [TStrLo $fnk]} { set fnd 4 ; break }
if {[TStrLo $u2] eq [TStrLo $fuh]} { set fnd 5 ; break }
incr nidx 5
}
}
if {$fnd>"0"} { set end [expr {$nidx+4}] ; set newls [lreplace $newls $nidx $end]
if {$t2(match)=="1"} {
if {[TStrLo $fnk] ne [TStrLo $nk]} { set n2 $nk ; set nk $fnk }
if {$fhn ne "*"} { set hn $fhn }
if {[TStrLo $fuh] ne [TStrLo $uh]} { set u2 $uh ; set uh $fuh }
} else { set nk $fnk ; set hn $fhn ; set uh $fuh }
set fpt "${fpt}.0" ; set fct "${fct}.0"
set tp [expr { round($tp+$fpt) }] ; set tc [expr { round($tc+$fct) }]
set wp [expr { round($wp+$fpt) }] ; set wc [expr { round($wc+$fct) }]
set mp [expr { round($mp+$fpt) }] ; set mc [expr { round($mc+$fct) }]
set ep [expr { round($ep+$fpt) }] ; set ec [expr { round($ec+$fct) }]
set ud [unixtime] ; set putto 1
} else { set putto 2 }
set isdub 0
if {$nikls eq ""} { lappend nikls $nk $n2 ; lappend hstls $uh $u2
} else { set nidx 0
foreach {dnk dn2} $nikls {
if {[TStrLo $nk] eq [TStrLo $dnk] || [TStrLo $nk] eq [TStrLo $dn2]} { set isdub 1 ; break }
if {$t2(match)=="0"} { incr nidx 2 ; continue }
if {$n2 ne "-" && ([TStrLo $n2] eq [TStrLo $dnk] || [TStrLo $n2] eq [TStrLo $dn2])} { set isdub 2 ; break }
incr nidx 2
}
if {$isdub=="0" && $t2(match)>"0"} { set nidx 0
foreach {duh du2} $hstls {
if {[TStrLo $uh] eq [TStrLo $duh] || [TStrLo $uh] eq [TStrLo $du2]} { set isdub 3 ; break }
if {$u2 ne "-" && ([TStrLo $u2] eq [TStrLo $duh] || [TStrLo $u2] eq [TStrLo $du2])} { set isdub 4 ; break }
incr nidx 2
}
}
if {$isdub=="0"} { lappend nikls $nk $n2 ; lappend hstls $uh $u2
} else { set isdub [lindex $nikls $nidx] }
}
if {$isdub eq "0"} { set tmp2 "$nk $hn $uh $tp $tc $wp $wc $mp $mc $ep $ec $ad"
if {$putto=="1"} { puts $tmpfile1 "$tmp2 $ud $n2 $u2"
} else { puts $tmpfile2 "$tmp2 $ud $n2 $u2" }
} else { lappend dubnks $isdub
lappend dubls $nk $hn $uh $tp $tc $wp $wc $mp $mc $ep $ec $ad
}
}
}
}
close $tmpfile1 ; close $tmpfile2 ; close $tusfile
if {$dubls ne ""} { set dubucnt [llength $dubnks] ; set uc [expr {$uc-$dubucnt}]
putlog "Found $dubucnt players existing user records!"
}
if {$newls ne ""} { set uc [expr {$uc+([llength $newls]/5)}] }
set nufile [open $t2(sfpath)t2.usr.t--- w]
puts $nufile "$nt $d10 $dt $w10 $wt $m10 $mt $e10 $uc"
set tmpfile1 [open $t2(sfpath)t2.usr.tmp1] ; set cusrcnt 0
while {![eof $tmpfile1]} { set tmptusr [split [gets $tmpfile1]]
if {$tmptusr ne ""} { incr cusrcnt
foreach {nk hn uh tp tc wp wc mp mc ep ec ad ud n2 u2} $tmptusr { break }
if {$dubls ne ""} { set tmls "" ; set idx -1
foreach dnk $dubnks { incr idx
if {[TStrLo $nk] eq [TStrLo $dnk]} { set tmls [linsert $tmls 0 $idx] }
}
if {$tmls ne ""} {
foreach num $tmls { set dubnks [lreplace $dubnks $num $num]
set num [expr {$num*12}] ; set oldls [lrange $dubls $num [expr {$num+11}]]
set dubls [lreplace $dubls $num [expr {$num+11}]]
foreach {dnk dhn duh dtp dtc dwp dwc dmp dmc dep dec dad} $oldls { break }
set tp [expr {round("$tp.0"+$dtp)}] ; set tc [expr {round("$tc.0"+$dtc)}]
set wp [expr {round("$wp.0"+$dwp)}] ; set wc [expr {round("$wc.0"+$dwc)}]
set mp [expr {round("$mp.0"+$dmp)}] ; set mc [expr {round("$mc.0"+$dmc)}]
set ep [expr {round("$ep.0"+$dep)}] ; set ec [expr {round("$ec.0"+$dec)}]
if {$dad<$ad} { set ad $dad }
}
if {$t2(match)>"0" && $n2 eq "-" && [TStrLo $dnk] ne [TStrLo $nk]} { set n2 $dnk }
if {$t2(match)>"0" && $u2 eq "-" && [TStrLo $duh] ne [TStrLo $uh]} { set u2 $duh }
}
}
puts $nufile "$nk $hn $uh $tp $tc $wp $wc $mp $mc $ep $ec $ad $ud $n2 $u2"
}
}
close $tmpfile1 ; file delete $t2(sfpath)t2.usr.tmp1
if {$newls ne ""} {
foreach {nnk nhn nuh npt nct} $newls { incr cusrcnt ; set nexltmp ""
lappend nexltmp $nnk $nhn $nuh $npt $nct $npt $nct $npt $nct $npt $nct
lappend nexltmp [unixtime] [unixtime] - - ; puts $nufile "[join $nexltmp]"
}
}
set tmpfile2 [open $t2(sfpath)t2.usr.tmp2]
while {![eof $tmpfile2]} { set tmptusr [split [gets $tmpfile2]]
if {$tmptusr ne ""} { incr cusrcnt
foreach {nk hn uh tp tc wp wc mp mc ep ec ad ud n2 u2} $tmptusr { break }
if {$dubls ne ""} { set tmls "" ; set idx -1
foreach dnk $dubnks { incr idx
if {[TStrLo $nk] eq [TStrLo $dnk]} { set tmls [linsert $tmls 0 $idx] }
}
if {$tmls ne ""} {
foreach num $tmls { set dubnks [lreplace $dubnks $num $num]
set num [expr {$num*12}] ; set oldls [lrange $dubls $num [expr {$num+11}]]
set dubls [lreplace $dubls $num [expr {$num+11}]]
foreach {dnk dhn duh dtp dtc dwp dwc dmp dmc dep dec dad} $oldls { break }
set tp [expr {round("$tp.0"+$dtp)}] ; set tc [expr {round("$tc.0"+$dtc)}]
set wp [expr {round("$wp.0"+$dwp)}] ; set wc [expr {round("$wc.0"+$dwc)}]
set mp [expr {round("$mp.0"+$dmp)}] ; set mc [expr {round("$mc.0"+$dmc)}]
set ep [expr {round("$ep.0"+$dep)}] ; set ec [expr {round("$ec.0"+$dec)}]
if {$dad<$ad} { set ad $dad }
}
if {$t2(match)>"0" && $n2 eq "-" && [TStrLo $dnk] ne [TStrLo $nk]} { set n2 $dnk }
if {$t2(match)>"0" && $u2 eq "-" && [TStrLo $duh] ne [TStrLo $uh]} { set u2 $duh }
}
}
puts $nufile "$nk $hn $uh $tp $tc $wp $wc $mp $mc $ep $ec $ad $ud $n2 $u2"
}
}
close $tmpfile2 ; file delete $t2(sfpath)t2.usr.tmp2
close $nufile ; file delete $t2(sfpath)t2.users
file rename $t2(sfpath)t2.usr.t--- $t2(sfpath)t2.users
}
if {$isnew=="1"} { set tusfile [open $t2(sfpath)t2.users w]
puts $tusfile "[lrange $tlin0 0 7] [expr {[llength $newls]/5}]"
foreach {nk hn uh pt ct} $newls { set nexline ""
lappend nexline $nk $hn $uh $pt $ct $pt $ct $pt $ct $pt $ct
lappend nexline [unixtime] [unixtime] - - ; puts $tusfile "[join $nexline]"
}
close $tusfile
}
if {[info exists recnkls] && $recnkls ne ""} { TSetStat
if {$t2(voice)>"1"} { TDoActV $recnkls }
}
if {$w2=="0"} { set trefile [open $t2(sfpath)t2.recent w]
puts $trefile "$rlin0" ; close $trefile ; set t2(-reccnt) 0
}
}
proc TDoHInfo { {wat 0} } { global t2 botnick ; set scnt 0 ; set socnt 0
if {[file exists $t2(sfpath)t2.hist.info]} { set thiinfo [open $t2(sfpath)t2.hist.info]
set hinfo [split [gets $thiinfo]] ; close $thiinfo ; file delete $t2(sfpath)t2.hist.info
if {[TStrDig [lindex $hinfo 0]] && [llength $hinfo]>"1" && [TStrDig [lindex $hinfo 1]]} {
set scnt [lindex $hinfo 1]
if {[llength $hinfo]>"2" && [TStrDig [lindex $hinfo end]]} { set socnt [lindex $hinfo end] }
}
}
set thiinfo [open $t2(sfpath)t2.hist.info w]
if {![file exists $t2(sfpath)t2.hist]} { set thifile [open $t2(sfpath)t2.hist w]
puts $thifile "::N2:[unixtime]" ; puts $thifile "::X: Extra History:" ; close $thifile
puts $thiinfo "[unixtime] 0" ; close $thiinfo
set t2(-yestrda) 0 ; set t2(-histcnt) 0
} else { set thifile [open $t2(sfpath)t2.hist] ; set dc 0 ; set wc 0 ; set mc 0
while {![eof $thifile]} { set temp [gets $thifile]
if {($dc>"6" && $wc>"3" && $mc>"3") || [string match ::X:* $temp]} { break }
if {[string match ::D:* $temp]} { incr dc
} elseif {[string match ::W:* $temp]} { incr wc
} elseif {[string match ::M:* $temp]} { incr mc }
}
close $thifile
set tmlist[list $dc 1 12 $wc 1 22 $dc 2 13 $mc 1 32 $dc 3 14] ; set hlist ""
lappend tmlist $wc 2 23 $dc 4 15 $mc 2 33 $dc 5 16 $wc 3 24 $dc 6 17 $mc 3 34
foreach {x y z} $tmlist { if {$x>$y} { lappend hlist $z } }
if {$hlist ne ""} {
if {$scnt=="0"} { set scnt 1 } ; if {$socnt=="0"} { set socnt 1 }
set t2(-histcnt) "$scnt [join $hlist] $socnt"
puts $thiinfo "[unixtime] $t2(-histcnt)"
} else { puts $thiinfo "[unixtime] 0" ; set t2(-histcnt) 0 }
close $thiinfo
if {$dc>"0" && $wc>"0" && $mc>"0"} { set t2(-yestrda) 4
} elseif {$dc>"0" && $mc>"0"} { set t2(-yestrda) 3
} elseif {$dc>"0" && $wc>"0"} { set t2(-yestrda) 2
} elseif {$dc>"0"} { set t2(-yestrda) 1 } else { set t2(-yestrda) 0 }
}
}
proc TReadHist {num {opt -1} } { global t2 tclr botnick
if {![file exists $t2(sfpath)t2.hist]} { TDoHInfo ; return 0 }
if {![file exists $t2(sfpath)t2.hist.info] || $t2(-yestrda)=="0"} { TDoHInfo }
if {$num<"4"} { set find 1 ; set keep 30 ; set dwm d
if {$t2(yesterda)=="1"} { set keep 10 } elseif {$t2(yesterda)=="2"} { set keep 20 }
if {$num=="2"} { set dwm w } elseif {$num=="3"} { set dwm m }
} else { set temp [split $t2(-histcnt)]
if {[llength $temp]<"3"} { TDoHInfo ; set temp [split $t2(-histcnt)] }
if {$t2(-histcnt) eq "0"} { return 0 }
if {$opt=="1" && $t2(history)!="0"} { set keep 20 ; set dwm d
if {$t2(history)=="1"} { set keep 10 }
set x [lindex $temp 0] ; set y [lrange $temp 1 end-1]
if {$x>[llength $y]} { set x 1 }
set do [lindex $y [expr {$x-1}]] ; incr x
set find [string index $do 1] ; set z [string index $do 0]
if {$z=="2"} { set dwm w } elseif {$z=="3"} { set dwm m }
set t2(-histcnt) "$x [join [lrange $temp 1 end]]"
set thiinfo [open $t2(sfpath)t2.hist.info w]
puts $thiinfo "[unixtime] $t2(-histcnt)" ; close $thiinfo
} elseif {$opt=="2" && $t2(otherhist)!="0"} { set keep 1 ; set find 1+
set y [lrange $temp 1 end-1] ; set z [lindex $temp end]
if {$z=="2"} { if {[lsearch $y 2*]>"-1"} { set dwm w } else { incr z } }
if {$z=="3"} { if {[lsearch $y 3*]>"-1"} { set dwm m } else { set z 1 } }
if {$z=="1"} { if {[lsearch $y 1*]>"-1"} { set dwm d } else { TDoHInfo ; return 0 } }
incr z ; if {$z=="4"} { set z 1 }
set t2(-histcnt) "[join [lrange $temp 0 end-1]] $z"
set thiinfo [open $t2(sfpath)t2.hist.info w]
puts $thiinfo "[unixtime] $t2(-histcnt)" ; close $thiinfo
}
}
if {![info exists keep]} { return 0 } ; set dwm [string toupper $dwm]
set thifile [open $t2(sfpath)t2.hist] ; set cnt 0 ; set utls "" ; set plls ""
set time "" ; set players ""
while {![eof $thifile]} { set temp [gets $thifile]
if {$time ne "" && ![string match :N:* $temp]} {
if {$players ne ""} { lappend utls $time ; lappend plls $players }
set time "" ; set players ""
if {$find ne "1+"} { break } ; if {$cnt=="7"} { break }
}
if {[string match ::$dwm:* $temp]} { incr cnt ; set temp [lindex [split $temp] 2]
if {$find eq "1+" || $find==$cnt} { set time $temp ; set pcnt 0 }
} elseif {[string match :N:* $temp] && $time ne ""} { incr pcnt
if {$pcnt>$keep} { continue } ; set temp [split $temp]
foreach {nk hn uh pt} $temp { break } ; set nk [string range $nk 3 end]
lappend players $nk $pt
}
}
close $thifile
if {$utls eq ""} { return 0 }
if {$dwm eq "D"} { set clr2 $tclr(-d11) ; set clr3 $tclr(-d12)
} elseif {$dwm eq "W"} { set clr2 $tclr(-w11) ; set clr3 $tclr(-w12)
} else { set clr2 $tclr(-m11) ; set clr3 $tclr(-m12) }
if {$find ne "1+"} { set lut [lindex $utls 0] ; set plls [lindex $plls 0]
if {[llength $plls]=="22"} { set plls [lrange $plls 0 19]
} elseif {[llength $plls]=="42"} { set plls [lrange $plls 0 39] }
if {$num=="1"} { set sholine "$tclr(-d10) YESTERDAYS Top 10 - "
if {[llength $plls]>"20"} { set sholin2 "$tclr(-d10) YESTERDAYS Top 11-20: - " }
if {[llength $plls]>"40"} { set sholin3 "$tclr(-d10) YESTERDAYS Top 21-30: - " }
} elseif {$num=="2"} { set sholine "$tclr(-w10) Last WEEKS Top 10 - "
if {[llength $plls]>"20"} { set sholin2 "$tclr(-w10) Last WEEKS Top 11-20: - " }
if {[llength $plls]>"40"} { set sholin3 "$tclr(-w10) Last WEEKS Top 21-30: - " }
} elseif {$num=="3"} { set sholine "$tclr(-m10) Last MONTHS Top 10 - "
if {[llength $plls]>"20"} { set sholin2 "$tclr(-m10) Last MONTHS Top 11-20: - " }
if {[llength $plls]>"40"} { set sholin3 "$tclr(-m10) Last MONTHS Top 21-30: - " }
} elseif {$dwm=="D"} {
if {$t2(days1) eq ""} { set day [string toupper [strftime %A $lut]]
} else { set day [lindex $t2(days1) [strftime %u $lut]] }
set sholine "$tclr(-d10) ${day}S Top 10 - "
if {[llength $plls]>"20"} { set sholin2 "$tclr(-d10) ${day}S Top 11-20: - " }
} elseif {$dwm=="W"} { set sholine "$tclr(-w10) $find WEEKS Ago: Top 10 - "
if {[llength $plls]>"20"} { set sholin2 "$tclr(-w10) $find WEEKS Ago: Top 11-20: - " }
} elseif {$dwm=="M"} {
if {$t2(mons1) eq ""} { set month [string toupper [strftime %B $lut]]
} else { set month [lindex $t2(mons1) [string trimleft [strftime %m $lut] 0]] }
set sholine "$tclr(-m10) ${month}S Top 10 - "
if {[llength $plls]>"20"} { set sholin2 "$tclr(-m10) ${month}S Top 11-20: - " }
}
set cnt 0
foreach {nk pt} $plls { incr cnt
if {$cnt<"11"} { append sholine "$clr2 \002#$cnt:\002 $clr3 $nk $pt "
} elseif {$cnt<"21"} { append sholin2 "$clr2 \002#$cnt:\002 $clr3 $nk $pt "
} elseif {[info exists sholin3]} { append sholin3 "$clr2 \002#$cnt:\002 $clr3 $nk $pt " }
}
} else {
if {[llength $utls]=="1"} { return 0 }
if {$dwm=="D"} { set sholine "$tclr(-d10) Top Player of: - "
} elseif {$dwm=="W"} { set sholine "$tclr(-w10) Top Player of: - "
} else { set sholine "$tclr(-m10) Top Player of: - " }
set cnt 0
foreach lut $utls player $plls { incr cnt
foreach {nk pt} $player { break }
if {$dwm=="D"} {
if {$t2(days2) eq ""} { append sholine "$clr2 \002[strftime %A $lut]:\002 $clr3 $nk $pt "
} else { append sholine "$clr2 \002[lindex $t2(days2) [strftime %u $lut]]:\002 $clr3 $nk $pt " }
} elseif {$dwm=="W"} {
if {$cnt=="1"} { append sholine "$clr2 \002Last Week:\002 $clr3 $nk $pt "
} else { append sholine "$clr2 \002$cnt Weeks Ago:\002 $clr3 $nk $pt " }
} else {
if {$t2(mons2) eq ""} { set month [strftime %B $lut]
} else { set month [lindex $t2(mons2) [string trimleft [strftime %m $lut] 0]] }
append sholine "$clr2 \002${month}:\002 $clr3 $nk $pt "
}
}
}
if {![info exists sholine]} { return 0 }
if {$sholine ne ""} { putquick "PRIVMSG $t2(chan) :$sholine"
if {[info exists sholin3]} { utimer 4 "[list TShoLine $sholin2 $sholin3]"
} elseif {[info exists sholin2]} { utimer 4 "[list TShoLine $sholin2]" }
}
}
proc TShoLine {line {lin3 0} } { global t2 tclr botnick
if {$t2(-ison) == "0"} { return 0 }
if {$lin3 != "0"} { utimer 4 "[list TShoLine $lin3]" }
putquick "PRIVMSG $t2(chan) :$line"
}
proc TChkDed {} {
if {$t2(-ison) == "0"} { return 0 }
set ctimrs [utimers] ; set sterm "* TShoTriv *" ; set strm2 "* TShoTrv2 *"
if {[lsearch $ctimrs $sterm]=="-1" && [lsearch $ctimrs $strm2]=="-1"} {
set qresn "triv: fatal error" ; die $qresn
}
}
if {$t2(restart)=="1"} {
proc TStartTriv {} { global t2 botnick
if {[botonchan $t2(chan)]} {
if {$t2(-ison)=="0"} { TOnOff $botnick error restart $t2(chan) 1 3 }
} else { utimer 4 TStartTriv }
}
if {[file exists $t2(sfpath)t2.recent] && $t2(-ison)=="0"} { utimer 6 TStartTriv }
}
proc TBndTime {mn hr da mo yr} { global t2 tclr botnick
if {$t2(-ison) == "0"} { return 0 }
set ctimrs [utimers] ; set sterm "* TShoTriv *" ; set strm2 "* TShoTrv2 *"
if {[lsearch $ctimrs $sterm]=="-1" && [lsearch $ctimrs $strm2]=="-1"} { utimer 6 TChkDed }
if {$mn=="00" && $hr=="00"} { incr t2(-dosave)
if {$t2(bakupu)>"0" || $t2(bakuph)>"0"} { set t2(-dobakup) 1 }
} elseif {$mn=="00" && $hr=="12"} {
if {$t2(bakupu)>"0" && $t2(bakhow)>"1"} { set t2(-dobakup) 2 }
}
if {[info exists t2(-hactv)]} {
if {$t2(-dosave)<"2"} { incr t2(-hcnt) }
if {$t2(-hcnt)>=$t2(-hactv) && $t2(-hnew)>"0"} { set t2(-hcnt) 0 ; incr t2(-dosave) 2 }
} elseif {$mn=="00" && $hr=="12" && [info exists t2(-html)] && $t2(-html) eq "d2"} {
incr t2(-dosave) 2
}
if {$mn=="01" || $mn=="31"} { set t2(-shoad) 1
if {$mn=="01" && $hr=="00"} { return 0 }
if {$t2(tda)!="0"} { set t2(-shoda10) 1 }
} elseif {$mn=="06" || $mn=="36"} { if {$t2(ever)!="0"} { set t2(-shoev10) 1 }
} elseif {$mn=="16" || $mn=="46"} { set t2(-shoad) 1
if {$mn=="16"} { if {$t2(lmo)!="0"} { set t2(-shohist) 3 }
} elseif {$t2(tmo)!="0"} { set t2(-shomo10) 1 }
} elseif {$mn=="21" || $mn=="51"} { if {$t2(twe)!="0"} { set t2(-showe10) 1 }
} elseif {$mn=="11"} { if {$t2(lda)!="0"} { set t2(-shohist) 1 }
} elseif {$mn=="26"} { set t2(-shohist) 4
} elseif {$mn=="41"} { if {$t2(lwe)!="0"} { set t2(-shohist) 2 }
} elseif {$mn=="56"} { set t2(-shohist) 5 }
}
proc TBind {typ {bnd b} } { global t2 botnick
if {$typ eq "q"} {
if {$bnd eq "b"} { bind pubm $t2(pqflag) "$t2(chan) $t2(upubq)" TPQues ; set t2(-qbound) 1
} else { unbind pubm $t2(pqflag) "$t2(chan) $t2(upubq)" TPQues ; set t2(-qbound) 0 }
} elseif {$typ eq "h"} {
if {$bnd eq "b"} {
if {$t2(hint) eq "~"} { bind pubm $t2(hflag) $t2(chan)%~ TDoHint ; set t2(-hbound) 1
} else { bind pubm $t2(hflag) "$t2(chan) $t2(hint)" TDoHint ; set t2(-hbound) 1 }
} else {
if {$t2(hint) eq "~"} { unbind pubm $t2(hflag) $t2(chan)%~ TDoHint ; set t2(-hbound) 0
} else { unbind pubm $t2(hflag) "$t2(chan) $t2(hint)" TDoHint ; set t2(-hbound) 0 }
}
} elseif {$typ eq "a"} {
if {$bnd eq "b"} { bind pubm $t2(pflag) "$t2(chan) $t2(-answer)" TGotIt ; set t2(-abound) 1
if {[info exists t2(-answr2)]=="1"} {
foreach {altavar altansr} [array get t2 -answr*] {
bind pubm $t2(pflag) "$t2(chan) $altansr" TGotIt
}
set t2(-a2bound) 1
}
} else { set t2(-abound) 0
if {$t2(-answer) ne ""} { set fnd 0
set t2(-allansls) [lreplace $t2(-allansls) 0 0]
foreach x $t2(-allansls) {
if {[string equal -nocase $x $t2(-answer)]} { incr fnd ; break }
}
if {$fnd=="0"} { unbind pubm $t2(pflag) "$t2(chan) $t2(-answer)" TGotIt }
}
if {$t2(-a2bound)=="1"} { set temp [array get t2 -answr*]
if {$temp ne ""} { set x 0
foreach {altavar altansr} $temp { incr x 2 ; set fnd 0
foreach {var ans} [lrange $temp $x end] {
if {[string equal -nocase $ans $altansr]} { incr fnd ; break }
}
if {$fnd=="0"} { unbind pubm $t2(pflag) "$t2(chan) $altansr" TGotIt }
}
}
set t2(-a2bound) 0 ; set t2(-allansls) "" ; array unset t2 -answr*
}
}
} elseif {$typ eq "s"} {
if {$bnd eq "b"} { bind pubm $t2(tflag) "$t2(chan) $t2(slow)" TSlow
bind pubm $t2(tflag) "$t2(chan) $t2(fast)" TFast
} else { unbind pubm $t2(tflag) "$t2(chan) $t2(slow)" TSlow
unbind pubm $t2(tflag) "$t2(chan) $t2(fast)" TFast
}
}
return 0
}
proc TMkLines {} { global t2 tclr botnick nick ; set t2(-otimer) "" ; set doques 1
if {$t2(kaos)>"0" && $t2(-iskaos)==$t2(kaos)} { set qfline [gets $t2(-opnkfil)]
if {$qfline eq ""} {
close $t2(-opnkfil) ; set temp [lsearch -exact $t2(-kfills) $t2(-kflnow)]
if {$t2(-kflnow) eq [lindex $t2(-kfills) end]} {
set tmp2 [lindex $t2(-kfills) 0] ; set tkcntfil [open $t2(sfpath)t2.kcount w]
puts $tkcntfil "0" ; close $tkcntfil ; set t2(-kcount) 0
} else { set tmp2 [lindex $t2(-kfills) [expr {$temp+1}]] }
if {[file exists $tmp2]} { set t2(-opnkfil) [open $tmp2] ; set qfline [gets $t2(-opnkfil)]
if {$qfline ne ""} { set t2(-kflnow) $tmp2 ; set doques 0
} else { set t2(kaos) 0 ; close $t2(-opnkfil) }
} else { set t2(kaos) 0 }
} else { set doques 0 }
}
if {$doques=="1"} { set qfline [gets $t2(-opnfil)]
if {$qfline eq ""} {
close $t2(-opnfil) ; set temp [lsearch -exact $t2(-qfills) $t2(-qflnow)]
if {$t2(-qflnow) eq [lindex $t2(-qfills) end]} {
lappend tmpls $t2(-qfills) ; set startovr 1
} else { lappend tmpls [lrange $t2(-qfills) [expr {$temp+1}] end]
lappend tmpls [lrange $t2(-qfills) 0 $temp] ; set startovr 0
}
set tmpcnt 0 ; set missng 0 ; set delfiles ""
foreach tls $tmpls { incr tmpcnt
foreach qfile $tls {
if {[file exists $qfile]} { set t2(-opnfil) [open $qfile] ; set t2(-qflnow) $qfile
while {![eof $t2(-opnfil)]} {
set qfline [gets $t2(-opnfil)] ; if {$qfline ne ""} { break }
}
if {$qfline eq ""} { close $t2(-opnfil) ; file delete $qfile
lappend delfiles $qfile ; incr t2(-qfcnt) -1
if {[set tfidx [lsearch $t2(-qfills) $qfile]]!="-1"} {
set t2(-qfills) [lreplace $t2(-qfills) $tfidx $tfidx] }
} else { break }
} else { incr missng ; incr t2(-qfcnt) -1
if {[set tfidx [lsearch $t2(-qfills) $qfile]]!="-1"} {
set t2(-qfills) [lreplace $t2(-qfills) $tfidx $tfidx] }
}
}
if {$qfline ne ""} { break }
}
if {$tmpcnt=="2" || $startovr=="1"} { set tqcntfil [open $t2(sfpath)t2.qcount w]
puts $tqcntfil "0" ; close $tqcntfil ; set t2(-qcount) 0
}
}
}
if {$qfline ne ""} { set qls [split $qfline *]
set t2(-allansls) [TStrLo [lrange $qls 1 end]]
if {$t2(-test)=="1"} { putlog "\00310$t2(-allansls)" }
set tqes [lindex $qls 0] ; set t2(-answer) [lindex $qls 1]
if {[llength $qls]>"2"} { set tmpcnt 1
foreach altansr [lrange $qls 2 end] { incr tmpcnt ; set t2(-answr$tmpcnt) $altansr }
}
set dun 0 ; set tq2 ""
if {[TStrLo $tqes]=="scramble" || [TStrLo $tqes]=="uword"} {
set temp [TStrLo $t2(-answer)]
if {$t2(randfil)=="1"} { append tq2 "UnScramble$tclr(-qs)[TRandL]$tclr(-qt)"
append tq2 "this$tclr(-qs)[TRandL]$tclr(-qt)Word:"
} else { append tq2 "UnScramble this Word:" }
while {$dun=="0"} {
if {[string length $temp]>"1"} { set tem2 [rand [string length $temp]]
if {$t2(randfil)=="1"} {
append tq2 "$tclr(-qs)[TRandL]$tclr(-qt)[string index $temp $tem2]"
} else { append tq2 " [string index $temp $tem2]" }
set temp [string replace $temp $tem2 $tem2]
} else {
if {$t2(randfil)=="1"} { append tq2 "$tclr(-qs)[TRandL]$tclr(-qt)$temp"
} else { append tq2 " $temp" }
set dun 1 ; break
}
}
} else {
if {$t2(randfil)=="1"} { set stridx 0
while {$dun=="0"} { set temp [string first " " $tqes $stridx]
if {$temp!="-1"} { append tq2 [string range $tqes $stridx [expr {$temp-1}]]
append tq2 $tclr(-qs)[TRandL]$tclr(-qt) ; set stridx [expr {$temp+1}]
} else { append tq2 [string range $tqes $stridx end] ; set dun 1 ; break }
}
} else { append tq2 $tqes }
}
if {$t2(shonum)=="0"} { set tqnum ""
} else {
if {$doques=="1"} {
if {[string length $t2(-qcount)]=="1"} { set tqnum ".000$t2(-qcount). "
} elseif {[string length $t2(-qcount)]=="2"} { set tqnum ".00$t2(-qcount). "
} elseif {[string length $t2(-qcount)]=="3"} { set tqnum ".0$t2(-qcount). "
} else { set tqnum ".$t2(-qcount). " }
} else {
if {[string length $t2(-kcount)]=="1"} { set tqnum ".K00$t2(-kcount). "
} elseif {[string length $t2(-kcount)]=="2"} { set tqnum ".K0$t2(-kcount). "
} else { set tqnum ".K$t2(-kcount). " }
}
}
set t2(-questn) "$tclr(-qt) $tqnum$tq2 ? $t2(-endclr)"
if {$t2(usrqes)=="1"} { set t2(-uqes) "$tclr(-qt) $tq2 " }
if {$doques=="1"} { set tansls[list $t2(-answer)]
set nrange [expr {$t2(hpoint)-$t2(lpoint)}] ; set brange [expr {$t2(maxbonus)-$t2(hpoint)}]
} else { set tansls [lrange $qls 1 end] ; set t2(-kansls) "" ; set kdigcnt 0 }
set kanscnt 0
foreach tmansr $tansls {
set ansls [split $tmansr {}] ; set istrun 0 ; incr kanscnt ; set kbegin ""
if {$doques=="1"} { set pbase $t2(lpoint) ; set aprang 0
} else {
if {$kanscnt=="1"} { set tem4 -answer } else { set tem4 -answr$kanscnt }
}
if {[llength $ansls]=="1"} {
if {$doques=="1"} { set t2(-hint) * ; set t2(-hnt2) * ; set t2(-hnt3) *
if {[TStrDig $tmansr]} { set aprang [expr {$nrange/4}]
} else { set aprang [expr {$nrange/3}] }
} else { incr kdigcnt ; append t2(-hint) " \[*\]"
lappend t2(-kansls) $tmansr \[*\] \[*\] $tem4
}
} elseif {[llength $ansls]=="2"} {
if {$doques=="1"} {
set t2(-hint) "**" ; set t2(-hnt2) "[lindex $ansls 0]*" ; set t2(-hnt3) "[lindex $ansls 0]*"
if {[TStrDig [lindex $ansls 1]]} { set aprang [expr {$nrange/4}]
} else { set aprang [expr {$nrange/3}] }
} else { incr kdigcnt 2 ; append t2(-hint) " \[**\]"
lappend t2(-kansls) $tmansr \[[lindex $ansls 0]*\] \[[lindex $ansls 0]*\] $tem4
}
} elseif {[TStrDig $tmansr] && [llength $ansls]<"5"} {
foreach {d1 d2 d3 d4} $ansls { break }
if {$doques=="1"} { set t2(-uhint) $d1
if {$d4==""} { set aprang [expr {$nrange/3}]
set t2(-hint) "***" ; set t2(-hnt2) "$d1**" ; set t2(-hnt3) "$d1$d2*"
} else { set aprang [expr {$nrange/2}]
set t2(-hint) "****" ; set t2(-hnt2) "$d1$d2**" ; set t2(-hnt3) "$d1$d2$d3*"
}
} else {
if {$d4==""} { incr kdigcnt 3 ; append t2(-hint) " \[***\]"
lappend t2(-kansls) $tmansr \[$d1**\] \[$d1$d2*\] $tem4
} else { incr kdigcnt 4 ; append t2(-hint) " \[****\]"
lappend t2(-kansls) $tmansr \[$d1$d2**\] \[$d1$d2$d3*\] $tem4
}
}
} else {
if {$t2(shothe)=="1" && [string match -nocase "The *" $tmansr]} {
if {[string length $tmansr]>"6"} {
if {$doques=="1"} {
append t2(-hint) "The " ; append t2(-hnt2) "The " ; append t2(-hnt3) "The "
append t2(-uhint) "the " ; append t2(-uhnt2) "the " ; append t2(-uhnt3) "the "
} else { incr kdigcnt ; append t2(-hint) " \[The "
append t2(-hnt2) "\[The " ; append t2(-hnt3) "\[The "
}
set kbegin [string range $tmansr 0 3] ; set tmansr [string range $tmansr 4 end]
set istrun 1 ; set ansls [lrange $ansls 4 end]
}
}
if {$doques=="1"} { set onethrd [expr {$nrange/3}]
if {[llength $ansls]>"14"} {
if {$t2(dobonus)>"0" && $t2(-shobons)>"0"} {
incr t2(-shobons) -1 ; set pbase $t2(hpoint) ; set onethrd [expr {$brange/3}]
}
if {[llength $ansls]>"24"} { incr pbase [expr {$onethrd*2}] ; set aprang $onethrd
} elseif {[llength $ansls]>"19"} {
if {$pbase==$t2(hpoint)} { incr pbase $onethrd ; set aprang [expr {$onethrd*2}]
} else { incr pbase [expr {$nrange/2}] ; set aprang [expr {$nrange/2}] }
} else {
if {$pbase==$t2(hpoint)} { set aprang [expr {$onethrd*2}]
} else { incr pbase $onethrd ; set aprang $onethrd }
}
} else {
if {[llength $ansls]>"8"} { set aprang [expr {$onethrd*2}]
} else { set aprang [expr {$nrange/2}] }
}
} elseif {$t2(-hnt2)==""} { append t2(-hint) " \["
append t2(-hnt2) "\[" ; append t2(-hnt3) "\["
}
set cscnt 0 ; set chidx -1
foreach char $ansls { incr chidx ; if {$doques=="0"} { incr kdigcnt }
if {[TChar 1 $char]} { incr cscnt ; append t2(-hint) *
} else { append t2(-hint) $char }
if {$chidx=="0"} { append t2(-hnt2) $char ; append t2(-hnt3) $char
if {$doques=="1"} { append t2(-uhint) $char
append t2(-uhnt2) $char ; append t2(-uhnt3) $char }
} elseif {$chidx=="1"} {
if {$doques=="1"} {
if {![TChar 1 [lindex $ansls 0]] && [llength $ansls]>"3"} { append t2(-uhint) $char }
append t2(-uhnt2) $char ; append t2(-uhnt3) $char
}
if {[llength $ansls]>"3"} { append t2(-hnt2) $char } else { append t2(-hnt2) * }
append t2(-hnt3) $char
} elseif {$chidx=="2"} {
if {[llength $ansls]>"7"} { append t2(-hnt2) $char
} else {
if {[TChar 1 $char]} { append t2(-hnt2) * } else { append t2(-hnt2) $char }
}
if {[llength $ansls]>"5"} { append t2(-hnt3) $char
if {$doques=="1"} { append t2(-uhnt2) $char }
} else {
if {[TChar 1 $char]} { append t2(-hnt3) * } else { append t2(-hnt3) $char }
}
if {$doques=="1" && [llength $ansls]>"3"} { append t2(-uhnt3) $char }
} elseif {$chidx=="3"} {
if {[llength $ansls]>"7"} {
if {$cscnt>"3"} {
if {[TChar 1 $char]} { append t2(-hnt2) *
if {[TChar 2 $char]} { append t2(-hnt3) $char } else { append t2(-hnt3) * }
} else { append t2(-hnt2) $char ; append t2(-hnt3) $char }
} else { append t2(-hnt2) $char ; append t2(-hnt3) $char }
if {$doques=="1"} { append t2(-uhnt2) $char ; append t2(-uhnt3) $char }
} else {
if {[TChar 1 $char]} { append t2(-hnt2) *
if {[TChar 2 $char]} { append t2(-hnt3) $char } else { append t2(-hnt3) * }
} else { append t2(-hnt2) $char ; append t2(-hnt3) $char }
}
} else {
if {[TChar 1 $char]} { append t2(-hnt2) *
if {[TChar 2 $char]} { append t2(-hnt3) $char } else { append t2(-hnt3) * }
} else { append t2(-hnt2) $char ; append t2(-hnt3) $char }
if {$doques=="1"} {
if {$chidx=="4" && [llength $ansls]>"7"} { append t2(-uhnt3) $char
} elseif {$chidx=="5" && [llength $ansls]>"12"} { append t2(-uhnt3) $char }
}
}
}
if {$doques=="0"} { append t2(-hint) \] ; append t2(-hnt2) \] ; append t2(-hnt3) \]
lappend t2(-kansls) $kbegin$tmansr $t2(-hnt2) $t2(-hnt3) $tem4
set t2(-hnt2) "" ; set t2(-hnt3) ""
}
}
}
if {$t2(-utrigd)=="0"} { incr t2(-udead)
if {$t2(-udead)==$t2(sqcnt) && $t2(-htime)==$t2(qtime) && $t2(qslow)>"0"} {
set t2(-htime) $t2(qslow) ; set t2(-ptime) $t2(pslow)
} elseif {$t2(-udead)==$t2(rqcnt) && $t2(rest)>"0"} {
set t2(-htime) $t2(rest) ; set t2(-ptime) $t2(rest)
}
} else { set t2(-utrigd) 0 }
if {$doques=="1"} { set pnttmp [expr {$pbase+[rand $aprang]}]
set t2(-hint) "$tclr(-hint) 1st Hint:$tclr(-hint2) $t2(-hint) $t2(-endclr) "
if {$pbase>=$t2(hpoint)} { set pnttmp "[string range [expr {$pnttmp+1000}] 0 end-3]000"
append t2(-hint) "$tclr(-bonus) BONUS Question Value :$tclr(-bon2) $pnttmp Points "
} else { set pnttmp "[string range [expr {$pnttmp+100}] 0 end-2]00"
append t2(-hint) "$tclr(-pnt1) Question Value :$tclr(-pnt2) $pnttmp Points "
}
set t2(-points) [expr {$pnttmp/2}]
} else {
set t2(-hint) "$tclr(-khnt) 1st Hint:$tclr(-khnt2) [string trim $t2(-hint)] $t2(-endclr) "
set digav [expr {$kdigcnt/$kanscnt}] ; set pbase $t2(klpoint)
set onesev [expr {($t2(khpoint)-$t2(klpoint))/7}]
set kbon $t2(kbonlo) ; set ksev [expr {($t2(kbonhi)-$t2(kbonlo))/7}]
if {$kanscnt<"6"} {
if {$digav<"8"} { set pnttmp [expr {$pbase+[rand $onesev]}]
set kpntmp [expr {$kbon+[rand $ksev]}]
} elseif {$digav<"14"} { incr pbase $onesev ; incr kbon $ksev
set pnttmp [expr {$pbase+[rand $onesev]}]
set kpntmp [expr {$kbon+[rand $ksev]}]
} else { incr pbase [expr {$onesev*2}] ; incr kbon [expr {$ksev*2}]
set pnttmp [expr {$pbase+[rand $onesev]}] ; set kpntmp [expr {$kbon+[rand $ksev]}] }
} elseif {$kanscnt<"9"} {
if {$digav<"8"} { incr pbase $onesev ; incr kbon $ksev
set pnttmp [expr {$pbase+[rand [expr {$onesev*2}]]}]
set kpntmp [expr {$kbon+[rand [expr {$ksev*2}]]}]
} elseif {$digav<"14"} { incr pbase [expr {$onesev*3}]
set pnttmp [expr {$pbase+[rand $onesev]}]
incr kbon [expr {$ksev*3}] ; set kpntmp [expr {$kbon+[rand $ksev]}]
} else { incr pbase [expr {$onesev*4}] ; incr kbon [expr {$ksev*4}]
set pnttmp [expr {$pbase+[rand $onesev]}] ; set kpntmp [expr {$kbon+[rand $ksev]}] }
} else {
if {$digav<"8"} { incr pbase [expr {$onesev*3}]
set pnttmp [expr {$pbase+[rand [expr {$onesev*2}]]}]
incr kbon [expr {$ksev*3}] ; set kpntmp [expr {$kbon+[rand [expr {$ksev*2}]]}]
} elseif {$digav<"14"} { incr pbase [expr {$onesev*5}]
set pnttmp [expr {$pbase+[rand $onesev]}]
incr kbon [expr {$ksev*5}] ; set kpntmp [expr {$kbon+[rand $ksev]}]
} else { incr pbase [expr {$onesev*6}] ; set pnttmp [expr {$pbase+[rand $onesev]}]
incr kbon [expr {$ksev*6}] ; set kpntmp [expr {$kbon+[rand $ksev]}] }
}
set ptmp2 [expr {$pnttmp/$kanscnt}] ; set ptmp2 "[string range [expr {$ptmp2+100}] 0 end-2]00"
set t2(-points) $ptmp2
if {$t2(kbonus)=="0" || $kanscnt<$t2(kbonus)} { set t2(-kbon) 0
} else { set kpntm2 [string range $kpntmp end-1 end] ; set kpntm3 [string range $kpntmp 0 end-2]
if {$kanscnt<"4"} { set kpntm3 [string range $t2(kbonlo) 0 end-2] }
if {$kpntm2<"30"} { set t2(-kbon) ${kpntm3}00
} elseif {$kpntm2>"70"} { set t2(-kbon) [incr kpntm3]00
} else { set t2(-kbon) ${kpntm3}50 }
}
set pnttmp [expr {$ptmp2*$kanscnt}] ; set t2(-kanstot) $kanscnt
set t2(-kgotpnts) 0 ; set t2(-kusrls) "" ; set doshort 0
if {$t2(krest)=="1" && $t2(-udead)>=$t2(rqcnt)} { set doshort 1
} elseif {$t2(krest)>"1" && $t2(-udead)>=$t2(sqcnt)} { set doshort 1 }
if {$t2(kstyle)=="0" && $doshort=="0"} {
append t2(-questn) "$tclr(-kpnt1) $kanscnt Answers at $ptmp2 Points Each$tclr(-kpnt2) Total: $pnttmp Points "
} else {
append t2(-questn) "$tclr(-kpnt1) Question Value :$tclr(-kpnt2) $pnttmp Points "
set t2(-hint) "$tclr(-khnt) 1st Hint:$tclr(-khnt2) [TDoNum $kanscnt] Possible Answers $t2(-endclr) "
append t2(-hint) "$tclr(-kpnt1) Each Answer :$tclr(-kpnt2) $ptmp2 Points "
}
}
}
if {$t2(-dosave)>"0"} {
if {$t2(-dosave)!="2"} { TSavHist 1 ; incr t2(-dosave) -1
if {$t2(-stats)>"0"} { TSetStat }
} else { set t2(hdowat) active ; incr t2(-dosave) -2
if {[info exists t2(-hnew)]} { set t2(-hnew) 0 }
source $t2(pwdpath)$t2(scrpath)t-2.html.tcl
}
} elseif {$t2(-shoda10)>"0" || $t2(-showe10)>"0" || $t2(-shomo10)>"0" || $t2(-shoev10)>"0"} {
TSavHist 2
} elseif {$t2(-shohist)>"3"} {
if {$t2(-histcnt)!="0"} {
if {$t2(-shohist)=="4"} { TReadHist 4 1 } else { TReadHist 4 2 }
}
set t2(-shohist) 0
} elseif {$t2(-shohist)>"0"} {
if {$t2(-shohist)=="1" && $t2(-yestrda)>"0"} { TReadHist 1
} elseif {$t2(-shohist)=="2" && ($t2(-yestrda)=="2" || $t2(-yestrda)=="4")} { TReadHist 2
} elseif {$t2(-shohist)=="3" && $t2(-yestrda)>"2"} { TReadHist 3 }
set t2(-shohist) 0
}
if {[info exists t2(-dobakup)]} {
if {$t2(-dobakup)=="1"} {
if {$t2(bakupu)>"0"} { TBakUp u 0 }
if {$t2(bakuph)>"0"} { TBakUp h 0 }
} else { TBakUp u 0 }
unset t2(-dobakup)
}
if {$t2(-shoad)=="1"} {
set ner2 "Kp b446.vavrsgB" ; set ner3 "eiSy ..02 iiTuo" ; set nerp ""
foreach x [split $ner2 {}] y [split $ner3 {}] { set nerp $x$y$nerp }
set t2(-preqes) $nerp\x05E\x05E ; set t2(-shoad) 0
} else {
if {$t2(randad)>"0"} { incr t2(-randcnt)
if {$t2(-randcnt)>=$t2(randad)} {
set t2(-preqes) [lindex $t2(rndlin) $t2(-shorand)] ; incr t2(-shorand)
if {$t2(-shorand)>=[llength $t2(rndlin)]} { set t2(-shorand) 0 }
set t2(-randcnt) 0
}
}
}
}
proc TLook { {file 0} } { global t2
if {$file=="0"} { set fmls[list $t2(myfils) $t2(newfil)]
} else { set fmls[list $file] }
foreach fmask $fmls {
set found [glob -directory $t2(pwdpath) -nocomplain $fmask]
if {$found==""} { set found [glob -directory $t2(pwdpath)$t2(scrpath) -nocomplain $fmask] }
if {$found!=""} { return $found }
}
return $found
}
proc TNexFil {num} { set nexfcnt [string trimleft $num 0]
if {$nexfcnt==""} { set nexfcnt 0 } ; incr nexfcnt
if {[string length $nexfcnt]=="1"} { set nexfcnt "00$nexfcnt"
} elseif {[string length $nexfcnt]=="2"} { set nexfcnt "0$nexfcnt" }
return $nexfcnt
}
proc TSetup { {nk 0} {uh 0} {hn 0} {tx 0} {opt 0} } {
global t2 tclr botnick
if {![file exists $t2(sfpath)]} { file mkdir $t2(sfpath) }
if {![file exists $t2(qfpath)]} { file mkdir $t2(qfpath) }
if {![file exists $t2(sfpath)t2.settings]} {
set tsetfil [open $t2(sfpath)t2.settings w]
puts $tsetfil "::N:[unixtime] $nk $uh $hn" ; close $tsetfil
}
set havnew [TLook]
if {$opt=="1"} {
if {$t2(-qfcnt)>"0"} { return 1
} else {
if {$havnew==""} {
putserv "PRIVMSG $t2(chan) :$t2(script): No New Question Files Found."
} else {
putserv "PRIVMSG $t2(chan) :$t2(script): New Questions Found: [join $havnew]"
putserv "PRIVMSG $t2(chan) :Type $tclr(-msg) /msg $botnick .add $tclr(-emsg) now to load these questions."
}
return 0
}
}
}
proc TAdd {nk uh hn tx {opt 0} } { global t2 tclr botnick
if {$t2(-newfiles)!=""} { return 0 }
if {![file exists $t2(sfpath)]} { file mkdir $t2(sfpath) } ; if {![file exists $t2(qfpath)]} { file mkdir $t2(qfpath) }
set tx [split [string trim $tx]] ; set cmd [lindex $tx 0]
set t2(-kadded) 0
if {$cmd==".addk"} { set iskaos 1 } else { set iskaos 0 }
if {[string match -nocase .add $tx] || [string match -nocase .addk $tx]} { set havnew [TLook]
if {$havnew!=""} { set jusfls "" ; set juscnt 1 ; set havtot [llength $havnew]
foreach nfil $havnew { lappend jusfls [lindex [split $nfil /] end]
if {$juscnt<"4"} {
if {$juscnt=="1" && $havtot>"4"} { break } ; incr juscnt
} else { break }
}
set t2(-kopen) ""
if {[string match $t2(myfils) [lindex $jusfls 0]]} { set frmt $t2(myfmt)
if {$havtot=="1"} {
putserv "PRIVMSG $nk :\00310Found one BogusQuestion file: [join $jusfls]"
} elseif {$havtot>"4"} {
putserv "PRIVMSG $nk :\00310Found $havtot BogusQuestion files."
} else {
putserv "PRIVMSG $nk :\00310Found $havtot BogusQuestion files: [join $jusfls]"
}
set t2(-newfiles) [linsert $havnew 0 $havtot:0:-:0:-:-1:0 $frmt]
TDoAdd 1 $nk:$uh:$hn $iskaos
} else { set frmt $t2(layout)
if {$havtot=="1"} {
putserv "PRIVMSG $nk :\00310Found one NewQuestion file: [join $jusfls]"
} elseif {$havtot>"4"} {
putserv "PRIVMSG $nk :\00310Found $havtot NewQuestion files."
} else {
putserv "PRIVMSG $nk :\00310Found $havtot NewQuestion files: [join $jusfls]"
}
set t2(-newfiles) [linsert $havnew 0 $havtot:0:-:0:-:-1:0 $frmt]
TDoAdd 0 $nk:$uh:$hn $iskaos
}
} else { putserv "PRIVMSG $nk :\00310No New Question Files Found...." }
} elseif {[string match -nocase $t2(chan) $tx]} {
} else {
if {[string match -nocase .add $cmd] || [string match -nocase .addk $cmd]} {
if {[set fmt [lindex $tx 1]]=="-"} { set frmt $t2(layout)
} else { set err 0 ; set fmt [TStrLo $fmt] ; set fmls [split $fmt {}]
if {[llength $fmls]=="1" || [llength $fmls]>"5"} { set err 1
} elseif {![regexp {^[qa]} $fmt]} { set err 2
} elseif {[regexp {^[a-z0-9]+$} [lindex $fmls 1]]} { set err 3 }
if {$err=="0"} {
if {[lindex $fmls 0]=="q"} { set secnd "a" } else { set secnd "q" }
if {[llength $fmls]=="2"} { set frmt "$fmt$secnd"
} elseif {[llength $fmls]=="3"} {
if {[lindex $fmls 2]!=$secnd} { set err 4 } else { set frmt $fmt }
} else {
if {[lindex $fmls 2]!="a"} { set err 5
} elseif {[regexp {^[a-z0-9]+$} [lindex $fmls 3]]} { set err 6 }
if {$err=="0"} {
if {[llength $fmls]=="4"} { set frmt "$fmt$secnd"
} else {
if {[lindex $fmls 4]!=$secnd} { set err 7 } else { set frmt $fmt }
}
}
}
}
if {$err>"0"} {
putserv "PRIVMSG $nk :\00310.add Error: Not a valid question format: $fmt"
return 0
} else {
if {[string length $frmt]=="5"} {
if {[lindex $fmls 1]==[lindex $fmls 3]} {
if {$secnd=="a"} { set frmt [string range $frmt 0 2]
} else { set frmt [string range $frmt 2 4] }
}
}
}
}
if {[llength $tx]=="2"} { set havnew [TLook]
} else { set havnew [TLook [lindex $tx 2]] }
if {$havnew!=""} { set jusfls "" ; set juscnt 1 ; set havtot [llength $havnew]
foreach nfil $havnew { lappend jusfls [lindex [split $nfil /] end]
if {$juscnt<"4"} {
if {$juscnt=="1" && $havtot>"4"} { break } ; incr juscnt
} else { break }
}
if {$havtot=="1"} {
putserv "PRIVMSG $nk :\00310Found one NewQuestion file: [join $jusfls]"
} elseif {$havtot>"4"} {
putserv "PRIVMSG $nk :\00310Found $havtot NewQuestion files."
} else {
putserv "PRIVMSG $nk :\00310Found $havtot NewQuestion files: [join $jusfls]"
}
set t2(-newfiles) [linsert $havnew 0 $havtot:0:-:0:-:-1:0 $frmt]
set t2(-kopen) "" ; TDoAdd 0 $nk:$uh:$hn $iskaos
} else { putserv "PRIVMSG $nk :\00310No New Question Files Found...." }
}
}
return 0
}
proc TDoAdd { {mine 0} {othr 0} {iskaos -1} } { global t2 tclr botnick
if {![file exists $t2(sfpath)t2.hist]} { TDoHInfo }
if {$othr != "0"} {
foreach {nk uh hn} [split $othr :] { break }
} else { set nk 0 ; set uh 0 ; set hn 0 }
foreach {first qdiv adiv} [split [TPrepQes 4] :] { break }
foreach {nums fmt frst} $t2(-newfiles) { break } ; set nums [split $nums :]
foreach {totf curf wson ncnt hadb bcnt gcnt} $nums { break }
if {$mine<"2"} {
if {$mine=="-1"} { set mine 1
} else { incr curf }
} elseif {$mine>"2"} {
set cftmp [lindex [split [lindex $t2(-newfiles) [expr {$curf+1}]] /] end]
putserv "PRIVMSG $nk :\00310No questions added from: $cftmp"
putserv "PRIVMSG $nk :File left unchanged."
if {$mine=="3"} { incr curf ; set mine 0
} else { set curf [expr {$totf+2}] }
}
if {$curf<=$totf} { set qfilcnt 0 ; set errcnt 0
foreach file [lrange $t2(-newfiles) 2 end] { incr qfilcnt
if {$qfilcnt==$curf} { set error 0 ; set thiscnt 0 ; set kaoscnt 0
set qesfil [open $file] ; set lastlin ""
while {![eof $qesfil]} { set qline [gets $qesfil]
if {$qline != ""} { incr thiscnt ; set isbad 0 ; set fnd [string first $qdiv $qline]
if {$fnd=="-1" || $fnd=="0" || $fnd==[expr {[string length $qline]-1}]} {
set isbad 1 ; incr error ; set qesedtd :error: }
if {$isbad=="0" && [set qesedtd [TPrepQes $qline $first:$qdiv:$adiv $iskaos]]==":error:"} {
set isbad 1 ; incr error }
if {$thiscnt=="1" || $thiscnt=="2"} { lappend lastlin $qesedtd
} elseif {$thiscnt=="3"} { lappend lastlin $qesedtd
if {$error>"0"} {
if {$t2(-openbad)==""} { set was1 [TDoBad]
if {$hadb=="-"} { set hadb $was1 } ; set bcnt 0
puts $t2(-openbad) ":Add:[unixtime] $nk $uh $hn\n: [ctime [unixtime]]\n-"
}
puts $t2(-openbad) ":BadFile: $file\n: $error errors in 1st 3 lines. File left unchanged.\n-"
if {$curf>"1"} { putserv "PRIVMSG $nk : " }
putserv "PRIVMSG $nk :\00310$error \00305Errors\00310 in first 3 lines of file: $file"
putserv "PRIVMSG $nk :No questions added from: [lindex [split $file /] end]"
set thiscnt -1 ; break
} else {
if {$mine=="0"} {
if {$curf>"1"} { putserv "PRIVMSG $nk : " }
if {$iskaos=="1"} { putserv "PRIVMSG $nk :\00310Read KAOS File: $file"
} else { putserv "PRIVMSG $nk :\00310Read Question File: $file" }
putserv "PRIVMSG $nk :Show first 3 lines using format: $fmt" ; set qlnum 0
foreach qeslin $lastlin { incr qlnum ; set qeslin [split $qeslin *]
putserv "PRIVMSG $nk :#$qlnum:\0030,10 [lindex $qeslin 0] "
if {$iskaos=="1" || [string match KAOS:* [lindex $qeslin 0]]} {
putserv "PRIVMSG $nk :Answer1: [lindex $qeslin 1]"
} else { putserv "PRIVMSG $nk :Answer: [lindex $qeslin 1]" }
if {[llength $qeslin]>"2"} { set anum 2 ; set aand 0
foreach anstmp [lrange $qeslin 2 end] {
if {$iskaos=="1" || [string match KAOS:* [lindex $qeslin 0]]} {
if {$anum<"4"} { putserv "PRIVMSG $nk :Answer$anum: $anstmp"
} else {
if {[llength $qeslin]=="5"} { putserv "PRIVMSG $nk :Answer$anum: $anstmp"
} else { incr aand }
}
incr anum
} else { putserv "PRIVMSG $nk :AltAnswer: $anstmp" }
}
if {$aand>"0"} { putserv "PRIVMSG $nk :and $aand other kaos answers." }
}
}
putserv "PRIVMSG $nk :\00310Is This Correct? Type: yes or no"
if {$curf>"2"} { putserv "PRIVMSG $nk :Or use: yes all or: no all :to do all remaining files:)" }
set t2(-newfiles) [linsert [lrange $t2(-newfiles) 1 end] 0 $totf:$curf:$wson:$ncnt:$hadb:$bcnt:$gcnt]
close $qesfil ; set t2(-iskadd) $iskaos
bind msgm $t2(mflag) y* TReply ; bind msgm $t2(mflag) n* TReply
set rtimr [utimer 120 "[list TReply $nk $uh $hn :rem:1: y:n]"]
lappend t2(-reply) $nk 1 $rtimr y:n: ; return 0
} else { TCntQes ; incr gcnt
if {$t2(-ison)=="1"} { TOnOff $nk $uh $hn $t2(chan) 0 2 ; set wason 1
putquick "PRIVMSG $t2(chan) :Game Stopped. Adding Questions..."
putserv "PRIVMSG $nk :BogusTrivia Game Stopped..."
} else { set wason 0 }
if {$wson=="-"} { set wson $wason }
if {$mine=="1"} {
if {$curf>"1"} { putserv "PRIVMSG $nk : " }
putserv "PRIVMSG $nk :\00310Read Question File: $file"
}
if {$t2(-qtotal)=="0"} { set lincnt 0 ; set putfcnt "000"
set putfil [open $t2(qfpath)t2.qf.000 w]
} else { set lastfil [split [lindex [split [lindex $t2(-qfills) end] /] end] .]
if {[llength $lastfil]=="4"} {
set lincnt [lindex $lastfil 2] ; set putfcnt [lindex $lastfil 3]
file rename [lindex $t2(-qfills) end] $t2(qfpath)t2.qf.$putfcnt
set putfil [open $t2(qfpath)t2.qf.$putfcnt a]
} else { set lincnt 0 ; set putfcnt [TNexFil [lindex $lastfil 2]]
set putfil [open $t2(qfpath)t2.qf.$putfcnt w]
}
}
foreach qeslin [lrange $lastlin 0 1] { incr ncnt
if {$iskaos=="1" || [string match -nocase KAOS:* $qeslin]} {
if {$t2(-kopen)==""} { TKOpen ; set nxrite 0
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
set tmpcnt [string index $ritevr end] ; set klncnt($tmpcnt) $lncnt
}
} elseif {[lindex $t2(-kopen) 0]=="0"} { set nxrite 0
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
set t2($ritevr) [open $ritefl a]
set tmpcnt [string index $ritevr end] ; set klncnt($tmpcnt) $lncnt
}
set t2(-kopen) [lreplace $t2(-kopen) 0 0 1]
}
set koidx [expr {($nxrite*3)+2}] ; set kovar [lindex $t2(-kopen) $koidx]
set kotmp [string index $kovar end]
set kofile [lindex $t2(-kopen) [expr {$koidx-1}]]
puts $t2($kovar) "$qeslin" ; incr klncnt($kotmp) ; incr kaoscnt
if {$klncnt($kotmp)=="1000"} { close $t2($kovar)
set t--- [lindex [split [lindex [split $kofile /] end] .] 2]
file rename $kofile $t2(qfpath)t2.kf.$t---
if {[llength $t2(-kopen)]>"4"} { set fst [expr {$koidx-1}]
set t2(-kopen) [lreplace $t2(-kopen) $fst [expr {$fst+2}]]
if {$fst==[llength $t2(-kopen)]} { set nxrite 0 }
} else { set klncnt{0} 0 ; set nxrite 0
set tmp2 [TNexFil [expr {[llength $t2(-kfills)]-1}]]
set t2(-kput0) [open $t2(qfpath)t2.kf.$tmp2 w]
set t2(-kopen)[list 1 $t2(qfpath)t2.kf.$tmp2 -kput0 0]
set klncnt(0) 0
}
} else { incr nxrite ; set tmp2 [llength $t2(-kopen)]
if {$nxrite==[expr {($tmp2-1)/3}]} { set nxrite 0 }
}
} else { puts $putfil "$qeslin" ; incr lincnt
if {$lincnt=="1000"} { close $putfil
set lincnt 0 ; set putfcnt [TNexFil $putfcnt]
set putfil [open $t2(qfpath)t2.qf.$putfcnt w]
}
}
}
set lastlin [lindex $lastlin 2] ; set lastraw $qline
}
}
set wrotetoerr 0
} else { set wrotetoerr 0
if {$isbad=="1"} { set wrotetoerr 1
if {$t2(-openbad)==""} { set was1 [TDoBad]
if {$hadb=="-"} { set hadb $was1 } ; set bcnt 0
puts $t2(-openbad) ":Add:[unixtime] $nk $uh $hn\n: [ctime [unixtime]]\n-"
}
if {$errcnt=="0"} { puts $t2(-openbad) ":ERRORS from: $file...\n-" }
if {$error=="1" && $lastraw!=""} { incr errcnt ; incr bcnt
puts $t2(-openbad) "$lastraw" }
puts $t2(-openbad) "$qline" ; incr errcnt ; incr bcnt
set lastlin $qesedtd ; set lastraw $qline
} elseif {$error>"0"} { set error 0 ; set wrotetoerr 1
puts $t2(-openbad) "$qline\n-" ; incr errcnt ; incr bcnt
set lastlin "" ; set lastraw ""
} else {
if {$lastlin!=""} { incr ncnt
if {$iskaos=="1" || [string match -nocase KAOS:* $lastlin]} {
if {$t2(-kopen)==""} { TKOpen ; set nxrite 0
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
set tmpcnt [string index $ritevr end] ; set klncnt($tmpcnt) $lncnt
}
} elseif {[lindex $t2(-kopen) 0]=="0"} { set nxrite 0
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
set t2($ritevr) [open $ritefl a]
set tmpcnt [string index $ritevr end] ; set klncnt($tmpcnt) $lncnt
}
set t2(-kopen) [lreplace $t2(-kopen) 0 0 1]
}
set koidx [expr {($nxrite*3)+2}] ; set kovar [lindex $t2(-kopen) $koidx]
set kotmp [string index $kovar end]
set kofile [lindex $t2(-kopen) [expr {$koidx-1}]]
puts $t2($kovar) "$lastlin" ; incr klncnt($kotmp) ; incr kaoscnt
if {$klncnt($kotmp)=="1000"} { close $t2($kovar)
set t--- [lindex [split [lindex [split $kofile /] end] .] 2]
file rename $kofile $t2(qfpath)t2.kf.$t---
if {[llength $t2(-kopen)]>"4"} { set fst [expr {$koidx-1}]
set t2(-kopen) [lreplace $t2(-kopen) $fst [expr {$fst+2}]]
if {$fst==[llength $t2(-kopen)]} { set nxrite 0 }
} else { set klncnt{0} 0 ; set nxrite 0
set tmp2 [TNexFil [expr {[llength $t2(-kfills)]-1}]]
set t2(-kput0) [open $t2(qfpath)t2.kf.$tmp2 w]
set t2(-kopen)[list 1 $t2(qfpath)t2.kf.$tmp2 -kput0 0]
set klncnt(0) 0
}
} else { incr nxrite ; set tmp2 [llength $t2(-kopen)]
if {$nxrite==[expr {($tmp2-1)/3}]} { set nxrite 0 }
}
} else { puts $putfil "$lastlin" ; incr lincnt
if {$lincnt=="1000"} { close $putfil
set lincnt 0 ; set putfcnt [TNexFil $putfcnt]
set putfil [open $t2(qfpath)t2.qf.$putfcnt w]
}
}
}
set lastlin $qesedtd ; set lastraw $qline
}
}
}
}
close $qesfil
if {$thiscnt=="-1"} {
if {$curf==$totf} { break } ; incr curf
} else { file delete $file
if {$wrotetoerr=="0"} { incr ncnt
if {$iskaos=="1" || [string match -nocase KAOS:* $lastlin]} {
if {$t2(-kopen)==""} { TKOpen ; set nxrite 0
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
set tmpcnt [string index $ritevr end] ; set klncnt($tmpcnt) $lncnt
}
} elseif {[lindex $t2(-kopen) 0]=="0"} { set nxrite 0
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
set t2($ritevr) [open $ritefl a]
set tmpcnt [string index $ritevr end] ; set klncnt($tmpcnt) $lncnt
}
set t2(-kopen) [lreplace $t2(-kopen) 0 0 1]
}
set koidx [expr {($nxrite*3)+2}] ; set kovar [lindex $t2(-kopen) $koidx]
set kotmp [string index $kovar end]
set kofile [lindex $t2(-kopen) [expr {$koidx-1}]]
puts $t2($kovar) "$lastlin" ; incr klncnt($kotmp) ; incr kaoscnt
if {$klncnt($kotmp)=="1000"} { close $t2($kovar)
set t--- [lindex [split [lindex [split $kofile /] end] .] 2]
file rename $kofile $t2(qfpath)t2.kf.$t---
if {[llength $t2(-kopen)]>"4"} { set fst [expr {$koidx-1}]
set t2(-kopen) [lreplace $t2(-kopen) $fst [expr {$fst+2}]]
if {$fst==[llength $t2(-kopen)]} { set nxrite 0 }
} else { set klncnt{0} 0 ; set nxrite 0
set tmp2 [TNexFil [expr {[llength $t2(-kfills)]-1}]]
set t2(-kput0) [open $t2(qfpath)t2.kf.$tmp2 w]
set t2(-kopen)[list 1 $t2(qfpath)t2.kf.$tmp2 -kput0 0]
set klncnt(0) 0
}
} else { incr nxrite ; set tmp2 [llength $t2(-kopen)]
if {$nxrite==[expr {($tmp2-1)/3}]} { set nxrite 0 }
}
} else { puts $putfil "$lastlin" ; incr lincnt }
}
close $putfil
if {$lincnt=="0"} { file delete $t2(qfpath)t2.qf.$putfcnt
} elseif {$lincnt<"1000"} {
file rename $t2(qfpath)t2.qf.$putfcnt $t2(qfpath)t2.qf.$lincnt.$putfcnt
}
if {$t2(-kopen)!="" && [lindex $t2(-kopen) 0]=="1"} {
set nukopen "" ; set nukopn0 "" ; set tm2 0
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
close $t2($ritevr) ; set rtnum [string index $ritevr end]
set rtfile [lindex [split [lindex [split $ritefl /] end] .] 2]
if {$klncnt($rtnum)!=$lncnt} { set nukfile $t2(qfpath)t2.kf.$rtfile.$klncnt($rtnum)
file rename $ritefl $nukfile
if {$klncnt($rtnum)<$tm2 || $nukopn0!=""} {
lappend nukopn0 $nukfile $ritevr $klncnt($rtnum)
} else { lappend nukopen $nukfile $ritevr $klncnt($rtnum) }
} else {
if {$klncnt($rtnum)<$tm2 || $nukopn0!=""} {
lappend nukopn0 $ritefl $ritevr $lncnt
} else { lappend nukopen $ritefl $ritevr $lncnt }
}
set tm2 $klncnt($rtnum)
}
if {$nukopn0!=""} { set nukopen "$nukopn0 $nukopen" }
set t2(-kopen) "0 $nukopen"
}
if {$errcnt>"0"} { set qadded [expr {$thiscnt-$errcnt}]
} else { set qadded $thiscnt }
if {$kaoscnt=="0"} {
putserv "PRIVMSG $nk :Adding $qadded new questions to the database..."
} else {
if {$kaoscnt==$qadded} {
putserv "PRIVMSG $nk :Adding $qadded new KAOS to the database..."
} else { set tqa [expr {$qadded-$kaoscnt}]
putserv "PRIVMSG $nk :Adding $tqa questions & $kaoscnt KAOS to the database..."
}
incr t2(-kadded) $kaoscnt
}
if {$errcnt>"0"} {
putserv "PRIVMSG $nk :Wrote $errcnt possible error lines to file: $t2(sfpath)t2.badqes"
}
break
}
}
}
}
if {$curf<$totf} {
if {$mine=="2"} { set mine 0 }
set t2(-newfiles) [linsert [lrange $t2(-newfiles) 1 end] 0 $totf:$curf:$wson:$ncnt:$hadb:$bcnt:$gcnt]
utimer 4 "[list TDoAdd $mine $othr $iskaos]" ; return 0
} else {
if {$t2(-kopen)!=""} {
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
if {$lncnt=="0"} { file delete $ritefl } ; unset t2($ritevr)
}
}
unset t2(-kopen) ; TCntQes ; set t2(-newfiles) ""
if {$t2(-openbad)!=""} { close $t2(-openbad) ; set t2(-openbad) "" }
putserv "PRIVMSG $nk : "
if {$gcnt>"1"} {
if {$t2(-kadded)=="0"} {
putserv "PRIVMSG $nk :\00310Totals: $ncnt questions added from $gcnt files."
} else {
if {$t2(-kadded)==$ncnt} {
putserv "PRIVMSG $nk :\00310Totals: $ncnt KAOS added from $gcnt files."
} else { set tqa [expr {$ncnt-$t2(-kadded)}]
putserv "PRIVMSG $nk :\00310$tqa questions & $t2(-kadded) KAOS added from $gcnt files."
}
}
set tottmp " :"
} else { set tottmp "\00310Totals:" }
unset t2(-kadded) ; if {[info exists t2(-iskadd)]} { unset t2(-iskadd) }
if {$t2(-ktotal)=="0"} {
putserv "PRIVMSG $nk :$tottmp $t2(-qtotal) questions now in the database."
} elseif {$t2(-qtotal)=="0"} {
putserv "PRIVMSG $nk :$tottmp $t2(-ktotal) KAOS now in the database."
} else {
if {$gcnt>"1"} { set tottmp "" } else { set tottmp "\00310" }
putserv "PRIVMSG $nk :$tottmp$t2(-qtotal) questions & $t2(-ktotal) KAOS now in the database."
}
if {$bcnt>"0"} {
putserv "PRIVMSG $nk : : $bcnt error lines wrote to $t2(sfpath)t2.badqes"
}
if {$wson=="1"} {
putserv "PRIVMSG $nk : " ; putserv "PRIVMSG $nk :\00310Restarting BogusTrivia..."
TOnOff $nk $uh $hn $t2(chan) 1 1
}
return 0
}
}
proc TKOpen { {opt 0} } { global t2 botnick ; set ret ""
if {$t2(-kfcnt)<"5"} { set start "" ; set kflcnt 0 ; set lastlncnt 0
if {$t2(-kfcnt)!="0"} {
foreach dbfile $t2(-kfills) {
set file [split [lindex [split $dbfile /] end] .]
if {[llength $file]=="4"} { set lincnt [lindex $file 3]
if {$lincnt<$lastlncnt} { set start $kflcnt }
set lastlncnt $lincnt ; lappend ret $dbfile -kput$kflcnt $lincnt
set t2(-kput$kflcnt) [open $dbfile a] ; incr kflcnt
}
}
}
if {$kflcnt<"4"} {
while {$kflcnt<"4"} { set tmp "$t2(qfpath)t2.kf.00$kflcnt.0" ; set lincnt 0
if {$lincnt<$lastlncnt} { set start $kflcnt }
set lastlncnt $lincnt ; lappend ret $tmp -kput$kflcnt 0
set t2(-kput$kflcnt) [open $tmp w] ; incr kflcnt
}
}
if {$ret==""} { set tmp "$t2(qfpath)t2.kf.004.0"
lappend ret $tmp -kput0 0 ; set t2(-kput0) [open $tmp w]
}
if {$start==""} { set start 0 }
if {$start!="0"} { set tcnt [expr {$start*3}]
set tmpls [lrange $ret $tcnt end]
set ret [lreplace $ret $tcnt end] ; set ret "$tmpls $ret"
}
} else { set file [lindex $t2(-kfills) end]
set lastfl [split [lindex [split $file /] end] .]
if {[llength $lastfl]=="4"} { set lincnt [lindex $lastfl 3]
lappend ret $file -kput0 $lincnt ; set t2(-kput0) [open $file a]
} else { set fnum [string trimleft [lindex $lastfl 2] 0] ; incr fnum
if {$fnum<"10"} { set fnum "00$fnum"
} elseif {$fnum<"100"} { set fnum "0$fnum" }
set tmp "$t2(qfpath)t2.kf.$fnum.0"
lappend ret $tmp -kput0 0 ; set t2(-kput0) [open $tmp w]
}
}
set t2(-kopen) "1 $ret" ; return 1
}
# do not change these #
set t2(auth) SpiKe^^
set t2(script) BogusTrivia ; set t2(ver) 2.06.4.4
set t2(myfils) bogus.ques* ; set t2(myfmt) q*a
set t2(-test) 0
set t2(-ads) "$t2(script) v$t2(ver) by $t2(auth)"
set t2(-ads) "1 [split $t2(-ads) "\n"]"
proc TPrepQes {newqlin {opt 0} {iskaos -1} } { global t2 botnick
if {$opt eq 0} { set fmtls [split [lindex $t2(-newfiles) 1] {}]
if {[set first [lindex $fmtls 0]] eq "q"} { set qdiv [lindex $fmtls 1]
if {[llength $fmtls]<"4"} { set adiv "" } else { set adiv [lindex $fmtls 3] }
} else {
if {[llength $fmtls]<"4"} { set qdiv [lindex $fmtls 1] ; set adiv ""
} else { set qdiv [lindex $fmtls 3] ; set adiv [lindex $fmtls 1] }
}
if {$newqlin=="1"} { return $first } elseif {$newqlin=="2"} { return $qdiv
} elseif {$newqlin=="3"} { return $adiv
} elseif {$newqlin=="4"} { return $first:$qdiv:$adiv }
}
foreach {first qdiv adiv} [split $opt :] { break }
set newqlin [string map {\t " " " " " " " " " "} $newqlin]
set qeslin [split $newqlin $qdiv]
if {$first eq "q"} { set qstn [string trim [lindex $qeslin 0] " ?."]
if {$qstn eq ""} { return ":error:" }
set ansr [string trim [lindex $qeslin 1] " ,"]
if {[llength $qeslin]>"2"} {
foreach ans2 [lrange $qeslin 2 end] { set ans2 [string trim $ans2 " ,"]
if {$ans2 ne ""} {
if {$ansr ne ""} { append ansr "*" } ; append ansr $ans2
}
}
}
if {$ansr eq ""} { return ":error:" }
} else { set qstn [string trim [lindex $qeslin end] " ?."]
if {$qstn eq ""} { return ":error:" }
set ansr [string trim [lindex $qeslin 0] " ,"]
if {[llength $qeslin]>"2"} {
foreach ans2 [lrange $qeslin 1 end-1] { set ans2 [string trim $ans2 " ,"]
if {$ans2 ne ""} {
if {$ansr ne ""} { append ansr "*" } ; append ansr $ans2
}
}
}
if {$ansr eq ""} { return ":error:" }
}
if {$adiv ne ""} { set anstmp [split $ansr $adiv] ; set ansr ""
foreach ans2 $anstmp { set ans2 [string trim $ans2 " ,"]
if {$ans2 ne ""} {
if {$ansr ne ""} { append ansr "*" } ; append ansr $ans2
}
}
if {$ansr eq ""} { return ":error:" }
}
set qstn "[string map {" " " " " " " " " " " " ; :} $qstn]"
set ansr "[string map {" " " " " " " " " " " " ; :} $ansr]"
if {$iskaos=="1" || [string match -nocase kaos* $qstn]=="1"} { set temp [split $ansr *]
if {[llength $temp]<"3"} { return ":error:" }
if {[string match -nocase kaos* $qstn]} {
set qstn [string trim [string range $qstn 4 end] ": "]
if {$qstn eq ""} { return ":error:" }
}
set qstn "KAOS: $qstn"
}
return "$qstn*$ansr"
}
proc TReply {nk uh hn chtx {tx -} } { global t2 tclr botnick
set fnd [lsearch -exact $t2(-reply) $nk] ; if {$fnd=="-1"} { return 0 }
foreach {rnik rnum rtmr rtrg} [lrange $t2(-reply) $fnd [set last [expr {$fnd+3}]]] { break }
set t2(-reply) [lreplace $t2(-reply) $fnd $last]
set rtls [split [string trim $rtrg :] :]
foreach trgr $rtls {
if {[lsearch $t2(-reply) *$trgr:*]=="-1"} {
unbind msgm $t2(mflag) $trgr* TReply
}
}
if {[string match :rem:* $chtx]} {
if {$rnum=="1"} {
if {$t2(-kopen)!=""} {
foreach {ritefl ritevr lncnt} [lrange $t2(-kopen) 1 end] {
if {$lncnt=="0"} { file delete $ritefl } ; unset t2($ritevr)
}
}
unset t2(-kadded) t2(-kopen)
if {[info exists t2(-iskadd)]} { unset t2(-iskadd) }
set t2(-newfiles) ""
}
return 0
}
if {[lsearch [utimers] *TReply*$rtmr]!="-1"} { killutimer $rtmr }
if {$rnum=="1"} { set chtx [string trim $chtx]
if {[string match "y* a*" $chtx]} { TDoAdd -1 $nk:$uh:$hn $t2(-iskadd)
} elseif {[string match y* $chtx]} { TDoAdd 2 $nk:$uh:$hn $t2(-iskadd)
} elseif {[string match "n* a*" $chtx]} { TDoAdd 4 $nk:$uh:$hn $t2(-iskadd)
} else { TDoAdd 3 $nk:$uh:$hn $t2(-iskadd) }
}
return 0
}
proc TDoBad { {opt 0} {mor 0} } { global t2
if {$opt=="0"} {
if {![file exists $t2(sfpath)t2.badqes]} {
set t2(-openbad) [open $t2(sfpath)t2.badqes w] ; set errwasnew 1
} else { set t2(-openbad) [open $t2(sfpath)t2.badqes a] ; set errwasnew 0 }
return $errwasnew
}
}
proc TMix {nk uh hn tx {times 0} {wason 0} {todo 0} } { global t2 tclr botnick
if {![file exists $t2(qfpath)]} {
putserv "PRIVMSG $nk :BogusTrivia Not Properly Set Up."
putserv "PRIVMSG $nk :Type: .setup to do trivia setup now." ; return 0 }
if {![file exists $t2(sfpath)t2.commands]} {
putserv "PRIVMSG $nk :Can't find t-2.tcl commands file: $t2(sfpath)t2.commands"
putserv "PRIVMSG $nk :BogusTrivia .mix command disabled." ; return 0 }
set dir [string trimright $t2(qfpath) /]
set qfills [glob -directory $dir -nocomplain t2.qf.*]
set kfills [lsort [glob -directory $dir -nocomplain t2.kf.*]]
if {$qfills=="" && $kfills==""} {
putserv "PRIVMSG $nk :No Questions in the Database."
putserv "PRIVMSG $nk :Type: .add to load questions now." ; return 0 }
array set t2[list _cm m _nk $nk _uh $uh _hn $hn _tx $tx _ti $times]
array set t2[list _wo $wason _td $todo _qfl $qfills _kfl $kfills]
source $t2(sfpath)t2.commands
}
set t2(-setkaos) $t2(kaos)
proc TCntQes { {wat 0} } { global t2 tclr botnick
if {![file exists $t2(sfpath)]} { file mkdir $t2(sfpath) }
if {![file exists $t2(qfpath)]} { file mkdir $t2(qfpath) }
set dir [string trimright $t2(qfpath) /]
set qfills [glob -directory $dir -nocomplain t2.qf.*]
if {$qfills ne ""} {
set tlast "" ; set tlist "" ; set filcnt 0 ; set qestot 0
foreach qesfil $qfills { incr filcnt
set temp [split [lindex [split $qesfil /] end] .]
if {[llength $temp]=="3"} { incr qestot 1000 ; lappend tlist $qesfil
} else { set tmct [string trimleft [lindex $temp 2] 0]
if {$tmct eq ""} { set tmcnt 0 }
incr qestot $tmct ; set tlast $qesfil
}
}
set tlist [lsort $tlist] ; if {$tlast ne ""} { lappend tlist $tlast }
set t2(-qtotal) $qestot ; set t2(-qfills) $tlist ; set t2(-qfcnt) $filcnt
} else { set t2(-qtotal) 0 ; set t2(-qfills) "" ; set t2(-qfcnt) 0 }
if {[file exists $t2(sfpath)t2.qcount] && $wat=="0"} {
set tqcntfil [open $t2(sfpath)t2.qcount r]
set tnum [gets $tqcntfil] ; close $tqcntfil
if {[TStrDig $tnum] && $tnum < $t2(-qtotal)} {
set t2(-qcount) $tnum
if {$t2(-qfills) ne ""} {
if {[string length $tnum]<"4"} { set t2(-qflnow) [lindex $t2(-qfills) 0]
} else {
set t2(-qflnow) [lindex $t2(-qfills) [string range $tnum 0 end-3]]
}
} else { file delete $t2(sfpath)t2.qcount }
} else { file delete $t2(sfpath)t2.qcount }
}
if {![file exists $t2(sfpath)t2.qcount]} {
set tqcntfil [open $t2(sfpath)t2.qcount w]
puts $tqcntfil "0" ; close $tqcntfil
set t2(-qcount) 0 ; set t2(-qflnow) ""
if {$t2(-qfills) ne ""} { set t2(-qflnow) [lindex $t2(-qfills) 0] }
}
set kfills [lsort [glob -directory $dir -nocomplain t2.kf.*]]
if {[file exists $t2(sfpath)t2.kcount] && $wat=="0"} {
if {$kfills eq ""} { file delete $t2(sfpath)t2.kcount
} else { set tkcntfil [open $t2(sfpath)t2.kcount r]
set tnum [gets $tkcntfil] ; close $tkcntfil
if {[TStrDig $tnum]} { set t2(-kcount) $tnum
} else { file delete $t2(sfpath)t2.kcount }
}
}
if {![file exists $t2(sfpath)t2.kcount] && $kfills ne ""} { set t2(-kcount) 0
set tkcntfil [open $t2(sfpath)t2.kcount w] ; puts $tkcntfil "0" ; close $tkcntfil
}
if {$kfills ne ""} { set filcnt 0 ; set qestot 0 ; set flnow "" ; set twas 0
foreach kaosfl $kfills { incr filcnt ; set temp [split [lindex [split $kaosfl /] end] .]
if {[llength $temp]=="3"} { incr qestot 1000 } else { incr qestot [lindex $temp 3] }
if {$t2(-kcount)>=$twas && $t2(-kcount)<$qestot} { set flnow $kaosfl }
set twas $qestot
}
set t2(-ktotal) $qestot ; set t2(-kfills) $kfills ; set t2(-kfcnt) $filcnt
if {$flnow eq ""} { set t2(-kflnow) [lindex $kfills 0] ; set t2(-kcount) 0
set tkcntfil [open $t2(sfpath)t2.kcount w] ; puts $tkcntfil "0" ; close $tkcntfil
} else { set t2(-kflnow) $flnow }
if {$t2(-ktotal)<"50"} { set t2(kaos) 0
if {$t2(-setkaos)>"0"} { putlog "KAOS Disabled: Requires at least 50 kaos questions to run." }
} else { set t2(kaos) $t2(-setkaos) }
} else { set t2(-ktotal) 0 ; set t2(-kfills) "" ; set t2(-kfcnt) 0 ; set t2(kaos) 0 }
}
TCntQes
if {![file exists $t2(pwdpath)$t2(scrpath)t-2.html.tcl]} {
if {[info exists t2(-html)]} { unset t2(-html) }
if {[info exists t2(-hactv)]} { unset t2(-hactv) }
if {[info exists t2(hdowat)]} { unset t2(hdowat) }
if {[info exists t2(-hcnt)]} { unset t2(-hcnt) }
if {[info exists t2(-hnew)]} { unset t2(-hnew) }
} else { set t2(hdowat) read ; source $t2(pwdpath)$t2(scrpath)t-2.html.tcl }
if {$t2(bakupu)>"0" || $t2(bakuph)>"0"} {
proc TBakUp {wat chk} { global t2 botnick ; set now [unixtime]
if {$wat eq "u"} { set msk *.users.*.bak
if {![file exists $t2(sfpath)t2.users]} { return 0 }
} else { set msk *.hist.*.bak
if {![file exists $t2(sfpath)t2.hist]} { return 0 }
}
if {$chk=="1"} { set save 0
set bls [lsort -decreasing [glob -directory $t2(sfpath) -tails -nocomplain $msk]]
if {$bls ne ""} { set da [strftime %j $now]
set first [lindex [split [lindex $bls 0] .] 2]
if {[strftime %j $first]!=$da} { set save 1
} elseif {$wat eq "u" && $t2(bakhow)>"1"} {
set hr [string trimleft [strftime %H $now] 0] ; if {$hr eq ""} { set hr 0 }
set fhr [string trimleft [strftime %H $first] 0] ; if {$fhr eq ""} { set fhr 0 }
if {$fhr<"12" && $hr>"11"} { set save 1 }
}
} else { set save 1 }
if {$save=="0"} { return 0 }
}
if {$wat eq "u"} { set tmp users } else { set tmp hist }
file copy -force $t2(sfpath)t2.$tmp $t2(sfpath)t2.$tmp.$now.bak
set bls [lsort -decreasing [glob -directory $t2(sfpath) -tails -nocomplain $msk]]
if {[llength $bls]>$t2(bakup$wat)} {
foreach x [lrange $bls $t2(bakup$wat) end] { file delete $t2(sfpath)$x }
}
}
if {$t2(bakupu)>"0"} { TBakUp u 1 }
if {$t2(bakuph)>"0"} { TBakUp h 1 }
}
foreach ttmp(-x) [binds TMidnite] {
foreach {ttmp(typ) ttmp(flg) ttmp(nam) ttmp(hit) ttmp(prc)} $ttmp(-x) { break }
unbind $ttmp(typ) $ttmp(flg) $ttmp(nam) $ttmp(prc)
}
if {$t2(bakupu)>"0" || $t2(bakuph)>"0" || [info exists t2(-html)] || $t2(-stats)>"0"} {
proc TMidnite {mn hr da mo yr} { global t2 botnick nick
if {$t2(-ison)=="0"} {
if {$hr=="00"} { TSavHist 1
if {$t2(-stats)>"0"} { TSetStat }
if {$t2(bakupu)>"0"} { TBakUp u 0 }
if {$t2(bakuph)>"0"} { TBakUp h 0 }
} else {
if {[info exists t2(-html)] && $t2(-html) eq "d2"} {
set t2(hdowat) active ; source $t2(pwdpath)$t2(scrpath)t-2.html.tcl }
if {$t2(bakupu)>"0" && $t2(bakhow)>"1"} { TBakUp u 0 }
}
}
}
bind time - "00 00 * * *" TMidnite
if {[info exists t2(-html)] && $t2(-html) eq "d2"} { bind time - "00 12 * * *" TMidnite
} elseif {$t2(bakupu)>"0" && $t2(bakhow)>"1"} { bind time - "00 12 * * *" TMidnite }
}
array unset ttmp
putlog "$tclr(-msg)$t2(script)$tclr(-emsg) Loaded."
16 Mart 2012, 06:54
Benzer Konular 
Normal
