diff -r b69f5f22a3ba -r 99966b4a6e1e gameServer/OfficialServer/checker.hs --- 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 _ = []