I need help with my personalise tcl

2011-08-04T11:25:26-04:00

Thank you very much SpeechLess its working perfectly u people are great help
M just SpeechLess like ur account name ur Great i worked on it for almost 3 months and wasnt able to get it workin m nt tht gud at tcls but m tryin:)
once again thank you very much....

Statistics: Posted by janii — Thu Aug 04, 2011 11:25 am

I need help with my personalise tcl

2011-08-04T09:00:58-04:00

Code:

tggamemsg "[tgcolhint] $tghintnum/$tgmaxhintcurrent:[tgcolmisc2] [join $_hint]"

Change that above, to look like it does below:

Code:

tggamemsg "[tgcolhint] [expr {$tghintnum + 1}]/[expr {$tgmaxhintcurrent + 1}]:[tgcolmisc2] [join $_hint]"

Statistics: Posted by speechles — Thu Aug 04, 2011 9:00 am

I need help with my personalise tcl

2011-08-07T18:54:40-04:00

Hello i ve changed trivia.tcl by souperman to sum extend but having trouble in the showin manner of hint system like it starts frm 0 and i want it to start from 1/5 .. instead its giving 0/4
Thanks in advance

General knowledge, Which is the largest democracy? »» 8474 ««
0/4: *****
1/4: I****
2/4: I***a
3/4: I**ia
4/4: In*ia
Am I alone here or what? The correct answer was India. Try and get the next one...

WANT IT TO BE LIKE THIS

General knowledge, Which is the largest democracy? »» 8474 ««
1/5: *****
2/5: I****
3/5: I***a
4/5: I**ia
5/5: In*ia
Am I alone here or what? The correct answer was India. Try and get the next one...
Below is the code...

#shows timed hints.
proc tghint {} {
global tgmaxhint tghintnum tgcurrentanswer tghinttimer tgchan botnick tgrose1 tgrose2
global tgtimehint tghintchar tgquestionnumber tgquestionstotal
global tgcurrentquestion tghintcharsused tgnextqtimer tgtimenext tgstreak tgstreakmin
global tgnobodygotit tgtrythenextone tgmissed tgmaxmissed tgcmdstart tgshowanswer
global tgtimestart tgtimeanswer tgalwaysshowq tgmaxhintcurrent tgtempnohint tgcapshint
if {![info exists tghintnum]} {
set tghintnum 0
regsub -all -- "\[^A-Za-z0-9\]" $tgcurrentanswer "" _hintchars
set tgmaxhintcurrent [expr [strlen $_hintchars]<=$tgmaxhint?[expr [strlen $_hintchars]-1]:$tgmaxhint]
catch {tgunbindhintcmd}
if {$tgmaxhintcurrent>0} {
set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd]
}
} else { incr tghintnum }
if {$tghintnum >= [expr $tgmaxhintcurrent+1]} {
incr tgmissed
set _msg ""
append _msg "[tgcolmiss][lindex $tgnobodygotit [rand [llength $tgnobodygotit]]]"
if {$tgshowanswer==1} {
append _msg " 6The correct answer was6 [tgcolmisc2]$tgcurrentanswer[tgcolmiss]."
}
if {$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {
append _msg " \0034This was $tgmissed-a Unanswered question! Due to inactivity, the game was stopped automatically. \002To restart the game after screaming $botnick!!!\0034\002"
if {$::team(topic_change)} { utimer 20 [putserv "TOPIC $tgchan :$::offmode"] }
tgquietstop
} else {
append _msg " [lindex $tgtrythenextone [rand [llength $tgtrythenextone]]]"
}
tggamemsg "[tgcolmiss]$_msg"
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak 0
catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
if {$tgmaxmissed==0||$tgmissed<$tgmaxmissed} {
set tgnextqtimer [utimer $tgtimenext tgnextq]
}
return
} elseif {$tghintnum == 0} {
set i 0
set _hint {}
set tghintcharsused {}
foreach word [split $tgcurrentanswer] {
regsub -all -- "\[A-Za-z0-9\]" $word $tghintchar _current
lappend _hint $_current
}
if {$tgtimeanswer==1} {
set tgtimestart [clock clicks -milliseconds]
}
} elseif {$tghintnum == 1} {
set i 0
set _hint {}
while {$i<[llength [split $tgcurrentanswer]]} {
set _word [lindex [split $tgcurrentanswer] $i]
set j 0
set _newword {}
while {$j<[strlen $_word]} {
if {$j==0} {
append _newword [stridx $_word $j]
lappend tghintcharsused $i,$j
} else {
if {[string is alnum [stridx $_word $j]]} {
append _newword "$tghintchar"
} else {
append _newword [stridx $_word $j]
lappend tghintcharsused $i,$j
}
}
incr j
}
lappend _hint $_newword
incr i
}
} else {
set i 0
set _hint {}
while {$i<[llength [split $tgcurrentanswer]]} {
set _word [lindex [split $tgcurrentanswer] $i]
set j 0
set _newword {}
set _selected [rand [strlen $_word]]
regsub -all -- "\[^A-Za-z0-9\]" $_word "" _wordalnum
if {[strlen $_wordalnum]>=$tghintnum} {
while {[lsearch $tghintcharsused $i,$_selected]!=-1||[string is alnum [stridx $_word $_selected]]==0} {
set _selected [rand [strlen $_word]]
}
}
lappend tghintcharsused $i,$_selected
while {$j<[strlen $_word]} {
if {[lsearch $tghintcharsused $i,$j]!=-1||[string is alnum [stridx $_word $j]]==0} {
append _newword [stridx $_word $j]
} else {
if {[string is alnum [stridx $_word $j]]} {
append _newword $tghintchar
}
}
incr j
}
lappend _hint $_newword
incr i
}
}
if {$tgcapshint==1} {
set _hint [strupr $_hint]
}
#tggamemsg ""
if {$tgalwaysshowq==1||$tghintnum==0} {
tggamemsg ""
tggamemsg "[tgcolqbody]$::hbonus[tgcolqbody] $tgcurrentquestion 4»» [expr $tgquestionnumber+1] 4««"

}
# [expr $tghintnum?"":""]
tggamemsg "[tgcolhint] $tghintnum/$tgmaxhintcurrent:[tgcolmisc2] [join $_hint]"
set tghinttimer [utimer $tgtimehint tghint]
}

Statistics: Posted by janii — Wed Aug 03, 2011 8:31 am

egghelp/eggheads community

I need help with my personalise tcl

I need help with my personalise tcl

I need help with my personalise tcl