gameServer/HWProtoChecker.hs
author nemo
Sun, 03 Mar 2013 20:08:55 -0500
changeset 8633 b9f5adfa81cc
parent 8507 f4475782cf45
child 9109 878f06e9c484
permissions -rw-r--r--
keep hogs from sliding while they are being frozen
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8479
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     1
{-# LANGUAGE OverloadedStrings #-}
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     2
module HWProtoChecker where
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     3
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     4
import qualified Data.Map as Map
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     5
import Data.Maybe
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     6
import Data.List
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     7
import Control.Monad.Reader
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     8
--------------------------------------
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     9
import CoreTypes
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    10
import Actions
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    11
import Utils
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    12
import HandlerUtils
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    13
import RoomsAndClients
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    14
import EngineInteraction
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    15
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    16
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    17
handleCmd_checker :: CmdHandler
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    18
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    19
handleCmd_checker ["READY"] = return [CheckRecord]
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    20
8507
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    21
handleCmd_checker ["CHECKED", "FAIL", msg] = do
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    22
    isChecking <- liftM (isJust . checkInfo) thisClient
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    23
    if not isChecking then
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    24
        return []
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    25
        else
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    26
        return [CheckFailed msg, ModifyClient $ \c -> c{checkInfo = Nothing}]
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    27
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    28
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    29
handleCmd_checker ("CHECKED" : "OK" : info) = do
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    30
    isChecking <- liftM (isJust . checkInfo) thisClient
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    31
    if not isChecking then
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    32
        return []
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    33
        else
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    34
        return [CheckSuccess info, ModifyClient $ \c -> c{checkInfo = Nothing}]
f4475782cf45 Some more work on checker
unc0rr
parents: 8479
diff changeset
    35
8479
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    36
handleCmd_checker _ = return [ProtocolError "Unknown command"]