Recognize ghost points in checker
authorunc0rr
Sat, 27 Feb 2016 18:02:24 +0300
changeset 11583 013264e25d71
parent 11582 bee3a2f8e117
child 11584 d389ea7ca66f
Recognize ghost points in checker
gameServer/OfficialServer/checker.hs
--- a/gameServer/OfficialServer/checker.hs	Sat Feb 27 09:44:13 2016 +0300
+++ b/gameServer/OfficialServer/checker.hs	Sat Feb 27 18:02:24 2016 +0300
@@ -83,6 +83,7 @@
         start = flip L.elem ["WINNERS", "DRAW"]
         ps ("DRAW" : bs) = "DRAW" : ps bs
         ps ("WINNERS" : n : bs) = let c = readInt_ n in "WINNERS" : n : take c bs ++ (ps $ drop c bs)
+        ps ("GHOST_POINTS" : n : bs) = let c = 2 * (readInt_ n) in "GHOST_POINTS" : n : take c bs ++ (ps $ drop c bs)
         ps ("ACHIEVEMENT" : typ : teamname : location : value : bs) =
             "ACHIEVEMENT" : typ : teamname : location : value : ps bs
         ps _ = []