fix discard bug

nhanb · Jun 27, 2023 · da76e7f · da76e7f
1 parent 3659dc3
commit da76e7f
Showing 1 changed file with 4 additions and 0 deletions.
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 {} {