gameServer/CoreTypes.hs
changeset 1927 e2031906a347
parent 1926 cb46fbdcaa41
child 1953 fd9c8e3c734d
equal deleted inserted replaced
1926:cb46fbdcaa41 1927:e2031906a347
    23 		nick :: String,
    23 		nick :: String,
    24 		webPassword :: String,
    24 		webPassword :: String,
    25 		logonPassed :: Bool,
    25 		logonPassed :: Bool,
    26 		clientProto :: Word16,
    26 		clientProto :: Word16,
    27 		roomID :: Int,
    27 		roomID :: Int,
       
    28 		pingsQueue :: Word,
    28 		isMaster :: Bool,
    29 		isMaster :: Bool,
    29 		isReady :: Bool,
    30 		isReady :: Bool,
    30 		isAdministrator :: Bool,
    31 		isAdministrator :: Bool,
    31 		forceQuit :: Bool,
    32 		forceQuit :: Bool,
    32 		partRoom :: Bool
    33 		partRoom :: Bool
   150 
   151 
   151 data CoreMessage =
   152 data CoreMessage =
   152 	Accept ClientInfo
   153 	Accept ClientInfo
   153 	| ClientMessage (Int, [String])
   154 	| ClientMessage (Int, [String])
   154 	| ClientAccountInfo Int AccountInfo
   155 	| ClientAccountInfo Int AccountInfo
   155 	-- | CoreMessage String
   156 	| TimerAction
   156 	-- | TimerTick
       
   157 
   157 
   158 data DBQuery =
   158 data DBQuery =
   159 	CheckAccount ClientInfo
   159 	CheckAccount ClientInfo
   160 
   160 
   161 
   161