gameServer/OfficialServer/checker.hs
branchqmlfrontend
changeset 11606 99966b4a6e1e
parent 11544 b69f5f22a3ba
parent 11578 013264e25d71
child 12855 1b2b84315d27
--- a/gameServer/OfficialServer/checker.hs	Tue Feb 09 21:11:16 2016 +0300
+++ b/gameServer/OfficialServer/checker.hs	Mon Mar 14 22:08:27 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 _ = []