fix discard bug

nhanb · nhanb · commit da76e7f2fd89 · 2023-06-27T09:26:21.000+07:00
diff --git a/tcl/main.tcl b/tcl/main.tcl
@@ -353,6 +353,10 @@ proc discardscoreboard {} {
     foreach key [array names ::scoreboard] {
         set ::scoreboard($key) $::applied_scoreboard($key)
     }
+    # Country is updated whenever player name is updated,
+    # so make sure we set countries last.
+    set ::scoreboard(p1country) $::applied_scoreboard(p1country)
+    set ::scoreboard(p2country) $::applied_scoreboard(p2country)
 }
 
 proc update_applied_scoreboard {} {

Original file line number	Diff line number	Diff line change
`@@ -353,6 +353,10 @@ proc discardscoreboard {} {`
`353`	`353`	`foreach key [array names ::scoreboard] {`
`354`	`354`	`set ::scoreboard($key) $::applied_scoreboard($key)`
`355`	`355`	`}`
	`356`	`+ # Country is updated whenever player name is updated,`
	`357`	`+ # so make sure we set countries last.`
	`358`	`+ set ::scoreboard(p1country) $::applied_scoreboard(p1country)`
	`359`	`+ set ::scoreboard(p2country) $::applied_scoreboard(p2country)`
`356`	`360`	`}`
`357`	`361`
`358`	`362`	`proc update_applied_scoreboard {} {`