qcsrc/menu/xonotic/serverlist.c

   1 #ifdef INTERFACE
   2 CLASS(XonoticServerList) EXTENDS(XonoticListBox)
   3         METHOD(XonoticServerList, configureXonoticServerList, void(entity))
   4         ATTRIB(XonoticServerList, rowsPerItem, float, 1)
   5         METHOD(XonoticServerList, draw, void(entity))
   6         METHOD(XonoticServerList, drawListBoxItem, void(entity, float, vector, float))
   7         METHOD(XonoticServerList, clickListBoxItem, void(entity, float, vector))
   8         METHOD(XonoticServerList, resizeNotify, void(entity, vector, vector, vector, vector))
   9         METHOD(XonoticServerList, keyDown, float(entity, float, float, float))
  10         METHOD(XonoticServerList, toggleFavorite, void(entity, string))
  11
  12         ATTRIB(XonoticServerList, iconsSizeFactor, float, 0.85)
  13
  14         ATTRIB(XonoticServerList, realFontSize, vector, '0 0 0')
  15         ATTRIB(XonoticServerList, realUpperMargin, float, 0)
  16         ATTRIB(XonoticServerList, columnIconsOrigin, float, 0)
  17         ATTRIB(XonoticServerList, columnIconsSize, float, 0)
  18         ATTRIB(XonoticServerList, columnPingOrigin, float, 0)
  19         ATTRIB(XonoticServerList, columnPingSize, float, 0)
  20         ATTRIB(XonoticServerList, columnNameOrigin, float, 0)
  21         ATTRIB(XonoticServerList, columnNameSize, float, 0)
  22         ATTRIB(XonoticServerList, columnMapOrigin, float, 0)
  23         ATTRIB(XonoticServerList, columnMapSize, float, 0)
  24         ATTRIB(XonoticServerList, columnTypeOrigin, float, 0)
  25         ATTRIB(XonoticServerList, columnTypeSize, float, 0)
  26         ATTRIB(XonoticServerList, columnPlayersOrigin, float, 0)
  27         ATTRIB(XonoticServerList, columnPlayersSize, float, 0)
  28
  29         ATTRIB(XonoticServerList, selectedServer, string, string_null) // to restore selected server when needed
  30         METHOD(XonoticServerList, setSelected, void(entity, float))
  31         METHOD(XonoticServerList, setSortOrder, void(entity, float, float))
  32         ATTRIB(XonoticServerList, filterShowEmpty, float, 1)
  33         ATTRIB(XonoticServerList, filterShowFull, float, 1)
  34         ATTRIB(XonoticServerList, filterString, string, string_null)
  35         ATTRIB(XonoticServerList, controlledTextbox, entity, NULL)
  36         ATTRIB(XonoticServerList, ipAddressBox, entity, NULL)
  37         ATTRIB(XonoticServerList, favoriteButton, entity, NULL)
  38         ATTRIB(XonoticServerList, nextRefreshTime, float, 0)
  39         METHOD(XonoticServerList, refreshServerList, void(entity, float)) // refresh mode: REFRESHSERVERLIST_*
  40         ATTRIB(XonoticServerList, needsRefresh, float, 1)
  41         METHOD(XonoticServerList, focusEnter, void(entity))
  42         METHOD(XonoticServerList, positionSortButton, void(entity, entity, float, float, string, void(entity, entity)))
  43         ATTRIB(XonoticServerList, sortButton1, entity, NULL)
  44         ATTRIB(XonoticServerList, sortButton2, entity, NULL)
  45         ATTRIB(XonoticServerList, sortButton3, entity, NULL)
  46         ATTRIB(XonoticServerList, sortButton4, entity, NULL)
  47         ATTRIB(XonoticServerList, sortButton5, entity, NULL)
  48         ATTRIB(XonoticServerList, connectButton, entity, NULL)
  49         ATTRIB(XonoticServerList, infoButton, entity, NULL)
  50         ATTRIB(XonoticServerList, currentSortOrder, float, 0)
  51         ATTRIB(XonoticServerList, currentSortField, float, -1)
  52         ATTRIB(XonoticServerList, lastBumpSelectTime, float, 0)
  53         ATTRIB(XonoticServerList, lastClickedServer, float, -1)
  54         ATTRIB(XonoticServerList, lastClickedTime, float, 0)
  55
  56         ATTRIB(XonoticServerList, ipAddressBoxFocused, float, -1)
  57
  58         ATTRIB(XonoticServerList, seenIPv4, float, 0)
  59         ATTRIB(XonoticServerList, seenIPv6, float, 0)
  60         ATTRIB(XonoticServerList, categoriesHeight, float, 1.5)
  61
  62         METHOD(XonoticServerList, getTotalHeight, float(entity))
  63         METHOD(XonoticServerList, getItemAtPos, float(entity, float))
  64         METHOD(XonoticServerList, getItemStart, float(entity, float))
  65         METHOD(XonoticServerList, getItemHeight, float(entity, float))
  66 ENDCLASS(XonoticServerList)
  67 entity makeXonoticServerList();
  68
  69 #ifndef IMPLEMENTATION
  70 var float autocvar_menu_slist_categories = TRUE;
  71 var float autocvar_menu_slist_categories_onlyifmultiple = TRUE;
  72 var float autocvar_menu_slist_purethreshold = 10;
  73 var float autocvar_menu_slist_modimpurity = 10;
  74 var float autocvar_menu_slist_recommendations = 2;
  75 var float autocvar_menu_slist_recommendations_maxping = 150;
  76 var float autocvar_menu_slist_recommendations_minfreeslots = 1;
  77 var float autocvar_menu_slist_recommendations_minhumans = 1;
  78 var float autocvar_menu_slist_recommendations_purethreshold = -1;
  79 //var string autocvar_menu_slist_recommended = "76.124.107.5:26004";
  80
  81 // server cache fields
  82 #define SLIST_FIELDS \
  83         SLIST_FIELD(CNAME,       "cname") \
  84         SLIST_FIELD(PING,        "ping") \
  85         SLIST_FIELD(GAME,        "game") \
  86         SLIST_FIELD(MOD,         "mod") \
  87         SLIST_FIELD(MAP,         "map") \
  88         SLIST_FIELD(NAME,        "name") \
  89         SLIST_FIELD(MAXPLAYERS,  "maxplayers") \
  90         SLIST_FIELD(NUMPLAYERS,  "numplayers") \
  91         SLIST_FIELD(NUMHUMANS,   "numhumans") \
  92         SLIST_FIELD(NUMBOTS,     "numbots") \
  93         SLIST_FIELD(PROTOCOL,    "protocol") \
  94         SLIST_FIELD(FREESLOTS,   "freeslots") \
  95         SLIST_FIELD(PLAYERS,     "players") \
  96         SLIST_FIELD(QCSTATUS,    "qcstatus") \
  97         SLIST_FIELD(CATEGORY,    "category") \
  98         SLIST_FIELD(ISFAVORITE,  "isfavorite")
  99
 100 #define SLIST_FIELD(suffix,name) float SLIST_FIELD_##suffix;
 101 SLIST_FIELDS
 102 #undef SLIST_FIELD
 103
 104 const float REFRESHSERVERLIST_RESORT = 0;    // sort the server list again to update for changes to e.g. favorite status, categories
 105 const float REFRESHSERVERLIST_REFILTER = 1;  // ..., also update filter and sort criteria
 106 const float REFRESHSERVERLIST_ASK = 2;       // ..., also suggest querying servers now
 107 const float REFRESHSERVERLIST_RESET = 3;     // ..., also clear the list first
 108
 109 // function declarations
 110 entity RetrieveCategoryEnt(float catnum);
 111
 112 float IsServerInList(string list, string srv);
 113 #define IsFavorite(srv) IsServerInList(cvar_string("net_slist_favorites"), srv)
 114 #define IsRecommended(srv) IsServerInList(_Nex_ExtResponseSystem_RecommendedServers, srv)
 115
 116 float CheckCategoryOverride(float cat);
 117 float CheckCategoryForEntry(float entry);
 118 float m_gethostcachecategory(float entry) { return CheckCategoryOverride(CheckCategoryForEntry(entry)); }
 119
 120 void RegisterSLCategories();
 121
 122 void ServerList_Connect_Click(entity btn, entity me);
 123 void ServerList_Categories_Click(entity box, entity me);
 124 void ServerList_ShowEmpty_Click(entity box, entity me);
 125 void ServerList_ShowFull_Click(entity box, entity me);
 126 void ServerList_Filter_Change(entity box, entity me);
 127 void ServerList_Favorite_Click(entity btn, entity me);
 128 void ServerList_Info_Click(entity btn, entity me);
 129 void ServerList_Update_favoriteButton(entity btn, entity me);
 130
 131 // fields for category entities
 132 #define MAX_CATEGORIES 9
 133 #define CATEGORY_FIRST 1
 134 entity categories[MAX_CATEGORIES];
 135 float category_ent_count;
 136 .string cat_name;
 137 .string cat_string;
 138 .string cat_enoverride_string;
 139 .string cat_dioverride_string;
 140 .float cat_enoverride;
 141 .float cat_dioverride;
 142
 143 // fields for drawing categories
 144 float category_name[MAX_CATEGORIES];
 145 float category_item[MAX_CATEGORIES];
 146 float category_draw_count;
 147
 148 #define SLIST_CATEGORIES \
 149         SLIST_CATEGORY(CAT_FAVORITED,    "",            "",             ZCTX(_("SLCAT^Favorites"))) \
 150         SLIST_CATEGORY(CAT_RECOMMENDED,  "",            "CAT_SERVERS",  ZCTX(_("SLCAT^Recommended"))) \
 151         SLIST_CATEGORY(CAT_NORMAL,       "",            "CAT_SERVERS",  ZCTX(_("SLCAT^Normal Servers"))) \
 152         SLIST_CATEGORY(CAT_SERVERS,      "CAT_NORMAL",  "CAT_SERVERS",  ZCTX(_("SLCAT^Servers"))) \
 153         SLIST_CATEGORY(CAT_XPM,          "CAT_NORMAL",  "CAT_SERVERS",  ZCTX(_("SLCAT^Competitive Mode"))) \
 154         SLIST_CATEGORY(CAT_MODIFIED,     "",            "CAT_SERVERS",  ZCTX(_("SLCAT^Modified Servers"))) \
 155         SLIST_CATEGORY(CAT_OVERKILL,     "",            "CAT_SERVERS",  ZCTX(_("SLCAT^Overkill Mode"))) \
 156         SLIST_CATEGORY(CAT_MINSTAGIB,    "",            "CAT_SERVERS",  ZCTX(_("SLCAT^MinstaGib Mode"))) \
 157         SLIST_CATEGORY(CAT_DEFRAG,       "",            "CAT_SERVERS",  ZCTX(_("SLCAT^Defrag Mode")))
 158
 159 #define SLIST_CATEGORY_AUTOCVAR(name) autocvar_menu_slist_categories_##name##_override
 160 #define SLIST_CATEGORY(name,enoverride,dioverride,str) \
 161         float name; \
 162         var string SLIST_CATEGORY_AUTOCVAR(name) = enoverride;
 163 SLIST_CATEGORIES
 164 #undef SLIST_CATEGORY
 165
 166 #endif
 167 #endif
 168 #ifdef IMPLEMENTATION
 169
 170 void RegisterSLCategories()
 171 {
 172         entity cat;
 173         #define SLIST_CATEGORY(name,enoverride,dioverride,str) \
 174                 SET_FIELD_COUNT(name, CATEGORY_FIRST, category_ent_count) \
 175                 CHECK_MAX_COUNT(name, MAX_CATEGORIES, category_ent_count, "SLIST_CATEGORY") \
 176                 cat = spawn(); \
 177                 categories[name - 1] = cat; \
 178                 cat.classname = "slist_category"; \
 179                 cat.cat_name = strzone(#name); \
 180                 cat.cat_enoverride_string = strzone(SLIST_CATEGORY_AUTOCVAR(name)); \
 181                 cat.cat_dioverride_string = strzone(dioverride); \
 182                 cat.cat_string = strzone(str);
 183         SLIST_CATEGORIES
 184         #undef SLIST_CATEGORY
 185
 186         float i, x, catnum;
 187         string s;
 188
 189         #define PROCESS_OVERRIDE(override_string,override_field) \
 190                 for(i = 0; i < category_ent_count; ++i) \
 191                 { \
 192                         s = categories[i].override_string; \
 193                         if((s != "") && (s != categories[i].cat_name)) \
 194                         { \
 195                                 catnum = 0; \
 196                                 for(x = 0; x < category_ent_count; ++x) \
 197                                 { if(categories[x].cat_name == s) { \
 198                                         catnum = (x+1); \
 199                                         break; \
 200                                 } } \
 201                                 if(catnum) \
 202                                 { \
 203                                         strunzone(categories[i].override_string); \
 204                                         categories[i].override_field = catnum; \
 205                                         continue; \
 206                                 } \
 207                                 else \
 208                                 { \
 209                                         print(sprintf( \
 210                                                 "RegisterSLCategories(): Improper override '%s' for category '%s'!\n", \
 211                                                 s, \
 212                                                 categories[i].cat_name \
 213                                         )); \
 214                                 } \
 215                         } \
 216                         strunzone(categories[i].override_string); \
 217                         categories[i].override_field = 0; \
 218                 }
 219         PROCESS_OVERRIDE(cat_enoverride_string, cat_enoverride)
 220         PROCESS_OVERRIDE(cat_dioverride_string, cat_dioverride)
 221         #undef PROCESS_OVERRIDE
 222 }
 223
 224 // Supporting Functions
 225 entity RetrieveCategoryEnt(float catnum)
 226 {
 227         if((catnum > 0) && (catnum <= category_ent_count))
 228         {
 229                 return categories[catnum - 1];
 230         }
 231         else
 232         {
 233                 error(sprintf("RetrieveCategoryEnt(%d): Improper category number!\n", catnum));
 234                 return world;
 235         }
 236 }
 237
 238 float IsServerInList(string list, string srv)
 239 {
 240         string p;
 241         float i, n;
 242         if(srv == "")
 243                 return FALSE;
 244         srv = netaddress_resolve(srv, 26000);
 245         if(srv == "")
 246                 return FALSE;
 247         p = crypto_getidfp(srv);
 248         n = tokenize_console(list);
 249         for(i = 0; i < n; ++i)
 250         {
 251                 if(substring(argv(i), 0, 1) != "[" && strlen(argv(i)) == 44 && strstrofs(argv(i), ".", 0) < 0)
 252                 {
 253                         if(p)
 254                                 if(argv(i) == p)
 255                                         return TRUE;
 256                 }
 257                 else
 258                 {
 259                         if(srv == netaddress_resolve(argv(i), 26000))
 260                                 return TRUE;
 261                 }
 262         }
 263         return FALSE;
 264 }
 265
 266 float CheckCategoryOverride(float cat)
 267 {
 268         entity catent = RetrieveCategoryEnt(cat);
 269         if(catent)
 270         {
 271                 float override = (autocvar_menu_slist_categories ? catent.cat_enoverride : catent.cat_dioverride);
 272                 if(override) { return override; }
 273                 else { return cat; }
 274         }
 275         else
 276         {
 277                 error(sprintf("CheckCategoryOverride(%d): Improper category number!\n", cat));
 278                 return cat;
 279         }
 280 }
 281
 282 float CheckCategoryForEntry(float entry)
 283 {
 284         string s, k, v, modtype = "";
 285         float j, m, impure = 0, freeslots = 0, sflags = 0;
 286         s = gethostcachestring(SLIST_FIELD_QCSTATUS, entry);
 287         m = tokenizebyseparator(s, ":");
 288
 289         for(j = 2; j < m; ++j)
 290         {
 291                 if(argv(j) == "") { break; }
 292                 k = substring(argv(j), 0, 1);
 293                 v = substring(argv(j), 1, -1);
 294                 switch(k)
 295                 {
 296                         case "P": { impure = stof(v); break; }
 297                         case "S": { freeslots = stof(v); break; }
 298                         case "F": { sflags = stof(v); break; }
 299                         case "M": { modtype = strtolower(v); break; }
 300                 }
 301         }
 302
 303         if(modtype != "xonotic") { impure += autocvar_menu_slist_modimpurity; }
 304
 305         // check if this server is favorited
 306         if(gethostcachenumber(SLIST_FIELD_ISFAVORITE, entry)) { return CAT_FAVORITED; }
 307
 308         // now check if it's recommended
 309         if(autocvar_menu_slist_recommendations)
 310         {
 311                 float recommended = 0;
 312                 if(autocvar_menu_slist_recommendations & 1)
 313                 {
 314                         if(IsRecommended(gethostcachestring(SLIST_FIELD_CNAME, entry)))
 315                                 { ++recommended; }
 316                         else
 317                                 { --recommended; }
 318                 }
 319                 if(autocvar_menu_slist_recommendations & 2)
 320                 {
 321                         if(
 322                                 (freeslots >= autocvar_menu_slist_recommendations_minfreeslots)
 323                                 &&
 324                                 (
 325                                         (autocvar_menu_slist_recommendations_purethreshold < 0)
 326                                         ||
 327                                         (impure <= autocvar_menu_slist_recommendations_purethreshold)
 328                                 )
 329                                 &&
 330                                 (
 331                                         gethostcachenumber(SLIST_FIELD_NUMHUMANS, entry)
 332                                         >=
 333                                         autocvar_menu_slist_recommendations_minhumans
 334                                 )
 335                                 &&
 336                                 (
 337                                         gethostcachenumber(SLIST_FIELD_PING, entry)
 338                                         <=
 339                                         autocvar_menu_slist_recommendations_maxping
 340                                 )
 341                         )
 342                                 { ++recommended; }
 343                         else
 344                                 { --recommended; }
 345                 }
 346                 if(recommended > 0) { return CAT_RECOMMENDED; }
 347         }
 348
 349         // if not favorited or recommended, check modname
 350         if(modtype != "xonotic")
 351         {
 352                 switch(modtype)
 353                 {
 354                         // old servers which don't report their mod name are considered modified now
 355                         case "": { return CAT_MODIFIED; }
 356
 357                         case "xpm": { return CAT_XPM; }
 358                         case "minstagib": { return CAT_MINSTAGIB; }
 359                         case "overkill": { return CAT_OVERKILL; }
 360                         //case "nix": { return CAT_NIX; }
 361                         //case "newtoys": { return CAT_NEWTOYS; }
 362
 363                         // "cts" is allowed as compat, xdf is replacement
 364                         case "cts":
 365                         case "xdf": { return CAT_DEFRAG; }
 366
 367                         default: { dprint(sprintf("Found strange mod type: %s\n", modtype)); return CAT_MODIFIED; }
 368                 }
 369         }
 370
 371         // must be normal or impure server
 372         return ((impure > autocvar_menu_slist_purethreshold) ? CAT_MODIFIED : CAT_NORMAL);
 373 }
 374
 375 float CheckItemNumber(float num)
 376 {
 377         float i, n;
 378
 379         if not(category_draw_count) { return num; } // there are no categories to process
 380
 381         for(i = 0, n = 1; n <= category_draw_count; ++i, ++n)
 382         {
 383                 if(category_item[i] == (num - i)) { return -category_name[i]; }
 384                 else if(n == category_draw_count) { return (num - n); }
 385                 else if((num - i) <= category_item[n]) { return (num - n); }
 386         }
 387
 388         // should never hit this point
 389         error(sprintf("CheckItemNumber(%d): Function fell through without normal return!\n", num));
 390         return FALSE;
 391 }
 392
 393 void XonoticServerList_toggleFavorite(entity me, string srv)
 394 {
 395         string s, s0, s1, s2, srv_resolved, p;
 396         float i, n, f;
 397         srv_resolved = netaddress_resolve(srv, 26000);
 398         p = crypto_getidfp(srv_resolved);
 399         s = cvar_string("net_slist_favorites");
 400         n = tokenize_console(s);
 401         f = 0;
 402         for(i = 0; i < n; ++i)
 403         {
 404                 if(substring(argv(i), 0, 1) != "[" && strlen(argv(i)) == 44 && strstrofs(argv(i), ".", 0) < 0)
 405                 {
 406                         if(p)
 407                                 if(argv(i) != p)
 408                                         continue;
 409                 }
 410                 else
 411                 {
 412                         if(srv_resolved != netaddress_resolve(argv(i), 26000))
 413                                 continue;
 414                 }
 415                 s0 = s1 = s2 = "";
 416                 if(i > 0)
 417                         s0 = substring(s, 0, argv_end_index(i - 1));
 418                 if(i < n-1)
 419                         s2 = substring(s, argv_start_index(i + 1), -1);
 420                 if(s0 != "" && s2 != "")
 421                         s1 = " ";
 422                 cvar_set("net_slist_favorites", strcat(s0, s1, s2));
 423                 s = cvar_string("net_slist_favorites");
 424                 n = tokenize_console(s);
 425                 f = 1;
 426                 --i;
 427         }
 428
 429         if(!f)
 430         {
 431                 s1 = "";
 432                 if(s != "")
 433                         s1 = " ";
 434                 if(p)
 435                         cvar_set("net_slist_favorites", strcat(s, s1, p));
 436                 else
 437                         cvar_set("net_slist_favorites", strcat(s, s1, srv));
 438         }
 439
 440         me.refreshServerList(me, REFRESHSERVERLIST_RESORT);
 441 }
 442
 443 void ServerList_Update_favoriteButton(entity btn, entity me)
 444 {
 445         me.favoriteButton.setText(me.favoriteButton,
 446                 (IsFavorite(me.ipAddressBox.text) ?
 447                         _("Remove") : _("Bookmark")
 448                 )
 449         );
 450 }
 451
 452 entity makeXonoticServerList()
 453 {
 454         entity me;
 455         me = spawnXonoticServerList();
 456         me.configureXonoticServerList(me);
 457         return me;
 458 }
 459 void XonoticServerList_configureXonoticServerList(entity me)
 460 {
 461         me.configureXonoticListBox(me);
 462
 463         // update field ID's
 464         #define SLIST_FIELD(suffix,name) SLIST_FIELD_##suffix = gethostcacheindexforkey(name);
 465         SLIST_FIELDS
 466         #undef SLIST_FIELD
 467
 468         // clear list
 469         me.nItems = 0;
 470 }
 471 void XonoticServerList_setSelected(entity me, float i)
 472 {
 473         // todo: add logic to skip categories
 474         float save, num;
 475         save = me.selectedItem;
 476         SUPER(XonoticServerList).setSelected(me, i);
 477         /*
 478         if(me.selectedItem == save)
 479                 return;
 480         */
 481         if(me.nItems == 0)
 482                 return;
 483
 484         //if(gethostcachevalue(SLIST_HOSTCACHEVIEWCOUNT) != CheckItemNumber(me.nItems))
 485         //      { error("^1XonoticServerList_setSelected(); ERROR: ^7Host cache viewcount mismatches nItems!\n"); return; } // sorry, it would be wrong
 486         // ^ todo: make this work somehow?
 487
 488         #define SET_SELECTED_SERVER(cachenum) \
 489                 if(me.selectedServer) { strunzone(me.selectedServer); } \
 490                 me.selectedServer = strzone(gethostcachestring(SLIST_FIELD_CNAME, cachenum)); \
 491                 me.ipAddressBox.setText(me.ipAddressBox, me.selectedServer); \
 492                 me.ipAddressBox.cursorPos = strlen(me.selectedServer); \
 493                 me.ipAddressBoxFocused = -1; \
 494                 return;
 495
 496         num = CheckItemNumber(me.selectedItem);
 497
 498         if(num >= 0) { SET_SELECTED_SERVER(num); }
 499         else if(save > me.selectedItem)
 500         {
 501                 if(me.selectedItem == 0) { return; }
 502                 else
 503                 {
 504                         if(me.lastClickedTime >= me.lastBumpSelectTime)
 505                         {
 506                                 SUPER(XonoticServerList).setSelected(me, me.selectedItem - 1);
 507                                 num = CheckItemNumber(me.selectedItem);
 508                                 if(num >= 0)
 509                                 {
 510                                         me.lastBumpSelectTime = time;
 511                                         SET_SELECTED_SERVER(num);
 512                                 }
 513                         }
 514                 }
 515         }
 516         else if(save < me.selectedItem)
 517         {
 518                 if(me.selectedItem == me.nItems) { return; }
 519                 else
 520                 {
 521                         if(me.lastClickedTime >= me.lastBumpSelectTime)
 522                         {
 523                                 SUPER(XonoticServerList).setSelected(me, me.selectedItem + 1);
 524                                 num = CheckItemNumber(me.selectedItem);
 525                                 if(num >= 0)
 526                                 {
 527                                         me.lastBumpSelectTime = time;
 528                                         SET_SELECTED_SERVER(num);
 529                                 }
 530                         }
 531                 }
 532         }
 533 }
 534
 535 void XonoticServerList_refreshServerList(entity me, float mode)
 536 {
 537         //print("refresh of type ", ftos(mode), "\n");
 538
 539         if(mode >= REFRESHSERVERLIST_REFILTER)
 540         {
 541                 float m, i, n;
 542                 float listflags = 0;
 543                 string s, typestr, modstr;
 544
 545                 s = me.filterString;
 546
 547                 m = strstrofs(s, ":", 0);
 548                 if(m >= 0)
 549                 {
 550                         typestr = substring(s, 0, m);
 551                         s = substring(s, m + 1, strlen(s) - m - 1);
 552                         while(substring(s, 0, 1) == " ")
 553                                 s = substring(s, 1, strlen(s) - 1);
 554                 }
 555                 else
 556                         typestr = "";
 557
 558                 modstr = cvar_string("menu_slist_modfilter");
 559
 560                 m = SLIST_MASK_AND - 1;
 561                 resethostcachemasks();
 562
 563                 // ping: reject negative ping (no idea why this happens in the first place, engine bug)
 564                 sethostcachemasknumber(++m, SLIST_FIELD_PING, 0, SLIST_TEST_GREATEREQUAL);
 565
 566                 // show full button
 567                 if(!me.filterShowFull)
 568                 {
 569                         sethostcachemasknumber(++m, SLIST_FIELD_FREESLOTS, 1, SLIST_TEST_GREATEREQUAL); // legacy
 570                         sethostcachemaskstring(++m, SLIST_FIELD_QCSTATUS, ":S0:", SLIST_TEST_NOTCONTAIN); // g_maxplayers support
 571                 }
 572
 573                 // show empty button
 574                 if(!me.filterShowEmpty)
 575                         sethostcachemasknumber(++m, SLIST_FIELD_NUMHUMANS, 1, SLIST_TEST_GREATEREQUAL);
 576
 577                 // gametype filtering
 578                 if(typestr != "")
 579                         sethostcachemaskstring(++m, SLIST_FIELD_QCSTATUS, strcat(typestr, ":"), SLIST_TEST_STARTSWITH);
 580
 581                 // mod filtering
 582                 if(modstr != "")
 583                 {
 584                         if(substring(modstr, 0, 1) == "!")
 585                                 sethostcachemaskstring(++m, SLIST_FIELD_MOD, resolvemod(substring(modstr, 1, strlen(modstr) - 1)), SLIST_TEST_NOTEQUAL);
 586                         else
 587                                 sethostcachemaskstring(++m, SLIST_FIELD_MOD, resolvemod(modstr), SLIST_TEST_EQUAL);
 588                 }
 589
 590                 // server banning
 591                 n = tokenizebyseparator(_Nex_ExtResponseSystem_BannedServers, " ");
 592                 for(i = 0; i < n; ++i)
 593                         if(argv(i) != "")
 594                                 sethostcachemaskstring(++m, SLIST_FIELD_CNAME, argv(i), SLIST_TEST_NOTSTARTSWITH);
 595
 596                 m = SLIST_MASK_OR - 1;
 597                 if(s != "")
 598                 {
 599                         sethostcachemaskstring(++m, SLIST_FIELD_NAME, s, SLIST_TEST_CONTAINS);
 600                         sethostcachemaskstring(++m, SLIST_FIELD_MAP, s, SLIST_TEST_CONTAINS);
 601                         sethostcachemaskstring(++m, SLIST_FIELD_PLAYERS, s, SLIST_TEST_CONTAINS);
 602                         sethostcachemaskstring(++m, SLIST_FIELD_QCSTATUS, strcat(s, ":"), SLIST_TEST_STARTSWITH);
 603                 }
 604
 605                 // sorting flags
 606                 //listflags |= SLSF_FAVORITES;
 607                 listflags |= SLSF_CATEGORIES;
 608                 if(me.currentSortOrder < 0) { listflags |= SLSF_DESCENDING; }
 609                 sethostcachesort(me.currentSortField, listflags);
 610         }
 611
 612         resorthostcache();
 613         if(mode >= REFRESHSERVERLIST_ASK)
 614                 refreshhostcache(mode >= REFRESHSERVERLIST_RESET);
 615 }
 616 void XonoticServerList_focusEnter(entity me)
 617 {
 618         if(time < me.nextRefreshTime)
 619         {
 620                 //print("sorry, no refresh yet\n");
 621                 return;
 622         }
 623         me.nextRefreshTime = time + 10;
 624         me.refreshServerList(me, REFRESHSERVERLIST_ASK);
 625 }
 626
 627 void XonoticServerList_draw(entity me)
 628 {
 629         float i, found, owned, num;
 630
 631         if(_Nex_ExtResponseSystem_BannedServersNeedsRefresh)
 632         {
 633                 if(!me.needsRefresh)
 634                         me.needsRefresh = 2;
 635                 _Nex_ExtResponseSystem_BannedServersNeedsRefresh = 0;
 636         }
 637
 638         if(_Nex_ExtResponseSystem_RecommendedServersNeedsRefresh)
 639         {
 640                 if(!me.needsRefresh)
 641                         me.needsRefresh = 3;
 642                 _Nex_ExtResponseSystem_RecommendedServersNeedsRefresh = 0;
 643         }
 644
 645         if(me.currentSortField == -1)
 646         {
 647                 me.setSortOrder(me, SLIST_FIELD_PING, +1);
 648                 me.refreshServerList(me, REFRESHSERVERLIST_RESET);
 649         }
 650         else if(me.needsRefresh == 1)
 651         {
 652                 me.needsRefresh = 2; // delay by one frame to make sure "slist" has been executed
 653         }
 654         else if(me.needsRefresh == 2)
 655         {
 656                 me.needsRefresh = 0;
 657                 me.refreshServerList(me, REFRESHSERVERLIST_REFILTER);
 658         }
 659         else if(me.needsRefresh == 3)
 660         {
 661                 me.needsRefresh = 0;
 662                 me.refreshServerList(me, REFRESHSERVERLIST_RESORT);
 663         }
 664
 665         owned = ((me.selectedServer == me.ipAddressBox.text) && (me.ipAddressBox.text != ""));
 666
 667         for(i = 0; i < category_draw_count; ++i) { category_name[i] = -1; category_item[i] = -1; }
 668         category_draw_count = 0;
 669
 670         if(autocvar_menu_slist_categories >= 0) // if less than 0, don't even draw a category heading for favorites
 671         {
 672                 float itemcount = gethostcachevalue(SLIST_HOSTCACHEVIEWCOUNT);
 673                 me.nItems = itemcount;
 674
 675                 //float visible = floor(me.scrollPos / me.itemHeight);
 676                 // ^ unfortunately no such optimization can be made-- we must process through the
 677                 // entire list, otherwise there is no way to know which item is first in its category.
 678
 679                 // binary search method suggested by div
 680                 float x;
 681                 float begin = 0;
 682                 for(x = 1; x <= category_ent_count; ++x) {
 683                         float first = begin;
 684                         float last = (itemcount - 1);
 685                         if (first > last) {
 686                                 // List is empty.
 687                                 break;
 688                         }
 689                         float catf = gethostcachenumber(SLIST_FIELD_CATEGORY, first);
 690                         float catl = gethostcachenumber(SLIST_FIELD_CATEGORY, last);
 691                         if (catf > x) {
 692                                 // The first one is already > x.
 693                                 // Therefore, category x does not exist.
 694                                 // Higher numbered categories do exist though.
 695                         } else if (catl < x) {
 696                                 // The last one is < x.
 697                                 // Thus this category - and any following -
 698                                 // don't exist.
 699                                 break;
 700                         } else if (catf == x) {
 701                                 // Starts at first. This breaks the loop
 702                                 // invariant in the binary search and thus has
 703                                 // to be handled separately.
 704                                 print(sprintf("hit: x='%d', dc='%d', first='%d', last='%d', catf='%d', catl='%d'.\n", x, category_draw_count, first, last, catf, catl));
 705                                 if(gethostcachenumber(SLIST_FIELD_CATEGORY, first) != x)
 706                                         error("Category mismatch I");
 707                                 if(first > 0)
 708                                         if(gethostcachenumber(SLIST_FIELD_CATEGORY, first - 1) == x)
 709                                                 error("Category mismatch II");
 710                                 category_name[category_draw_count] = x;
 711                                 category_item[category_draw_count] = first;
 712                                 ++category_draw_count;
 713                                 ++me.nItems;
 714                                 begin = first + 1;
 715                         } else {
 716                                 // At this point, catf <= x < catl, thus
 717                                 // catf < catl, thus first < last.
 718                                 // INVARIANTS:
 719                                 // last - first >= 1
 720                                 // catf == gethostcachenumber(SLIST_FIELD_CATEGORY(first)
 721                                 // catl == gethostcachenumber(SLIST_FIELD_CATEGORY(last)
 722                                 // catf < x
 723                                 // catl >= x
 724                                 while (last - first > 1) {
 725                                         float middle = floor((first + last) / 2);
 726                                         // By loop condition, middle != first && middle != last.
 727                                         float cat = gethostcachenumber(SLIST_FIELD_CATEGORY, middle);
 728                                         if (cat >= x) {
 729                                                 last = middle;
 730                                                 catl = cat;
 731                                         } else {
 732                                                 first = middle;
 733                                                 catf = cat;
 734                                         }
 735                                 }
 736                                 if (catl == x) {
 737                                         print(sprintf("hit: x='%d', dc='%d', first='%d', last='%d', catf='%d', catl='%d'.\n", x, category_draw_count, first, last, catf, catl));
 738                                         if(gethostcachenumber(SLIST_FIELD_CATEGORY, last) != x)
 739                                                 error("Category mismatch III");
 740                                         if(last > 0)
 741                                                 if(gethostcachenumber(SLIST_FIELD_CATEGORY, last - 1) == x)
 742                                                         error("Category mismatch IV");
 743                                         category_name[category_draw_count] = x;
 744                                         category_item[category_draw_count] = last;
 745                                         ++category_draw_count;
 746                                         ++me.nItems;
 747                                         begin = last + 1; // already scanned through these, skip 'em
 748                                 }
 749                                 else
 750                                         begin = last; // already scanned through these, skip 'em
 751                         }
 752                 }
 753
 754                 if(autocvar_menu_slist_categories_onlyifmultiple && (category_draw_count == 1))
 755                 {
 756                         category_name[0] = -1;
 757                         category_item[0] = -1;
 758                         category_draw_count = 0;
 759                         me.nItems = itemcount;
 760                 }
 761         }
 762         else { me.nItems = gethostcachevalue(SLIST_HOSTCACHEVIEWCOUNT); }
 763
 764         me.connectButton.disabled = ((me.nItems == 0) && (me.ipAddressBox.text == ""));
 765         me.infoButton.disabled = ((me.nItems == 0) || !owned);
 766         me.favoriteButton.disabled = ((me.nItems == 0) && (me.ipAddressBox.text == ""));
 767
 768         found = 0;
 769         if(me.selectedServer)
 770         {
 771                 for(i = 0; i < me.nItems; ++i)
 772                 {
 773                         num = CheckItemNumber(i);
 774                         if(num >= 0)
 775                         {
 776                                 if(gethostcachestring(SLIST_FIELD_CNAME, num) == me.selectedServer)
 777                                 {
 778                                         if(i != me.selectedItem)
 779                                         {
 780                                                 me.lastClickedServer = -1;
 781                                                 me.selectedItem = i;
 782                                         }
 783                                         found = 1;
 784                                         break;
 785                                 }
 786                         }
 787                 }
 788         }
 789         if(!found)
 790         {
 791                 if(me.nItems > 0)
 792                 {
 793                         if(me.selectedItem >= me.nItems) { me.selectedItem = me.nItems - 1; }
 794                         if(me.selectedServer) { strunzone(me.selectedServer); }
 795
 796                         num = CheckItemNumber(me.selectedItem);
 797                         if(num >= 0) { me.selectedServer = strzone(gethostcachestring(SLIST_FIELD_CNAME, num)); }
 798                 }
 799         }
 800
 801         if(owned)
 802         {
 803                 if(me.selectedServer != me.ipAddressBox.text)
 804                 {
 805                         me.ipAddressBox.setText(me.ipAddressBox, me.selectedServer);
 806                         me.ipAddressBox.cursorPos = strlen(me.selectedServer);
 807                         me.ipAddressBoxFocused = -1;
 808                 }
 809         }
 810
 811         if(me.ipAddressBoxFocused != me.ipAddressBox.focused)
 812         {
 813                 if(me.ipAddressBox.focused || me.ipAddressBoxFocused < 0)
 814                         ServerList_Update_favoriteButton(NULL, me);
 815                 me.ipAddressBoxFocused = me.ipAddressBox.focused;
 816         }
 817
 818         SUPER(XonoticServerList).draw(me);
 819 }
 820 void ServerList_PingSort_Click(entity btn, entity me)
 821 {
 822         me.setSortOrder(me, SLIST_FIELD_PING, +1);
 823 }
 824 void ServerList_NameSort_Click(entity btn, entity me)
 825 {
 826         me.setSortOrder(me, SLIST_FIELD_NAME, -1); // why?
 827 }
 828 void ServerList_MapSort_Click(entity btn, entity me)
 829 {
 830         me.setSortOrder(me, SLIST_FIELD_MAP, -1); // why?
 831 }
 832 void ServerList_PlayerSort_Click(entity btn, entity me)
 833 {
 834         me.setSortOrder(me, SLIST_FIELD_NUMHUMANS, -1);
 835 }
 836 void ServerList_TypeSort_Click(entity btn, entity me)
 837 {
 838         string s, t;
 839         float i, m;
 840         s = me.filterString;
 841         m = strstrofs(s, ":", 0);
 842         if(m >= 0)
 843         {
 844                 s = substring(s, 0, m);
 845                 while(substring(s, m+1, 1) == " ") // skip spaces
 846                         ++m;
 847         }
 848         else
 849                 s = "";
 850
 851         for(i = 1; ; i *= 2) // 20 modes ought to be enough for anyone
 852         {
 853                 t = MapInfo_Type_ToString(i);
 854                 if(i > 1)
 855                         if(t == "") // it repeats (default case)
 856                         {
 857                                 // no type was found
 858                                 // choose the first one
 859                                 s = MapInfo_Type_ToString(1);
 860                                 break;
 861                         }
 862                 if(s == t)
 863                 {
 864                         // the type was found
 865                         // choose the next one
 866                         s = MapInfo_Type_ToString(i * 2);
 867                         if(s == "")
 868                                 s = MapInfo_Type_ToString(1);
 869                         break;
 870                 }
 871         }
 872
 873         if(s != "")
 874                 s = strcat(s, ":");
 875         s = strcat(s, substring(me.filterString, m+1, strlen(me.filterString) - m - 1));
 876
 877         me.controlledTextbox.setText(me.controlledTextbox, s);
 878         me.controlledTextbox.keyDown(me.controlledTextbox, K_END, 0, 0);
 879         me.controlledTextbox.keyUp(me.controlledTextbox, K_END, 0, 0);
 880         //ServerList_Filter_Change(me.controlledTextbox, me);
 881 }
 882 void ServerList_Filter_Change(entity box, entity me)
 883 {
 884         if(me.filterString)
 885                 strunzone(me.filterString);
 886         if(box.text != "")
 887                 me.filterString = strzone(box.text);
 888         else
 889                 me.filterString = string_null;
 890         me.refreshServerList(me, REFRESHSERVERLIST_REFILTER);
 891
 892         me.ipAddressBox.setText(me.ipAddressBox, "");
 893         me.ipAddressBox.cursorPos = 0;
 894         me.ipAddressBoxFocused = -1;
 895 }
 896 void ServerList_Categories_Click(entity box, entity me)
 897 {
 898         box.setChecked(box, autocvar_menu_slist_categories = !autocvar_menu_slist_categories);
 899         me.refreshServerList(me, REFRESHSERVERLIST_RESORT);
 900
 901         me.ipAddressBox.setText(me.ipAddressBox, "");
 902         me.ipAddressBox.cursorPos = 0;
 903         me.ipAddressBoxFocused = -1;
 904 }
 905 void ServerList_ShowEmpty_Click(entity box, entity me)
 906 {
 907         box.setChecked(box, me.filterShowEmpty = !me.filterShowEmpty);
 908         me.refreshServerList(me, REFRESHSERVERLIST_REFILTER);
 909
 910         me.ipAddressBox.setText(me.ipAddressBox, "");
 911         me.ipAddressBox.cursorPos = 0;
 912         me.ipAddressBoxFocused = -1;
 913 }
 914 void ServerList_ShowFull_Click(entity box, entity me)
 915 {
 916         box.setChecked(box, me.filterShowFull = !me.filterShowFull);
 917         me.refreshServerList(me, REFRESHSERVERLIST_REFILTER);
 918
 919         me.ipAddressBox.setText(me.ipAddressBox, "");
 920         me.ipAddressBox.cursorPos = 0;
 921         me.ipAddressBoxFocused = -1;
 922 }
 923 void XonoticServerList_setSortOrder(entity me, float fld, float direction)
 924 {
 925         if(me.currentSortField == fld)
 926                 direction = -me.currentSortOrder;
 927         me.currentSortOrder = direction;
 928         me.currentSortField = fld;
 929         me.sortButton1.forcePressed = (fld == SLIST_FIELD_PING);
 930         me.sortButton2.forcePressed = (fld == SLIST_FIELD_NAME);
 931         me.sortButton3.forcePressed = (fld == SLIST_FIELD_MAP);
 932         me.sortButton4.forcePressed = 0;
 933         me.sortButton5.forcePressed = (fld == SLIST_FIELD_NUMHUMANS);
 934         me.selectedItem = 0;
 935         if(me.selectedServer)
 936                 strunzone(me.selectedServer);
 937         me.selectedServer = string_null;
 938         me.refreshServerList(me, REFRESHSERVERLIST_REFILTER);
 939 }
 940 void XonoticServerList_positionSortButton(entity me, entity btn, float theOrigin, float theSize, string theTitle, void(entity, entity) theFunc)
 941 {
 942         vector originInLBSpace, sizeInLBSpace;
 943         originInLBSpace = eY * (-me.itemHeight);
 944         sizeInLBSpace = eY * me.itemHeight + eX * (1 - me.controlWidth);
 945
 946         vector originInDialogSpace, sizeInDialogSpace;
 947         originInDialogSpace = boxToGlobal(originInLBSpace, me.Container_origin, me.Container_size);
 948         sizeInDialogSpace = boxToGlobalSize(sizeInLBSpace, me.Container_size);
 949
 950         btn.Container_origin_x = originInDialogSpace_x + sizeInDialogSpace_x * theOrigin;
 951         btn.Container_size_x   =                         sizeInDialogSpace_x * theSize;
 952         btn.setText(btn, theTitle);
 953         btn.onClick = theFunc;
 954         btn.onClickEntity = me;
 955         btn.resized = 1;
 956 }
 957 void XonoticServerList_resizeNotify(entity me, vector relOrigin, vector relSize, vector absOrigin, vector absSize)
 958 {
 959         SUPER(XonoticServerList).resizeNotify(me, relOrigin, relSize, absOrigin, absSize);
 960
 961         me.realFontSize_y = me.fontSize / (absSize_y * me.itemHeight);
 962         me.realFontSize_x = me.fontSize / (absSize_x * (1 - me.controlWidth));
 963         me.realUpperMargin = 0.5 * (1 - me.realFontSize_y);
 964
 965         me.columnIconsOrigin = 0;
 966         me.columnIconsSize = me.realFontSize_x * 4 * me.iconsSizeFactor;
 967         me.columnPingSize = me.realFontSize_x * 3;
 968         me.columnMapSize = me.realFontSize_x * 10;
 969         me.columnTypeSize = me.realFontSize_x * 4;
 970         me.columnPlayersSize = me.realFontSize_x * 5;
 971         me.columnNameSize = 1 - me.columnPlayersSize - me.columnMapSize - me.columnPingSize - me.columnIconsSize - me.columnTypeSize - 5 * me.realFontSize_x;
 972         me.columnPingOrigin = me.columnIconsOrigin + me.columnIconsSize + me.realFontSize_x;
 973         me.columnNameOrigin = me.columnPingOrigin + me.columnPingSize + me.realFontSize_x;
 974         me.columnMapOrigin = me.columnNameOrigin + me.columnNameSize + me.realFontSize_x;
 975         me.columnTypeOrigin = me.columnMapOrigin + me.columnMapSize + me.realFontSize_x;
 976         me.columnPlayersOrigin = me.columnTypeOrigin + me.columnTypeSize + me.realFontSize_x;
 977
 978         me.positionSortButton(me, me.sortButton1, me.columnPingOrigin, me.columnPingSize, _("Ping"), ServerList_PingSort_Click);
 979         me.positionSortButton(me, me.sortButton2, me.columnNameOrigin, me.columnNameSize, _("Host name"), ServerList_NameSort_Click);
 980         me.positionSortButton(me, me.sortButton3, me.columnMapOrigin, me.columnMapSize, _("Map"), ServerList_MapSort_Click);
 981         me.positionSortButton(me, me.sortButton4, me.columnTypeOrigin, me.columnTypeSize, _("Type"), ServerList_TypeSort_Click);
 982         me.positionSortButton(me, me.sortButton5, me.columnPlayersOrigin, me.columnPlayersSize, _("Players"), ServerList_PlayerSort_Click);
 983
 984         float f;
 985         f = me.currentSortField;
 986         if(f >= 0)
 987         {
 988                 me.currentSortField = -1;
 989                 me.setSortOrder(me, f, me.currentSortOrder); // force resetting the sort order
 990         }
 991 }
 992 void ServerList_Connect_Click(entity btn, entity me)
 993 {
 994         localcmd(sprintf("connect %s\n",
 995                 ((me.ipAddressBox.text != "") ?
 996                         me.ipAddressBox.text : me.selectedServer
 997                 )
 998         ));
 999 }
1000 void ServerList_Favorite_Click(entity btn, entity me)
1001 {
1002         string ipstr;
1003         ipstr = netaddress_resolve(me.ipAddressBox.text, 26000);
1004         if(ipstr != "")
1005         {
1006                 me.toggleFavorite(me, me.ipAddressBox.text);
1007                 me.ipAddressBoxFocused = -1;
1008         }
1009 }
1010 void ServerList_Info_Click(entity btn, entity me)
1011 {
1012         main.serverInfoDialog.loadServerInfo(main.serverInfoDialog, CheckItemNumber(me.selectedItem));
1013         DialogOpenButton_Click(me, main.serverInfoDialog);
1014 }
1015 void XonoticServerList_clickListBoxItem(entity me, float i, vector where)
1016 {
1017         float num = CheckItemNumber(i);
1018         if(num >= 0)
1019         {
1020                 if(num == me.lastClickedServer)
1021                         if(time < me.lastClickedTime + 0.3)
1022                         {
1023                                 // DOUBLE CLICK!
1024                                 ServerList_Connect_Click(NULL, me);
1025                         }
1026                 me.lastClickedServer = num;
1027                 me.lastClickedTime = time;
1028         }
1029 }
1030 void XonoticServerList_drawListBoxItem(entity me, float i, vector absSize, float isSelected)
1031 {
1032         // layout: Ping, Server name, Map name, NP, TP, MP
1033         float p, q;
1034         float isv4, isv6;
1035         vector theColor;
1036         float theAlpha;
1037         float m, pure, freeslots, j, sflags;
1038         string s, typestr, versionstr, k, v, modname;
1039
1040         float item = CheckItemNumber(i);
1041         //print(sprintf("time: %f, i: %d, item: %d, nitems: %d\n", time, i, item, me.nItems));
1042
1043         vector oldscale = draw_scale;
1044         vector oldshift = draw_shift;
1045 #define SET_YRANGE(start,end) \
1046         draw_scale = boxToGlobalSize(eX * 1 + eY * (end - start), oldscale); \
1047         draw_shift = boxToGlobal(eY * start, oldshift, oldscale);
1048
1049         if(item < 0)
1050         {
1051                 entity catent = RetrieveCategoryEnt(-item);
1052                 if(catent)
1053                 {
1054                         float delta = (1 - 1 / me.categoriesHeight);
1055                         SET_YRANGE(delta, 1); // bottom align
1056                         draw_Text(
1057                                 eY * me.realUpperMargin
1058                                 +
1059                                 eX * (me.columnNameOrigin + (me.columnNameSize - draw_TextWidth(catent.cat_string, 0, me.realFontSize)) * 0.5),
1060                                 catent.cat_string,
1061                                 me.realFontSize,
1062                                 '1 1 1',
1063                                 SKINALPHA_TEXT,
1064                                 0
1065                         );
1066                         SET_YRANGE(0, 1);
1067                         return;
1068                 }
1069         }
1070
1071         if(isSelected)
1072                 draw_Fill('0 0 0', '1 1 0', SKINCOLOR_LISTBOX_SELECTED, SKINALPHA_LISTBOX_SELECTED);
1073
1074         s = gethostcachestring(SLIST_FIELD_QCSTATUS, item);
1075         m = tokenizebyseparator(s, ":");
1076         typestr = "";
1077         if(m >= 2)
1078         {
1079                 typestr = argv(0);
1080                 versionstr = argv(1);
1081         }
1082         freeslots = -1;
1083         sflags = -1;
1084         modname = "";
1085         pure = 0;
1086         for(j = 2; j < m; ++j)
1087         {
1088                 if(argv(j) == "")
1089                         break;
1090                 k = substring(argv(j), 0, 1);
1091                 v = substring(argv(j), 1, -1);
1092                 if(k == "P")
1093                         pure = stof(v);
1094                 else if(k == "S")
1095                         freeslots = stof(v);
1096                 else if(k == "F")
1097                         sflags = stof(v);
1098                 else if(k == "M")
1099                         modname = v;
1100         }
1101
1102 #ifdef COMPAT_NO_MOD_IS_XONOTIC
1103         if(modname == "")
1104                 modname = "Xonotic";
1105 #endif
1106
1107         /*
1108         SLIST_FIELD_MOD = gethostcacheindexforkey("mod");
1109         s = gethostcachestring(SLIST_FIELD_MOD, item);
1110         if(s != "data")
1111                 if(modname == "Xonotic")
1112                         modname = s;
1113         */
1114
1115         // list the mods here on which the pure server check actually works
1116         if(modname != "Xonotic")
1117         if(modname != "MinstaGib")
1118         if(modname != "CTS")
1119         if(modname != "NIX")
1120         if(modname != "NewToys")
1121                 pure = 0;
1122
1123         if(gethostcachenumber(SLIST_FIELD_FREESLOTS, item) <= 0)
1124                 theAlpha = SKINALPHA_SERVERLIST_FULL;
1125         else if(freeslots == 0)
1126                 theAlpha = SKINALPHA_SERVERLIST_FULL; // g_maxplayers support
1127         else if not(gethostcachenumber(SLIST_FIELD_NUMHUMANS, item))
1128                 theAlpha = SKINALPHA_SERVERLIST_EMPTY;
1129         else
1130                 theAlpha = 1;
1131
1132         p = gethostcachenumber(SLIST_FIELD_PING, item);
1133 #define PING_LOW 75
1134 #define PING_MED 200
1135 #define PING_HIGH 500
1136         if(p < PING_LOW)
1137                 theColor = SKINCOLOR_SERVERLIST_LOWPING + (SKINCOLOR_SERVERLIST_MEDPING - SKINCOLOR_SERVERLIST_LOWPING) * (p / PING_LOW);
1138         else if(p < PING_MED)
1139                 theColor = SKINCOLOR_SERVERLIST_MEDPING + (SKINCOLOR_SERVERLIST_HIGHPING - SKINCOLOR_SERVERLIST_MEDPING) * ((p - PING_LOW) / (PING_MED - PING_LOW));
1140         else if(p < PING_HIGH)
1141         {
1142                 theColor = SKINCOLOR_SERVERLIST_HIGHPING;
1143                 theAlpha *= 1 + (SKINALPHA_SERVERLIST_HIGHPING - 1) * ((p - PING_MED) / (PING_HIGH - PING_MED));
1144         }
1145         else
1146         {
1147                 theColor = eX;
1148                 theAlpha *= SKINALPHA_SERVERLIST_HIGHPING;
1149         }
1150
1151         if(gethostcachenumber(SLIST_FIELD_ISFAVORITE, item))
1152         {
1153                 theColor = theColor * (1 - SKINALPHA_SERVERLIST_FAVORITE) + SKINCOLOR_SERVERLIST_FAVORITE * SKINALPHA_SERVERLIST_FAVORITE;
1154                 theAlpha = theAlpha * (1 - SKINALPHA_SERVERLIST_FAVORITE) + SKINALPHA_SERVERLIST_FAVORITE;
1155         }
1156
1157         s = gethostcachestring(SLIST_FIELD_CNAME, item);
1158
1159         isv4 = isv6 = 0;
1160         if(substring(s, 0, 1) == "[")
1161         {
1162                 isv6 = 1;
1163                 me.seenIPv6 += 1;
1164         }
1165         else if(strstrofs("0123456789", substring(s, 0, 1), 0) >= 0)
1166         {
1167                 isv4 = 1;
1168                 me.seenIPv4 += 1;
1169         }
1170
1171         q = stof(substring(crypto_getencryptlevel(s), 0, 1));
1172         if((q <= 0 && cvar("crypto_aeslevel") >= 3) || (q >= 3 && cvar("crypto_aeslevel") <= 0))
1173         {
1174                 theColor = SKINCOLOR_SERVERLIST_IMPOSSIBLE;
1175                 theAlpha = SKINALPHA_SERVERLIST_IMPOSSIBLE;
1176         }
1177
1178         if(q == 1)
1179         {
1180                 if(cvar("crypto_aeslevel") >= 2)
1181                         q |= 4;
1182         }
1183         if(q == 2)
1184         {
1185                 if(cvar("crypto_aeslevel") >= 1)
1186                         q |= 4;
1187         }
1188         if(q == 3)
1189                 q = 5;
1190         else if(q >= 3)
1191                 q -= 2;
1192         // possible status:
1193         // 0: crypto off
1194         // 1: AES possible
1195         // 2: AES recommended but not available
1196         // 3: AES possible and will be used
1197         // 4: AES recommended and will be used
1198         // 5: AES required
1199
1200         // --------------
1201         //  RENDER ICONS
1202         // --------------
1203         vector iconSize = '0 0 0';
1204         iconSize_y = me.realFontSize_y * me.iconsSizeFactor;
1205         iconSize_x = me.realFontSize_x * me.iconsSizeFactor;
1206
1207         vector iconPos = '0 0 0';
1208         iconPos_x = (me.columnIconsSize - 3 * iconSize_x) * 0.5;
1209         iconPos_y = (1 - iconSize_y) * 0.5;
1210
1211         string n;
1212
1213         if not(me.seenIPv4 && me.seenIPv6)
1214         {
1215                 iconPos_x += iconSize_x * 0.5;
1216         }
1217         else if(me.seenIPv4 && me.seenIPv6)
1218         {
1219                 n = string_null;
1220                 if(isv6)
1221                         draw_PreloadPictureWithFlags(n = strcat(SKINGFX_SERVERLIST_ICON, "_ipv6"), 0); // PRECACHE_PIC_MIPMAP
1222                 else if(isv4)
1223                         draw_PreloadPictureWithFlags(n = strcat(SKINGFX_SERVERLIST_ICON, "_ipv4"), 0); // PRECACHE_PIC_MIPMAP
1224                 if(n)
1225                         draw_Picture(iconPos, n, iconSize, '1 1 1', 1);
1226                 iconPos_x += iconSize_x;
1227         }
1228
1229         if(q > 0)
1230         {
1231                 draw_PreloadPictureWithFlags(n = strcat(SKINGFX_SERVERLIST_ICON, "_aeslevel", ftos(q)), 0); // PRECACHE_PIC_MIPMAP
1232                 draw_Picture(iconPos, n, iconSize, '1 1 1', 1);
1233         }
1234         iconPos_x += iconSize_x;
1235
1236         if(modname == "Xonotic")
1237         {
1238                 if(pure == 0)
1239                 {
1240                         draw_PreloadPictureWithFlags(n = strcat(SKINGFX_SERVERLIST_ICON, "_pure1"), PRECACHE_PIC_MIPMAP);
1241                         draw_Picture(iconPos, n, iconSize, '1 1 1', 1);
1242                 }
1243         }
1244         else
1245         {
1246                 draw_PreloadPictureWithFlags(n = strcat(SKINGFX_SERVERLIST_ICON, "_mod_", modname), PRECACHE_PIC_MIPMAP);
1247                 if(draw_PictureSize(n) == '0 0 0')
1248                         draw_PreloadPictureWithFlags(n = strcat(SKINGFX_SERVERLIST_ICON, "_mod_"), PRECACHE_PIC_MIPMAP);
1249                 if(pure == 0)
1250                         draw_Picture(iconPos, n, iconSize, '1 1 1', 1);
1251                 else
1252                         draw_Picture(iconPos, n, iconSize, '1 1 1', SKINALPHA_SERVERLIST_ICON_NONPURE);
1253         }
1254         iconPos_x += iconSize_x;
1255
1256         if(sflags >= 0 && (sflags & SERVERFLAG_PLAYERSTATS))
1257         {
1258                 draw_PreloadPictureWithFlags(n = strcat(SKINGFX_SERVERLIST_ICON, "_stats1"), 0); // PRECACHE_PIC_MIPMAP
1259                 draw_Picture(iconPos, n, iconSize, '1 1 1', 1);
1260         }
1261         iconPos_x += iconSize_x;
1262
1263         // --------------
1264         //  RENDER TEXT
1265         // --------------
1266
1267         // ping
1268         s = ftos(p);
1269         draw_Text(me.realUpperMargin * eY + (me.columnPingOrigin + me.columnPingSize - draw_TextWidth(s, 0, me.realFontSize)) * eX, s, me.realFontSize, theColor, theAlpha, 0);
1270
1271         // server name
1272         s = draw_TextShortenToWidth(gethostcachestring(SLIST_FIELD_NAME, item), me.columnNameSize, 0, me.realFontSize);
1273         draw_Text(me.realUpperMargin * eY + me.columnNameOrigin * eX, s, me.realFontSize, theColor, theAlpha, 0);
1274
1275         // server map
1276         s = draw_TextShortenToWidth(gethostcachestring(SLIST_FIELD_MAP, item), me.columnMapSize, 0, me.realFontSize);
1277         draw_Text(me.realUpperMargin * eY + (me.columnMapOrigin + (me.columnMapSize - draw_TextWidth(s, 0, me.realFontSize)) * 0.5) * eX, s, me.realFontSize, theColor, theAlpha, 0);
1278
1279         // server gametype
1280         s = draw_TextShortenToWidth(typestr, me.columnTypeSize, 0, me.realFontSize);
1281         draw_Text(me.realUpperMargin * eY + (me.columnTypeOrigin + (me.columnTypeSize - draw_TextWidth(s, 0, me.realFontSize)) * 0.5) * eX, s, me.realFontSize, theColor, theAlpha, 0);
1282
1283         // server playercount
1284         s = strcat(ftos(gethostcachenumber(SLIST_FIELD_NUMHUMANS, item)), "/", ftos(gethostcachenumber(SLIST_FIELD_MAXPLAYERS, item)));
1285         draw_Text(me.realUpperMargin * eY + (me.columnPlayersOrigin + (me.columnPlayersSize - draw_TextWidth(s, 0, me.realFontSize)) * 0.5) * eX, s, me.realFontSize, theColor, theAlpha, 0);
1286 }
1287
1288 float XonoticServerList_keyDown(entity me, float scan, float ascii, float shift)
1289 {
1290         float i = CheckItemNumber(me.selectedItem);
1291         vector org, sz;
1292
1293         org = boxToGlobal(eY * (me.selectedItem * me.itemHeight - me.scrollPos), me.origin, me.size);
1294         sz = boxToGlobalSize(eY * me.itemHeight + eX * (1 - me.controlWidth), me.size);
1295
1296         me.lastBumpSelectTime = 0;
1297
1298         if(scan == K_ENTER || scan == K_KP_ENTER)
1299         {
1300                 ServerList_Connect_Click(NULL, me);
1301                 return 1;
1302         }
1303         else if(scan == K_MOUSE2 || scan == K_SPACE)
1304         {
1305                 if((me.nItems != 0) && (i >= 0))
1306                 {
1307                         main.serverInfoDialog.loadServerInfo(main.serverInfoDialog, i);
1308                         DialogOpenButton_Click_withCoords(me, main.serverInfoDialog, org, sz);
1309                         return 1;
1310                 }
1311                 return 0;
1312         }
1313         else if(scan == K_INS || scan == K_MOUSE3 || scan == K_KP_INS)
1314         {
1315                 if((me.nItems != 0) && (i >= 0))
1316                 {
1317                         me.toggleFavorite(me, me.selectedServer);
1318                         me.ipAddressBoxFocused = -1;
1319                         return 1;
1320                 }
1321                 return 0;
1322         }
1323         else if(SUPER(XonoticServerList).keyDown(me, scan, ascii, shift))
1324                 return 1;
1325         else if(!me.controlledTextbox)
1326                 return 0;
1327         else
1328                 return me.controlledTextbox.keyDown(me.controlledTextbox, scan, ascii, shift);
1329 }
1330
1331 float XonoticServerList_getTotalHeight(entity me) {
1332         float height_of_normal_rows = me.nItems - category_draw_count;
1333         float height_of_category_headers = me.categoriesHeight * category_draw_count;
1334         return me.itemHeight * (height_of_normal_rows + height_of_category_headers);
1335 }
1336 float XonoticServerList_getItemAtPos(entity me, float pos) {
1337         float i;
1338         float ret;
1339         pos = pos / me.itemHeight;
1340         ret = floor(pos);
1341         for (i = 0; i < category_draw_count; ++i) {
1342                 float first = i + category_item[i];
1343                 float firstPos = i * me.categoriesHeight + category_item[i];
1344                 if (pos >= firstPos)
1345                         ret = first;
1346                 if (pos >= firstPos + me.categoriesHeight)
1347                         ret = first + 1 + floor(pos - firstPos - me.categoriesHeight);
1348         }
1349         return ret;
1350 }
1351 float XonoticServerList_getItemStart(entity me, float item) {
1352         float i;
1353         float start = item;
1354         for (i = 0; i < category_draw_count; ++i) {
1355                 float first = i + category_item[i];
1356                 if (item >= first)
1357                         start += me.categoriesHeight - 1;
1358         }
1359         return me.itemHeight * start;
1360 }
1361 float XonoticServerList_getItemHeight(entity me, float item) {
1362         float i;
1363         for (i = 0; i < category_draw_count; ++i) {
1364                 float first = i + category_item[i];
1365                 if (item == first)
1366                         return me.itemHeight * me.categoriesHeight;
1367         }
1368         return me.itemHeight;
1369 }
1370
1371 #endif