more Don Strunzone
[xonotic/xonotic-data.pk3dir.git] / qcsrc / menu / xonotic / dialog_multiplayer_join_serverinfo.c
1 #ifdef INTERFACE
2 CLASS(XonoticServerInfoDialog) EXTENDS(XonoticDialog)
3         METHOD(XonoticServerInfoDialog, fill, void(entity))
4         METHOD(XonoticServerInfoDialog, loadServerInfo, void(entity, float))
5         ATTRIB(XonoticServerInfoDialog, title, string, "Server Information")
6         ATTRIB(XonoticServerInfoDialog, color, vector, SKINCOLOR_DIALOG_SERVERINFO)
7         ATTRIB(XonoticServerInfoDialog, intendedWidth, float, 0.68)
8         ATTRIB(XonoticServerInfoDialog, rows, float, 15)
9         ATTRIB(XonoticServerInfoDialog, columns, float, 12)
10
11         ATTRIB(XonoticServerInfoDialog, currentServerName, string, string_null)
12         ATTRIB(XonoticServerInfoDialog, currentServerCName, string, string_null)
13         ATTRIB(XonoticServerInfoDialog, currentServerType, string, string_null)
14         ATTRIB(XonoticServerInfoDialog, currentServerMap, string, string_null)
15         ATTRIB(XonoticServerInfoDialog, currentServerPlayers, string, string_null)
16         ATTRIB(XonoticServerInfoDialog, currentServerNumPlayers, string, string_null)
17         ATTRIB(XonoticServerInfoDialog, currentServerNumBots, string, string_null)
18         ATTRIB(XonoticServerInfoDialog, currentServerMod, string, string_null)
19         ATTRIB(XonoticServerInfoDialog, currentServerVersion, string, string_null)
20         ATTRIB(XonoticServerInfoDialog, currentServerPing, string, string_null)
21         ATTRIB(XonoticServerInfoDialog, currentServerKey, string, string_null)
22         ATTRIB(XonoticServerInfoDialog, currentServerID, string, string_null)
23         ATTRIB(XonoticServerInfoDialog, currentServerEncrypt, string, string_null)
24         ATTRIB(XonoticServerInfoDialog, currentServerPure, string, string_null)
25
26         ATTRIB(XonoticServerInfoDialog, nameLabel, entity, NULL)
27         ATTRIB(XonoticServerInfoDialog, cnameLabel, entity, NULL)
28         ATTRIB(XonoticServerInfoDialog, typeLabel, entity, NULL)
29         ATTRIB(XonoticServerInfoDialog, mapLabel, entity, NULL)
30         ATTRIB(XonoticServerInfoDialog, rawPlayerList, entity, NULL)
31         ATTRIB(XonoticServerInfoDialog, numPlayersLabel, entity, NULL)
32         ATTRIB(XonoticServerInfoDialog, numBotsLabel, entity, NULL)
33         ATTRIB(XonoticServerInfoDialog, modLabel, entity, NULL)
34         ATTRIB(XonoticServerInfoDialog, versionLabel, entity, NULL)
35         ATTRIB(XonoticServerInfoDialog, pingLabel, entity, NULL)
36         ATTRIB(XonoticServerInfoDialog, keyLabel, entity, NULL)
37         ATTRIB(XonoticServerInfoDialog, idLabel, entity, NULL)
38         ATTRIB(XonoticServerInfoDialog, encryptLabel, entity, NULL)
39         ATTRIB(XonoticServerInfoDialog, canConnectLabel, entity, NULL)
40         ATTRIB(XonoticServerInfoDialog, pureLabel, entity, NULL)
41 ENDCLASS(XonoticServerInfoDialog)
42
43 float SLIST_FIELD_NAME;
44 float SLIST_FIELD_CNAME;
45 float SLIST_FIELD_QCSTATUS;
46 float SLIST_FIELD_MAP;
47 float SLIST_FIELD_PLAYERS;
48 float SLIST_FIELD_NUMHUMANS;
49 float SLIST_FIELD_MAXPLAYERS;
50 float SLIST_FIELD_NUMBOTS;
51 float SLIST_FIELD_MOD;
52 float SLIST_FIELD_PING;
53 void Join_Click(entity btn, entity me);
54 #endif
55
56 #ifdef IMPLEMENTATION
57 void XonoticServerInfoDialog_loadServerInfo(entity me, float i)
58 {
59         float m, pure, j;
60         string s, typestr, versionstr, numh, maxp, k, v;
61
62         if(me.currentServerName)
63                 strunzone(me.currentServerName);
64         me.currentServerName = string_null;
65         if(me.currentServerCName)
66                 strunzone(me.currentServerCName);
67         me.currentServerCName = string_null;
68         if(me.currentServerType)
69                 strunzone(me.currentServerType);
70         me.currentServerType = string_null;
71         if(me.currentServerMap)
72                 strunzone(me.currentServerMap);
73         me.currentServerMap = string_null;
74         if(me.currentServerPlayers)
75                 strunzone(me.currentServerPlayers);
76         me.currentServerPlayers = string_null;
77         if(me.currentServerNumPlayers)
78                 strunzone(me.currentServerNumPlayers);
79         me.currentServerNumPlayers = string_null;
80         if(me.currentServerNumBots)
81                 strunzone(me.currentServerNumBots);
82         me.currentServerNumBots = string_null;
83         if(me.currentServerMod)
84                 strunzone(me.currentServerMod);
85         me.currentServerMod = string_null;
86         if(me.currentServerVersion)
87                 strunzone(me.currentServerVersion);
88         me.currentServerVersion = string_null;
89         if(me.currentServerPing)
90                 strunzone(me.currentServerPing);
91         me.currentServerPing = string_null;
92         if(me.currentServerKey)
93                 strunzone(me.currentServerKey);
94         me.currentServerKey = string_null;
95         if(me.currentServerID)
96                 strunzone(me.currentServerID);
97         me.currentServerID = string_null;
98         // not zoned!
99         //if(me.currentServerEncrypt)
100         //      strunzone(me.currentServerEncrypt);
101         //me.currentServerEncrypt = string_null;
102         if(me.currentServerPure)
103                 strunzone(me.currentServerPure);
104         me.currentServerPure = string_null;
105
106         SLIST_FIELD_NAME = gethostcacheindexforkey("name");
107         me.currentServerName = strzone(gethostcachestring(SLIST_FIELD_NAME, i));
108         me.nameLabel.setText(me.nameLabel, me.currentServerName);
109
110         SLIST_FIELD_CNAME = gethostcacheindexforkey("cname");
111         me.currentServerCName = strzone(gethostcachestring(SLIST_FIELD_CNAME, i));
112         me.cnameLabel.setText(me.cnameLabel, me.currentServerCName);
113
114         pure = -1;
115         typestr = "N/A";
116         versionstr = "N/A";
117
118         SLIST_FIELD_QCSTATUS = gethostcacheindexforkey("qcstatus");
119         s = gethostcachestring(SLIST_FIELD_QCSTATUS, i);
120         m = tokenizebyseparator(s, ":");
121         if(m >= 2)
122         {
123                 typestr = argv(0);
124                 versionstr = argv(1);
125         }
126         for(j = 2; j < m; ++j)
127         {
128                 if(argv(j) == "")
129                         break;
130                 k = substring(argv(j), 0, 1);
131                 v = substring(argv(j), 1, -1);
132                 if(k == "P")
133                         pure = stof(v);
134         }
135
136         me.currentServerType = strzone(typestr);
137         me.typeLabel.setText(me.typeLabel, me.currentServerType);
138
139         SLIST_FIELD_MAP = gethostcacheindexforkey("map");
140         me.currentServerMap = strzone(gethostcachestring(SLIST_FIELD_MAP, i));
141         me.mapLabel.setText(me.mapLabel, me.currentServerMap);
142
143         SLIST_FIELD_PLAYERS = gethostcacheindexforkey("players");
144         me.currentServerPlayers = strzone(gethostcachestring(SLIST_FIELD_PLAYERS, i));
145         me.rawPlayerList.setPlayerList(me.rawPlayerList, me.currentServerPlayers);
146
147         SLIST_FIELD_NUMHUMANS = gethostcacheindexforkey("numhumans");
148         numh = ftos(gethostcachenumber(SLIST_FIELD_NUMHUMANS, i));
149         SLIST_FIELD_MAXPLAYERS = gethostcacheindexforkey("maxplayers");
150         maxp = ftos(gethostcachenumber(SLIST_FIELD_MAXPLAYERS, i));
151         me.currentServerNumPlayers = strzone(strcat(numh,"/",maxp));
152         me.numPlayersLabel.setText(me.numPlayersLabel, me.currentServerNumPlayers);
153
154         SLIST_FIELD_NUMBOTS = gethostcacheindexforkey("numbots");
155         s = ftos(gethostcachenumber(SLIST_FIELD_NUMBOTS, i));
156         me.currentServerNumBots = strzone(s);
157         me.numBotsLabel.setText(me.numBotsLabel, me.currentServerNumBots);
158
159         SLIST_FIELD_MOD = gethostcacheindexforkey("mod");
160         me.currentServerMod = strzone(gethostcachestring(SLIST_FIELD_MOD, i));
161         me.modLabel.setText(me.modLabel, me.currentServerMod);
162
163         me.currentServerVersion = strzone(versionstr);
164         me.versionLabel.setText(me.versionLabel, me.currentServerVersion);
165
166         me.currentServerPure = ((pure < 0) ? "N/A" : (pure == 0) ? "Official settings" : sprintf("%d modified settings", pure));
167         me.currentServerPure = strzone(me.currentServerPure);
168         me.pureLabel.setText(me.pureLabel, me.currentServerPure);
169
170         SLIST_FIELD_PING = gethostcacheindexforkey("ping");
171         s = ftos(gethostcachenumber(SLIST_FIELD_PING, i));
172         me.currentServerPing = strzone(s);
173         me.pingLabel.setText(me.pingLabel, me.currentServerPing);
174
175         print(me.currentServerCName, "\n");
176
177         s = crypto_getidfp(me.currentServerCName);
178         if not(s)
179                 s = "N/A";
180         me.currentServerID = strzone(s);
181         me.idLabel.setText(me.idLabel, me.currentServerID);
182
183         s = crypto_getkeyfp(me.currentServerCName);
184         if not(s)
185                 s = "N/A";
186         me.currentServerKey = strzone(s);
187         me.keyLabel.setText(me.keyLabel, me.currentServerKey);
188
189         s = crypto_getencryptlevel(me.currentServerCName);
190         if(s == "")
191         {
192                 if(cvar("crypto_aeslevel") >= 3)
193                         me.currentServerEncrypt = "N/A (can't connect)";
194                 else
195                         me.currentServerEncrypt = "N/A";
196         }
197         else switch(stof(substring(s, 0, 1)))
198         {
199                 case 0:
200                         if(cvar("crypto_aeslevel") >= 3)
201                                 me.currentServerEncrypt = "not supported (can't connect)";
202                         else
203                                 me.currentServerEncrypt = "not supported";
204                         break;
205                 case 1:
206                         me.currentServerEncrypt = "supported";
207                         break;
208                 case 2:
209                         me.currentServerEncrypt = "requested";
210                         break;
211                 case 3:
212                         if(cvar("crypto_aeslevel") <= 0)
213                                 me.currentServerEncrypt = "required (can't connect)";
214                         else
215                                 me.currentServerEncrypt = "required";
216                         break;
217         }
218         me.encryptLabel.setText(me.encryptLabel, me.currentServerEncrypt);
219 }
220
221 void XonoticServerInfoDialog_fill(entity me)
222 {
223         entity e;
224         me.TR(me);
225                 me.TD(me, 1, me.columns, e = makeXonoticTextLabel(0.5, ""));
226                         e.colorL = SKINCOLOR_SERVERINFO_NAME;
227                         e.allowCut = 1;
228                         me.nameLabel = e;
229         me.TR(me);
230                 me.TD(me, 1, me.columns, e = makeXonoticTextLabel(0.5, ""));
231                         e.colorL = SKINCOLOR_SERVERINFO_IP;
232                         e.allowCut = 1;
233                         me.cnameLabel = e;
234
235         me.TR(me);
236                 me.TD(me, 1, 5.5, e = makeXonoticTextLabel(0, "Players:"));
237         me.TR(me);
238                 me.TD(me, me.rows - 4, 6, e = makeXonoticPlayerList());
239                         me.rawPlayerList = e;
240
241         me.gotoRC(me, 1, 6.25); me.setFirstColumn(me, me.currentColumn);
242
243         me.TR(me);
244                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Type:"));
245                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
246                         e.allowCut = 1;
247                         me.typeLabel = e;
248         me.TR(me);
249                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Map:"));
250                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
251                         e.allowCut = 1;
252                         me.mapLabel = e;
253         me.TR(me);
254                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Gameplay:"));
255                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
256                         e.allowCut = 1;
257                         me.pureLabel = e;
258         me.TR(me);
259                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Players:"));
260                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
261                         e.allowCut = 1;
262                         me.numPlayersLabel = e;
263         me.TR(me);
264                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Bots:"));
265                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
266                         e.allowCut = 1;
267                         me.numBotsLabel = e;
268         me.TR(me);
269                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Mod:"));
270                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
271                         e.allowCut = 1;
272                         me.modLabel = e;
273         me.TR(me);
274                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Version:"));
275                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
276                         e.allowCut = 1;
277                         me.versionLabel = e;
278         me.TR(me);
279                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Ping:"));
280                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
281                         e.allowCut = 1;
282                         me.pingLabel = e;
283
284         me.TR(me);
285                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "CA:"));
286                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
287                         e.allowCut = 1;
288                         me.keyLabel = e;
289
290         me.TR(me);
291                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Key:"));
292                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
293                         e.allowCut = 1;
294                         me.idLabel = e;
295
296         me.TR(me);
297                 me.TD(me, 1, 1.75, e = makeXonoticTextLabel(0, "Encryption:"));
298                 me.TD(me, 1, 4.0, e = makeXonoticTextLabel(0, ""));
299                         e.allowCut = 1;
300                         me.encryptLabel = e;
301
302         me.gotoRC(me, me.rows - 1, 0);
303
304                 me.TD(me, 1, me.columns - 6, e = makeXonoticButton("Close", '0 0 0'));
305                         e.onClick = Dialog_Close;
306                         e.onClickEntity = me;
307                 me.TD(me, 1, me.columns - 6, e = makeXonoticButton("Join!", '0 0 0'));
308                         e.onClick = Join_Click;
309                         e.onClickEntity = me;
310 }
311
312 void Join_Click(entity btn, entity me)
313 {
314         localcmd("connect ", me.currentServerCName, "\n");
315 }
316
317 #endif