author | unc0rr |
Thu, 26 Feb 2009 14:58:06 +0000 | |
changeset 1845 | 1d4a5280887d |
parent 1841 | fba7210b438b |
child 1847 | 2178c0fc838c |
permissions | -rw-r--r-- |
1804 | 1 |
module CoreTypes where |
2 |
||
3 |
import System.IO |
|
4 |
import Control.Concurrent.Chan |
|
5 |
import Control.Concurrent.STM |
|
6 |
import Data.Word |
|
7 |
import qualified Data.Map as Map |
|
8 |
import qualified Data.IntMap as IntMap |
|
9 |
import qualified Data.IntSet as IntSet |
|
10 |
import Data.Sequence(Seq, empty) |
|
11 |
import Network |
|
12 |
||
1833 | 13 |
|
1804 | 14 |
data ClientInfo = |
15 |
ClientInfo |
|
16 |
{ |
|
17 |
clientUID :: Int, |
|
18 |
sendChan :: Chan [String], |
|
19 |
clientHandle :: Handle, |
|
20 |
host :: String, |
|
21 |
nick :: String, |
|
1841
fba7210b438b
Retrieve client password from web database and ask for it
unc0rr
parents:
1839
diff
changeset
|
22 |
webPassword :: String, |
fba7210b438b
Retrieve client password from web database and ask for it
unc0rr
parents:
1839
diff
changeset
|
23 |
logonPassed :: Bool, |
1804 | 24 |
clientProto :: Word16, |
25 |
roomID :: Int, |
|
26 |
isMaster :: Bool, |
|
27 |
isReady :: Bool, |
|
28 |
forceQuit :: Bool, |
|
29 |
partRoom :: Bool |
|
30 |
} |
|
31 |
||
32 |
instance Show ClientInfo where |
|
33 |
show ci = show $ clientUID ci |
|
34 |
||
35 |
instance Eq ClientInfo where |
|
36 |
a1 == a2 = clientHandle a1 == clientHandle a2 |
|
37 |
||
38 |
data HedgehogInfo = |
|
39 |
HedgehogInfo String String |
|
40 |
||
41 |
data TeamInfo = |
|
42 |
TeamInfo |
|
43 |
{ |
|
44 |
teamowner :: String, |
|
45 |
teamname :: String, |
|
46 |
teamcolor :: String, |
|
47 |
teamgrave :: String, |
|
48 |
teamfort :: String, |
|
49 |
teamvoicepack :: String, |
|
50 |
difficulty :: Int, |
|
51 |
hhnum :: Int, |
|
52 |
hedgehogs :: [HedgehogInfo] |
|
53 |
} |
|
54 |
||
55 |
data RoomInfo = |
|
56 |
RoomInfo |
|
57 |
{ |
|
58 |
roomUID :: Int, |
|
59 |
name :: String, |
|
60 |
password :: String, |
|
61 |
roomProto :: Word16, |
|
62 |
teams :: [TeamInfo], |
|
63 |
gameinprogress :: Bool, |
|
64 |
playersIn :: !Int, |
|
65 |
readyPlayers :: Int, |
|
66 |
playersIDs :: IntSet.IntSet, |
|
67 |
isRestrictedJoins :: Bool, |
|
68 |
isRestrictedTeams :: Bool, |
|
69 |
roundMsgs :: Seq String, |
|
70 |
leftTeams :: [String], |
|
71 |
teamsAtStart :: [TeamInfo], |
|
72 |
params :: Map.Map String [String] |
|
73 |
} |
|
74 |
||
75 |
instance Show RoomInfo where |
|
76 |
show ri = (show $ roomUID ri) |
|
77 |
++ ", players ids: " ++ (show $ IntSet.size $ playersIDs ri) |
|
78 |
++ ", players: " ++ (show $ playersIn ri) |
|
1824 | 79 |
++ ", ready: " ++ (show $ readyPlayers ri) |
1804 | 80 |
|
81 |
instance Eq RoomInfo where |
|
82 |
a1 == a2 = roomUID a1 == roomUID a2 |
|
83 |
||
84 |
newRoom = ( |
|
85 |
RoomInfo |
|
86 |
0 |
|
87 |
"" |
|
88 |
"" |
|
89 |
0 |
|
90 |
[] |
|
91 |
False |
|
92 |
0 |
|
93 |
0 |
|
94 |
IntSet.empty |
|
95 |
False |
|
96 |
False |
|
97 |
Data.Sequence.empty |
|
98 |
[] |
|
99 |
[] |
|
100 |
(Map.singleton "MAP" ["+rnd+"]) |
|
101 |
) |
|
102 |
||
103 |
data StatisticsInfo = |
|
104 |
StatisticsInfo |
|
105 |
{ |
|
106 |
playersNumber :: Int, |
|
107 |
roomsNumber :: Int |
|
108 |
} |
|
109 |
||
110 |
data ServerInfo = |
|
111 |
ServerInfo |
|
112 |
{ |
|
113 |
isDedicated :: Bool, |
|
114 |
serverMessage :: String, |
|
115 |
listenPort :: PortNumber, |
|
116 |
loginsNumber :: Int, |
|
117 |
nextRoomID :: Int, |
|
1832 | 118 |
dbHost :: String, |
119 |
dbLogin :: String, |
|
120 |
dbPassword :: String, |
|
1833 | 121 |
stats :: TMVar StatisticsInfo, |
1839
5dd4cb7fd7e5
Server now send ASKPASSWORD command to frontend when user has web account
unc0rr
parents:
1833
diff
changeset
|
122 |
coreChan :: Chan CoreMessage, |
1833 | 123 |
dbQueries :: Chan DBQuery |
1804 | 124 |
} |
125 |
||
126 |
instance Show ServerInfo where |
|
127 |
show si = "Logins: " ++ (show $ loginsNumber si) |
|
128 |
||
129 |
newServerInfo = ( |
|
130 |
ServerInfo |
|
131 |
True |
|
132 |
"<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
|
133 |
46631 |
|
134 |
0 |
|
135 |
0 |
|
1832 | 136 |
"" |
137 |
"" |
|
138 |
"" |
|
1804 | 139 |
) |
140 |
||
1839
5dd4cb7fd7e5
Server now send ASKPASSWORD command to frontend when user has web account
unc0rr
parents:
1833
diff
changeset
|
141 |
data AccountInfo = |
1841
fba7210b438b
Retrieve client password from web database and ask for it
unc0rr
parents:
1839
diff
changeset
|
142 |
HasAccount String |
1839
5dd4cb7fd7e5
Server now send ASKPASSWORD command to frontend when user has web account
unc0rr
parents:
1833
diff
changeset
|
143 |
| Guest |
5dd4cb7fd7e5
Server now send ASKPASSWORD command to frontend when user has web account
unc0rr
parents:
1833
diff
changeset
|
144 |
|
1804 | 145 |
data CoreMessage = |
146 |
Accept ClientInfo |
|
147 |
| ClientMessage (Int, [String]) |
|
1839
5dd4cb7fd7e5
Server now send ASKPASSWORD command to frontend when user has web account
unc0rr
parents:
1833
diff
changeset
|
148 |
| ClientAccountInfo Int AccountInfo |
1804 | 149 |
-- | CoreMessage String |
150 |
-- | TimerTick |
|
151 |
||
1833 | 152 |
data DBQuery = |
1839
5dd4cb7fd7e5
Server now send ASKPASSWORD command to frontend when user has web account
unc0rr
parents:
1833
diff
changeset
|
153 |
CheckAccount Int String |
1833 | 154 |
| CheckPassword String |
155 |
||
1804 | 156 |
|
157 |
type Clients = IntMap.IntMap ClientInfo |
|
158 |
type Rooms = IntMap.IntMap RoomInfo |
|
159 |
||
160 |
--type ClientsTransform = [ClientInfo] -> [ClientInfo] |
|
161 |
--type RoomsTransform = [RoomInfo] -> [RoomInfo] |
|
162 |
--type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [ClientInfo] |
|
163 |
--type Answer = ServerInfo -> (HandlesSelector, [String]) |
|
164 |
||
165 |
type ClientsSelector = Clients -> Rooms -> [Int] |