# Family -100 3 in 1 by t-max #
#

# Default Settings
set KAOSChannel 	      "#mfm"
set KAOSPointsName 	"points"
set KAOSPointsPerAnswer 10
set KAOSQuestionTime 	60
set KAOSMarker 		"*"
set KAOSAskedFile	      "game/quizdata/kaos.asked"
set KAOSQuestionFile	"datagame/kaos.db"
set KAOSCFGFile		"game/kaos.cfg"

# Channel Triggers
bind pub m !ulang KAOS_Repeat
bind pub m !help KAOSCmds
bind pub m !asked KAOS_ShowAsked
bind pub - !game KAOS_Start
bind pub m !stopp KAOS_Stop

# DCC Commands
bind dcc - kaosrehash dcc_kaosrehash
bind dcc - kaosanswer dcc_kaosanswer
bind dcc - kaosreset dcc_kaosresetasked
bind dcc - kaosasked dcc_kaosshowasked
bind dcc - kaosforce dcc_kaosforce

# Cron Bind For Monthly Score Reset
#bind time - "00 00 01 * *" KAOS_NewMonth

# Global Variables
set KAOSRunning 0
set KAOSAllAnswered 0
set KAOSRoundOver 0
set KAOSQNumber 0
set KAOSQuestion ""
set KAOSQuestions(0) ""
set KAOSAsked ""
set KAOSQCount 0
set KAOSAnswerCount 0
set KAOSDisplayNum 0
set KAOSNumAnswered 0
set KAOSForced 0
set KAOSForcedQuestion ""
set KAOSAutoStart 0
set KAOStimeanswer 1

# Scores And Ads
set KAOSAdNumber 0
set KAOSAd(0) "$botnick"
set KAOSAd(1) "$botnick"
set KAOSAd(2) "$botnick"

# Timers
set KAOSAdTimer ""
set KAOSQuestionTimer ""

# Version
set KDebug 0
set KAOSVersion "0.91.0"

#
# Start KAOS
#
proc KAOS_Start {nick uhost hand chan args} {
 global KAOSChannel KAOSRunning KAOSQCount KAOSQNumber KAOSQuestionFile KAOSAdNumber KAOSVersion KDebug

 if {($chan != $KAOSChannel)||($KAOSRunning != 0)} {return}

 set KAOSQCount 0
 set KAOSAdNumber 0

 KAOS_ReadCFG

 if {![file exist $KAOSQuestionFile]} {
   putcmdlog "\[KAOS\] Question File: $KAOSQuestionFile Unreadable Or Does Not Exist"
   return 0
 }

 set KAOSQCount [KAOS_ReadQuestionFile]

 if {$KAOSQCount < 2} {
   putcmdlog "\[KAOS\] Not Enough Questions in Question File $KAOSQuestionFile"
   return 0
 }

 set KAOSAskedFileLen [KAOS_ReadAskedFile]

 if {$KAOSAskedFileLen >= $KAOSQCount} {
#   kaosmsg "[kaos] [kcr] All Questions Asked: Resetting \003"
   KAOS_ResetAsked
   return 0
 }

 set KAOSRunning 1

# kaosmsg "Family-100 LinuxGuY@dalnet"

 bind pubm - "*" KAOSCheckGuess

 KAOSAskQuestion

 return 1
}

#
# Stop KAOS
#
proc KAOS_Stop {nick uhost hand chan args} {
 global KAOSChannel KAOSRunning KAOSQuestionTimer KAOSAdTimer

 if {($chan != $KAOSChannel)||($KAOSRunning != 1)} {return}

 set KAOSRunning 0

 catch {killutimer $KAOSQuestionTimer}
 catch {killutimer $KAOSAdTimer}

 catch {unbind pubm - "*" KAOSCheckGuess}

 kaosmsg "\00306Family-100 is stopped by \00304\[\00312$nick!$uhost\00304\]"
 return 1
}

#
# Pick Question
#
proc KAOSPickQuestion {} {
 global KAOSAsked KAOSQCount KDebug
 set KAOSUnasked [expr ($KAOSQCount - [llength $KAOSAsked])]
 if {$KAOSUnasked < 1} {
#   kaosmsg "[kaos] [kcr] All Questions Asked: Resetting \003"
   KAOS_ResetAsked
 }
 set pickdone 0
 while {$pickdone == 0} {
  set kidx 0
  set foundinasked 0
  set pick [rand $KAOSQCount]
  while {[lindex $KAOSAsked $kidx] != ""} {
    if {[lindex $KAOSAsked $kidx] == $pick} {
     set foundinasked 1
     # kaoslog "KAOS" "Found Pick:$pick in Asked"
     break
    }
    incr kidx
  }
  if {$foundinasked == 0} {incr pickdone}
 }
 # kaoslog "KAOS" "Picked Question:$pick"
 KAOS_AddAsked $pick
 return $pick
}

#
# Parse Question
#
proc KAOSParseQuestion {QNum} {
 global KAOSMarker KAOSQuestions KAOSQuestion KAOSAnswers KAOSAnswerCount KAOSForcedQuestion KDebug

  set KAnswersLeft ""

  if {$QNum < 0} {
   set KAOSFileQuestion $KAOSForcedQuestion
  } {
   set KAOSFileQuestion $KAOSQuestions($QNum)
  }

  if {$KDebug > 1} {kaoslog "kaos" "Picked:$QNum Question:$KAOSFileQuestion"}

  if [info exists KAOSAnswers] {unset KAOSAnswers}

  # Position of first "*"

  set KAOSMarkerIDX [string first $KAOSMarker $KAOSFileQuestion]

  if {$KAOSMarkerIDX < 1} {
   kaoslog "KAOS" "Malformed Question #$QNum"
  }

  set KAOSQuestionEndIDX [expr $KAOSMarkerIDX - 1]

  set KAOSQuestion [string range $KAOSFileQuestion 0 $KAOSQuestionEndIDX]

  # Move to first character in answers
  incr KAOSMarkerIDX
  set KAnswersLeft [string range $KAOSFileQuestion $KAOSMarkerIDX end]

  set KDoneParsing 0
  set KAOSAnswerCount 0

  # Parse all answers

  while {$KDoneParsing != 1 } {
   set KAnswerEnd [string first $KAOSMarker $KAnswersLeft]

   if {$KAnswerEnd < 1} {
    set KDoneParsing 1
    set KAnswerEnd [string length $KAnswersLeft]
   }

   set KAnswer [string range $KAnswersLeft 0 [expr $KAnswerEnd -1]]

   set KAOSAnswers($KAOSAnswerCount) "# $KAnswer"

   set KAOSMarkerIDX [expr $KAnswerEnd +1]

   set KAnswersLeft [string range $KAnswersLeft $KAOSMarkerIDX end]
   incr KAOSAnswerCount
  }
}

#
# Ask Question
#
proc KAOSAskQuestion {} {
 global KAOSRunning KAOSQNumber KAOSAllAnswered KAOSRoundOver KAOSQuestion
 global KAOSPointsPerAnswer KAOSPointsName KAOSNumAnswered KAOSAnswerCount
 global KAOSQuestionTimer KAOSQuestionTime KAOSDisplayNum KAOSForced KAOSLastGuesser
 global tipno tiplist TipsToUse InfoItem KAOStimestart KAOStimeanswer

 if {$KAOSRunning != 1} {return}

 # Get The Current Scores

 # Pick Next Question

 if {$KAOSForced == 1} {
  KAOSParseQuestion -1
  set KAOSQNumber 0
  set KAOSForced 0
  set KAOSForcedQuestion ""
 } {
  set KAOSQNumber [KAOSPickQuestion]
  KAOSParseQuestion $KAOSQNumber
 }

 set KAOSAllAnswered 0
 set KAOSLastGuesser ""
 set KAOSDisplayNum 0
 set KAOSNumAnswered 0
 set KAOSRoundOver 0

 # Choose Points Value For This Round
 set KAOSPointsPerAnswer [rand 3]
 if {$KAOSPointsPerAnswer < 1} {set KAOSPointsPerAnswer 3}
 set KAOSPointsPerAnswer [expr $KAOSPointsPerAnswer *10]

 set KAOSPointTotal [expr $KAOSPointsPerAnswer *$KAOSAnswerCount]
 set tipzs "[get_InfoItems]"
 if {$KAOStimeanswer==1} {
 set KAOStimestart [clock clicks -milliseconds]
 }

 if {$KAOSAnswerCount == 1} {
 kaosmsg "2,0·*“2,15“2,14“2,1“5,115,1 Family 100 LinuxGuY@Dalnet 15,1 2,1“2,14“2,15“2,16“*·"
 kaosmsg "2,0·*“2,15“2,14“2,1“5,115,1 Pertanyaan: 9 $KAOSQuestion ? 15,1 2,1“2,14“2,15“2,16“*·"
 kaosmsg "2,0·*“2,15“2,14“2,1“5,111,1 Survey: 8 $KAOSPointsPerAnswer $KAOSPointsName 15,1 2,1“2,14“2,15“2,16“*·"
 kaosmsg "\00313$tipzs"
} elseif {$KAOSAnswerCount >= 2} {
 kaosmsg "2,0·*“2,15“2,14“2,1“5,115,1 Family 100 LinuxGuY@Dalnet 15,1 2,1“2,14“2,15“2,16“*·"
 kaosmsg "2,0·*“2,15“2,14“2,1“5,115,1 Pertanyaan: 9 $KAOSQuestion ? 15,1 2,1“2,14“2,15“2,16“*·"
 kaosmsg "2,0·*“2,15“2,14“2,1“5,111,1 Survey: 8 $KAOSAnswerCount Jawaban Score $KAOSPointsPerAnswer $KAOSPointsName - ToTal $KAOSPointTotal $KAOSPointsName 15,1 2,1“2,14“2,15“2,16“*·"
 kaosmsg "$tipzs"
}
 set KRemain [expr int([expr $KAOSQuestionTime /2])]
 set KAOSQuestionTimer [utimer $KRemain "KAOSDisplayRemainingTime $KRemain"]
}

#
# Get Player Guess
#

proc KAOSCheckGuess {nick uhost hand chan args} {
 global KAOSChannel KAOSRunning KAOSAnswerCount KAOSAnswers KAOSRoundOver KAOStimeanswer
 global KAOSPointsName KAOSPointsPerAnswer KAOSNumAnswered KAOSAllAnswered KAOSLastGuesser KDebug
 global lastwinner lastwinnercount botnick userlist quizconf rankfile KAOStimestart KAOStimetoanswer 

    variable bestscore 0 lastbestscore 0 lastbest ""
    variable userarray
    variable authorsolved 0 waitforrank 0 gameend 0

 if {($chan != $KAOSChannel)||($KAOSRunning != 1)||($KAOSRoundOver == 1)} {return}

    mx_getcreate_userentry $nick $nick
    array set userarray $userlist($nick)
#    set hostmask $userarray(mask)

	    set lastbest [lindex [lsort -command mx_sortrank [array names userlist]] 0]
	    if {$lastbest == ""} {
		set lastbestscore 0
	    } else {
		array set aa $userlist($lastbest)
		set lastbestscore $aa(score)
	    }

 regsub -all \[{',.!}] $args "" args

 if {[string length args] == 0} {return}

 set KAOSGuessOld $args
 set KAOSGuess [string tolower $KAOSGuessOld]

 if {$KDebug > 1} {kaoslog "KAOS" "Guess: $nick $KAOSGuess"}

 foreach z [array names KAOSAnswers] {
  set KAOSTry [lrange $KAOSAnswers($z) 1 end] 
  set KAOSTryOld $KAOSTry

  regsub -all \[{',.!}] $KAOSTry "" KAOSTry

  set KAOSTry [string tolower $KAOSTry]
  if {$KDebug > 1} {kaoslog "KAOS" "Try: $KAOSTry"}
  if {$KAOSTry == $KAOSGuess} {
   if {[lindex $KAOSAnswers($z) 0] == "#"} {
    set KAOSAnswers($z) "$nick $KAOSGuessOld"
	set KAOStimetoanswer ""
	if {$KAOStimeanswer==1} {
		set KAOStimetoanswer [expr [expr [clock clicks -milliseconds]-$KAOStimestart]/1000]
	}
	    incr userarray(score) $KAOSPointsPerAnswer
	    if {$userarray(score) == 1} {
		set userarray(started) [unixtime]
	    }
	    set userlist($nick) [array get userarray]
    kaosmsg "2,0·*“2,15“2,14“2,1“5,111,1 Jawaban Betul : 9 $KAOSTryOld 8 [knikclr $nick]  $KAOSPointsPerAnswer - 0less then 13 $KAOStimetoanswer seconds - 0Total Score: 8 $userarray(score) points - 0Rank: 8 [mx_get_rank_pos $nick] 15,1 2,1“2,14“2,15“2,16“*·"
    pushmode $KAOSChannel +v $nick
    tmcquiz_rank_save {} {} {}
    incr KAOSNumAnswered
    if {$KAOSNumAnswered == $KAOSAnswerCount} {
     set KAOSAllAnswered 1
     set KAOSRoundOver 1
       if {$KAOSAnswerCount == 1} {
       set KAOSLastGuesser ""
#       set greeting "[get_grated]"
       kaosmsg "2,0·*“2,15“2,14“2,1“5,111,1 HEBAT.... 15Semua jawaban family100 telah di jawab 15,1 2,1“2,14“2,15“2,16“*·"
       KAOS_TriviaResults
       } elseif {$KAOSAnswerCount >= 2} {
       set KAOSLastGuesser $nick
       kaosmsg "2,0·*“2,15“2,14“2,1“5,111,1 HEBAT.... 15Semua jawaban family100 telah di jawab 15,1 2,1“2,14“2,15“2,16“*·"
       KAOS_ShowResults
       }
     KAOS_Recycle
    }
    return
   }
  }
 }
}

#
# Display Remaining Time And Answer Stats
#
proc KAOSDisplayRemainingTime {remaining} {
 global KAOSRunning KAOSAllAnswered KAOSNumAnswered KAOSAnswerCount KAOSQuestionTimer KAOSQuestionTime KAOSDisplayNum
 global KAOSQuestion
 if {($KAOSRunning != 1)||($KAOSAllAnswered == 1)} {return}
   if {$KAOSAnswerCount == 1} {
   kaosmsg "2,0·*“2,15“2,14“2,1“5,18,1 $remaining detik lagi !! 15,1 2,1“2,14“2,15“2,16“*·"
  } elseif {$KAOSAnswerCount >= 2} {
   kaosmsg "2,0·*“2,15“2,14“2,1“5,18,1 $remaining detik lagi !! 9Jawaban sisa [expr $KAOSAnswerCount - $KAOSNumAnswered] 15,1 2,1“2,14“2,15“2,16“*·"
  }

 incr KAOSDisplayNum

 set KRemain [expr int([expr $KAOSQuestionTime /4])]

 if {$KAOSDisplayNum < 2} {
  set KAOSQuestionTimer [utimer $KRemain "KAOSDisplayRemainingTime $KRemain"]
 } {
  set KAOSQuestionTimer [utimer $KRemain KAOSTimesUp]
 }
}

#
# Show Results Of Round
#
proc KAOSTimesUp {} {
 global KAOSAnswers KAOSAllAnswered KAOSRoundOver KAOSNumAnswered KAOSAnswerCount KAOSQuestionTimer KAOSAdTimer
 global botnick quizconf
 global rankfile uptime botnick

 if {$KAOSAllAnswered == 1} { return 1}

 set KAOSRoundOver 1

 set kaosmissed "[kcg] Time's Up! \003 "

 append KMissed "2,0·*“2,15“2,14“2,1“5,115,1 Waktunya telah habis... Survey membuktikan. 15,1 2,1“2,14“2,15“2,16“*·"
 set KAnswersRemaining [expr ($KAOSAnswerCount - $KAOSNumAnswered)]

 set kcount 0
 foreach z [array names KAOSAnswers] {
  if {[lindex $KAOSAnswers($z) 0] == "#"} {
   append KMissed "2,0·*“2,15“2,14“2,1“5,18,1 [lrange $KAOSAnswers($z) 1 end] 15,1 2,1“2,14“2,15“2,16“*·"
   incr kcount
   if {$kcount < $KAnswersRemaining} {append KMissed " "}
  }
 }

 kaosmsg "$KMissed"

 KAOS_ShowResults

 if {$KAOSNumAnswered > 0} {
#  kaosmsg "[kcs] Total Number Answered Correctly:  $KAOSNumAnswered from a possible $KAOSAnswerCount! \003"
 } {
  kaosmsg "2,0·*“2,15“2,14“2,1“5,115,1 Kita masuk ke soal Scramble.. Harap Siap !! 15,1 2,1“2,14“2,15“2,16“*·"
 }

# tmcquiz_rank_save {} {} {}
# set KAOSAdTimer [utimer 10 KAOS_ShowAd]
# set KAOSQuestionTimer [utimer 5 KAOSAskQuestion]
 tmcquiz_ask $botnick {} {} $quizconf(quizchannel) {}
}

#
# All Answers Gotten, Next Question
#
proc KAOS_Recycle {} {
 global botnick quizconf
 global rankfile uptime botnick
 global KAOSAnswers KAOSNumAnswered KAOSQuestionTimer KAOSAdTimer
 catch {killutimer $KAOSQuestionTimer}
 if [info exists KAOSAnswers] {unset KAOSAnswers}
# set KAOSAdTimer [utimer 10 KAOS_ShowAd]
 set KAOSQuestion ""
 set KAOSNumAnswered 0
 tmcquiz_ask $botnick {} {} $quizconf(quizchannel) {}
#set KAOSQuestionTimer [utimer 5 KAOSAskQuestion]

}

#
# Total Answers and Points
#
proc KAOS_ShowResults {} {
 global KAOSAnswers KAOSPointsPerAnswer KAOSPointsName KAOSAllAnswered KAOSLastGuesser
 global botnick quizconf rankfile userlist lastwinner lastwinnercount

 if {$KAOSAllAnswered == 1} {
  set KAOSBonus [expr $KAOSPointsPerAnswer *5]
  set nick $KAOSLastGuesser
    mx_getcreate_userentry $nick $nick
    array set userarray $userlist($nick)
#    set hostmask $userarray(mask)
	    set lastbest [lindex [lsort -command mx_sortrank [array names userlist]] 0]
	    if {$lastbest == ""} {
		set lastbestscore 0
	    } else {
		array set aa $userlist($lastbest)
		set lastbestscore $aa(score)
	    }
	    incr userarray(score) $KAOSBonus
	    if {$userarray(score) == 1} {
		set userarray(started) [unixtime]
	    }
	    set userlist($nick) [array get userarray]
#  set greeting "[get_grated]"
  kaosmsg "\00315%\00314,15%\00315,14%\00314,15%\00315,14%\0031,14%\00314,1%\0039,1\002 [knikclr $KAOSLastGuesser] \002\00311dapat BONUS \002\0034+$KAOSBonus \002\0038pts \0034(Total Score:\002 $userarray(score)\002) (Rank:\002 [mx_get_rank_pos $nick]\002) \0030,1\00314,1%\0031,14%\00315,14%\00314,15%\00315,14%\00314,15%\00315,0%"
  tmcquiz_rank_save {} {} {}
 }
}
proc KAOS_TriviaResults {} {
 global KAOSAnswers KAOSPointsPerAnswer KAOSPointsName KAOSAllAnswered KAOSLastGuesser
}

#
# Add Question Number To Asked File
#
proc KAOS_AddAsked {KQnum} {
 global KAOSAsked KAOSAskedFile
 set f [open $KAOSAskedFile a]
 puts $f $KQnum
 close $f
 lappend KAOSAsked $KQnum
}

#
# Parse Asked Questions
#
proc KAOS_ReadAskedFile {} {
 global KAOSAsked KAOSAskedFile
 set KAsked 0
 set KAOSAsked ""
 if {![file exists $KAOSAskedFile]} {
  set f [open $KAOSAskedFile w]
 } {
  set f [open $KAOSAskedFile r]
  while {[gets $f KQnum] != -1} {
   lappend KAOSAsked "$KQnum"
   incr KAsked
  }
 }
 close $f
 return $KAsked
}

#
# Reset Asked File
#
proc KAOS_ResetAsked {} {
 global KAOSAskedFile KAOSAsked
 set f [open $KAOSAskedFile w]
 puts $f "0"
 close $f
 set KAOSAsked ""
}

#
# Read Question File
#
proc KAOS_ReadQuestionFile {} {
 global KAOSQuestionFile KAOSQuestions
 set KQuestions 0
 set f [open $KAOSQuestionFile r]
 while {[gets $f q] != -1} {
  set KAOSQuestions($KQuestions) $q
  incr KQuestions
 }
 close $f
 return $KQuestions
}

#
# Show Asked
#
proc KAOS_ShowAsked {nick uhost hand chan args} {
 global KAOSQCount KAOSAsked KAOSQuestions
 set KAOSStatsAsked [llength $KAOSAsked]
 set KAOSStatsUnasked [expr ($KAOSQCount - $KAOSStatsAsked)]
 kaosmsg "[kaos] [kcm] Total: [kcc] $KAOSQCount [kcm] Asked: [kcc] $KAOSStatsAsked [kcm] Remaining: [kcc] $KAOSStatsUnasked \003"
}

#
# Repeat Question
#
proc KAOS_Repeat {nick uhost hand chan args} {
 global KAOSChannel KAOSQuestion KAOSRunning KAOSQNumber KAOSAllAnswered
 global KAOSPointsName
 if {($chan != $KAOSChannel)||($KAOSRunning != 1)} {return}
 if {$KAOSAllAnswered == 1} {return }
 kaosmsg "2,0·*“2,15“2,14“2,1“5,115,1 Pertanyaan: 9 $KAOSQuestion ? 15,1 2,1“2,14“2,15“2,16“*·"
}


#
# Read Config File
#
proc KAOS_ReadCFG {} {
 global KAOSCFGFile KAOSChannel KAOSAutoStart KAOSAskedFile KAOSQuestionFile KAOSPointsName KAOSAd
 if {[file exist $KAOSCFGFile]} {
  set f [open $KAOSCFGFile r]
  while {[gets $f s] != -1} {
   set kkey [string tolower [lindex [split $s "="] 0]]
   set kval [lindex [split $s "="] 1]
   switch $kkey {
    points { set KAOSPointsName $kval }
    channel { set KAOSChannel $kval }
    autostart { set KAOSAutoStart $kval }
    askedfile { set KAOSAskedFile $kval }
    kaosfile { set KAOSQuestionFile $kval }
    ad1 { set KAOSAd(0) $kval }
    ad2 { set KAOSAd(1) $kval }
    ad3 { set KAOSAd(2) $kval }
   }
  }
  close $f
  if {($KAOSAutoStart < 0)||($KAOSAutoStart > 1)} {set KAOSAutoStart 1}
  return
 }
 kaoslog "KAOS" "Config file $KAOSCFGFile not found... using defaults"
}

#
# Write Config File
#
proc KAOS_WriteCFG {} {
 global KAOSCFGFile KAOSChannel KAOSAutoStart KAOSAskedFile KAOSQuestionFile KAOSPointsName KAOSAd
 set f [open $KAOSCFGFile w]
 puts $f "# This file is automatically overwritten"
 puts $f "Points=$KAOSPointsName"
 puts $f "Channel=$KAOSChannel"
 puts $f "AutoStart=$KAOSAutoStart"
 puts $f "AskedFile=$KAOSAskedFile"
 puts $f "KAOSFile=$KAOSQuestionFile"
 puts $f "Ad1=$KAOSAd(0)"
 puts $f "Ad2=$KAOSAd(1)"
 puts $f "Ad3=$KAOSAd(2)"
 close $f
}

#
# Command Help
#
proc KAOSCmds {nick uhost hand chan args} {
 global KAOSChannel
 if {$chan != $KAOSChannel} {return}
 kaosntc $nick "KAOS Commands: !asked"
}

#
# Color Routines
#
proc kcb {} {
 return "\0038,2"
}
proc kcg {} {
 return "\0030,3"
}
proc kcr {} {
 return "\0030,4"
}
proc kcm {} {
 return "\0030,6"
}
proc kcc {} {
 return "\0030,10"
}
proc kcs {} {
 return "\0030,12"
}
proc kaos {} {
 return "\00308K\00307A\00313O\00306S\003"
}

# Channel Message
proc kaosmsg {what} {
 global KAOSChannel
 putquick "PRIVMSG $KAOSChannel :$what"
}

# Notice Message
proc kaosntc {who what} {
 putquick "NOTICE $who :$what"
}
# Command Log
proc kaoslog {who what} {
 putcmdlog "\[$who\] $what"
}

# Name Of Last Month
#proc KAOSLastMonthName {month} {
# switch $month {
#  1 {return "Dec"}
#  2 {return "Jan"}
#  3 {return "Feb"}
#  4 {return "Mar"}
#  5 {return "Apr"}
#  6 {return "May"}
#  7 {return "Jun"}
#  8 {return "Jul"}
#  9 {return "Aug"}
#  10 {return "Sep"}
#  11 {return "Oct"}
#  12 {return "Nov"}
#  default {return "???"}
# }
#}

# Assign Nickname Color
proc knikclr {nick} {
  set nicklen [strlen $nick]
  set nicktot 0
  set c 0
  while {$c < $nicklen} {
   binary scan [string range $nick $c $c] c nv
   incr nicktot [expr $nv -32]
   incr c
  }
  set nickclr [expr $nicktot %13]
  switch $nickclr {
   0 {set nickclr 10}
   1 {set nickclr 11}
   2 {set nickclr 12}
   5 {set nickclr 13}
  }
  set nik [format "%02d" $nickclr]
  return "\003$nik$nick"
}

#
# Show Ad
#
proc KAOS_ShowAd {} {
 global KAOSAdNumber KAOSAd botnick KAOSChannel
 switch $KAOSAdNumber {
  0 { kaosmsg "[kcs] $KAOSAd(0) \003" }
  1 { KAOSTop10 $botnick none none $KAOSChannel none }
  2 { kaosmsg "[kcs] $KAOSAd(1) \003" }
  3 { KAOSLastMonthTop3 $botnick none none $KAOSChannel none }
  4 { kaosmsg "[kcs] $KAOSAd(2) \003" }
 }
 incr KAOSAdNumber
 if {$KAOSAdNumber > 4} {set KAOSAdNumber 0}
}

#
# Rehash KAOS Config
#
proc dcc_kaosrehash {hand idx arg} {
 global KAOSQCount

 putcmdlog "#$hand# Rehashing KAOS config"

 KAOS_ReadCFG

 set KAOSQCount [KAOS_ReadQuestionFile]

 if {$KAOSQCount < 2} {
   kaoslog "KAOS" "Not Enough Questions in Question File $KAOSQuestionFile"
   return 0
 }

 set KAOSAskedFileLen [KAOS_ReadAskedFile]

 if {$KAOSAskedFileLen >= $KAOSQCount} {
   kaoslog "KAOS" "Asked file out of sync with question database: resetting"
   KAOS_ResetAsked
   return 0
 }
 kaoslog "KAOS" "Questions:$KAOSQCount Asked:$KAOSAskedFileLen Remaining:[expr ($KAOSQCount - $KAOSAskedFileLen)]"
}

#
# Show Current Answers
#
proc dcc_kaosanswer {hand idx arg} {
 global KAOSAnswers
 set ans ""
 foreach z [array names KAOSAnswers] {
  if {[lindex $KAOSAnswers($z) 0] == "#"} {
   append ans "[lrange $KAOSAnswers($z) 1 end] | "
  }
 }
 kaoslog "KAOS" $ans
}

#
# Reset Asked File
#
proc dcc_kaosresetasked {hand idx arg} {
 KAOS_ResetAsked
 kaoslog "KAOS" "#$hand# Reset Asked File"
}

#
# Show Asked
#
proc dcc_kaosshowasked {hand idx arg} {
 global KAOSQCount KAOSAsked KAOSQuestions
 set KAOSStatsAsked [llength $KAOSAsked]
 set KAOSStatsUnasked [expr ($KAOSQCount - $KAOSStatsAsked)]
 kaoslog "KAOS" "Total:$KAOSQCount  Asked:$KAOSStatsAsked  Remaining:$KAOSStatsUnasked"
}

#
# Force A Question
#
proc dcc_kaosforce {hand idx arg} {
 global KAOSRunning KAOSMarker KAOSForced KAOSForcedQuestion
 if {$KAOSRunning != 1} {return}
 regsub -all \[`,.!{}] $arg "" arg
 if {$arg == ""} {return}
 set KAOSMarkerIDX [string first $KAOSMarker $arg]
 if {$KAOSMarkerIDX < 2} {
  kaoslog "KAOS" "Malformed question: Format: Question*Answer1*Answer2..."
  return
 }
 set KAOSForcedQuestion $arg
 set KAOSForced 1
 kaoslog "KAOS" "Forcing A Question Next Round"
}

KAOS_ReadCFG

## Tips To Use
set TipsToUses {
"2,0·*“2,15“2,14“2,1“5,111,1 Ketik 0!rank for see the ranking 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Ketik 0!rank 11for see the rangking 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Ketik  8!score - for your score 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Ketik  8!score - 11for your score 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Ketik 8!score - 11for your score 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Type 4!score  11for seeing other score 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Be MasTer Game in Here :P 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Rules: 0No clones,cheating,and no invite 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Dont Repeat Your Answer 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Please remove any script-advertisements from you quit and part messages 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,111,1 Please remove any script-advertisements from you quit and part messages 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,115,1 No offending, racism, harassments, impersonation, abuse of nicknames or discrimination 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,115,1 Please 8REMEMBER 15your current nick while playing. Using a registered nick is better!! 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,115,1 Don`t 8CHANGE your nick while playing this Game to keep your score added!! 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,115,1 Don`t 8CHANGE 15your nick while playing this Game to keep your score added!! 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,115,1 http://LinuxGuY-dal.net 15,1 2,1“2,14“2,15“2,16“*·"
"2,0·*“2,15“2,14“2,1“5,115,1 Your score is accumalted and autosaved!! 15,1 2,1“2,14“2,15“2,16“*·"
}
## Proc to Randomly Select an Info Item!
proc get_InfoItems { } {
 global TipsToUses
 set outputiz9 [lindex $TipsToUses [rand [llength $TipsToUses]]]
 return $outputiz9
}


putlog "Loaded KAOS $KAOSVersion by McSkull"

    Source: geocities.com/ijookeren/bind

               ( geocities.com/ijookeren)