Thanks for the report. I fixed this.
Pascal
Benigno Hernández a écrit :
> Hello:
> In the menu "Play", on having chosen "Serious Game", and to mark
> "Coach is watching ".
> If I commit a mistake, the "Coach" does not mark the incorrect play,
> and does not prepare on the rectification of the play.
> I have observed the code of sergame.tcl:
>
> "
> # -------------------------------------------------------------
> # if weak move detected, propose the user to tack back
> if { $::sergame::coachIsWatching && $::uci::uciInfo(prevscore$n)
> != "" } {
> set blunder 0
> set tBlunder ""
> set delta [expr $::uci::uciInfo(score$n) -
> $::uci::uciInfo(prevscore$n)]
>
> if {$delta > $::informant("?!") && [getEngineColor] == "white" ||
> $delta < [expr 0.0 - $::informant("?!")] && [getEngineColor]
> == "black" } {
> set blunder 1
> }
>
> if {$delta > $::informant("?") && [getEngineColor] == "white" ||
> $delta < [expr 0.0 - $::informant("?")] && [getEngineColor] ==
> "black" } {
> set blunder 2
> }
>
> if {$delta > $::informant("??") && [getEngineColor] == "white" ||
> $delta < [expr 0.0 - $::informant("??")] && [getEngineColor]
> == "black" } {
> set blunder 3
> }
>
> if {$blunder == 1} {
> set tBlunder "DubiousMovePlayedTakeBack"
> } elseif {$blunder == 2} {
> set tBlunder "WeakMovePlayedTakeBack"
> } elseif {$blunder == 3} {
> set tBlunder "BadMovePlayedTakeBack"
> }
>
> if {$blunder > 0 } {set answer [tk_messageBox -icon question
> -parent .board -title "Scid" -type yesno -message $::tr($tBlunder) ]
> if {$answer == yes} {
> sc_move back 1
> updateBoard -pgn
> ::gameclock::stop 2
> ::gameclock::start 1
> after 1000 ::sergame::engineGo $n
> return
> }
> }
> }
> "
> ¿$::uci::uciInfo(score$n) == 0?
> ¿$::uci::uciInfo(prevscore$n) == 0?
>
> Regards
>
>
> ------------------------------------------------------------------------
>
> Enviado desde Correo Yahoo!
> <http://us.rd.yahoo.com/mailuk/taglines/isp/control/*http://us.rd.yahoo.com/evt=52431/*http://es.docs.yahoo.com/mail/overview/index.html>
> La bandeja de entrada más inteligente.
> ------------------------------------------------------------------------
>
> -------------------------------------------------------------------------
> Check out the new SourceForge.net Marketplace.
> It's the best place to buy or sell services for
> just about anything Open Source.
> http://sourceforge.net/services/buy/index.php
> ------------------------------------------------------------------------
>
> _______________________________________________
> Scid-users mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/scid-users
>
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Scid-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/scid-users
