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} ...
Can anyone help me pls? I put the file here 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 sc...