# HG changeset patch
# User unc0rr
# Date 1456585344 -10800
# Node ID 013264e25d718982280abc58c1427d414df91b47
# Parent  bee3a2f8e117c6476fe8e214653968c79942add7
Recognize ghost points in checker

diff -r bee3a2f8e117 -r 013264e25d71 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 _ = []