Someone

          if {$tgalwaysshowq==1||$tghintnum==0} {
          tggamemsg "\00311,4Într.[expr $tgquestionnumber+1]: \003[tgcolqbody]$tgcurrentquestion\003"   
           }
          tggamemsg "[tgcolhint]\002\0038,2[expr $tghintnum?"Hint$tghintnum/$tgmaxhintcurrent":""]\002\003 [tgcolhint][expr $tgcapshint?"[strupr [join $_hint]]":"[join $_hint]"]\003               \00313[join $qval]\00313 puncte"
         set tghinttimer [utimer $tgtimehint tghint]
    }