--- a/gameServer/CoreTypes.hs	Tue Feb 24 19:39:10 2009 +0000
+++ b/gameServer/CoreTypes.hs	Tue Feb 24 19:39:49 2009 +0000
@@ -117,6 +117,7 @@
 		dbLogin :: String,
 		dbPassword :: String,
 		stats :: TMVar StatisticsInfo,
+		coreChan :: Chan CoreMessage,
 		dbQueries :: Chan DBQuery
 	}
 
@@ -135,14 +136,20 @@
 		""
 	)
 
+data AccountInfo =
+	HasAccount
+	| LogonPassed
+	| Guest
+
 data CoreMessage =
 	Accept ClientInfo
 	| ClientMessage (Int, [String])
+	| ClientAccountInfo Int AccountInfo
 	-- | CoreMessage String
 	-- | TimerTick
 
 data DBQuery =
-	HasRegistered String
+	CheckAccount Int String
 	| CheckPassword String