--- 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