23 		logonPassed :: Bool,

    23 		logonPassed :: Bool,

    24 		clientProto :: Word16,

    24 		clientProto :: Word16,

    25 		roomID :: Int,

    25 		roomID :: Int,

    26 		isMaster :: Bool,

    26 		isMaster :: Bool,

    27 		isReady :: Bool,

    27 		isReady :: Bool,

    28 		forceQuit :: Bool,

    29 		forceQuit :: Bool,

    29 		partRoom :: Bool

    30 		partRoom :: Bool

    30 	}

    31 	}

    31 

    32 

    32 instance Show ClientInfo where

    33 instance Show ClientInfo where

   137 		""

   138 		""

   138 		""

   139 		""

   139 	)

   140 	)

   140 

   141 

   141 data AccountInfo =

   142 data AccountInfo =

   143 	| Guest

   144 	| Guest

   144 

   145 

   145 data CoreMessage =

   146 data CoreMessage =

   146 	Accept ClientInfo

   147 	Accept ClientInfo

   147 	| ClientMessage (Int, [String])

   148 	| ClientMessage (Int, [String])

   149 	-- | CoreMessage String

   150 	-- | CoreMessage String

   150 	-- | TimerTick

   151 	-- | TimerTick

   151 

   152 

   152 data DBQuery =

   153 data DBQuery =

   153 	CheckAccount Int String

   154 	CheckAccount Int String

   155 

   155 

   156 

   156 

   157 type Clients = IntMap.IntMap ClientInfo

   157 type Clients = IntMap.IntMap ClientInfo

   158 type Rooms = IntMap.IntMap RoomInfo

   158 type Rooms = IntMap.IntMap RoomInfo

   159 

   159