Your IP : 216.73.216.182
#%v2064#%dt140814#%t-2.commands.tcl#
################################################## Date: 14Aug14 ##
## BogusTrivia 2.06.4.7 by SpiKe^^ Commands File v2064 ##
###################################################################
###################################################################
## Included ReadMe Files ##
## !! Please Read !! ##
## ##
## 1. ReadMe.txt ##
## 2. Installation.txt ##
## 3. Commands.txt ##
## 4. Important Notes.txt ##
## ##
###################################################################
###################################################################
# #
# BogusTrivia Commands File Install Notes: #
# #
# This tcl script Must be in the /scripts/t2 directory to work! #
# Does Not Require a source line in your eggdrop conf file! #
# #
###################################################################
#############################################################################
# Copyright (c) 2006-2014, Richard Fischer (SpiKe^^) spike@mytclscripts.com #
# #
# Permission to use, copy, modify, and/or distribute this software for any #
# purpose with or without fee is hereby granted, provided that the above #
# copyright notice and this permission notice appear in all copies. #
# #
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES #
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF #
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR #
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES #
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN #
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF #
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #
# #
# v1.1 by SpiKe^^ spike@mytclscripts.com, August 14, 2014 #
#############################################################################
############################################################################
### 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 !! ###
############################################################################
if {![info exists t2(_cm)]} { return 1 }
if {$t2(_cm) eq "c"} {
if {$t2(custclr)!="1"} {
proc TDOMorClr {} { global t2 tclr tscl
set dov 0 ; set dog 0 ; set doa 0 ; set doc 0 ; set dot 0
if {$t2(greet)>"0"} { set dog 1 }
if {$t2(voice)>"0" && $t2(v-how)>"0"} { set dov 1 }
if {$t2(autostart)>"0"} { set doa 1 }
if {$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 dot 1 }
if {$t2(p-mystat) ne "" || $t2(p-info) ne "" || $t2(p-owner) ne ""} { set doc 1 }
if {$t2(p-page) ne "" || $t2(p-other) ne "" || $t2(p-opstat) ne ""} { set doc 1 }
}
if {$t2(color)=="2"} {
if {$dov>"0"} { array set tclr {-vo1 \00300,02 -vo2 \00308,02 -vo3 \00304,02 -vo4 \00300,02} }
if {$dog>"0"} { array set tclr {-gr1 \00300,01 -gr2 \00300,01 -gstat \00308,02 -gsta2 \00300,02 -gsta3 \00308,02} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00308,02 -ptd2 "" -ptd3 "" -ptw1 \00308,02 -ptw2 "" -ptw3 ""}
array set tclr {-ptm1 \00308,02 -ptm2 "" -ptm3 "" -pte1 \00308,02 -pte2 "" -pte3 ""}
}
if {$doc>"0"} { array set tclr {-pinf1 \00300,02 -pinf2 \00308,02 -pinf3 \00300,01}
array set tclr {-pmy1 \00308,02 -pmy2 \00300,02 -pmy3 \00308,02 -pown \00300,01}
array set tclr {-ppg1 \00300,02 -ppg2 \00308,02 -ppg3 \00300,01}
array set tclr {-poth1 \00300,02 -poth2 \00308,02 -poth3 \00300,01}
}
} elseif {$t2(color)=="3"} {
if {$dov>"0"} { array set tclr {-vo1 \00301,08 -vo2 \00304,08 -vo3 \00304,08 -vo4 \00301,08} }
if {$dog>"0"} { array set tclr {-gr1 \00301,08 -gr2 \00301,08 -gstat \00304,08 -gsta2 \00301,08 -gsta3 \00304,08} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00301,08 -ptd2 \00301,08 -ptd3 \00300,04 -ptw1 \00300,04 -ptw2 \00300,04 -ptw3 \00301,08}
array set tclr {-ptm1 \00301,08 -ptm2 \00301,08 -ptm3 \00300,04 -pte1 \00300,04 -pte2 \00300,04 -pte3 \00301,08}
}
if {$doc>"0"} { array set tclr {-pinf1 \00301,08 -pinf2 \00304,08 -pinf3 \00301,08}
array set tclr {-pmy1 \00304,08 -pmy2 \00301,08 -pmy3 \00304,08 -pown \00301,08}
array set tclr {-ppg1 \00301,08 -ppg2 \00304,08 -ppg3 \00301,08}
array set tclr {-poth1 \00301,08 -poth2 \00304,08 -poth3 \00301,08}
}
} elseif {$t2(color)=="4"} {
if {$dov>"0"} { array set tclr {-vo1 \00314,15 -vo2 \00306,15 -vo3 \00306,15 -vo4 \00314,15} }
if {$dog>"0"} { array set tclr {-gr1 \00300,14 -gr2 \00300,14 -gstat \00306,15 -gsta2 \00314,15 -gsta3 \00306,15} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00306,15 -ptd2 \00314,15 -ptd3 \00306,15 -ptw1 \00306,15 -ptw2 \00306,15 -ptw3 \00314,15}
array set tclr {-ptm1 \00306,15 -ptm2 \00314,15 -ptm3 \00306,15 -pte1 \00306,15 -pte2 \00306,15 -pte3 \00314,15}
}
if {$doc>"0"} { array set tclr {-pinf1 \00314,15 -pinf2 \00306,15 -pinf3 \00300,14}
array set tclr {-pmy1 \00306,15 -pmy2 \00314,15 -pmy3 \00306,15 -pown \00300,14}
array set tclr {-ppg1 \00314,15 -ppg2 \00306,15 -ppg3 \00300,14}
array set tclr {-poth1 \00314,15 -poth2 \00306,15 -poth3 \00300,14}
}
} elseif {$t2(color)=="5"} {
if {$dov>"0"} { array set tclr {-vo1 \00314,15 -vo2 \00305,15 -vo3 \00305,15 -vo4 \00314,15} }
if {$dog>"0"} { array set tclr {-gr1 \00300,14 -gr2 \00300,14 -gstat \00305,15 -gsta2 \00314,15 -gsta3 \00305,15} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00305,15 -ptd2 \00314,15 -ptd3 \00305,15 -ptw1 \00305,15 -ptw2 \00305,15 -ptw3 \00314,15}
array set tclr {-ptm1 \00305,15 -ptm2 \00314,15 -ptm3 \00305,15 -pte1 \00305,15 -pte2 \00305,15 -pte3 \00314,15}
}
if {$doc>"0"} { array set tclr {-pinf1 \00314,15 -pinf2 \00305,15 -pinf3 \00300,14}
array set tclr {-pmy1 \00305,15 -pmy2 \00314,15 -pmy3 \00305,15 -pown \00300,14}
array set tclr {-ppg1 \00314,15 -ppg2 \00305,15 -ppg3 \00300,14}
array set tclr {-poth1 \00314,15 -poth2 \00305,15 -poth3 \00300,14}
}
} elseif {$t2(color)=="6"} {
if {$dov>"0"} { array set tclr {-vo1 \00300,01 -vo2 \00307,01 -vo3 \00307,01 -vo4 \00300,01} }
if {$dog>"0"} { array set tclr {-gr1 \00300,01 -gr2 \00300,01 -gstat \00307,01 -gsta2 \00300,01 -gsta3 \00307,01} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00300,01 -ptd2 \00307,01 -ptd3 \00307,01 -ptw1 \00300,01 -ptw2 \00307,01 -ptw3 \00307,01}
array set tclr {-ptm1 \00300,01 -ptm2 \00307,01 -ptm3 \00307,01 -pte1 \00300,01 -pte2 \00307,01 -pte3 \00307,01}
}
if {$doc>"0"} { array set tclr {-pinf1 \00300,01 -pinf2 \00307,01 -pinf3 \00300,01}
array set tclr {-pmy1 \00307,01 -pmy2 \00300,01 -pmy3 \00307,01 -pown \00300,01}
array set tclr {-ppg1 \00300,01 -ppg2 \00307,01 -ppg3 \00300,01}
array set tclr {-poth1 \00300,01 -poth2 \00307,01 -poth3 \00300,01}
}
} elseif {$t2(color)=="7"} {
if {$dov>"0"} { array set tclr {-vo1 \00309,02 -vo2 \00308,02 -vo3 \00308,02 -vo4 \00309,02} }
if {$dog>"0"} { array set tclr {-gr1 \00301,08 -gr2 \00301,08 -gstat \00308,02 -gsta2 \00309,02 -gsta3 \00308,02} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00308,02 -ptd2 \00309,02 -ptd3 \00308,02 -ptw1 \00308,02 -ptw2 \00309,02 -ptw3 \00308,02}
array set tclr {-ptm1 \00308,02 -ptm2 \00309,02 -ptm3 \00308,02 -pte1 \00308,02 -pte2 \00309,02 -pte3 \00308,02}
}
if {$doc>"0"} { array set tclr {-pinf1 \00309,02 -pinf2 \00308,02 -pinf3 \00301,08}
array set tclr {-pmy1 \00308,02 -pmy2 \00309,02 -pmy3 \00308,02 -pown \00301,08}
array set tclr {-ppg1 \00309,02 -ppg2 \00308,02 -ppg3 \00301,08}
array set tclr {-poth1 \00309,02 -poth2 \00308,02 -poth3 \00301,08}
}
} elseif {$t2(color)=="8"} {
if {$dov>"0"} { array set tclr {-vo1 \00315,01 -vo2 \00307,01 -vo3 \00307,01 -vo4 \00315,01} }
if {$dog>"0"} { array set tclr {-gr1 \00300,01 -gr2 \00300,01 -gstat \00307,01 -gsta2 \00315,01 -gsta3 \00307,01} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00315,01 -ptd2 \00307,01 -ptd3 \00315,01 -ptw1 \00315,01 -ptw2 \00307,01 -ptw3 \00315,01}
array set tclr {-ptm1 \00315,01 -ptm2 \00307,01 -ptm3 \00315,01 -pte1 \00315,01 -pte2 \00307,01 -pte3 \00315,01}
}
if {$doc>"0"} { array set tclr {-pinf1 \00315,01 -pinf2 \00307,01 -pinf3 \00300,01}
array set tclr {-pmy1 \00307,01 -pmy2 \00315,01 -pmy3 \00307,01 -pown \00300,01}
array set tclr {-ppg1 \00315,01 -ppg2 \00307,01 -ppg3 \00300,01}
array set tclr {-poth1 \00315,01 -poth2 \00307,01 -poth3 \00300,01}
}
} elseif {$t2(color)=="0"} {
if {$dov>"0"} { array set tclr {-vo1 "" -vo2 "" -vo3 "" -vo4 ""} }
if {$dog>"0"} { array set tclr {-gr1 "" -gr2 "" -gstat "" -gsta2 "" -gsta3 ""} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} { array set tclr {-ptd1 "" -ptd2 "" -ptd3 "" -ptw1 "" -ptw2 "" -ptw3 ""}
array set tclr {-ptm1 "" -ptm2 "" -ptm3 "" -pte1 "" -pte2 "" -pte3 ""}
}
if {$doc>"0"} { array set tclr {-pmy1 "" -pmy2 "" -pmy3 "" -pown "" -pinf1 "" -pinf2 "" -pinf3 ""}
array set tclr {-ppg1 "" -ppg2 "" -ppg3 "" -poth1 "" -poth2 "" -poth3 ""}
}
} else {
if {$dov>"0"} { array set tclr {-vo1 \00300,10 -vo2 \00308,10 -vo3 \00308,10 -vo4 \00300,10} }
if {$dog>"0"} { array set tclr {-gr1 \00300,01 -gr2 \00300,01 -gstat \00308,10 -gsta2 \00300,10 -gsta3 \00308,10} }
if {$doa>"0"} { array set tclr {-as1 "" -as2 ""} }
if {$dot>"0"} {
array set tclr {-ptd1 \00300,10 -ptd2 \00308,10 -ptd3 \00300,10 -ptw1 \00300,10 -ptw2 \00308,10 -ptw3 \00300,10}
array set tclr {-ptm1 \00300,10 -ptm2 \00308,10 -ptm3 \00300,10 -pte1 \00300,10 -pte2 \00308,10 -pte3 \00300,10}
}
if {$doc>"0"} { array set tclr {-pinf1 \00300,10 -pinf2 \00308,10 -pinf3 \00300,01}
array set tclr {-pmy1 \00308,10 -pmy2 \00300,10 -pmy3 \00308,10 -pown \00300,01}
array set tclr {-ppg1 \00300,10 -ppg2 \00308,10 -ppg3 \00300,01}
array set tclr {-poth1 \00300,10 -poth2 \00308,10 -poth3 \00300,01}
}
}
}
}
if {$t2(pubcmd)>"0"} { set t2(-ptrigls) "" ; set t2(-ptrigl2) ""
if {[string match *m* $t2(p-ompls)]} { set t2(-mtrigls) "" ; set t2(-mtrigl2) ""
} elseif {[info exists t2(-mtrigls)]} { unset t2(-mtrigls) t2(-mtrigl2) }
if {$t2(p-top-d) eq "" && $t2(p-top-w) eq "" && $t2(p-top-m) eq "" && $t2(p-top-e) eq ""} { unset t2(p-tflag) }
if {$t2(p-mystat) eq "" && $t2(p-info) eq "" && $t2(p-owner) eq "" && $t2(p-page) eq "" && $t2(p-other) eq ""} {
if {$t2(p-opstat) eq ""} { unset t2(p-gflag) }
}
if {$t2(p-top-d) ne ""} {
foreach ttmp(x) $t2(p-top-d) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 1
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-d) ne "" && $t2(p-t20-d) ne ""} {
foreach ttmp(x) $t2(p-t20-d) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 2
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-d) ne "" && $t2(p-tmor-d) ne ""} {
foreach ttmp(x) $t2(p-tmor-d) {
if {[string first %% $ttmp(x)]=="-1"} { continue } ; set ttmp(y) [string map {%% ?0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 3
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
if {[string length $t2(p-tmax-d)]>"2"} { set ttmp(y) [string map {%% ??0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 3
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
}
}
}
if {$t2(p-top-w) ne ""} {
foreach ttmp(x) $t2(p-top-w) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 4
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-w) ne "" && $t2(p-t20-w) ne ""} {
foreach ttmp(x) $t2(p-t20-w) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 5
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-w) ne "" && $t2(p-tmor-w) ne ""} {
foreach ttmp(x) $t2(p-tmor-w) {
if {[string first %% $ttmp(x)]=="-1"} { continue } ; set ttmp(y) [string map {%% ?0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 6
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
if {[string length $t2(p-tmax-w)]>"2"} { set ttmp(y) [string map {%% ??0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 6
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
}
}
}
if {$t2(p-top-m) ne ""} {
foreach ttmp(x) $t2(p-top-m) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 7
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-m) ne "" && $t2(p-t20-m) ne ""} {
foreach ttmp(x) $t2(p-t20-m) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 8
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-m) ne "" && $t2(p-tmor-m) ne ""} {
foreach ttmp(x) $t2(p-tmor-m) {
if {[string first %% $ttmp(x)]=="-1"} { continue } ; set ttmp(y) [string map {%% ?0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 9
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
if {[string length $t2(p-tmax-m)]>"2"} { set ttmp(y) [string map {%% ??0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 9
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
}
}
}
if {$t2(p-top-e) ne ""} {
foreach ttmp(x) $t2(p-top-e) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 10
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-e) ne "" && $t2(p-t20-e) ne ""} {
foreach ttmp(x) $t2(p-t20-e) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 11
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-top-e) ne "" && $t2(p-tmor-e) ne ""} {
foreach ttmp(x) $t2(p-tmor-e) {
if {[string first %% $ttmp(x)]=="-1"} { continue } ; set ttmp(y) [string map {%% ?0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 12
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
if {[string length $t2(p-tmax-e)]>"2"} { set ttmp(y) [string map {%% ???0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 12
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
}
if {[string length $t2(p-tmax-e)]>"3"} { set ttmp(y) [string map {%% ??0} $ttmp(x)]
lappend t2(-ptrigls) $ttmp(y) ; lappend t2(-ptrigl2) 12
bind pubm $t2(p-tflag) "$t2(chan) $ttmp(y)" TPubTrig
}
}
}
if {$t2(p-mystat) ne ""} {
foreach ttmp(x) $t2(p-mystat) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 50
bind pubm $t2(p-gflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-opstat) ne ""} {
foreach ttmp(x) $t2(p-opstat) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 60
bind pubm $t2(p-gflag) "$t2(chan) $ttmp(x) *" TPubTrig
bind pubm $t2(p-gflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-info) ne ""} {
foreach ttmp(x) $t2(p-info) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 90
bind pubm $t2(p-gflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-page) ne ""} {
foreach ttmp(x) $t2(p-page) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 92
bind pubm $t2(p-gflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-owner) ne ""} {
foreach ttmp(x) $t2(p-owner) { lappend t2(-ptrigls) $ttmp(x) ; lappend t2(-ptrigl2) 99
bind pubm $t2(p-gflag) "$t2(chan) $ttmp(x)" TPubTrig }
}
if {$t2(p-other) ne ""} { set ttmp(c) 0
foreach ttmp(x) $t2(p-otrls) ttmp(y) $t2(p-otxls) ttmp(z) $t2(p-oflls) ttmp(q) $t2(p-ompls) {
incr ttmp(c)
if {$ttmp(z) ne "-"} {
if {$ttmp(z) eq "" || $ttmp(z) eq "-|-"} { set ttmp(z) -
} elseif {[string first | $ttmp(z)]=="-1"} { append ttmp(z) |$ttmp(z) }
}
if {$ttmp(c)>"9"} { set t2(P1$ttmp(c)) $ttmp(y) } else { set t2(P10$ttmp(c)) $ttmp(y) }
foreach ttmp(t) $ttmp(x) {
if {$ttmp(q) eq "p"} { lappend t2(-ptrigls) $ttmp(t)
if {$ttmp(c)=="1"} { lappend t2(-ptrigl2) 94
} elseif {$ttmp(c)>"9"} { lappend t2(-ptrigl2) 1$ttmp(c)
} else { lappend t2(-ptrigl2) 10$ttmp(c) }
bind pubm $ttmp(z) "$t2(chan) $ttmp(t)" TPubTrig
} else { lappend t2(-mtrigls) $ttmp(t)
if {$ttmp(c)=="1"} { lappend t2(-mtrigl2) 94
} elseif {$ttmp(c)>"9"} { lappend t2(-mtrigl2) 1$ttmp(c)
} else { lappend t2(-mtrigl2) 10$ttmp(c) }
bind msgm $ttmp(z) $ttmp(t) TMsgTrig
}
}
}
}
if {[info exists t2(-mtrigls)]} {
proc TMsgTrig {nk uh hn tx} { global t2 tclr botnick
if {[info exists t2(-nopub)]} { return 0 }
if {![onchan $nk $t2(chan)]} { return 0 }
TPubTrig $nk $uh $hn 0 $tx
}
}
proc TPubTrig {nk uh hn ch tx} { global t2 tclr botnick
if {[info exists t2(-nopub)]} { return 0 }
set tx [split [TStrTrSp $tx]] ; set arg [lindex $tx 1] ; set tx [lindex $tx 0]
set fnd 0 ; set map [list %n $nk %b $botnick %c $t2(chan) %m $tx]
if {$ch eq "0"} { set ch $nk ; set from m ; set ls1 $t2(-mtrigls) ; set ls2 $t2(-mtrigl2)
} else { set ch $t2(chan) ; set from p ; set ls1 $t2(-ptrigls) ; set ls2 $t2(-ptrigl2) }
foreach trg $ls1 ret $ls2 {
if {[string match -nocase $trg $tx]} {
if {$ret<"13"} {
if {$ret<"4"} { set topls $t2(S-dls) ; set sa2 $t2(P04)
lappend map %1 $tclr(-ptd1) %2 $tclr(-ptd2) %3 $tclr(-ptd3)
if {$ret=="1"} { set start 1 ; set end 10 ; set say $t2(P01)
} elseif {$ret=="2"} { set start 11 ; set end 20 ; set say $t2(P02)
} else {
if {[set x [string first ??0 $trg]]>"-1"} { set end [string range $tx $x [incr x 2]]
} elseif {[set x [string first ?0 $trg]]>"-1"} { set end [string range $tx $x [incr x]]
} else { continue }
if {![TStrDig $end] || $end<"10" || $end>$t2(p-tmax-d)} { continue }
set start [expr {$end-9}] ; set say $t2(P03)
}
} elseif {$ret<"7"} { set topls $t2(S-wls) ; set sa2 $t2(P14)
lappend map %1 $tclr(-ptw1) %2 $tclr(-ptw2) %3 $tclr(-ptw3)
if {$ret=="4"} { set start 1 ; set end 10 ; set say $t2(P11)
} elseif {$ret=="5"} { set start 11 ; set end 20 ; set say $t2(P12)
} else {
if {[set x [string first ??0 $trg]]>"-1"} { set end [string range $tx $x [incr x 2]]
} elseif {[set x [string first ?0 $trg]]>"-1"} { set end [string range $tx $x [incr x]]
} else { continue }
if {![TStrDig $end] || $end<"10" || $end>$t2(p-tmax-w)} { continue }
set start [expr {$end-9}] ; set say $t2(P13)
}
} elseif {$ret<"10"} { set topls $t2(S-mls) ; set sa2 $t2(P24)
lappend map %1 $tclr(-ptm1) %2 $tclr(-ptm2) %3 $tclr(-ptm3)
if {$ret=="7"} { set start 1 ; set end 10 ; set say $t2(P21)
} elseif {$ret=="8"} { set start 11 ; set end 20 ; set say $t2(P22)
} else {
if {[set x [string first ??0 $trg]]>"-1"} { set end [string range $tx $x [incr x 2]]
} elseif {[set x [string first ?0 $trg]]>"-1"} { set end [string range $tx $x [incr x]]
} else { continue }
if {![TStrDig $end] || $end<"10" || $end>$t2(p-tmax-m)} { continue }
set start [expr {$end-9}] ; set say $t2(P23)
}
} else { set topls $t2(S-els) ; set sa2 $t2(P34)
lappend map %1 $tclr(-pte1) %2 $tclr(-pte2) %3 $tclr(-pte3)
if {$ret=="10"} { set start 1 ; set end 10 ; set say $t2(P31)
} elseif {$ret=="11"} { set start 11 ; set end 20 ; set say $t2(P32)
} else {
if {[set x [string first ???0 $trg]]>"-1"} { set end [string range $tx $x [incr x 3]]
} elseif {[set x [string first ??0 $trg]]>"-1"} { set end [string range $tx $x [incr x 2]]
} elseif {[set x [string first ?0 $trg]]>"-1"} { set end [string range $tx $x [incr x]]
} else { continue }
if {![TStrDig $end] || $end<"10" || $end>$t2(p-tmax-e)} { continue }
set start [expr {$end-9}] ; set say $t2(P33)
}
}
set fnd 1
if {$start>[llength $topls]} {
} else { set fnd 2 ; set topls [lrange $topls [expr {$start-1}] [expr {$end-1}]]
lappend map %s $start %e $end ; set x ""
foreach nls $topls {
foreach {p c n ut} $nls { break } ; set ma2 [list %r $start %p $p %q $c %n $n]
append x [string map $ma2 [lindex $sa2 0]] ; incr start
}
incr start -1 ; lappend map %l $start
foreach txln $say { set txln [string map $map [string map [list %x $x] $txln]]
if {$txln ne "" && $txln ne " "} { puthelp "PRIVMSG $ch :$txln" }
}
}
}
if {$ret=="50" || $ret=="60"} { lappend map %1 $tclr(-pmy1) %2 $tclr(-pmy2) %3 $tclr(-pmy3)
if {$ret=="50"} { set kno $t2(P50) ; set z P5
} else {
if {$arg eq ""} {
foreach txln $t2(P70) { set txln [string map $map $txln]
if {$txln ne "" && $txln ne " "} { incr fnd ; puthelp "PRIVMSG $ch :$txln" }
}
if {$fnd>"0"} { set t2(-nopub) 1 ; utimer $t2(pubcmd) [list TNoPub] }
return 1
}
lset map 1 $arg ; set nk $arg ; set kno $t2(P60) ; set z P6
}
set g 0 ; set fnd 1
if {$kno ne ""} {
if {[set tkno [TKnown $nk 4]] && [string match {*%[pqr]e*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%e* $kno]} { set g 1
} elseif {[set tkno [TKnown $nk 3]] && [string match {*%[pqr]m*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%m* $kno]} { set g 1
} elseif {[set tkno [TKnown $nk 2]] && [string match {*%[pqr]w*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%w* $kno]} { set g 1
} elseif {[set tkno [TKnown $nk 1]] && [string match {*%[pqr]d*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%d* $kno]} { set g 1 }
}
if {$g=="1"} { set ma4 ""
if {[string match *%d* $kno]} {
if {[TKnown $nk 1]} { lappend ma4 %d [join $t2(${z}2)] } else { lappend ma4 %d [join $t2(${z}3)] }
}
if {[string match *%w* $kno]} {
if {[TKnown $nk 2]} { lappend ma4 %w [join $t2(${z}4)] } else { lappend ma4 %w [join $t2(${z}5)] }
}
if {[string match *%m* $kno]} {
if {[TKnown $nk 3]} { lappend ma4 %m [join $t2(${z}6)] } else { lappend ma4 %m [join $t2(${z}7)] }
}
if {[string match *%e* $kno]} {
if {[TKnown $nk 4]} { lappend ma4 %e [join $t2(${z}8)] } else { lappend ma4 %e [join $t2(${z}9)] }
}
if {$ma4 ne ""} { set newtx ""
foreach txln $kno { lappend newtx [string map $ma4 $txln] }
set kno $newtx
}
set saytx $kno
} else { set saytx $t2(${z}1) }
if {$saytx ne ""} { set fnd 2
if {[string match {*%[pqr][demw]*} $saytx]} { set st [TGetStat $nk]
foreach {d w m e} $st { break } ; set p 0 ; set q 0 ; set r 0
if {$d ne "0"} { foreach {p q r} $d { break } }
lappend map %pd $p %qd $q %rd $r ; set p 0 ; set q 0 ; set r 0
if {$w ne "0"} { foreach {p q r} $w { break } }
lappend map %pw $p %qw $q %rw $r ; set p 0 ; set q 0 ; set r 0
if {$m ne "0"} { foreach {p q r} $m { break } }
lappend map %pm $p %qm $q %rm $r ; set p 0 ; set q 0 ; set r 0
if {$e ne "0"} { foreach {p q r} $e { break } }
lappend map %pe $p %qe $q %re $r
}
foreach txln $saytx { set txln [string map $map $txln]
if {$txln ne "" && $txln ne " "} { puthelp "PRIVMSG $ch :$txln" }
}
}
}
if {$ret>"89"} { set ut [unixtime] ; set fnd 1
lappend map %s $t2(script) %v $t2(ver) %a $t2(auth) %d $t2(p-activ) %t $t2(-ufilcnt)
if {$t2(p-pwww) ne ""} { lappend map %w $t2(p-pwww) } else { lappend map %w N/A }
lappend map %q $t2(-qtotal) %k $t2(-ktotal) %z [expr {$t2(-qtotal)+$t2(-ktotal)}]
if {[info exists t2(S-akp)] && $t2(S-akp)>"0"} { lappend map %g $t2(S-acnt)
if {$t2(-ison)=="0" && [expr {$t2(S-aut)+300}]<$ut} { TSetStat 1 }
} else { lappend map %g N/A }
if {$ret=="90"} { lappend map %1 $tclr(-pinf1) %2 $tclr(-pinf2) %3 $tclr(-pinf3)
set stxt [concat $t2(P45) $t2(P46)]
} elseif {$ret=="92"} { lappend map %1 $tclr(-ppg1) %2 $tclr(-ppg2) %3 $tclr(-ppg3)
set stxt $t2(P42)
} elseif {$ret=="94"} { lappend map %1 $tclr(-poth1) %2 $tclr(-poth2) %3 $tclr(-poth3)
set stxt $t2(P43)
} elseif {$ret>"101" && $ret<"126"} { set stxt $t2(P$ret)
lappend map %1 $tclr(-poth1) %2 $tclr(-poth2) %3 $tclr(-poth3)
} else { lappend map %1 $tclr(-pown) ; set stxt $t2(P41) }
set dtmap [list %o [strftime %x $t2(-reldate)] %u [strftime %x $t2(-ufiledt)]]
lappend dtmap %l [strftime %X $ut] %i [strftime %x $ut] %f ""
foreach txln $stxt {
if {$txln ne "" && $txln ne " "} { set fnd 2
if {[string match *%f* $txln]} { set nst 0 ; set nxf -1 ; set newln "" ; set dun 0
while {$dun=="0"} { set nxf [string first %f $txln]
if {$nxf=="0"} { set nst 2 ; set nxf -1
} else { append newln [string range $txln 0 [expr {$nxf-1}]]
set nst [incr nxf 2] ; set nxf -1
}
if {$nst>=[string length $txln]} { break }
set txln [string range $txln $nst end] ; set nst 0
set nxf [string first %o [string map {%u %o %l %o %i %o} $txln]]
if {$nxf=="-1"} { append newln $txln ; break }
set dtc [string index $txln [expr {$nxf+1}]]
if {$nxf=="0"} { set tdstr "" ; set nst 2 ; set nxf -1 ; append newln %$dtc
} else { set tdstr [string range $txln 0 [expr {$nxf-1}]]
set nst [incr nxf 2] ; set nxf -1
if {[string match *%* $tdstr]} {
if {$dtc=="o"} { set tdut $t2(-reldate)
} elseif {$dtc=="u"} { set tdut $t2(-ufiledt)
} else { set tdut $ut }
if {[string match *%e* $tdstr]} { set e [string trim [strftime %e $tdut]]
set tdstr [string map [list %e $e] $tdstr]
}
if {![info exists tdmap]} { set tdmap [list %%f "" %% %% %f "" %s %%s %v %%v]
lappend tdmap %1 %%1 %2 %%2 %3 %%3 %n %%n %w %%w %t %%t %q %%q %k %%k %z %%z
}
append newln [strftime [string map $tdmap $tdstr] $tdut]
} else { append newln $tdstr%$dtc }
}
if {$nst>=[string length $txln]} { break }
set txln [string range $txln $nst end] ; set nst 0
set nxf [string first %f $txln]
if {![string match *%f* $txln]} { append newln $txln ; break }
}
set txln $newln
}
puthelp "PRIVMSG $ch :[string map [concat $map $dtmap] $txln]"
}
}
}
if {$fnd>"0"} { break }
}
}
if {$fnd>"1"} { set t2(-nopub) 1 ; utimer $t2(pubcmd) [list TNoPub] }
}
proc TNoPub {} { global t2
if {[info exists t2(-nopub)]} { unset t2(-nopub) }
}
}
array unset t2 _* ; return 0
}
if {$t2(_cm) eq "s"} {
proc TSetStat { {wat 0} {mor 0} } { global t2
if {$t2(-stats)=="0"} { array unset t2 S-* ; return 1 }
if {$wat=="0"} { array unset t2 S-*
set t2(S-dkp) 0 ; set t2(S-wkp) 0 ; set t2(S-mkp) 0 ; set t2(S-ekp) 0 ; set t2(S-akp) 0
}
if {$wat=="0" && $t2(voice)>"0"} {
if {$t2(v-top3)>"0"} {
if {$t2(v-top3)=="1" || $t2(v-top3)=="3"} { set t2(S-wkp) 3 ;set t2(S-wls) "" ;set t2(S-wpt) 1
if {$t2(v-min)>"0"} { set t2(S-wpt) $t2(v-min) }
}
if {$t2(v-top3)=="2" || $t2(v-top3)=="3"} { set t2(S-mkp) 3 ;set t2(S-mls) "" ;set t2(S-mpt) 1
if {$t2(v-min)>"0"} { set t2(S-mpt) $t2(v-min) }
}
}
if {$t2(v-top10)>"0"} {
if {$t2(v-top10)=="1" || $t2(v-top10)=="3"} { set t2(S-wkp) 10 ;set t2(S-wls) "" ;set t2(S-wpt) 1
if {$t2(v-min)>"0"} { set t2(S-wpt) $t2(v-min) }
}
if {$t2(v-top10)=="2" || $t2(v-top10)=="3"} { set t2(S-mkp) 10 ;set t2(S-mls) "" ;set t2(S-mpt) 1
if {$t2(v-min)>"0"} { set t2(S-mpt) $t2(v-min) }
}
}
}
if {$wat=="0" && $t2(greet)>"0"} {
foreach ttmp(x) {G01 G11 G21 G31 G02} {
if {[string match {*%[pqr]d*} $t2($ttmp(x))] || [string match *%d* $t2($ttmp(x))]} {
set t2(S-dkp) 1000 ; set t2(S-dls) "" ; set t2(S-dpt) 1
} elseif {[string match *%a* $t2($ttmp(x))] && [string match {*%u[dnpqr]d*} $t2(G81)]} {
set t2(S-dkp) 1000 ; set t2(S-dls) "" ; set t2(S-dpt) 1
} elseif {[string match *%h* $t2($ttmp(x))] && [string match {*%u[dnpqr]d*} $t2(G84)]} {
set t2(S-dkp) 1000 ; set t2(S-dls) "" ; set t2(S-dpt) 1 }
if {[string match {*%[pqr]w*} $t2($ttmp(x))] || [string match *%w* $t2($ttmp(x))]} {
set t2(S-wkp) 1000 ; set t2(S-wls) "" ; set t2(S-wpt) 1
} elseif {[string match *%a* $t2($ttmp(x))] && [string match {*%u[dnpqr]w*} $t2(G81)]} {
set t2(S-wkp) 1000 ; set t2(S-wls) "" ; set t2(S-wpt) 1
} elseif {[string match *%h* $t2($ttmp(x))] && [string match {*%u[dnpqr]w*} $t2(G84)]} {
set t2(S-wkp) 1000 ; set t2(S-wls) "" ; set t2(S-wpt) 1 }
if {[string match {*%[pqr]m*} $t2($ttmp(x))] || [string match *%m* $t2($ttmp(x))]} {
set t2(S-mkp) 1000 ; set t2(S-mls) "" ; set t2(S-mpt) 1
} elseif {[string match *%a* $t2($ttmp(x))] && [string match {*%u[dnpqr]m*} $t2(G81)]} {
set t2(S-mkp) 1000 ; set t2(S-mls) "" ; set t2(S-mpt) 1
} elseif {[string match *%h* $t2($ttmp(x))] && [string match {*%u[dnpqr]m*} $t2(G84)]} {
set t2(S-mkp) 1000 ; set t2(S-mls) "" ; set t2(S-mpt) 1 }
if {[string match {*%[pqr]e*} $t2($ttmp(x))] || [string match *%e* $t2($ttmp(x))]} {
set t2(S-ekp) 1000 ; set t2(S-els) "" ; set t2(S-ept) 1
} elseif {[string match *%a* $t2($ttmp(x))] && [string match {*%u[dnpqr]e*} $t2(G81)]} {
set t2(S-ekp) 1000 ; set t2(S-els) "" ; set t2(S-ept) 1
} elseif {[string match *%h* $t2($ttmp(x))] && [string match {*%u[dnpqr]e*} $t2(G84)]} {
set t2(S-ekp) 1000 ; set t2(S-els) "" ; set t2(S-ept) 1 }
}
}
if {$wat=="0" && $t2(pubcmd)>"0"} {
if {$t2(S-dkp)<"1000"} {
if {$t2(p-mystat) ne "" && ([string match *%d* $t2(P50)] || [string match {*%[pqr]d*} $t2(P50)])} {
set t2(S-dkp) 1000 ; set t2(S-dls) "" ; set t2(S-dpt) 1 }
if {$t2(S-dkp)<"1000" && $t2(p-opstat) ne "" && ([string match *%d* $t2(P60)] || [string match {*%[pqr]d*} $t2(P60)])} {
set t2(S-dkp) 1000 ; set t2(S-dls) "" ; set t2(S-dpt) 1 }
if {$t2(S-dkp)<"1000" && $t2(p-top-d) ne ""} { set keep 10
if {$t2(p-t20-d) ne ""} { set keep 20 }
if {$t2(p-tmor-d) ne ""} { set keep $t2(p-tmax-d) }
if {$keep>$t2(S-dkp)} { set t2(S-dkp) $keep ; set t2(S-dls) "" ; set t2(S-dpt) 1 }
}
}
if {$t2(S-wkp)<"1000"} {
if {$t2(p-mystat) ne "" && ([string match *%w* $t2(P50)] || [string match {*%[pqr]w*} $t2(P50)])} {
set t2(S-wkp) 1000 ; set t2(S-wls) "" ; set t2(S-wpt) 1 }
if {$t2(S-wkp)<"1000" && $t2(p-opstat) ne "" && ([string match *%w* $t2(P60)] || [string match {*%[pqr]w*} $t2(P60)])} {
set t2(S-wkp) 1000 ; set t2(S-wls) "" ; set t2(S-wpt) 1 }
if {$t2(S-wkp)<"1000" && $t2(p-top-w) ne ""} { set keep 10
if {$t2(p-t20-w) ne ""} { set keep 20 }
if {$t2(p-tmor-w) ne ""} { set keep $t2(p-tmax-w) }
if {$keep>$t2(S-wkp)} { set t2(S-wkp) $keep ; set t2(S-wls) "" ; set t2(S-wpt) 1 }
}
}
if {$t2(S-mkp)<"1000"} {
if {$t2(p-mystat) ne "" && ([string match *%m* $t2(P50)] || [string match {*%[pqr]m*} $t2(P50)])} {
set t2(S-mkp) 1000 ; set t2(S-mls) "" ; set t2(S-mpt) 1 }
if {$t2(S-mkp)<"1000" && $t2(p-opstat) ne "" && ([string match *%m* $t2(P60)] || [string match {*%[pqr]m*} $t2(P60)])} {
set t2(S-mkp) 1000 ; set t2(S-mls) "" ; set t2(S-mpt) 1 }
if {$t2(S-mkp)<"1000" && $t2(p-top-m) ne ""} { set keep 10
if {$t2(p-t20-m) ne ""} { set keep 20 }
if {$t2(p-tmor-m) ne ""} { set keep $t2(p-tmax-m) }
if {$keep>$t2(S-mkp)} { set t2(S-mkp) $keep ; set t2(S-mls) "" ; set t2(S-mpt) 1 }
}
}
if {$t2(S-ekp)<"1000"} {
if {$t2(p-mystat) ne "" && ([string match *%e* $t2(P50)] || [string match {*%[pqr]e*} $t2(P50)])} {
set t2(S-ekp) 1000 ; set t2(S-els) "" ; set t2(S-ept) 1 }
if {$t2(S-ekp)<"1000" && $t2(p-opstat) ne "" && ([string match *%e* $t2(P60)] || [string match {*%[pqr]e*} $t2(P60)])} {
set t2(S-ekp) 1000 ; set t2(S-els) "" ; set t2(S-ept) 1 }
if {$t2(S-ekp)<"1000" && $t2(p-top-e) ne ""} { set keep 10
if {$t2(p-t20-e) ne ""} { set keep 20 }
if {$t2(p-tmor-e) ne ""} { set keep $t2(p-tmax-e) }
if {$keep>$t2(S-ekp)} { set t2(S-ekp) $keep ; set t2(S-els) "" ; set t2(S-ept) 1 }
}
}
if {$t2(S-akp)=="0" && $t2(p-owner) ne ""} {
if {[string match *%g* $t2(P41)]} { set t2(S-akp) 1 }
}
if {$t2(S-akp)=="0" && $t2(p-page) ne ""} {
if {[string match *%g* $t2(P42)]} { set t2(S-akp) 1 }
}
if {$t2(S-akp)=="0" && $t2(p-info) ne ""} {
if {[string match *%g* [concat $t2(P45) $t2(P46)]]} { set t2(S-akp) 1 }
}
if {$t2(S-akp)=="0" && $t2(p-other) ne ""} {
if {[string match *%g* $t2(P43)]} { set t2(S-akp) 1
} elseif {[string match *%g* $t2(p-otxls)]} { set t2(S-akp) 1 }
}
}
if {$t2(S-dkp)=="0" && $t2(S-wkp)=="0" && $t2(S-mkp)=="0" && $t2(S-ekp)=="0" && $t2(S-akp)=="0"} {
set t2(-stats) 0 ; array unset t2 S-* ; return 1 }
if {$t2(S-akp)>"0"} { set t2(S-acnt) 0 ; set t2(S-aut) [unixtime]
set asec [expr {[unixtime]-($t2(p-activ)*86400)}]
}
if {![file exists $t2(sfpath)t2.users]} { return 2 }
set tusfile [open $t2(sfpath)t2.users] ; set tulin0 [gets $tusfile] ; set adun 0
while {![eof $tusfile]} { set temp [gets $tusfile]
if {$temp ne ""} { set temp [split $temp]
foreach {nk hn uh tp tc wp wc mp mc ep ec at st n2 u2} $temp { break }
set nk [string range $nk 3 end]
if {$wat=="0"} {
if {$t2(S-dkp)>"0" && $tp>=$t2(S-dpt)} { lappend t2(S-dls) [list $tp $tc $nk $at] }
if {$t2(S-wkp)>"0" && $wp>=$t2(S-wpt)} { lappend t2(S-wls) [list $wp $wc $nk $at] }
if {$t2(S-mkp)>"0" && $mp>=$t2(S-mpt)} { lappend t2(S-mls) [list $mp $mc $nk $at] }
if {$t2(S-ekp)>"0" && $ep>=$t2(S-ept)} { lappend t2(S-els) [list $ep $ec $nk $at] }
}
if {$t2(S-akp)>"0" && $adun=="0"} {
if {$st<$asec} {
if {$t2(S-dkp)=="0" && $t2(S-wkp)=="0" && $t2(S-mkp)=="0" && $t2(S-ekp)=="0"} {
close $tusfile ; return 3
} elseif {$wat=="1"} { close $tusfile ; return 4 } else { set adun 1 }
} else { incr t2(S-acnt) }
}
}
}
close $tusfile
if {$wat=="1"} { return 5 }
foreach {x y z} {dkp dls dpt wkp wls wpt mkp mls mpt ekp els ept} {
if {$t2(S-$x)>"0" && $t2(S-$y) ne ""} { set rest ""
set t2(S-$y) [lsort -index 0 -integer -decreasing $t2(S-$y)]
if {[llength $t2(S-$y)]>$t2(S-$x)} { set rest [lrange $t2(S-$y) $t2(S-$x) end]
set t2(S-$y) [lreplace $t2(S-$y) $t2(S-$x) end] }
if {[llength $t2(S-$y)]==$t2(S-$x)} { set t2(S-$z) [lindex $t2(S-$y) end 0] }
if {$rest ne "" && [lindex $rest 0 0]==$t2(S-$z)} {
foreach usr $rest {
if {[lindex $usr 0]==$t2(S-$z)} { lappend $t2(S-$y) $usr } else { break }
}
}
set t2(S-$y) [TRanking $t2(S-$y) $t2(S-$x)]
}
}
return 0
}
TSetStat
if {$t2(-stats)=="0"} { array unset t2 _* ; rename TSetStat "" ; return 0 }
proc TKnown {nk {wat 0} } { global t2 ; set d 0 ; set w 0 ; set m 0 ; set e 0
if {$t2(-stats)=="0"} { return 0 } ; set nk [TStrLo $nk]
if {$wat<"2" && [info exists t2(S-dls)] && $t2(S-dls) ne ""} {
foreach pl $t2(S-dls) {
if {[TStrLo [lindex $pl 2]] eq $nk} { set d 1 ; break }
}
}
if {($wat=="0" || $wat=="2") && [info exists t2(S-wls)] && $t2(S-wls) ne ""} {
foreach pl $t2(S-wls) {
if {[TStrLo [lindex $pl 2]] eq $nk} { set w 1 ; break }
}
}
if {($wat=="0" || $wat=="3") && [info exists t2(S-mls)] && $t2(S-mls) ne ""} {
foreach pl $t2(S-mls) {
if {[TStrLo [lindex $pl 2]] eq $nk} { set m 1 ; break }
}
}
if {($wat=="0" || $wat=="4") && [info exists t2(S-els)] && $t2(S-els) ne ""} {
foreach pl $t2(S-els) {
if {[TStrLo [lindex $pl 2]] eq $nk} { set e 1 ; break }
}
}
if {$wat=="1"} { return $d } ; if {$wat=="2"} { return $w }
if {$wat=="3"} { return $m } ; if {$wat=="4"} { return $e }
return [list $d $w $m $e]
}
proc TGetNxUp {nk {wat 0} } { global t2 ; set d 0 ; set w 0 ; set m 0 ; set e 0
if {$t2(-stats)=="0"} { return 0 } ; set nk [TStrLo $nk]
if {$wat<"2" && [info exists t2(S-dls)] && $t2(S-dls) ne ""} { set c 0 ; set l "" ; set fnd 0
foreach pl $t2(S-dls) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set fnd 1
if {$c>"1"} { set pt 0 ; set nx ""
foreach p2 $l { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$pt=="0"} { set pt $v2 ; set nx $p2 ; lappend nx $c
} elseif {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round(("$v2.0"-$v)+1)}] ; set d [list $y2 $v2 $x2 $rnk $dif]
} else { set d 1 }
break
} else { set l [linsert $l 0 $pl] }
}
if {$fnd=="0"} { set pt [lindex $l 0 0] ; set nx [lindex $l 0] ; lappend nx $c
if {[llength $l]>"1"} {
foreach p2 [lrange $l 1 end] { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round("$v2.0"+1)}] ; set d [list $y2 $v2 $x2 $rnk $dif]
}
}
if {($wat=="0" || $wat=="2") && [info exists t2(S-wls)] && $t2(S-wls) ne ""} { set c 0 ; set l "" ; set fnd 0
foreach pl $t2(S-wls) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set fnd 1
if {$c>"1"} { set pt 0 ; set nx ""
foreach p2 $l { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$pt=="0"} { set pt $v2 ; set nx $p2 ; lappend nx $c
} elseif {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round(("$v2.0"-$v)+1)}] ; set w [list $y2 $v2 $x2 $rnk $dif]
} else { set w 1 }
break
} else { set l [linsert $l 0 $pl] }
}
if {$fnd=="0"} { set pt [lindex $l 0 0] ; set nx [lindex $l 0] ; lappend nx $c
if {[llength $l]>"1"} {
foreach p2 [lrange $l 1 end] { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round("$v2.0"+1)}] ; set w [list $y2 $v2 $x2 $rnk $dif]
}
}
if {($wat=="0" || $wat=="3") && [info exists t2(S-mls)] && $t2(S-mls) ne ""} { set c 0 ; set l "" ; set fnd 0
foreach pl $t2(S-mls) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set fnd 1
if {$c>"1"} { set pt 0 ; set nx ""
foreach p2 $l { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$pt=="0"} { set pt $v2 ; set nx $p2 ; lappend nx $c
} elseif {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round(("$v2.0"-$v)+1)}] ; set m [list $y2 $v2 $x2 $rnk $dif]
} else { set m 1 }
break
} else { set l [linsert $l 0 $pl] }
}
if {$fnd=="0"} { set pt [lindex $l 0 0] ; set nx [lindex $l 0] ; lappend nx $c
if {[llength $l]>"1"} {
foreach p2 [lrange $l 1 end] { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round("$v2.0"+1)}] ; set m [list $y2 $v2 $x2 $rnk $dif]
}
}
if {($wat=="0" || $wat=="4") && [info exists t2(S-els)] && $t2(S-els) ne ""} { set c 0 ; set l "" ; set fnd 0
foreach pl $t2(S-els) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set fnd 1
if {$c>"1"} { set pt 0 ; set nx ""
foreach p2 $l { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$pt=="0"} { set pt $v2 ; set nx $p2 ; lappend nx $c
} elseif {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round(("$v2.0"-$v)+1)}] ; set e [list $y2 $v2 $x2 $rnk $dif]
} else { set e 1 }
break
} else { set l [linsert $l 0 $pl] }
}
if {$fnd=="0"} { set pt [lindex $l 0 0] ; set nx [lindex $l 0] ; lappend nx $c
if {[llength $l]>"1"} {
foreach p2 [lrange $l 1 end] { incr c -1
foreach {v2 x2 y2 z2} $p2 { break }
if {$v2==$pt} { set nx $p2 ; lappend nx $c } else { break }
}
}
foreach {v2 x2 y2 z2 rnk} $nx { break }
set dif [expr {round("$v2.0"+1)}] ; set e [list $y2 $v2 $x2 $rnk $dif]
}
}
if {$wat=="1"} { return $d } ; if {$wat=="2"} { return $w }
if {$wat=="3"} { return $m } ; if {$wat=="4"} { return $e }
return [list $d $w $m $e]
}
proc TGetStat {nk {wat 0} } { global t2 ; set d 0 ; set w 0 ; set m 0 ; set e 0
if {$t2(-stats)=="0"} { return 0 } ; set nk [TStrLo $nk]
if {$wat<"2" && [info exists t2(S-dls)] && $t2(S-dls) ne ""} { set c 0
foreach pl $t2(S-dls) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set d [list $v $x $c] ; break }
}
}
if {($wat=="0" || $wat=="2") && [info exists t2(S-wls)] && $t2(S-wls) ne ""} { set c 0
foreach pl $t2(S-wls) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set w [list $v $x $c] ; break }
}
}
if {($wat=="0" || $wat=="3") && [info exists t2(S-mls)] && $t2(S-mls) ne ""} { set c 0
foreach pl $t2(S-mls) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set m [list $v $x $c] ; break }
}
}
if {($wat=="0" || $wat=="4") && [info exists t2(S-els)] && $t2(S-els) ne ""} { set c 0
foreach pl $t2(S-els) { incr c
foreach {v x y z} $pl { break }
if {[TStrLo $y] eq $nk} { set e [list $v $x $c] ; break }
}
}
if {$wat=="1"} { return $d } ; if {$wat=="2"} { return $w }
if {$wat=="3"} { return $m } ; if {$wat=="4"} { return $e }
return [list $d $w $m $e]
}
if {$t2(voice)>"0"} {
proc TCheckV {nk} { global t2 botnick ; set nk [TStrLo $nk] ; set num 0 ; set wen 0
if {$nk eq [TStrLo $botnick] || $t2(voice)=="0"} { return 0 }
if {($t2(v-top3)=="1" || $t2(v-top3)=="3") && $t2(S-wls) ne ""} { set rnk 0
foreach usr [lrange $t2(S-wls) 0 2] { incr rnk
foreach {x y z} $usr { break }
if {[TStrLo $z] eq $nk} {
if {$x>=$t2(v-min)} { set num 3 ; incr wen 1 } ; break
}
}
}
if {($t2(v-top3)=="2" || $t2(v-top3)=="3") && $t2(S-mls) ne ""} { set rnk 0
foreach usr [lrange $t2(S-mls) 0 2] { incr rnk
foreach {x y z} $usr { break }
if {[TStrLo $z] eq $nk} {
if {$x>=$t2(v-min)} { set num 3 ; incr wen 2 } ; break
}
}
}
if {$num>"0"} { set x [list $num $wen] ; return $x }
if {($t2(v-top10)=="1" || $t2(v-top10)=="3") && $t2(S-wls) ne ""} { set rnk 0
foreach usr [lrange $t2(S-wls) 0 9] { incr rnk
foreach {x y z} $usr { break }
if {[TStrLo $z] eq $nk} {
if {$x>=$t2(v-min)} { set num 10 ; incr wen 1 } ; break
}
}
}
if {($t2(v-top10)=="2" || $t2(v-top10)=="3") && $t2(S-mls) ne ""} { set rnk 0
foreach usr [lrange $t2(S-mls) 0 9] { incr rnk
foreach {x y z} $usr { break }
if {[TStrLo $z] eq $nk} {
if {$x>=$t2(v-min)} { set num 10 ; incr wen 2 } ; break
}
}
}
if {$num>"0"} { set x [list $num $wen] ; return $x } ; return 0
}
}
if {$t2(voice)>"1"} {
proc TDoActV {recnkls} { global t2 tclr botnick
if {[botisop $t2(chan)]} { set vls ""
foreach n $recnkls {
if {![onchan $n $t2(chan)] || [isvoice $n $t2(chan)]} { continue }
if {[isop $n $t2(chan)] && $t2(v-op)<"2"} { continue }
if {[set z [TCheckV $n]] ne "0"} {
foreach {x y} $z { break } ; lappend vls $n $x $y
}
}
if {$vls ne ""} { lappend vls 0 0 0 ; set cnt 0 ; set nxt "" ; set say ""
if {$t2(v-how)>"0"} {
if {$t2(v-how)>"2"} { set say $t2(V21) } else { set say $t2(V31) }
}
if {$say ne ""} { set map [list %b $botnick %c $t2(chan) %tf $t2(off) %th $t2(hint)]
if {$t2(usrqes) eq "0"} { lappend map %tq N/A } else { lappend map %tq $t2(upubq) }
lappend map %to $t2(on) %1 $tclr(-vo1) %2 $tclr(-vo2) %3 $tclr(-vo3) %4 $tclr(-vo4)
if {$t2(v-how)=="2" || $t2(v-how)=="4"} { set putpre NOTICE } else { set putpre PRIVMSG }
}
foreach {n x y} $vls {
if {($cnt==$t2(v-max) || $x eq "0") && $nxt ne ""} { set z "+" ; set nls ""
foreach {n2 x2 y2} $nxt { append z v ; append nls $n2 }
putserv "MODE $t2(chan) $z [join $nls]"
if {$say ne ""} {
foreach {n2 x2 y2} $nxt { set ma6 [list %n $n2 %x $x2 %y $x2]
if {$y2=="3"} { set tm $t2(V92)$t2(V91)$t2(V93) ; lappend ma6 %w $t2(V93) %z $tm
} elseif {$y2=="2"} { lappend ma6 %w $t2(V93) %z $t2(V93)
} else { lappend ma6 %w $t2(V92) %z $t2(V92) }
if {$t2(v-how)<"3"} { set pre "$putpre $n2 :" } else { set pre "$putpre $t2(chan) :" }
if {[string match {*%[pqr][demw]*} $say]} { set st [TGetStat $n2]
foreach {d w m e} $st { break } ; set p 0 ; set q 0 ; set r 0
if {$d ne "0"} { foreach {p q r} $d { break } }
lappend ma6 %pd $p %qd $q %rd $r ; set p 0 ; set q 0 ; set r 0
if {$w ne "0"} { foreach {p q r} $w { break } }
lappend ma6 %pw $p %qw $q %rw $r ; set p 0 ; set q 0 ; set r 0
if {$m ne "0"} { foreach {p q r} $m { break } }
lappend ma6 %pm $p %qm $q %rm $r ; set p 0 ; set q 0 ; set r 0
if {$e ne "0"} { foreach {p q r} $e { break } }
lappend ma6 %pe $p %qe $q %re $r
}
if {[string match {*%[ah]*} $say]} { set st [TGetNxUp $n2]
foreach {d w m e} $st { break }
foreach {up u2} {%a 81 %h 84} { set vs $t2(V$u2) ; set vg V
if {[string match *$up* $say]} { set ma2 $up ; set go err ; set z err
if {[string match {*%u[dnpqr]d*} $vs]} { set go $d ; set z d
} elseif {[string match {*%u[dnpqr]w*} $vs]} { set go $w ; set z w
} elseif {[string match {*%u[dnpqr]m*} $vs]} { set go $m ; set z m
} elseif {[string match {*%u[dnpqr]e*} $vs]} { set go $e ; set z e }
if {$go eq "err"} { lappend ma2 *ERROR*
} elseif {$go eq "1" && $up eq "%a"} { lappend ma2 $t2(${vg}83)
} elseif {$go eq "1"} { lappend ma2 $t2(${vg}86)
} elseif {$go eq "0" && $up eq "%a"} { lappend ma2 $t2(${vg}82)
} elseif {$go eq "0"} { lappend ma2 $t2(${vg}85)
} else {
if {$up eq "%a"} { lappend ma2 $t2(${vg}81) } else { lappend ma2 $t2(${vg}84) }
if {$z eq "d"} { foreach {n3 p q r g} $d { break }
lappend ma6 %und $n3 %upd $p %uqd $q %urd $r %udd $g
} elseif {$z eq "w"} { foreach {n3 p q r g} $w { break }
lappend ma6 %unw $n3 %upw $p %uqw $q %urw $r %udw $g
} elseif {$z eq "m"} { foreach {n3 p q r g} $m { break }
lappend ma6 %unm $n3 %upm $p %uqm $q %urm $r %udm $g
} elseif {$z eq "e"} { foreach {n3 p q r g} $e { break }
lappend ma6 %une $n3 %upe $p %uqe $q %ure $r %ude $g
}
}
set newtx "" ; foreach txln $say { lappend newtx [string map $ma2 $txln] }
set say $newtx
}
}
}
foreach txln $say { set txln [string map $ma6 [string map $map $txln]]
if {$txln ne "" && $txln ne " "} { putserv "$pre$txln" }
}
}
}
set cnt 0 ; set nxt ""
}
lappend nxt $n $x $y ; incr cnt
}
}
}
}
}
array unset t2 _* ; return 0
}
if {$t2(_cm) eq "j"} {
if {![info exists t2(-jls)]} { array set t2 {-jcnt 0 -jflud 0 -wasjflud 0 -jls ""} }
bind join - "$t2(chan) *" TJoin
if {$t2(greet)>"0"} {
if {$t2(g-xnick) ne ""} { set t2(g-xnick) " [join $t2(g-xnick)] " }
set t2(g-same) [expr {$t2(g-same)*60}]
if {$t2(greet)>"2"} { set t2(G11) "" ; set t2(G31) "" }
if {![info exists t2(-gls)]} { array set t2 {-gls "" -lastgnk "" -lastgut 0} }
}
if {$t2(voice)=="1" || $t2(voice)=="3"} {
if {$t2(v-xnick) ne ""} { set t2(v-xnick) " [join $t2(v-xnick)] " }
set t2(v-same) [expr {$t2(v-same)*60}]
if {![info exists t2(-vls)]} { array set t2 {-vls "" -lastvnk "" -lastvut 0} }
}
if {$t2(autostart)>"0"} {
if {$t2(a-xnick) ne ""} { set t2(a-xnick) " [join $t2(a-xnick)] " }
set t2(a-same) [expr {$t2(a-same)*60}]
if {$t2(autostart)>"1" && $t2(A01) eq ""} { set t2(autostart) 1 }
if {$t2(autostart)=="1"} { unset t2(A01) t2(A11) }
if {![info exists t2(-aoff)]} { array set t2 {-aoff 0 -als "" -lastank "" -lastaut 0} }
}
proc TJoin {nk uh hn ch} { global t2 botnick ; set addg 0 ; set addv 0 ; set adda 0 ; set len [string length $nk]
if {$nk eq $botnick || ($t2(greet)=="0" && $t2(voice)=="0" && $t2(autostart)=="0")} { return 0 }
if {$t2(greet)>"0"} { set xmpt 0
if {[string match -nocase "* $nk *" $t2(g-xnick)]} { set xmpt 1 }
if {$t2(g-xflag) ne "" && $hn ne "*"} { foreach {ng nc} $t2(g-xflag) { break }
set flgs [split [chattr $hn $ch] |] ; foreach {hg hc} $flgs { break }
if {$ng ne "-" && $ng ne ""} {
if {$ng eq "*" && $hg ne "-"} { set xmpt 1
} else { set patrn *\[$ng\]*
if {[string match $patrn $hg]} { set xmpt 1 }
}
}
if {$xmpt=="0" && $nc ne "-" && $nc ne ""} {
if {$nc eq "*" && $hc ne "-"} { set xmpt 1
} else { set patrn *\[$nc\]*
if {[string match $patrn $hc]} { set xmpt 1 }
}
}
}
if {$xmpt=="0"} { set addg 1 }
}
if {[botisop $ch] && ($t2(voice)=="1" || $t2(voice)=="3")} { set xmpt 0
if {[string match -nocase "* $nk *" $t2(v-xnick)]} { set xmpt 1 }
if {$xmpt=="0" && $t2(v-xflag) ne "" && $hn ne "*"} { foreach {ng nc} $t2(v-xflag) { break }
set flgs [split [chattr $hn $ch] |] ; foreach {hg hc} $flgs { break }
if {$ng ne "-" && $ng ne ""} {
if {$ng eq "*" && $hg ne "-"} { set xmpt 1
} else { set patrn *\[$ng\]*
if {[string match $patrn $hg]} { set xmpt 1 }
}
}
if {$xmpt=="0" && $nc ne "-" && $nc ne ""} {
if {$nc eq "*" && $hc ne "-"} { set xmpt 1
} else { set patrn *\[$nc\]*
if {[string match $patrn $hc]} { set xmpt 1 }
}
}
}
if {$xmpt=="0" && [TCheckV $nk] ne "0"} { set addv 1 }
}
if {$t2(autostart)>"0"} { set xmpt 0
if {[string match -nocase "* $nk *" $t2(a-xnick)]} { set xmpt 1 }
if {$xmpt=="0" && $t2(a-xflag) ne "" && $hn ne "*"} { foreach {ng nc} $t2(a-xflag) { break }
set flgs [split [chattr $hn $ch] |] ; foreach {hg hc} $flgs { break }
if {$ng ne "-" && $ng ne ""} {
if {$ng eq "*" && $hg ne "-"} { set xmpt 1
} else { set patrn *\[$ng\]*
if {[string match $patrn $hg]} { set xmpt 1 }
}
}
if {$xmpt=="0" && $nc ne "-" && $nc ne ""} {
if {$nc eq "*" && $hc ne "-"} { set xmpt 1
} else { set patrn *\[$nc\]*
if {[string match $patrn $hc]} { set xmpt 1 }
}
}
}
if {$xmpt=="0"} { set adda 1 }
}
if {$addg=="0" && $addv=="0" && $adda=="0"} { return 0 }
if {$adda>"0" && $addg=="0" && $addv=="0" && $t2(-ison)=="0" && $t2(-aoff)=="1"} {
if {$t2(-jcnt)==$t2(jflud)} { set t2(-jflud) 1 ; set t2(-wasjflud) 1 }
incr t2(-jcnt)
}
if {$adda>"0"} { set y " [join $t2(-als)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-als) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
lappend t2(-als) $nk
if {$addg=="0" && $t2(autostart)>"1"} {
if {$addv=="0" || ($addv=="1" && $t2(v-how)=="0")} {
if {$t2(-jcnt)==$t2(jflud)} { set t2(-jflud) 1 ; set t2(-wasjflud) 1 }
incr t2(-jcnt)
}
}
}
if {$addg>"0"} { set y " [join $t2(-gls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-gls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
lappend t2(-gls) $nk
if {$t2(-jcnt)==$t2(jflud)} { set t2(-jflud) 1 ; set t2(-wasjflud) 1 }
incr t2(-jcnt)
}
if {$addv>"0"} { set y " [join $t2(-vls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-vls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
lappend t2(-vls) $nk
if {[info exists t2(-sayvls)]} { set y " [join $t2(-sayvls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-sayvls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
if {$t2(-sayvls) eq ""} { unset t2(-sayvls) }
}
if {$t2(v-how)>"0"} {
if {$t2(-jcnt)==$t2(jflud)} { set t2(-jflud) 1 ; set t2(-wasjflud) 1 }
incr t2(-jcnt)
}
}
set y " [join $t2(-jls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-jls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
lappend t2(-jls) $nk
if {![info exists t2(-jqtimr)]} { set t2(-jqtimr) [utimer 6 [list TSndJmsg]] }
if {![info exists t2(-jtimer)]} { set t2(-jtimer) [utimer $t2(jftime) [list TZroJcnt]] }
}
proc TZroJcnt {} { global t2
if {$t2(greet)=="0" && $t2(voice)=="0" && $t2(autostart)=="0"} { return 0 }
if {$t2(-jcnt)>$t2(jflud)} { set t2(-wasjflud) 1 } else { set t2(-wasjflud) 0 }
set t2(-jcnt) 0
if {$t2(-wasjflud)=="0"} { unset t2(-jtimer)
if {$t2(-jls) eq ""} {
if {$t2(-wasjflud)=="0"} { set t2(-jflud) 0 }
}
return 0
}
set t2(-jtimer) [utimer $t2(jftime) [list TZroJcnt]]
}
proc TSndJmsg {} { global t2 botnick tclr ; set ch $t2(chan)
if {$t2(greet)=="0" && [info exists t2(-gls)]} { unset t2(-gls) }
if {($t2(voice)=="0" || $t2(voice)=="2") && [info exists t2(-vls)]} { unset t2(-vls) }
if {$t2(autostart)=="0" && [info exists t2(-als)]} { unset t2(-als) }
if {$t2(greet)=="0" && ($t2(voice)=="0" || $t2(voice)=="2") && $t2(autostart)=="0"} { return 0 }
if {$t2(greet)>"0" && $t2(-lastgnk) ne ""} {
if {[unixtime]>[expr {$t2(-lastgut)+$t2(g-same)}]} { set t2(-lastgnk) "" ; set t2(-lastgut) 0 }
}
if {($t2(voice)=="1" || $t2(voice)=="3") && $t2(-lastvnk) ne ""} {
if {[unixtime]>[expr {$t2(-lastvut)+$t2(v-same)}]} { set t2(-lastvnk) "" ; set t2(-lastvut) 0 }
}
if {$t2(autostart)>"0" && $t2(-lastank) ne ""} {
if {[unixtime]>[expr {$t2(-lastaut)+$t2(a-same)}]} { set t2(-lastank) "" ; set t2(-lastaut) 0 }
}
set newjls ""
foreach nk $t2(-jls) {
if {[onchan $nk $ch]} { lappend newjls $nk
} else { set len [string length $nk]
if {$t2(greet)>"0" && $t2(-gls) ne ""} { set y " [join $t2(-gls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-gls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
}
if {$t2(voice)=="1" || $t2(voice)=="3"} {
if {$t2(-vls) ne ""} { set y " [join $t2(-vls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-vls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
}
if {[info exists t2(-sayvls)]} { set y " [join $t2(-sayvls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-sayvls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
if {$t2(-sayvls) eq ""} { unset t2(-sayvls) }
}
}
if {$t2(autostart)>"0" && $t2(-als) ne ""} { set y " [join $t2(-als)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-als) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
}
}
}
set t2(-jls) $newjls
if {$t2(-jls) ne ""} { set idx -1 ; set got 0 ; set voice 0 ; set greet 0 ; set start 0 ; set putcnt 0
foreach nk $t2(-jls) { incr idx ; set len [string length $nk]
if {$t2(greet)>"0" && $t2(-gls) ne ""} { set y " [join $t2(-gls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-gls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
if {[TStrLo $nk] ne $t2(-lastgnk)} { incr got ; set greet 1 }
}
}
if {$got>"0" && ($t2(voice)=="1" || $t2(voice)=="3") && $t2(-vls) ne ""} { set y " [join $t2(-vls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
if {[botisop $ch]} {
if {$t2(v-how)=="0" || [TStrLo $nk] eq $t2(-lastvnk)} {
set t2(-vls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
if {![isvoice $nk $ch]} {
if {[isop $nk $ch] && ($t2(v-op)=="0" || $t2(v-op)=="2")} {
} else { set voice 1 }
}
} else { incr got ; set voice 3 }
} else { set t2(-vls) "" }
}
}
if {$got>"0"} {
} elseif {[info exists t2(-sayvls)]} { set y " [join $t2(-sayvls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} { incr got ; set voice 2
set t2(-sayvls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
}
if {$t2(-sayvls) eq ""} { unset t2(-sayvls) }
} elseif {($t2(voice)=="1" || $t2(voice)=="3") && $t2(-vls) ne ""} { set y " [join $t2(-vls)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
if {[botisop $ch]} {
set t2(-vls) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
if {![isvoice $nk $ch]} {
if {[isop $nk $ch] && ($t2(v-op)=="0" || $t2(v-op)=="2")} {
} elseif {[TStrLo $nk] eq $t2(-lastvnk)} { incr got ; set voice 1
} else { incr got
if {$t2(v-how)>"0"} { set voice 3 } else { set voice 1 }
}
}
} else { set t2(-vls) "" }
}
}
if {$t2(autostart)>"0" && $t2(-als) ne ""} { set y " [join $t2(-als)] "
if {[set z [string first " [TStrLo $nk] " [TStrLo $y]]]>"-1"} {
set t2(-als) [split [string trim [string replace $y $z [expr {$z+$len}]]]]
if {[TStrLo $nk] ne $t2(-lastank)} { set start 1 }
}
}
if {$got>"0"} { break }
}
if {$got=="0"} { set t2(-jls) ""
} else { set dovls "" ; set sayvls "" ; set saygls ""
if {$idx>"0"} { set t2(-jls) [lrange $t2(-jls) $idx end] }
if {$got=="1" || $voice<"2"} { set t2(-jls) [lreplace $t2(-jls) 0 0] }
if {$greet>"0"} { lappend saygls $nk
if {$t2(-jflud)>"0" && $t2(-gls) ne ""} { set saygls $t2(-gls)
set t2(-gls) "" ; set saygls [linsert $saygls 0 $nk]
}
}
if {($saygls eq "" && $voice>"0") || $voice=="1"} {
if {$voice=="1" || $voice=="3"} { set newvls "" ; lappend dovls $nk
if {$t2(-vls) ne "" && $t2(v-max)>"1" && ($t2(v-mhow)=="1" || $t2(-jflud)>"0")} {
foreach n2 $t2(-vls) { set rem 0
if {[isvoice $n2 $ch]} { set rem 1
} elseif {[isop $n2 $ch] && ($t2(v-op)=="0" || $t2(v-op)=="2")} { set rem 1
} elseif {[llength $dovls]<$t2(v-max)} { lappend dovls $n2 ; set rem 2
} else { lappend newvls $n2 }
}
set t2(-vls) $newvls
if {$voice=="3"} {
if {$t2(v-msg)=="1" || $t2(-jflud)>"0"} { set sayvls $dovls
} else { lappend sayvls $nk
if {[llength $dovls]>"1"} { set t2(-sayvls) [lrange $dovls 1 end] }
}
}
} else {
if {$voice=="3"} { lappend sayvls $nk }
}
} else { lappend sayvls $nk
if {$t2(-jflud)>"0" && [info exists t2(-sayvls)]} {
set sayvls $t2(-sayvls) ; unset t2(-sayvls) ; set sayvls [linsert $sayvls 0 $nk] }
}
}
if {$sayvls ne "" || $saygls ne ""} { set tmp "" ; set how 2
set map [list %b $botnick %c $ch]
if {$sayvls ne ""} { set t2(-lastvnk) [TStrLo [lindex $sayvls end]] ; set t2(-lastvut) [unixtime]
set sayls $sayvls ; set sayopt $t2(v-how) ; set saying 1
if {$dovls ne ""} { set x "+" ; incr putcnt
foreach z $dovls { append x v }
putserv "MODE $ch $x [join $dovls]" ; set dunvls $dovls ; set dovls ""
}
set num 0 ; set wen 0
foreach n2 $sayls { set tls [TCheckV $n2]
if {$tls eq "0"} { continue }
foreach {x y} $tls { break }
if {$num<"3"} {
if {$x=="3"} {
if {$num=="0" || $num=="2"} { incr num }
} else {
if {$num<"2"} { incr num 2 }
}
}
if {$wen<"3"} {
if {$y=="1"} {
if {$wen=="0" || $wen=="2"} { incr wen }
} else {
if {$wen<"2"} { incr wen 2 }
}
}
if {$num=="3" && $wen=="3"} { break }
}
if {$num=="0"} {
if {$t2(v-top10)>"0"} { set num 2 ; set wen $t2(v-top10) }
if {$num=="2" && $wen=="3"} {
} elseif {$t2(v-top3)>"0"} {
if {$num=="2"} {
if {$wen=="2" && ($t2(v-top3)=="1" || $t2(v-top3)=="3")} { set num 3 ; set wen 3
} elseif {$wen=="1" && $t2(v-top3)>"2"} { set num 3 ; set wen 3 }
} else { set num 1 ; set wen $t2(v-top3) }
}
if {$num=="3"} { set x 3$t2(V91)10 ; lappend map %x $x %y $x
} elseif {$num=="2"} { lappend map %x 10 %y 10 } else { lappend map %x 3 %y 3 }
if {$wen=="3"} { set x $t2(V92)$t2(V91)$t2(V93) ; lappend map %w $x %z $x
} elseif {$wen=="2"} { lappend map %w $t2(V93) %z $t2(V93)
} else { lappend map %w $t2(V92) %z $t2(V92) }
} else {
if {$num=="3"} { set x 3$t2(V91)10 ; lappend map %x 10 %y $x
} elseif {$num=="2"} { lappend map %x 10 %y 10 } else { lappend map %x 3 %y 3 }
if {$wen=="3"} { set x $t2(V92)$t2(V91)$t2(V93) ; lappend map %w $t2(V93) %z $x
} elseif {$wen=="2"} { lappend map %w $t2(V93) %z $t2(V93)
} else { lappend map %w $t2(V92) %z $t2(V92) }
}
lappend map %1 $tclr(-vo1) %2 $tclr(-vo2) %3 $tclr(-vo3) %4 $tclr(-vo4)
if {[llength $sayls]>"1"} { set saytx $t2(V02)
} elseif {$sayopt>"2"} { set saytx $t2(V01)
} else { set saytx $t2(V11) }
} else { set t2(-lastgnk) [TStrLo [lindex $saygls end]] ; set t2(-lastgut) [unixtime]
lappend map %1 $tclr(-gr1) %2 $tclr(-gr2) %3 $tclr(-gstat) %4 $tclr(-gsta2) %5 $tclr(-gsta3)
set sayls $saygls ; set sayopt $t2(greet) ; set saying 2
if {[llength $sayls]>"1"} { set saytx $t2(G02)
} else {
if {$sayopt>"2"} { set kno $t2(G21) ; set unk $t2(G01)
} else { set kno $t2(G31) ; set unk $t2(G11) }
set g 0
if {$kno ne ""} {
if {[set tkno [TKnown $nk 4]] && [string match {*%[pqr]e*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%e* $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%a* $kno] && [string match {*%u[dnpqr]e*} $t2(G81)]} { set g 1
} elseif {$tkno=="1" && [string match *%h* $kno] && [string match {*%u[dnpqr]e*} $t2(G84)]} { set g 1
} elseif {[set tkno [TKnown $nk 3]] && [string match {*%[pqr]m*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%m* $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%a* $kno] && [string match {*%u[dnpqr]m*} $t2(G81)]} { set g 1
} elseif {$tkno=="1" && [string match *%h* $kno] && [string match {*%u[dnpqr]m*} $t2(G84)]} { set g 1
} elseif {[set tkno [TKnown $nk 2]] && [string match {*%[pqr]w*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%w* $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%a* $kno] && [string match {*%u[dnpqr]w*} $t2(G81)]} { set g 1
} elseif {$tkno=="1" && [string match *%h* $kno] && [string match {*%u[dnpqr]w*} $t2(G84)]} { set g 1
} elseif {[set tkno [TKnown $nk 1]] && [string match {*%[pqr]d*} $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%d* $kno]} { set g 1
} elseif {$tkno=="1" && [string match *%a* $kno] && [string match {*%u[dnpqr]d*} $t2(G81)]} { set g 1
} elseif {$tkno=="1" && [string match *%h* $kno] && [string match {*%u[dnpqr]d*} $t2(G84)]} { set g 1 }
}
if {$g=="1"} { set ma4 ""
if {[string match *%d* $kno]} {
if {[TKnown $nk 1]} { lappend ma4 %d $t2(G91) } else { lappend ma4 %d $t2(G92) }
}
if {[string match *%w* $kno]} {
if {[TKnown $nk 2]} { lappend ma4 %w $t2(G93) } else { lappend ma4 %w $t2(G94) }
}
if {[string match *%m* $kno]} {
if {[TKnown $nk 3]} { lappend ma4 %m $t2(G95) } else { lappend ma4 %m $t2(G96) }
}
if {[string match *%e* $kno]} {
if {[TKnown $nk 4]} { lappend ma4 %e $t2(G97) } else { lappend ma4 %e $t2(G98) }
}
if {$ma4 ne ""} { set newtx ""
foreach txln $kno { lappend newtx [string map $ma4 $txln] }
set kno $newtx
}
set saytx $kno
} else { set saytx $unk }
}
}
if {$saytx ne ""} { lappend map %n [join $sayls]
if {[llength $sayls]>"1" && $sayopt=="1"} { set putpre "PRIVMSG $ch :"
} elseif {[llength $sayls]>"1" && $sayopt=="2"} { set putpre "NOTICE $ch :"
} elseif {$sayopt=="1"} { set putpre "PRIVMSG $nk :" ; set how 1
} elseif {$sayopt=="2"} { set putpre "NOTICE $nk :" ; set how 1
} elseif {$sayopt=="4"} { set putpre "NOTICE $ch :"
} else { set putpre "PRIVMSG $ch :" }
if {[string match {*%[pqr][demw]*} $saytx]} {
set st [TGetStat $nk]
foreach {d w m e} $st { break } ; set p 0 ; set q 0 ; set r 0
if {$d ne "0"} { foreach {p q r} $d { break } }
lappend map %pd $p %qd $q %rd $r ; set p 0 ; set q 0 ; set r 0
if {$w ne "0"} { foreach {p q r} $w { break } }
lappend map %pw $p %qw $q %rw $r ; set p 0 ; set q 0 ; set r 0
if {$m ne "0"} { foreach {p q r} $m { break } }
lappend map %pm $p %qm $q %rm $r ; set p 0 ; set q 0 ; set r 0
if {$e ne "0"} { foreach {p q r} $e { break } }
lappend map %pe $p %qe $q %re $r
}
if {[string match {*%[ah]*} $saytx]} { set st [TGetNxUp $nk]
foreach {d w m e} $st { break }
foreach {up u2} {%a 81 %h 84} {
if {$saying=="1"} { set x $t2(V$u2) ; set vg V } else { set x $t2(G$u2) ; set vg G }
if {[string match *$up* $saytx]} { set ma2 $up ; set y err ; set z err
if {[string match {*%u[dnpqr]d*} $x]} { set y $d ; set z d
} elseif {[string match {*%u[dnpqr]w*} $x]} { set y $w ; set z w
} elseif {[string match {*%u[dnpqr]m*} $x]} { set y $m ; set z m
} elseif {[string match {*%u[dnpqr]e*} $x]} { set y $e ; set z e }
if {$y eq "err"} { lappend ma2 *ERROR*
} elseif {$y eq "1" && $up eq "%a"} { lappend ma2 $t2(${vg}83)
} elseif {$y eq "1"} { lappend ma2 $t2(${vg}86)
} elseif {$y eq "0" && $up eq "%a"} { lappend ma2 $t2(${vg}82)
} elseif {$y eq "0"} { lappend ma2 $t2(${vg}85)
} else {
if {$up eq "%a"} { lappend ma2 $t2(${vg}81) } else { lappend ma2 $t2(${vg}84) }
if {$z eq "d"} { foreach {n p q r g} $d { break }
lappend map %und $n %upd $p %uqd $q %urd $r %udd $g
} elseif {$z eq "w"} { foreach {n p q r g} $w { break }
lappend map %unw $n %upw $p %uqw $q %urw $r %udw $g
} elseif {$z eq "m"} { foreach {n p q r g} $m { break }
lappend map %unm $n %upm $p %uqm $q %urm $r %udm $g
} elseif {$z eq "e"} { foreach {n p q r g} $e { break }
lappend map %une $n %upe $p %uqe $q %ure $r %ude $g
}
}
set newtx ""
foreach txln $saytx { lappend newtx [string map $ma2 $txln] }
set saytx $newtx
}
}
}
}
}
if {$dovls ne ""} { set dunvls $dovls }
}
if {$t2(autostart)>"0"} {
if {$start=="0" && $t2(-als) ne ""} { set y " [join $t2(-als)] "
if {$saygls ne "" && [llength $saygls]>"1"} {
foreach z [lrange $saygls 1 end] { set z [TStrLo $z]
if {$z ne $t2(-lastank) && [string first " $z " [TStrLo $y]]>"-1"} { set start 1 ; break }
}
}
if {$start=="0" && [info exists dunvls] && [llength $dunvls]>"1"} {
foreach z [lrange $dunvls 1 end] { set z [TStrLo $z]
if {$z ne $t2(-lastank) && [string first " $z " [TStrLo $y]]>"-1"} { set start 1 ; break }
}
}
if {$start=="0" && $sayvls ne "" && [llength $sayvls]>"1"} {
foreach z [lrange $dunvls 1 end] { set z [TStrLo $z]
if {$z ne $t2(-lastank) && [string first " $z " [TStrLo $y]]>"-1"} { set start 1 ; break }
}
}
} elseif {$start=="1"} { set z [TStrLo $nk] }
}
if {[info exists saytx] && $saytx ne ""} {
if {$saying=="2" && [string match *%x* $saytx]} { set ma4 %x ; set newtx ""
if {$t2(-ison)=="1"} { lappend ma4 $t2(G78) } else { lappend ma4 $t2(G79) }
foreach txln $saytx { lappend newtx [string map $ma4 $txln] }
set saytx $newtx
}
if {$saying=="2" && [string match *%o* $saytx]} { set ma4 %o
if {$t2(-ison)=="1"} { lappend ma4 $t2(G71)
} elseif {$t2(autostart)>"0" && $start=="1" && $t2(-aoff)=="1"} { lappend ma4 $t2(G74)
} elseif {$t2(oflag) eq "-" || $t2(oflag) eq "-|-"} { lappend ma4 $t2(G72)
} else { set can 0
foreach n2 $sayls {
if {[set h2 [nick2hand $n2 $ch]] ne "" && $h2 ne "*"} {
if {[matchattr $h2 $t2(oflag) $ch]} { set can 1 ; break }
}
}
if {$can=="1"} { lappend ma4 $t2(G72) } else { lappend ma4 $t2(G73) }
}
set newtx ""
foreach txln $saytx { lappend newtx [string map $ma4 $txln] }
set saytx $newtx
}
if {[string match {*%t[fhoq]*} $saytx]} {
lappend map %to $t2(on) %tf $t2(off) %th $t2(hint)
if {[string match *%tq* $saytx]} {
if {$t2(usrqes) eq "0"} { lappend map %tq N/A } else { lappend map %tq $t2(upubq) }
}
}
foreach txln $saytx { set txln [string map $map $txln]
if {$txln ne "" && $txln ne " "} { putserv "$putpre$txln" ; incr putcnt }
}
}
if {[info exists dovls] && $dovls ne ""} { set x "+" ; incr putcnt
foreach y $dovls { append x v } ; putserv "MODE $ch $x [join $dovls]"
}
if {$t2(autostart)>"0" && $start=="1"} {
if {$got<"2"} {
if {$t2(-ison)=="0" && $t2(-aoff)=="1"} { set t2(-aoff) 0 ; set adelay $t2(a-delay)
if {$putcnt>"0"} { incr adelay $putcnt }
set t2(-lastank) $z ; set t2(-lastaut) [unixtime]
TOnOff $botnick autostart $adelay $t2(chan) 1 5
if {$t2(autostart)>"1"} { set map [list %b $botnick %c $ch %x $t2(a-delay)]
lappend map %1 $tclr(-as1) %2 $tclr(-as2)
if {$t2(autostart)=="3"} { set putpre "NOTICE $ch :"
} else { set putpre "PRIVMSG $ch :" }
foreach txln $t2(A01) { set txln [string map $map $txln]
if {$txln ne "" && $txln ne " "} { putserv "$putpre$txln" }
}
}
}
} else { set t2(-als) [linsert $t2(-als) 0 $nk] ; set start 0 }
}
}
if {$t2(-jls) ne ""} { set ok 0
if {$t2(greet)>"0" && $t2(-gls) ne ""} { set ok 1
} elseif {($t2(voice)=="1" || $t2(voice)=="3") && $t2(-vls) ne ""} { set ok 1
} elseif {[info exists t2(-sayvls)]} { set ok 1 }
if {$ok=="0"} { set t2(-jls) "" }
}
if {$t2(-jls) ne ""} { set newj ""
foreach n2 $t2(-jls) { set ok 0
if {$t2(greet)>"0" && $t2(-gls) ne ""} { set y " [join $t2(-gls)] "
if {[set z [string first " [TStrLo $n2] " [TStrLo $y]]]>"-1"} { set ok 1 }
}
if {$t2(voice)=="1" || $t2(voice)=="3"} {
if {$ok=="0" && $t2(-vls) ne ""} { set y " [join $t2(-vls)] "
if {[set z [string first " [TStrLo $n2] " [TStrLo $y]]]>"-1"} { set ok 1 }
}
}
if {$ok=="0" && [info exists t2(-sayvls)]} { set y " [join $t2(-sayvls)] "
if {[set z [string first " [TStrLo $n2] " [TStrLo $y]]]>"-1"} { set ok 1 }
}
if {$ok=="1"} { lappend newj $n2 }
}
set t2(-jls) $newj
}
if {$t2(autostart)>"0" && $t2(-als) ne "" && $t2(-jls) ne ""} { set newa "" ; set y " [join $t2(-jls)] "
foreach n2 $t2(-als) {
if {[string first " [TStrLo $n2] " [TStrLo $y]]>"-1"} { lappend newa $n2 }
}
set t2(-als) $newa
}
if {$t2(-jls) eq ""} { unset t2(-jqtimr)
if {$t2(-wasjflud)=="0"} { set t2(-jflud) 0 }
if {$t2(greet)>"0"} { set t2(-gls) "" }
if {$t2(voice)=="1" || $t2(voice)=="3"} { set t2(-vls) "" }
if {[info exists t2(-sayvls)]} { unset t2(-sayvls) }
if {$t2(autostart)>"0"} { set t2(-als) "" }
} else { set t2(-jqtimr) [utimer $t2(jqtime) [list TSndJmsg]] }
}
array unset t2 _* ; return 0
}
if {$t2(_cm) eq "h"} { set t2(_event) "" ; set t2(_evls) ""
set t2(_dals) "" ; set t2(_wels) "" ; set t2(_mols) "" ; set t2(_other) ""
set t2(_op) [open $t2(sfpath)t2.hist] ; set t2(_new) [open $t2(sfpath)t2.hst.tmp w]
set t2(_ln) [gets $t2(_op)] ; puts $t2(_new) [string replace $t2(_ln) 2 2 N2]
set t2(_ln) [gets $t2(_op)] ; set t2(_info) [open $t2(sfpath)t2.hist.info w]
puts $t2(_info) [string range $t2(_ln) 4 end] ; close $t2(_info)
while {![eof $t2(_op)]} { set t2(_ln) [gets $t2(_op)]
if {$t2(_event) ne "" && ![string match :N:* $t2(_ln)]} {
if {[string match ::D:* $t2(_event)]} {
set t2(_dals) [linsert $t2(_dals) 0 $t2(_event) $t2(_evls)]
} elseif {[string match ::W:* $t2(_event)]} {
set t2(_wels) [linsert $t2(_wels) 0 $t2(_event) $t2(_evls)]
} else { set t2(_mols) [linsert $t2(_mols) 0 $t2(_event) $t2(_evls)] }
set t2(_event) "" ; set t2(_evls) ""
}
if {[string match {::[DWM]:*} $t2(_ln)]} { set t2(_event) $t2(_ln)
} elseif {[string match :N:* $t2(_ln)]} { lappend t2(_evls) $t2(_ln)
} elseif {$t2(_ln) ne ""} { set t2(_other) [linsert $t2(_other) 0 $t2(_ln)] }
}
close $t2(_op)
foreach {t2(_y) t2(_z)} {_dals _da2 _wels _we2 _mols _mo2} {
if {[llength $t2($t2(_y))]>"14"} { set t2($t2(_z)) [lrange $t2($t2(_y)) 14 end]
set t2($t2(_y)) [lrange $t2($t2(_y)) 0 13] }
}
foreach t2(_x) {_dals _wels _mols _da2 _we2 _mo2} {
if {[info exists t2($t2(_x))] && $t2($t2(_x)) ne ""} {
foreach {t2(_y) t2(_z)} $t2($t2(_x)) { puts $t2(_new) $t2(_y)
if {$t2(_z) ne ""} {
foreach t2(_plar) $t2(_z) { puts $t2(_new) $t2(_plar) }
}
}
}
if {$t2(_x) eq "_mols"} { puts $t2(_new) "::X: Extra History:" }
}
if {$t2(_other) ne ""} {
foreach t2(_y) $t2(_other) { puts $t2(_new) $t2(_y) }
}
close $t2(_new) ; 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
array unset t2 _* ; return 0
}
if {$t2(_cm) eq "m"} {
if {$t2(_td)=="0"} { set t2(_nm) "" ; set t2(_wt) "" ; TCntQes 1
set t2(_tx) [TStrLo [string trim $t2(_tx)]]
if {$t2(_tx)==""} { set t2(_nm) 4
} else { set t2(_tx) [split $t2(_tx)]
foreach t2(_tm) $t2(_tx) {
if {[TStrDig $t2(_tm)]} {
if {$t2(_nm)!="+"} { set t2(_tm) [string trimleft $t2(_tm) 0]
if {$t2(_tm)=="" || $t2(_tm)>"9"} { set t2(_nm) 4 } else { set t2(_nm) $t2(_tm) }
}
} else { set t2(_fr) [string index $t2(_tm) 0] ; set t2(_ls) [string index $t2(_tm) end]
if {$t2(_fr)=="+" || $t2(_ls)=="+"} { set t2(_nm) "+"
} elseif {[TStrDig $t2(_fr)] || [TStrDig $t2(_ls)]} {
if {$t2(_nm)!="+"} {
if {[TStrDig $t2(_fr)] && $t2(_fr)>"0"} { set t2(_nm) $t2(_fr)
} elseif {[TStrDig $t2(_ls)] && $t2(_ls)>"0"} { set t2(_nm) $t2(_ls)
} else { set t2(_nm) 4 }
}
}
set t2(_tm) [string trim $t2(_tm) "+1234567890"]
if {$t2(_tm)!=""} {
if {[string match q* $t2(_tm)]} { set t2(_wt) q
} elseif {[string match k* $t2(_tm)]} { set t2(_wt) k }
}
}
}
if {$t2(_nm)==""} { set t2(_nm) 4 }
}
set t2(_tx) $t2(_nm) ; set t2(_td) "" ; set t2(_er) 0
if {$t2(_qfl)!="" && $t2(_wt)!="k"} {
if {$t2(-qtotal)>"3499"} { lappend t2(_td) ques } else { incr t2(_er) }
}
if {$t2(_kfl)!="" && $t2(_wt)!="q"} {
if {$t2(-ktotal)>"99"} { lappend t2(_td) kaos } else { incr t2(_er) 2 }
}
if {$t2(_td)==""} {
if {$t2(_wt)=="q"} { set t2(_tm) " for Questions."
} elseif {$t2(_wt)=="k"} { set t2(_tm) " for Kaos."
} else { set t2(_tm) "." }
putserv "PRIVMSG $t2(_nk) :Mix Disabled$t2(_tm) Requires a larger database."
set t2(_tm) "The .mix command currently requires a minimum of"
if {$t2(_wt)!=""} { set t2(_tm) [string replace $t2(_tm) 7 8 "x $t2(_wt) "] }
if {$t2(_wt)=="k"} { putserv "PRIVMSG $t2(_nk) :$t2(_tm) 100 kaos to function."
} elseif {$t2(_er)>"1" && $t2(_wt)==""} {
putserv "PRIVMSG $t2(_nk) :$t2(_tm) 3500 questions and/or 100 kaos to function."
} else { putserv "PRIVMSG $t2(_nk) :$t2(_tm) 3500 questions to function." }
array unset t2 _* ; return 2
} elseif {$t2(_er)=="2"} {
putserv "PRIVMSG $t2(_nk) :Mix Disabled for Koas. Requires 100+ to function."
} elseif {$t2(_er)=="1"} {
putserv "PRIVMSG $t2(_nk) :Mix Disabled for Questions. Requires 3500+ to function."
}
if {$t2(-ison)=="1"} { TOnOff $t2(_nk) $t2(_uh) $t2(_hn) $t2(chan) 0 1
putquick "PRIVMSG $t2(chan) :Game Stopped. Mixing Questions..." ; set t2(_wo) 1
}
}
incr t2(_ti)
if {[lindex $t2(_td) 0]=="ques"} { set t2(_dbl) $t2(_qfl)
if {$t2(_tx)=="+"} {
if {$t2(_ti)=="1"} { putserv "PRIVMSG $t2(_nk) :Thoroughly Mixing Questions..." }
putserv "PRIVMSG $t2(_nk) :mix+ dont work. Mixing questions 4 times..." ; set t2(_tx) 4
} else {
if {$t2(_ti)=="1"} { putserv "PRIVMSG $t2(_nk) :Mixing questions $t2(_tx) times..."
} else { putserv "PRIVMSG $t2(_nk) :Question mix #$t2(_ti)..." }
}
} else { set t2(_dbl) $t2(_kfl) ; set t2(_kcl) ""
if {$t2(-ktotal)<"3999"} {
foreach t2(_tm) $t2(_kfl) { set t2(_tm) [split [lindex [split $t2(_tm) /] end] .]
if {[llength $t2(_tm)]=="3"} { lappend t2(_kcl) 1000
} else { lappend t2(_kcl) [lindex $t2(_tm) 3] }
}
}
if {$t2(_tx)=="+"} {
if {$t2(_ti)=="1"} { putserv "PRIVMSG $t2(_nk) :Thoroughly Mixing Kaos..." }
putserv "PRIVMSG $t2(_nk) :mix+ dont work. Mixing kaos 4 times..." ; set t2(_tx) 4
} else {
if {$t2(_ti)=="1"} { putserv "PRIVMSG $t2(_nk) :Mixing kaos $t2(_tx) times..."
} else { putserv "PRIVMSG $t2(_nk) :Kaos mix #$t2(_ti)..." }
}
}
set t2(_qfc) [llength $t2(_dbl)]
if {$t2(_tx)=="+"} {
} else { set t2(_mlc) [expr {$t2(_qfc)/10}]
if {[expr {$t2(_qfc)%10}] > "0"} { incr t2(_mlc) }
set t2(_tm) 0 ; set t2(_tml) ""
while {$t2(_tm)<$t2(_mlc)} { set mlist($t2(_tm)) ""
lappend t2(_tml) $t2(_tm) ; incr t2(_tm) }
set t2(_tm) 0
while {$t2(_dbl)!=""} { set t2(_t2) [rand [llength $t2(_dbl)]]
lappend mlist($t2(_tm)) [lindex $t2(_dbl) $t2(_t2)]
set t2(_dbl) [lreplace $t2(_dbl) $t2(_t2) $t2(_t2)] ; incr t2(_tm)
if {$t2(_tm)==$t2(_mlc)} { set t2(_tm) 0 }
}
set newqfil(0) [open $t2(qfpath)qfil.tmp.0 w] ; set nqfcnt(0) 0
set newqfil(1) [open $t2(qfpath)qfil.tmp.1 w] ; set nqfcnt(1) 0
set newqfil(2) [open $t2(qfpath)qfil.tmp.2 w] ; set nqfcnt(2) 0
set newqfil(3) [open $t2(qfpath)qfil.tmp.3 w] ; set nqfcnt(3) 0
set t2(_lnf) 3 ; set t2(_pc) 0 ; set t2(_pt) 0
foreach t2(_nm) $t2(_tml) { set t2(_ofl) ""
foreach t2(_dbf) $mlist($t2(_nm)) {
if {[lindex $t2(_td) 0]=="ques"} { set t2(_tm) [lindex [split $t2(_dbf) .] end]
} else { set t2(_tm) [lindex [split [lindex [split $t2(_dbf) /] end] .] 2] }
set oldfile($t2(_tm)) [open $t2(_dbf) r] ; lappend t2(_ofl) $t2(_tm)
}
set t2(_lr) "" ; set t2(_lg) ""
while {$t2(_ofl) != ""} { set t2(_gf) [rand [llength $t2(_ofl)]]
if {[llength $t2(_ofl)]>"2" && ($t2(_gf)==$t2(_lr) || $t2(_gf)==$t2(_lg))} {
if {$t2(_gf)!=$t2(_lr)} { set t2(_lr) $t2(_gf) }
set t2(_tmi) [expr {$t2(_lg)+1}]
if {$t2(_tmi)>=[llength $t2(_ofl)]} { set t2(_tmi) 0 }
set t2(_gf) $t2(_tmi) ; set t2(_lg) $t2(_tmi)
} else { set t2(_lr) $t2(_gf) ; set t2(_lg) $t2(_gf) }
set t2(_qe) [gets $oldfile([lindex $t2(_ofl) $t2(_gf)])]
if {$t2(_qe)==""} { close $oldfile([lindex $t2(_ofl) $t2(_gf)])
file delete [lindex $mlist($t2(_nm)) $t2(_gf)]
set mlist($t2(_nm)) [lreplace $mlist($t2(_nm)) $t2(_gf) $t2(_gf)]
set t2(_ofl) [lreplace $t2(_ofl) $t2(_gf) $t2(_gf)]
} else { incr t2(_pc)
puts $newqfil($t2(_pt)) "$t2(_qe)" ; incr nqfcnt($t2(_pt))
if {[lindex $t2(_td) 0]=="kaos" && $t2(_kcl)!="" && $nqfcnt(3)<"1000"} {
if {$nqfcnt($t2(_pt))==[lindex $t2(_kcl) $t2(_pt)]} {
if {$t2(_pt)=="3"} { set t2(_pc) 0
if {$nqfcnt(0)==$nqfcnt(3)} { set t2(_pt) 0
} else { set t2(_t2) 0 ; set t2(_tc) 0
foreach t2(_t3) $t2(_kcl) {
if {$t2(_t3)<$t2(_t2)} { set t2(_pt) $t2(_tc) ; break }
set t2(_t2) $t2(_t3) ; incr t2(_tc)
}
}
} else { incr t2(_pt) ; set t2(_pc) 0 }
} elseif {$t2(_pc)=="20" || $nqfcnt($t2(_pt))>[lindex $t2(_kcl) $t2(_pt)]} {
set t2(_pc) 0
if {$t2(_pt)=="3"} { set t2(_pt) 0 } else { incr t2(_pt) }
}
} elseif {$t2(_pt)=="3"} {
if {$nqfcnt(3)=="1000"} {
if {[lindex $t2(_td) 0]=="kaos" && $t2(_kcl)!=""} { set t2(_kcl) "" }
close $newqfil(3) ; close $newqfil(2)
close $newqfil(1) ; close $newqfil(0) ; set t2(_tc) 0
while {$t2(_tc)<"4"} { incr t2(_lnf)
set newqfil($t2(_tc)) [open $t2(qfpath)qfil.tmp.$t2(_lnf) w]
set nqfcnt($t2(_tc)) 0 ; incr t2(_tc)
}
set t2(_pc) 0 ; set t2(_pt) 0
} elseif {$t2(_pc)=="20"} { set t2(_pc) 0 ; set t2(_pt) 0 }
} else {
if {$t2(_pc)=="20"} { incr t2(_pt) ; set t2(_pc) 0 }
}
}
}
}
close $newqfil(3) ; close $newqfil(2)
close $newqfil(1) ; close $newqfil(0) ; set t2(_fwq) ""
if {$nqfcnt(0)=="0"} { file delete $t2(qfpath)qfil.tmp.$t2(_lnf)
file delete $t2(qfpath)qfil.tmp.[incr t2(_lnf) -1]
file delete $t2(qfpath)qfil.tmp.[incr t2(_lnf) -1]
file delete $t2(qfpath)qfil.tmp.[incr t2(_lnf) -1]
} elseif {[lindex $t2(_td) 0]=="kaos" && $t2(_kcl)!=""} { set t2(_fwq) 4kaos
} else {
if {$nqfcnt(0)<"1000"} { lappend t2(_fwq) [expr {$t2(_lnf)-3}] }
if {$nqfcnt(1)>"0" && $nqfcnt(1)<"1000"} { lappend t2(_fwq) [expr {$t2(_lnf)-2}]
} elseif {$nqfcnt(1)=="0"} { file delete $t2(qfpath)qfil.tmp.[expr {$t2(_lnf)-2}] }
if {$nqfcnt(2)>"0" && $nqfcnt(2)<"1000"} { lappend t2(_fwq) [expr {$t2(_lnf)-1}]
} elseif {$nqfcnt(2)=="0"} { file delete $t2(qfpath)qfil.tmp.[expr {$t2(_lnf)-1}] }
if {$nqfcnt(3)>"0" && $nqfcnt(3)<"1000"} { lappend t2(_fwq) $t2(_lnf)
} elseif {$nqfcnt(3)=="0"} { file delete $t2(qfpath)qfil.tmp.$t2(_lnf) }
if {[llength $t2(_fwq)]>"1"} { set t2(_dun) 0 ; set t2(_wfo) 0
set t2(_rfo) 0 ; set t2(_nf) [lindex $t2(_fwq) 0]
while {$t2(_dun)=="0"} {
if {$t2(_wfo)=="0"} { set t2(_wfi) [open $t2(qfpath)qfil.tmp.last w]
set t2(_wc) 0 ; set t2(_wfo) 1 }
if {$t2(_rfo)=="0"} { set t2(_rfi) [open $t2(qfpath)qfil.tmp.[lindex $t2(_fwq) 0]]
set t2(_rfo) "$t2(qfpath)qfil.tmp.[lindex $t2(_fwq) 0]" }
while {![eof $t2(_rfi)]} { set t2(_rl) [gets $t2(_rfi)]
if {$t2(_rl)!=""} { puts $t2(_wfi) "$t2(_rl)" ; incr t2(_wc)
if {$t2(_wc)=="1000"} { close $t2(_wfi)
file rename $t2(qfpath)qfil.tmp.last $t2(qfpath)qfil.tmp.$t2(_nf)
set t2(_wfi) [open $t2(qfpath)qfil.tmp.last w] ; set t2(_wc) 0 ; incr t2(_nf)
}
}
}
close $t2(_rfi) ; file delete $t2(_rfo) ; set t2(_rfo) 0
set t2(_fwq) [lreplace $t2(_fwq) 0 0]
if {$t2(_fwq)==""} { close $t2(_wfi)
if {$t2(_wc)=="0"} { file delete $t2(qfpath)qfil.tmp.last
} else {
if {$t2(_wc)<"1000"} { set t2(_nf) "$t2(_wc).$t2(_nf)" }
file rename $t2(qfpath)qfil.tmp.last $t2(qfpath)qfil.tmp.$t2(_nf)
}
set t2(_dun) 1 ; break
}
}
} else {
file rename $t2(qfpath)qfil.tmp.$t2(_fwq) $t2(qfpath)qfil.tmp.$nqfcnt($t2(_fwq)).$t2(_fwq)
}
}
if {$t2(_fwq)=="4kaos"} { set t2(_tm) 0
while {$t2(_tm)<"4"} { set t2(_tn) 00$t2(_tm)
if {$nqfcnt($t2(_tm))<"1000"} { append t2(_tn) .$nqfcnt($t2(_tm)) }
file rename $t2(qfpath)qfil.tmp.$t2(_tm) $t2(qfpath)t2.kf.$t2(_tn) ; incr t2(_tm)
}
} else { set t2(_tfl) [glob -directory $dir -nocomplain qfil.tmp.*]
foreach t2(_tfi) $t2(_tfl) { set t2(_t2) [split [lindex [split $t2(_tfi) /] end] .]
set t2(_tn) [lindex $t2(_t2) end]
if {[string length $t2(_tn)]=="1"} { set t2(_tn) "00$t2(_tn)"
} elseif {[string length $t2(_tn)]=="2"} { set t2(_tn) "0$t2(_tn)" }
if {[lindex $t2(_td) 0]=="ques"} {
if {[llength $t2(_t2)]>"3"} { set t2(_tn) "qf.[lindex $t2(_t2) end-1].$t2(_tn)"
} else { set t2(_tn) "qf.$t2(_tn)" }
} else {
if {[llength $t2(_t2)]>"3"} { set t2(_tn) "kf.$t2(_tn).[lindex $t2(_t2) end-1]"
} else { set t2(_tn) "kf.$t2(_tn)" }
}
file rename $t2(_tfi) $t2(qfpath)t2.$t2(_tn)
}
}
}
array unset mlist ; array unset newqfil ; array unset nqfcnt ; array unset oldfile
if {$t2(_ti)==$t2(_tx) || $t2(_tx)=="+"} {
if {[lindex $t2(_td) 0]=="ques"} { file delete $t2(sfpath)t2.qcount
} else { file delete $t2(sfpath)t2.kcount }
if {[llength $t2(_td)]=="2"} { set t2(_td) [lindex $t2(_td) 1]
utimer 2 [list TMix $t2(_nk) $t2(_uh) $t2(_hn) $t2(_tx) 0 $t2(_wo) $t2(_td)]
} else {
TCntQes
if {$t2(_wo)=="1"} { TOnOff $t2(_nk) $t2(_uh) $t2(_hn) $t2(chan) 1 1 }
}
} else { utimer 2 [list TMix $t2(_nk) $t2(_uh) $t2(_hn) $t2(_tx) $t2(_ti) $t2(_wo) $t2(_td)] }
array unset t2 _* ; return 0
}
array unset t2 _* ; return 9