gameServer/OfficialServer/checker.hs
changeset 11583 013264e25d71
parent 11514 6a5bdf930edf
child 11611 99966b4a6e1e
child 12845 ad2d448bbcab
--- 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 _ = []