--- a/gameServer/CoreTypes.hs	Thu Feb 26 15:00:48 2009 +0000
+++ b/gameServer/CoreTypes.hs	Fri Feb 27 19:51:22 2009 +0000
@@ -25,6 +25,7 @@
 		roomID :: Int,
 		isMaster :: Bool,
 		isReady :: Bool,
+		isAdministrator :: Bool,
 		forceQuit :: Bool,
 		partRoom :: Bool
 	}
@@ -139,7 +140,7 @@
 	)
 
 data AccountInfo =
-	HasAccount String
+	HasAccount String Bool
 	| Guest
 
 data CoreMessage =
@@ -151,7 +152,6 @@
 
 data DBQuery =
 	CheckAccount Int String
-	| CheckPassword String
 
 
 type Clients = IntMap.IntMap ClientInfo