egghelp/eggheads community

trouble with scramble tcl script

2004-11-30T05:11:56-04:00

It may not be free, but it's still coded far better than what ya got goin there

I thought this forum is used to help people that having trouble
not flame other people' code

Statistics: Posted by nickname — Tue Nov 30, 2004 5:11 am

trouble with scramble tcl script

2004-11-29T00:21:31-04:00

It may not be free, but it's still coded far better than what ya got goin there

Statistics: Posted by YooHoo — Mon Nov 29, 2004 12:21 am

trouble with scramble tcl script

2004-11-28T22:46:42-04:00

this's for set the question and answer

set game(questions) ""

if {[file exists $game(file)]} {

set fileid [open $game(file) r]

while {![eof $fileid]} {

gets $fileid game(temp)

if {$game(temp) != ""} {

lappend game(questions) $game(temp)

}

}

close $fileid

proc xrange {xr xr1 xr2} {

return [join [lrange [split $xr] $xr1 $xr2]]

}

proc xindex {xr xr1} {

return [join [lrange [split $xr] $xr1 $xr1]]

}

this's to show whether the user is correct

foreach game(temp) $game(answers) {

if {((!$game(type)) && ($guess == [string tolower $game(answers)])) || (($game(type) == 1) && ([string match [string tolower $game(temp)] $guess]))} {

if {$game(team)} {

foreach game(temp) [array names game_players] {

if {[lsearch -exact [string tolower $game_players($game(temp))] [string tolower $nick]] != -1} {

incr game_teams($game(temp))

putserv "PRIVMSG $chan :$nick \[team $game(temp)\] is correct! ($guess)"

}

}

}
}

my problem here is the bot doesn't want to tell whether the user is correct answering the question...

nerfbendr's trivia is not free

Statistics: Posted by nickname — Sun Nov 28, 2004 10:46 pm

trouble with scramble tcl script

2004-11-28T06:18:48-04:00

That script is for the birds. Try the TCL archives, in the 'Games' section. You might wish to try nerfbendr's trivia, it has far more potential

Statistics: Posted by YooHoo — Sun Nov 28, 2004 6:18 am

trouble with scramble tcl script

2004-11-28T03:40:01-04:00

there would be a better chance someone can if you paste the problematic code here

Statistics: Posted by demond — Sun Nov 28, 2004 3:40 am

trouble with scramble tcl script

2004-11-28T03:18:50-04:00

Can anyone help me pls?
I put the file here

Code:

http://con4n007.freelinuxhost.com/txc.tcl

the scramble works ok,
my problem is, it doesn't recognize the answer...
let's say the answer will be "good"
even though I asnwer "good", it gives no response at all and doesn't increment the score.
can anyone help me pls?

thanks

edit:
there's seperate question called "soal.txt" with {question} {answer} format, line per line

Statistics: Posted by nickname — Sun Nov 28, 2004 3:18 am