import Control.Monad.Reader

import RoomsAndClients

reactCmd :: ServerInfo -> ClientIndex -> [String] -> MRnC -> IO ()

reactCmd sInfo ci cmd rnc = do

    actions <- withRoomsAndClients rnc (\irnc -> runReader (handleCmd cmd) (ci, irnc))

    forM_ actions (processAction (ci, sInfo, rnc))

mainLoop :: ServerInfo -> MRnC -> IO ()

mainLoop serverInfo rnc = forever $ do

    case r of

        Accept ci -> do

            processAction

                (undefined, serverInfo, rnc) (AddClient ci)

            return ()

        ClientMessage (clID, cmd) -> do

            debugM "Clients" $ (show clID) ++ ": " ++ (show cmd)

            --if clID `IntMap.member` clients then

            reactCmd serverInfo clID cmd rnc

            return ()

                --else

                --do

                --debugM "Clients" "Message from dead client"

                --return (serverInfo, rnc)

        ClientAccountInfo (clID, info) -> do

            --if clID `IntMap.member` clients then

            processAction

                (clID, serverInfo, rnc)

                (ProcessAccountInfo info)

            return ()

                --else

                --do

                --debugM "Clients" "Got info for dead client"

                --return (serverInfo, rnc)

        TimerAction tick ->

            return ()

            --liftM snd $

            --    foldM processAction (0, serverInfo, rnc) $

            --        PingAll : [StatsAction | even tick]

    rnc <- newRoomsAndClients newRoom

    forkIO $ mainLoop serverInfo rnc