module HWProtoCore where

import qualified Data.IntMap as IntMap
--------------------------------------
import CoreTypes
import Actions
import Utils
import Answers
import HWProtoNEState
import HWProtoLobbyState
import HWProtoInRoomState

handleCmd:: CmdHandler

handleCmd clID _ _ ["PING"] = [AnswerThisClient ["PONG"]]

handleCmd clID clients _ ("QUIT" : xs) =
	(if isMaster client then [RemoveRoom] else [])
	++ [ByeClient msg]
	where
		client = clients IntMap.! clID
		clientNick = nick client
		msg = if not $ null xs then head xs else ""


handleCmd clID clients rooms cmd =
	if null (nick client) || clientProto client == 0 then
		handleCmd_NotEntered clID clients rooms cmd
	else if roomID client == 0 then
		handleCmd_lobby clID clients rooms cmd
	else
		handleCmd_inRoom clID clients rooms cmd
	where
		client = clients IntMap.! clID