qcsrc/client/miscfunctions.qc

   1 #include "miscfunctions.qh"
   2
   3 #include "hud.qh"
   4
   5 #include "../common/command/generic.qh"
   6
   7 #include "../common/teams.qh"
   8
   9 #include "../lib/csqcmodel/cl_model.qh"
  10
  11
  12 void AuditLists()
  13 {
  14         entity e;
  15         entity prev;
  16
  17         prev = players;
  18         for(e = prev.sort_next; e; prev = e, e = e.sort_next)
  19         {
  20                 if(prev != e.sort_prev)
  21                         error(strcat("sort list chain error\nplease submit the output of 'prvm_edicts client' to the developers"));
  22         }
  23
  24         prev = teams;
  25         for(e = prev.sort_next; e; prev = e, e = e.sort_next)
  26         {
  27                 if(prev != e.sort_prev)
  28                         error(strcat("sort list chain error\nplease submit the output of 'prvm_edicts client' to the developers"));
  29         }
  30 }
  31
  32
  33 float RegisterPlayer(entity player)
  34 {
  35         entity pl;
  36         AuditLists();
  37         for(pl = players.sort_next; pl; pl = pl.sort_next)
  38                 if(pl == player)
  39                         error("Player already registered!");
  40         player.sort_next = players.sort_next;
  41         player.sort_prev = players;
  42         if(players.sort_next)
  43                 players.sort_next.sort_prev = player;
  44         players.sort_next = player;
  45         AuditLists();
  46         return true;
  47 }
  48
  49 void RemovePlayer(entity player)
  50 {
  51         entity pl, parent;
  52         AuditLists();
  53         parent = players;
  54         for(pl = players.sort_next; pl && pl != player; pl = pl.sort_next)
  55                 parent = pl;
  56
  57         if(!pl)
  58         {
  59                 error("Trying to remove a player which is not in the playerlist!");
  60                 return;
  61         }
  62         parent.sort_next = player.sort_next;
  63         if(player.sort_next)
  64                 player.sort_next.sort_prev = parent;
  65         AuditLists();
  66 }
  67
  68 void MoveToLast(entity e)
  69 {
  70         AuditLists();
  71         other = e.sort_next;
  72         while(other)
  73         {
  74                 SORT_SWAP(other, e);
  75                 other = e.sort_next;
  76         }
  77         AuditLists();
  78 }
  79
  80 float RegisterTeam(entity Team)
  81 {
  82         entity tm;
  83         AuditLists();
  84         for(tm = teams.sort_next; tm; tm = tm.sort_next)
  85                 if(tm == Team)
  86                         error("Team already registered!");
  87         Team.sort_next = teams.sort_next;
  88         Team.sort_prev = teams;
  89         if(teams.sort_next)
  90                 teams.sort_next.sort_prev = Team;
  91         teams.sort_next = Team;
  92         if(Team.team && Team.team != NUM_SPECTATOR)
  93                 ++team_count;
  94         AuditLists();
  95         return true;
  96 }
  97
  98 void RemoveTeam(entity Team)
  99 {
 100         entity tm, parent;
 101         AuditLists();
 102         parent = teams;
 103         for(tm = teams.sort_next; tm && tm != Team; tm = tm.sort_next)
 104                 parent = tm;
 105
 106         if(!tm)
 107         {
 108                 LOG_INFO(_("Trying to remove a team which is not in the teamlist!"));
 109                 return;
 110         }
 111         parent.sort_next = Team.sort_next;
 112         if(Team.sort_next)
 113                 Team.sort_next.sort_prev = parent;
 114         if(Team.team && Team.team != NUM_SPECTATOR)
 115                 --team_count;
 116         AuditLists();
 117 }
 118
 119 entity GetTeam(int Team, bool add)
 120 {
 121         int num = (Team == NUM_SPECTATOR) ? 16 : Team;
 122         if(teamslots[num])
 123                 return teamslots[num];
 124         if (!add)
 125                 return world;
 126         entity tm = new(team);
 127         make_pure(tm);
 128         tm.team = Team;
 129         teamslots[num] = tm;
 130         RegisterTeam(tm);
 131         return tm;
 132 }
 133
 134 vector HUD_GetFontsize(string cvarname)
 135 {
 136         vector v;
 137         v = stov(cvar_string(cvarname));
 138         if(v.x == 0)
 139                 v = '8 8 0';
 140         if(v.y == 0)
 141                 v.y = v.x;
 142         v.z = 0;
 143         return v;
 144 }
 145
 146 float PreviewExists(string name)
 147 {
 148         if(autocvar_cl_readpicture_force)
 149                 return false;
 150
 151         if (fexists(strcat(name, ".tga"))) return true;
 152         if (fexists(strcat(name, ".png"))) return true;
 153         if (fexists(strcat(name, ".jpg"))) return true;
 154         if (fexists(strcat(name, ".pcx"))) return true;
 155
 156         return false;
 157 }
 158
 159 vector rotate(vector v, float a)
 160 {
 161         vector w = '0 0 0';
 162         // FTEQCC SUCKS AGAIN
 163         w.x =      v.x * cos(a) + v.y * sin(a);
 164         w.y = -1 * v.x * sin(a) + v.y * cos(a);
 165         return w;
 166 }
 167
 168 // decolorizes and team colors the player name when needed
 169 string playername(string thename, float teamid)
 170 {
 171     string t;
 172     if (teamplay)
 173     {
 174         t = Team_ColorCode(teamid);
 175         return strcat(t, strdecolorize(thename));
 176     }
 177     else
 178         return strdecolorize(thename);
 179 }
 180
 181 float cvar_or(string cv, float v)
 182 {
 183         string s;
 184         s = cvar_string(cv);
 185         if(s == "")
 186                 return v;
 187         else
 188                 return stof(s);
 189 }
 190
 191 vector project_3d_to_2d(vector vec)
 192 {
 193         vec = cs_project(vec);
 194         if(cs_project_is_b0rked > 0)
 195         {
 196                 vec.x *= vid_conwidth / vid_width;
 197                 vec.y *= vid_conheight / vid_height;
 198         }
 199         return vec;
 200 }
 201
 202 void dummyfunction(float a1, float a2, float a3, float a4, float a5, float a6, float a7, float a8)
 203 {
 204 }
 205
 206 float expandingbox_sizefactor_from_fadelerp(float fadelerp)
 207 {
 208         return 1.2 / (1.2 - fadelerp);
 209 }
 210
 211 vector expandingbox_resize_centered_box_offset(float sz, vector boxsize, float boxxsizefactor)
 212 {
 213         boxsize.x *= boxxsizefactor; // easier interface for text
 214         return boxsize * (0.5 * (1 - sz));
 215 }
 216
 217 void drawborderlines(float thickness, vector pos, vector dim, vector color, float theAlpha, float drawflag)
 218 {
 219         vector line_dim = '0 0 0';
 220
 221         // left and right lines
 222         pos.x -= thickness;
 223         line_dim.x = thickness;
 224         line_dim.y = dim.y;
 225         drawfill(pos, line_dim, color, theAlpha, drawflag);
 226         drawfill(pos + (dim.x + thickness) * '1 0 0', line_dim, color, theAlpha, drawflag);
 227
 228         // upper and lower lines
 229         pos.y -= thickness;
 230         line_dim.x = dim.x + thickness * 2; // make upper and lower lines longer
 231         line_dim.y = thickness;
 232         drawfill(pos, line_dim, color, theAlpha, drawflag);
 233         drawfill(pos + (dim.y + thickness) * '0 1 0', line_dim, color, theAlpha, drawflag);
 234 }
 235
 236 void drawpic_tiled(vector pos, string pic, vector sz, vector area, vector color, float theAlpha, float drawflag)
 237 {
 238         vector current_pos = '0 0 0', end_pos, new_size = '0 0 0', ratio = '0 0 0';
 239         end_pos = pos + area;
 240
 241         current_pos.y = pos.y;
 242         while (current_pos.y < end_pos.y)
 243         {
 244                 current_pos.x = pos.x;
 245                 while (current_pos.x < end_pos.x)
 246                 {
 247                         new_size.x = min(sz.x, end_pos.x - current_pos.x);
 248                         new_size.y = min(sz.y, end_pos.y - current_pos.y);
 249                         ratio.x = new_size.x / sz.x;
 250                         ratio.y = new_size.y / sz.y;
 251                         drawsubpic(current_pos, new_size, pic, '0 0 0', ratio, color, theAlpha, drawflag);
 252                         current_pos.x += sz.x;
 253                 }
 254                 current_pos.y += sz.y;
 255         }
 256 }
 257
 258 void drawpic_aspect_skin_expanding(vector position, string pic, vector theScale, vector rgb, float theAlpha, float flag, float fadelerp)
 259 {
 260         float sz;
 261         sz = expandingbox_sizefactor_from_fadelerp(fadelerp);
 262
 263         drawpic_aspect_skin(position + expandingbox_resize_centered_box_offset(sz, theScale, 1), pic, theScale * sz, rgb, theAlpha * (1 - fadelerp), flag);
 264 }
 265
 266 void drawpic_aspect_skin_expanding_two(vector position, string pic, vector theScale, vector rgb, float theAlpha, float flag, float fadelerp)
 267 {
 268         drawpic_aspect_skin_expanding(position, pic, theScale, rgb, theAlpha, flag, fadelerp);
 269         drawpic_skin(position, pic, theScale, rgb, theAlpha * fadelerp, flag);
 270 }
 271
 272 // drawstring wrapper to draw a string as large as possible with preserved aspect ratio into a box
 273 void drawstring_aspect(vector pos, string text, vector sz, vector color, float theAlpha, float drawflag) {
 274         SET_POS_AND_SZ_Y_ASPECT(false);
 275         drawstring(pos, text, '1 1 0' * sz.y, color, theAlpha, drawflag);
 276 }
 277
 278 // drawstring wrapper to draw a colorcodedstring as large as possible with preserved aspect ratio into a box
 279 void drawcolorcodedstring_aspect(vector pos, string text, vector sz, float theAlpha, float drawflag) {
 280         SET_POS_AND_SZ_Y_ASPECT(true);
 281         drawcolorcodedstring(pos, text, '1 1 0' * sz.y, theAlpha, drawflag);
 282 }
 283
 284 void drawstring_expanding(vector position, string text, vector theScale, vector rgb, float theAlpha, float flag, float fadelerp)
 285 {
 286         float sz;
 287         sz = expandingbox_sizefactor_from_fadelerp(fadelerp);
 288
 289         drawfontscale = sz * '1 1 0';
 290         dummyfunction(0, 0, 0, 0, 0, 0, 0, 0);
 291         drawstring(position + expandingbox_resize_centered_box_offset(sz, theScale, stringwidth(text, false, theScale * (sz / drawfontscale.x)) / (theScale.x * sz)), text, theScale * (sz / drawfontscale.x), rgb, theAlpha * (1 - fadelerp), flag);
 292         // width parameter:
 293         //    (scale_x * sz / drawfontscale_x) * drawfontscale_x * SIZE1 / (scale_x * sz)
 294         //    SIZE1
 295         drawfontscale = '1 1 0';
 296 }
 297
 298 // drawstring wrapper to draw a string as large as possible with preserved aspect ratio into a box
 299 void drawstring_aspect_expanding(vector pos, string text, vector sz, vector color, float theAlpha, float drawflag, float fadelerp) {
 300         SET_POS_AND_SZ_Y_ASPECT(false);
 301         drawstring_expanding(pos, text, '1 1 0' * sz.y, color, theAlpha, drawflag, fadelerp);
 302 }
 303
 304 void drawcolorcodedstring_expanding(vector position, string text, vector theScale, float theAlpha, float flag, float fadelerp)
 305 {
 306         float sz;
 307         sz = expandingbox_sizefactor_from_fadelerp(fadelerp);
 308
 309         drawfontscale = sz * '1 1 0';
 310         dummyfunction(0, 0, 0, 0, 0, 0, 0, 0);
 311         drawcolorcodedstring(position + expandingbox_resize_centered_box_offset(sz, theScale, stringwidth(text, true, theScale * (sz / drawfontscale.x)) / (theScale.x * sz)), text, theScale * (sz / drawfontscale.x), theAlpha * (1 - fadelerp), flag);
 312         drawfontscale = '1 1 0';
 313 }
 314
 315 void drawcolorcodedstring_aspect_expanding(vector pos, string text, vector sz, float theAlpha, float drawflag, float fadelerp) {
 316         SET_POS_AND_SZ_Y_ASPECT(true);
 317         drawcolorcodedstring_expanding(pos, text, '1 1 0' * sz.y, theAlpha, drawflag, fadelerp);
 318 }
 319
 320 // this draws the triangles of a model DIRECTLY. Don't expect high performance, really...
 321 float PolyDrawModelSurface(entity e, float i_s)
 322 {
 323         float i_t;
 324         float n_t;
 325         vector tri;
 326         string tex;
 327         tex = getsurfacetexture(e, i_s);
 328         if (!tex)
 329                 return 0; // this is beyond the last one
 330         n_t = getsurfacenumtriangles(e, i_s);
 331         for(i_t = 0; i_t < n_t; ++i_t)
 332         {
 333                 tri = getsurfacetriangle(e, i_s, i_t);
 334                 R_BeginPolygon(tex, 0);
 335                 R_PolygonVertex(getsurfacepoint(e, i_s, tri.x), getsurfacepointattribute(e, i_s, tri.x, SPA_TEXCOORDS0), '1 1 1', 1);
 336                 R_PolygonVertex(getsurfacepoint(e, i_s, tri.y), getsurfacepointattribute(e, i_s, tri.y, SPA_TEXCOORDS0), '1 1 1', 1);
 337                 R_PolygonVertex(getsurfacepoint(e, i_s, tri.z), getsurfacepointattribute(e, i_s, tri.z, SPA_TEXCOORDS0), '1 1 1', 1);
 338                 R_EndPolygon();
 339         }
 340         return 1;
 341 }
 342 void PolyDrawModel(entity e)
 343 {
 344         float i_s;
 345         for(i_s = 0; ; ++i_s)
 346                 if(!PolyDrawModelSurface(e, i_s))
 347                         break;
 348 }
 349
 350 void DrawCircleClippedPic(vector centre, float radi, string pic, float f, vector rgb, float a, float drawflag)
 351 {
 352         float x, y, q, d;
 353         vector ringsize, v, t;
 354         ringsize = radi * '1 1 0';
 355
 356         x = cos(f * 2 * M_PI);
 357         y = sin(f * 2 * M_PI);
 358         q = fabs(x) + fabs(y);
 359         x /= q;
 360         y /= q;
 361
 362         if(f >= 1)
 363         {
 364                 // draw full rectangle
 365                 R_BeginPolygon(pic, drawflag);
 366                         v = centre;                     t = '0.5 0.5 0';
 367                         v.x += 0.5 * ringsize.x;        t += '0.5 0.5 0';
 368                         R_PolygonVertex(v, t, rgb, a);
 369
 370                         v = centre;                     t = '0.5 0.5 0';
 371                         v.y += 0.5 * ringsize.y;        t += '0.5 -0.5 0';
 372                         R_PolygonVertex(v, t, rgb, a);
 373
 374                         v = centre;                     t = '0.5 0.5 0';
 375                         v.x -= 0.5 * ringsize.x;        t -= '0.5 0.5 0';
 376                         R_PolygonVertex(v, t, rgb, a);
 377
 378                         v = centre;                     t = '0.5 0.5 0';
 379                         v.y -= 0.5 * ringsize.y;        t -= '0.5 -0.5 0';
 380                         R_PolygonVertex(v, t, rgb, a);
 381                 R_EndPolygon();
 382
 383                 d = q - 1;
 384                 if(d > 0)
 385                 {
 386                         R_BeginPolygon(pic, drawflag);
 387                                 v = centre;                     t = '0.5 0.5 0';
 388                                 R_PolygonVertex(v, t, rgb, a);
 389
 390                                 v = centre;                     t = '0.5 0.5 0';
 391                                 v.x += 0.5 * ringsize.x;        t += '0.5 0.5 0';
 392                                 R_PolygonVertex(v, t, rgb, a);
 393                 }
 394         }
 395         else if(f > 0.75)
 396         {
 397                 // draw upper and first triangle
 398                 R_BeginPolygon(pic, drawflag);
 399                         v = centre;                     t = '0.5 0.5 0';
 400                         v.x += 0.5 * ringsize.x;        t += '0.5 0.5 0';
 401                         R_PolygonVertex(v, t, rgb, a);
 402
 403                         v = centre;                     t = '0.5 0.5 0';
 404                         v.y += 0.5 * ringsize.y;        t += '0.5 -0.5 0';
 405                         R_PolygonVertex(v, t, rgb, a);
 406
 407                         v = centre;                     t = '0.5 0.5 0';
 408                         v.x -= 0.5 * ringsize.x;        t -= '0.5 0.5 0';
 409                         R_PolygonVertex(v, t, rgb, a);
 410                 R_EndPolygon();
 411                 R_BeginPolygon(pic, drawflag);
 412                         v = centre;                     t = '0.5 0.5 0';
 413                         R_PolygonVertex(v, t, rgb, a);
 414
 415                         v = centre;                     t = '0.5 0.5 0';
 416                         v.x -= 0.5 * ringsize.x;        t -= '0.5 0.5 0';
 417                         R_PolygonVertex(v, t, rgb, a);
 418
 419                         v = centre;                     t = '0.5 0.5 0';
 420                         v.y -= 0.5 * ringsize.y;        t -= '0.5 -0.5 0';
 421                         R_PolygonVertex(v, t, rgb, a);
 422
 423                 d = q - 0.75;
 424                 if(d <= 0)
 425                         R_EndPolygon();
 426         }
 427         else if(f > 0.5)
 428         {
 429                 // draw upper triangle
 430                 R_BeginPolygon(pic, drawflag);
 431                         v = centre;                     t = '0.5 0.5 0';
 432                         v.x += 0.5 * ringsize.x;        t += '0.5 0.5 0';
 433                         R_PolygonVertex(v, t, rgb, a);
 434
 435                         v = centre;                     t = '0.5 0.5 0';
 436                         v.y += 0.5 * ringsize.y;        t += '0.5 -0.5 0';
 437                         R_PolygonVertex(v, t, rgb, a);
 438
 439                         v = centre;                     t = '0.5 0.5 0';
 440                         v.x -= 0.5 * ringsize.x;        t -= '0.5 0.5 0';
 441                         R_PolygonVertex(v, t, rgb, a);
 442                 R_EndPolygon();
 443
 444                 d = q - 0.5;
 445                 if(d > 0)
 446                 {
 447                         R_BeginPolygon(pic, drawflag);
 448                                 v = centre;                     t = '0.5 0.5 0';
 449                                 R_PolygonVertex(v, t, rgb, a);
 450
 451                                 v = centre;                     t = '0.5 0.5 0';
 452                                 v.x -= 0.5 * ringsize.x;        t -= '0.5 0.5 0';
 453                                 R_PolygonVertex(v, t, rgb, a);
 454                 }
 455         }
 456         else if(f > 0.25)
 457         {
 458                 // draw first triangle
 459                 R_BeginPolygon(pic, drawflag);
 460                         v = centre;                     t = '0.5 0.5 0';
 461                         R_PolygonVertex(v, t, rgb, a);
 462
 463                         v = centre;                     t = '0.5 0.5 0';
 464                         v.x += 0.5 * ringsize.x;        t += '0.5 0.5 0';
 465                         R_PolygonVertex(v, t, rgb, a);
 466
 467                         v = centre;                     t = '0.5 0.5 0';
 468                         v.y += 0.5 * ringsize.y;        t += '0.5 -0.5 0';
 469                         R_PolygonVertex(v, t, rgb, a);
 470
 471                 d = q - 0.25;
 472                 if(d <= 0)
 473                         R_EndPolygon();
 474         }
 475         else
 476         {
 477                 d = q;
 478                 if(d > 0)
 479                 {
 480                         R_BeginPolygon(pic, drawflag);
 481                                 v = centre;                     t = '0.5 0.5 0';
 482                                 R_PolygonVertex(v, t, rgb, a);
 483
 484                                 v = centre;                     t = '0.5 0.5 0';
 485                                 v.x += 0.5 * ringsize.x;        t += '0.5 0.5 0';
 486                                 R_PolygonVertex(v, t, rgb, a);
 487                 }
 488         }
 489
 490         if(d > 0)
 491         {
 492                         v = centre;                     t = '0.5 0.5 0';
 493                         v.x += x * 0.5 * ringsize.x;    t += x * '0.5 0.5 0';
 494                         v.y += y * 0.5 * ringsize.y;    t += y * '0.5 -0.5 0';
 495                         R_PolygonVertex(v, t, rgb, a);
 496                 R_EndPolygon();
 497         }
 498 }
 499
 500 vector getplayerorigin(int pl)
 501 {
 502         entity e;
 503
 504         e = CSQCModel_server2csqc(pl + 1);
 505         if(e)
 506                 return e.origin;
 507
 508         e = entcs_receiver[pl];
 509         if(e)
 510                 return e.origin;
 511
 512         return GETPLAYERORIGIN_ERROR;
 513 }
 514
 515 float getplayeralpha(float pl)
 516 {
 517         entity e;
 518
 519         e = CSQCModel_server2csqc(pl + 1);
 520         if(e)
 521                 return e.alpha;
 522
 523         return 1;
 524 }
 525
 526 vector getcsqcplayercolor(float pl)
 527 {
 528         entity e;
 529
 530         e = CSQCModel_server2csqc(pl);
 531         if(e)
 532         {
 533                 if(e.colormap > 0)
 534                         return colormapPaletteColor(((e.colormap >= 1024) ? e.colormap : stof(getplayerkeyvalue(e.colormap - 1, "colors"))) & 0x0F, true);
 535         }
 536
 537         return '1 1 1';
 538 }
 539
 540 float getplayerisdead(float pl)
 541 {
 542         entity e;
 543
 544         e = CSQCModel_server2csqc(pl + 1);
 545         if(e)
 546                 return e.csqcmodel_isdead;
 547
 548         return false;
 549 }
 550
 551 void URI_Get_Callback(int id, float status, string data)
 552 {
 553         if(url_URI_Get_Callback(id, status, data))
 554         {
 555                 // handled
 556         }
 557         else if (id == URI_GET_DISCARD)
 558         {
 559                 // discard
 560         }
 561         else if (id >= URI_GET_CURL && id <= URI_GET_CURL_END)
 562         {
 563                 // sv_cmd curl
 564                 Curl_URI_Get_Callback(id, status, data);
 565         }
 566         else
 567         {
 568                 LOG_INFOF("Received HTTP request data for an invalid id %d.\n", id);
 569         }
 570 }
 571
 572 void draw_beginBoldFont()
 573 {
 574         drawfont = FONT_USER+2;
 575 }
 576
 577 void draw_endBoldFont()
 578 {
 579         drawfont = FONT_USER+1;
 580 }
 581
 582 void Accuracy_LoadLevels()
 583 {
 584         if(autocvar_accuracy_color_levels != acc_color_levels)
 585         {
 586                 if(acc_color_levels)
 587                         strunzone(acc_color_levels);
 588                 acc_color_levels = strzone(autocvar_accuracy_color_levels);
 589                 acc_levels = tokenize_console(acc_color_levels);
 590                 if(acc_levels > MAX_ACCURACY_LEVELS)
 591                         acc_levels = MAX_ACCURACY_LEVELS;
 592                 if(acc_levels < 2)
 593                         LOG_INFO("Warning: accuracy_color_levels must contain at least 2 values\n");
 594
 595                 int i;
 596                 for(i = 0; i < acc_levels; ++i)
 597                         acc_lev[i] = stof(argv(i)) / 100.0;
 598         }
 599 }
 600
 601 void Accuracy_LoadColors()
 602 {
 603         if(time > acc_col_loadtime)
 604         if(acc_levels >= 2)
 605         {
 606                 int i;
 607                 for(i = 0; i < acc_levels; ++i)
 608                         acc_col[i] = stov(cvar_string(strcat("accuracy_color", ftos(i))));
 609                 acc_col_loadtime = time + 2;
 610         }
 611 }
 612
 613 vector Accuracy_GetColor(float accuracy)
 614 {
 615         float factor;
 616         vector color;
 617         if(acc_levels < 2)
 618                 return '0 0 0'; // return black, can't determine the right color
 619
 620         // find the max level lower than acc
 621         int j = acc_levels-1;
 622         while(j && accuracy < acc_lev[j])
 623                 --j;
 624
 625         // inject color j+1 in color j, how much depending on how much accuracy is higher than level j
 626         factor = (accuracy - acc_lev[j]) / (acc_lev[j+1] - acc_lev[j]);
 627         color = acc_col[j];
 628         color = color + factor * (acc_col[j+1] - color);
 629         return color;
 630 }
 631