qcsrc/server/mutators/mutator/gamemode_ctf.qc

   1 #include "gamemode_ctf.qh"
   2
   3 #ifndef CSQC
   4 void ctf_Initialize();
   5
   6 REGISTER_MUTATOR(ctf, false)
   7 {
   8         MUTATOR_ONADD
   9         {
  10                 if (time > 1) // game loads at time 1
  11                         error("This is a game type and it cannot be added at runtime.");
  12                 ctf_Initialize();
  13
  14                 ActivateTeamplay();
  15                 SetLimits(autocvar_capturelimit_override, autocvar_captureleadlimit_override, autocvar_timelimit_override, -1);
  16                 have_team_spawns = -1; // request team spawns
  17         }
  18
  19         MUTATOR_ONROLLBACK_OR_REMOVE
  20         {
  21                 // we actually cannot roll back ctf_Initialize here
  22                 // BUT: we don't need to! If this gets called, adding always
  23                 // succeeds.
  24         }
  25
  26         MUTATOR_ONREMOVE
  27         {
  28                 LOG_INFO("This is a game type and it cannot be removed at runtime.");
  29                 return -1;
  30         }
  31
  32         return 0;
  33 }
  34 #endif
  35
  36 #ifdef SVQC
  37 #include <common/vehicles/all.qh>
  38 #include <server/teamplay.qh>
  39 #endif
  40
  41 #include <lib/warpzone/common.qh>
  42
  43 bool autocvar_g_ctf_allow_vehicle_carry;
  44 bool autocvar_g_ctf_allow_vehicle_touch;
  45 bool autocvar_g_ctf_allow_monster_touch;
  46 bool autocvar_g_ctf_throw;
  47 float autocvar_g_ctf_throw_angle_max;
  48 float autocvar_g_ctf_throw_angle_min;
  49 int autocvar_g_ctf_throw_punish_count;
  50 float autocvar_g_ctf_throw_punish_delay;
  51 float autocvar_g_ctf_throw_punish_time;
  52 float autocvar_g_ctf_throw_strengthmultiplier;
  53 float autocvar_g_ctf_throw_velocity_forward;
  54 float autocvar_g_ctf_throw_velocity_up;
  55 float autocvar_g_ctf_drop_velocity_up;
  56 float autocvar_g_ctf_drop_velocity_side;
  57 bool autocvar_g_ctf_oneflag_reverse;
  58 bool autocvar_g_ctf_portalteleport;
  59 bool autocvar_g_ctf_pass;
  60 float autocvar_g_ctf_pass_arc;
  61 float autocvar_g_ctf_pass_arc_max;
  62 float autocvar_g_ctf_pass_directional_max;
  63 float autocvar_g_ctf_pass_directional_min;
  64 float autocvar_g_ctf_pass_radius;
  65 float autocvar_g_ctf_pass_wait;
  66 bool autocvar_g_ctf_pass_request;
  67 float autocvar_g_ctf_pass_turnrate;
  68 float autocvar_g_ctf_pass_timelimit;
  69 float autocvar_g_ctf_pass_velocity;
  70 bool autocvar_g_ctf_dynamiclights;
  71 float autocvar_g_ctf_flag_collect_delay;
  72 float autocvar_g_ctf_flag_damageforcescale;
  73 bool autocvar_g_ctf_flag_dropped_waypoint;
  74 bool autocvar_g_ctf_flag_dropped_floatinwater;
  75 bool autocvar_g_ctf_flag_glowtrails;
  76 int autocvar_g_ctf_flag_health;
  77 bool autocvar_g_ctf_flag_return;
  78 bool autocvar_g_ctf_flag_return_carrying;
  79 float autocvar_g_ctf_flag_return_carried_radius;
  80 float autocvar_g_ctf_flag_return_time;
  81 bool autocvar_g_ctf_flag_return_when_unreachable;
  82 float autocvar_g_ctf_flag_return_damage;
  83 float autocvar_g_ctf_flag_return_damage_delay;
  84 float autocvar_g_ctf_flag_return_dropped;
  85 float autocvar_g_ctf_flagcarrier_auto_helpme_damage;
  86 float autocvar_g_ctf_flagcarrier_auto_helpme_time;
  87 float autocvar_g_ctf_flagcarrier_selfdamagefactor;
  88 float autocvar_g_ctf_flagcarrier_selfforcefactor;
  89 float autocvar_g_ctf_flagcarrier_damagefactor;
  90 float autocvar_g_ctf_flagcarrier_forcefactor;
  91 //float autocvar_g_ctf_flagcarrier_waypointforenemy_spotting;
  92 bool autocvar_g_ctf_fullbrightflags;
  93 bool autocvar_g_ctf_ignore_frags;
  94 bool autocvar_g_ctf_score_ignore_fields;
  95 int autocvar_g_ctf_score_capture;
  96 int autocvar_g_ctf_score_capture_assist;
  97 int autocvar_g_ctf_score_kill;
  98 int autocvar_g_ctf_score_penalty_drop;
  99 int autocvar_g_ctf_score_penalty_returned;
 100 int autocvar_g_ctf_score_pickup_base;
 101 int autocvar_g_ctf_score_pickup_dropped_early;
 102 int autocvar_g_ctf_score_pickup_dropped_late;
 103 int autocvar_g_ctf_score_return;
 104 float autocvar_g_ctf_shield_force;
 105 float autocvar_g_ctf_shield_max_ratio;
 106 int autocvar_g_ctf_shield_min_negscore;
 107 bool autocvar_g_ctf_stalemate;
 108 int autocvar_g_ctf_stalemate_endcondition;
 109 float autocvar_g_ctf_stalemate_time;
 110 bool autocvar_g_ctf_reverse;
 111 float autocvar_g_ctf_dropped_capture_delay;
 112 float autocvar_g_ctf_dropped_capture_radius;
 113
 114 void ctf_FakeTimeLimit(entity e, float t)
 115 {
 116         msg_entity = e;
 117         WriteByte(MSG_ONE, 3); // svc_updatestat
 118         WriteByte(MSG_ONE, 236); // STAT_TIMELIMIT
 119         if(t < 0)
 120                 WriteCoord(MSG_ONE, autocvar_timelimit);
 121         else
 122                 WriteCoord(MSG_ONE, (t + 1) / 60);
 123 }
 124
 125 void ctf_EventLog(string mode, int flagteam, entity actor) // use an alias for easy changing and quick editing later
 126 {
 127         if(autocvar_sv_eventlog)
 128                 GameLogEcho(sprintf(":ctf:%s:%d:%d:%s", mode, flagteam, actor.team, ((actor != NULL) ? ftos(actor.playerid) : "")));
 129                 //GameLogEcho(strcat(":ctf:", mode, ":", ftos(flagteam), ((actor != NULL) ? (strcat(":", ftos(actor.playerid))) : "")));
 130 }
 131
 132 void ctf_CaptureRecord(entity flag, entity player)
 133 {
 134         float cap_record = ctf_captimerecord;
 135         float cap_time = (time - flag.ctf_pickuptime);
 136         string refername = db_get(ServerProgsDB, strcat(GetMapname(), "/captimerecord/netname"));
 137
 138         // notify about shit
 139         if(ctf_oneflag)
 140                 Send_Notification(NOTIF_ALL, NULL, MSG_INFO, INFO_CTF_CAPTURE_NEUTRAL, player.netname);
 141         else if(!ctf_captimerecord)
 142                 Send_Notification(NOTIF_ALL, NULL, MSG_CHOICE, APP_TEAM_NUM(flag.team, CHOICE_CTF_CAPTURE_TIME), player.netname, (cap_time * 100));
 143         else if(cap_time < cap_record)
 144                 Send_Notification(NOTIF_ALL, NULL, MSG_CHOICE, APP_TEAM_NUM(flag.team, CHOICE_CTF_CAPTURE_BROKEN), player.netname, refername, (cap_time * 100), (cap_record * 100));
 145         else
 146                 Send_Notification(NOTIF_ALL, NULL, MSG_CHOICE, APP_TEAM_NUM(flag.team, CHOICE_CTF_CAPTURE_UNBROKEN), player.netname, refername, (cap_time * 100), (cap_record * 100));
 147
 148         // write that shit in the database
 149         if(!ctf_oneflag) // but not in 1-flag mode
 150         if((!ctf_captimerecord) || (cap_time < cap_record))
 151         {
 152                 ctf_captimerecord = cap_time;
 153                 db_put(ServerProgsDB, strcat(GetMapname(), "/captimerecord/time"), ftos(cap_time));
 154                 db_put(ServerProgsDB, strcat(GetMapname(), "/captimerecord/netname"), player.netname);
 155                 write_recordmarker(player, (time - cap_time), cap_time);
 156         }
 157
 158         if(autocvar_g_ctf_leaderboard && !ctf_oneflag)
 159                 race_setTime(GetMapname(), TIME_ENCODE(cap_time), player.crypto_idfp, player.netname, player, false);
 160 }
 161
 162 bool ctf_Immediate_Return_Allowed(entity flag, entity toucher)
 163 {
 164         int num_perteam = 0;
 165         FOREACH_CLIENT(IS_PLAYER(it) && SAME_TEAM(toucher, it), { ++num_perteam; });
 166
 167         // automatically return if there's only 1 player on the team
 168         return ((autocvar_g_ctf_flag_return || num_perteam <= 1 || (autocvar_g_ctf_flag_return_carrying && toucher.flagcarried))
 169                 && flag.team);
 170 }
 171
 172 bool ctf_Return_Customize(entity this, entity client)
 173 {
 174         // only to the carrier
 175         return boolean(client == this.owner);
 176 }
 177
 178 void ctf_FlagcarrierWaypoints(entity player)
 179 {
 180         WaypointSprite_Spawn(WP_FlagCarrier, 0, 0, player, FLAG_WAYPOINT_OFFSET, NULL, player.team, player, wps_flagcarrier, true, RADARICON_FLAG);
 181         WaypointSprite_UpdateMaxHealth(player.wps_flagcarrier, '1 0 0' * healtharmor_maxdamage(start_health, start_armorvalue, autocvar_g_balance_armor_blockpercent, DEATH_WEAPON.m_id) * 2);
 182         WaypointSprite_UpdateHealth(player.wps_flagcarrier, '1 0 0' * healtharmor_maxdamage(player.health, player.armorvalue, autocvar_g_balance_armor_blockpercent, DEATH_WEAPON.m_id));
 183         WaypointSprite_UpdateTeamRadar(player.wps_flagcarrier, RADARICON_FLAGCARRIER, WPCOLOR_FLAGCARRIER(player.team));
 184
 185         if(player.flagcarried && CTF_SAMETEAM(player, player.flagcarried))
 186         {
 187                 if(!player.wps_enemyflagcarrier)
 188                 {
 189                         entity wp = WaypointSprite_Spawn(((ctf_oneflag) ? WP_FlagCarrier : WP_FlagCarrierEnemy), 0, 0, player, FLAG_WAYPOINT_OFFSET, NULL, 0, player, wps_enemyflagcarrier, true, RADARICON_FLAG);
 190                         wp.colormod = WPCOLOR_ENEMYFC(player.team);
 191                         setcefc(wp, ctf_Stalemate_Customize);
 192
 193                         if(IS_REAL_CLIENT(player) && !ctf_stalemate)
 194                                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, CENTER_CTF_PICKUP_VISIBLE);
 195                 }
 196
 197                 if(!player.wps_flagreturn)
 198                 {
 199                         entity owp = WaypointSprite_SpawnFixed(WP_FlagReturn, player.flagcarried.ctf_spawnorigin + FLAG_WAYPOINT_OFFSET, player, wps_flagreturn, RADARICON_FLAG);
 200                         owp.colormod = '0 0.8 0.8';
 201                         //WaypointSprite_UpdateTeamRadar(player.wps_flagreturn, RADARICON_FLAG, ((player.team) ? colormapPaletteColor(player.team - 1, false) : '1 1 1'));
 202                         setcefc(owp, ctf_Return_Customize);
 203                 }
 204         }
 205 }
 206
 207 void ctf_CalculatePassVelocity(entity flag, vector to, vector from, float turnrate)
 208 {
 209         float current_distance = vlen((('1 0 0' * to.x) + ('0 1 0' * to.y)) - (('1 0 0' * from.x) + ('0 1 0' * from.y))); // for the sake of this check, exclude Z axis
 210         float initial_height = min(autocvar_g_ctf_pass_arc_max, (flag.pass_distance * tanh(autocvar_g_ctf_pass_arc)));
 211         float current_height = (initial_height * min(1, (current_distance / flag.pass_distance)));
 212         //print("current_height = ", ftos(current_height), ", initial_height = ", ftos(initial_height), ".\n");
 213
 214         vector targpos;
 215         if(current_height) // make sure we can actually do this arcing path
 216         {
 217                 targpos = (to + ('0 0 1' * current_height));
 218                 WarpZone_TraceLine(flag.origin, targpos, MOVE_NOMONSTERS, flag);
 219                 if(trace_fraction < 1)
 220                 {
 221                         //print("normal arc line failed, trying to find new pos...");
 222                         WarpZone_TraceLine(to, targpos, MOVE_NOMONSTERS, flag);
 223                         targpos = (trace_endpos + FLAG_PASS_ARC_OFFSET);
 224                         WarpZone_TraceLine(flag.origin, targpos, MOVE_NOMONSTERS, flag);
 225                         if(trace_fraction < 1) { targpos = to; /* print(" ^1FAILURE^7, reverting to original direction.\n"); */ }
 226                         /*else { print(" ^3SUCCESS^7, using new arc line.\n"); } */
 227                 }
 228         }
 229         else { targpos = to; }
 230
 231         //flag.angles = normalize(('0 1 0' * to_y) - ('0 1 0' * from_y));
 232
 233         vector desired_direction = normalize(targpos - from);
 234         if(turnrate) { flag.velocity = (normalize(normalize(flag.velocity) + (desired_direction * autocvar_g_ctf_pass_turnrate)) * autocvar_g_ctf_pass_velocity); }
 235         else { flag.velocity = (desired_direction * autocvar_g_ctf_pass_velocity); }
 236 }
 237
 238 bool ctf_CheckPassDirection(vector head_center, vector passer_center, vector passer_angle, vector nearest_to_passer)
 239 {
 240         if(autocvar_g_ctf_pass_directional_max || autocvar_g_ctf_pass_directional_min)
 241         {
 242                 // directional tracing only
 243                 float spreadlimit;
 244                 makevectors(passer_angle);
 245
 246                 // find the closest point on the enemy to the center of the attack
 247                 float h; // hypotenuse, which is the distance between attacker to head
 248                 float a; // adjacent side, which is the distance between attacker and the point on w_shotdir that is closest to head.origin
 249
 250                 h = vlen(head_center - passer_center);
 251                 a = h * (normalize(head_center - passer_center) * v_forward);
 252
 253                 vector nearest_on_line = (passer_center + a * v_forward);
 254                 float distance_from_line = vlen(nearest_to_passer - nearest_on_line);
 255
 256                 spreadlimit = (autocvar_g_ctf_pass_radius ? min(1, (vlen(passer_center - nearest_on_line) / autocvar_g_ctf_pass_radius)) : 1);
 257                 spreadlimit = (autocvar_g_ctf_pass_directional_min * (1 - spreadlimit) + autocvar_g_ctf_pass_directional_max * spreadlimit);
 258
 259                 if(spreadlimit && (distance_from_line <= spreadlimit) && ((vlen(normalize(head_center - passer_center) - v_forward) * RAD2DEG) <= 90))
 260                         { return true; }
 261                 else
 262                         { return false; }
 263         }
 264         else { return true; }
 265 }
 266
 267
 268 // =======================
 269 // CaptureShield Functions
 270 // =======================
 271
 272 bool ctf_CaptureShield_CheckStatus(entity p)
 273 {
 274         int s, s2, s3, s4, se, se2, se3, se4, sr, ser;
 275         int players_worseeq, players_total;
 276
 277         if(ctf_captureshield_max_ratio <= 0)
 278                 return false;
 279
 280         s  = PlayerScore_Add(p, SP_CTF_CAPS,    0);
 281         s2 = PlayerScore_Add(p, SP_CTF_PICKUPS, 0);
 282         s3 = PlayerScore_Add(p, SP_CTF_RETURNS, 0);
 283         s4 = PlayerScore_Add(p, SP_CTF_FCKILLS, 0);
 284
 285         sr = ((s - s2) + (s3 + s4));
 286
 287         if(sr >= -ctf_captureshield_min_negscore)
 288                 return false;
 289
 290         players_total = players_worseeq = 0;
 291         FOREACH_CLIENT(IS_PLAYER(it), LAMBDA(
 292                 if(DIFF_TEAM(it, p))
 293                         continue;
 294                 se  = PlayerScore_Add(it, SP_CTF_CAPS,    0);
 295                 se2 = PlayerScore_Add(it, SP_CTF_PICKUPS, 0);
 296                 se3 = PlayerScore_Add(it, SP_CTF_RETURNS, 0);
 297                 se4 = PlayerScore_Add(it, SP_CTF_FCKILLS, 0);
 298
 299                 ser = ((se - se2) + (se3 + se4));
 300
 301                 if(ser <= sr)
 302                         ++players_worseeq;
 303                 ++players_total;
 304         ));
 305
 306         // player is in the worse half, if >= half the players are better than him, or consequently, if < half of the players are worse
 307         // use this rule here
 308
 309         if(players_worseeq >= players_total * ctf_captureshield_max_ratio)
 310                 return false;
 311
 312         return true;
 313 }
 314
 315 void ctf_CaptureShield_Update(entity player, bool wanted_status)
 316 {
 317         bool updated_status = ctf_CaptureShield_CheckStatus(player);
 318         if((wanted_status == player.ctf_captureshielded) && (updated_status != wanted_status)) // 0: shield only, 1: unshield only
 319         {
 320                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, ((updated_status) ? CENTER_CTF_CAPTURESHIELD_SHIELDED : CENTER_CTF_CAPTURESHIELD_FREE));
 321                 player.ctf_captureshielded = updated_status;
 322         }
 323 }
 324
 325 bool ctf_CaptureShield_Customize(entity this, entity client)
 326 {
 327         if(!client.ctf_captureshielded) { return false; }
 328         if(CTF_SAMETEAM(this, client)) { return false; }
 329
 330         return true;
 331 }
 332
 333 void ctf_CaptureShield_Touch(entity this, entity toucher)
 334 {
 335         if(!toucher.ctf_captureshielded) { return; }
 336         if(CTF_SAMETEAM(this, toucher)) { return; }
 337
 338         vector mymid = (this.absmin + this.absmax) * 0.5;
 339         vector theirmid = (toucher.absmin + toucher.absmax) * 0.5;
 340
 341         Damage(toucher, this, this, 0, DEATH_HURTTRIGGER.m_id, mymid, normalize(theirmid - mymid) * ctf_captureshield_force);
 342         if(IS_REAL_CLIENT(toucher)) { Send_Notification(NOTIF_ONE, toucher, MSG_CENTER, CENTER_CTF_CAPTURESHIELD_SHIELDED); }
 343 }
 344
 345 void ctf_CaptureShield_Spawn(entity flag)
 346 {
 347         entity shield = new(ctf_captureshield);
 348
 349         shield.enemy = flag;
 350         shield.team = flag.team;
 351         settouch(shield, ctf_CaptureShield_Touch);
 352         setcefc(shield, ctf_CaptureShield_Customize);
 353         shield.effects = EF_ADDITIVE;
 354         set_movetype(shield, MOVETYPE_NOCLIP);
 355         shield.solid = SOLID_TRIGGER;
 356         shield.avelocity = '7 0 11';
 357         shield.scale = 0.5;
 358
 359         setorigin(shield, flag.origin);
 360         setmodel(shield, MDL_CTF_SHIELD);
 361         setsize(shield, shield.scale * shield.mins, shield.scale * shield.maxs);
 362 }
 363
 364
 365 // ====================
 366 // Drop/Pass/Throw Code
 367 // ====================
 368
 369 void ctf_Handle_Drop(entity flag, entity player, int droptype)
 370 {
 371         // declarations
 372         player = (player ? player : flag.pass_sender);
 373
 374         // main
 375         set_movetype(flag, MOVETYPE_TOSS);
 376         flag.takedamage = DAMAGE_YES;
 377         flag.angles = '0 0 0';
 378         flag.health = flag.max_flag_health;
 379         flag.ctf_droptime = time;
 380         flag.ctf_dropper = player;
 381         flag.ctf_status = FLAG_DROPPED;
 382
 383         // messages and sounds
 384         Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(flag.team, INFO_CTF_LOST), player.netname);
 385         _sound(flag, CH_TRIGGER, flag.snd_flag_dropped, VOL_BASE, ATTEN_NONE);
 386         ctf_EventLog("dropped", player.team, player);
 387
 388         // scoring
 389         PlayerTeamScore_AddScore(player, -((flag.score_drop) ? flag.score_drop : autocvar_g_ctf_score_penalty_drop));
 390         PlayerScore_Add(player, SP_CTF_DROPS, 1);
 391
 392         // waypoints
 393         if(autocvar_g_ctf_flag_dropped_waypoint) {
 394                 entity wp = WaypointSprite_Spawn(WP_FlagDropped, 0, 0, flag, FLAG_WAYPOINT_OFFSET, NULL, ((autocvar_g_ctf_flag_dropped_waypoint == 2) ? 0 : player.team), flag, wps_flagdropped, true, RADARICON_FLAG);
 395                 wp.colormod = WPCOLOR_DROPPEDFLAG(flag.team);
 396         }
 397
 398         if(autocvar_g_ctf_flag_return_time || (autocvar_g_ctf_flag_return_damage && autocvar_g_ctf_flag_health))
 399         {
 400                 WaypointSprite_UpdateMaxHealth(flag.wps_flagdropped, flag.max_flag_health);
 401                 WaypointSprite_UpdateHealth(flag.wps_flagdropped, flag.health);
 402         }
 403
 404         player.throw_antispam = time + autocvar_g_ctf_pass_wait;
 405
 406         if(droptype == DROP_PASS)
 407         {
 408                 flag.pass_distance = 0;
 409                 flag.pass_sender = NULL;
 410                 flag.pass_target = NULL;
 411         }
 412 }
 413
 414 void ctf_Handle_Retrieve(entity flag, entity player)
 415 {
 416         entity sender = flag.pass_sender;
 417
 418         // transfer flag to player
 419         flag.owner = player;
 420         flag.owner.flagcarried = flag;
 421
 422         // reset flag
 423         if(player.vehicle)
 424         {
 425                 setattachment(flag, player.vehicle, "");
 426                 setorigin(flag, VEHICLE_FLAG_OFFSET);
 427                 flag.scale = VEHICLE_FLAG_SCALE;
 428         }
 429         else
 430         {
 431                 setattachment(flag, player, "");
 432                 setorigin(flag, FLAG_CARRY_OFFSET);
 433         }
 434         set_movetype(flag, MOVETYPE_NONE);
 435         flag.takedamage = DAMAGE_NO;
 436         flag.solid = SOLID_NOT;
 437         flag.angles = '0 0 0';
 438         flag.ctf_status = FLAG_CARRY;
 439
 440         // messages and sounds
 441         _sound(player, CH_TRIGGER, flag.snd_flag_pass, VOL_BASE, ATTEN_NORM);
 442         ctf_EventLog("receive", flag.team, player);
 443
 444         FOREACH_CLIENT(IS_PLAYER(it) && IS_REAL_CLIENT(it), LAMBDA(
 445                 if(it == sender)
 446                         Send_Notification(NOTIF_ONE, it, MSG_CENTER, APP_NUM(flag.team, CENTER_CTF_PASS_SENT), player.netname);
 447                 else if(it == player)
 448                         Send_Notification(NOTIF_ONE, it, MSG_CENTER, APP_NUM(flag.team, CENTER_CTF_PASS_RECEIVED), sender.netname);
 449                 else if(SAME_TEAM(it, sender))
 450                         Send_Notification(NOTIF_ONE, it, MSG_CENTER, APP_NUM(flag.team, CENTER_CTF_PASS_OTHER), sender.netname, player.netname);
 451         ));
 452
 453         // create new waypoint
 454         ctf_FlagcarrierWaypoints(player);
 455
 456         sender.throw_antispam = time + autocvar_g_ctf_pass_wait;
 457         player.throw_antispam = sender.throw_antispam;
 458
 459         flag.pass_distance = 0;
 460         flag.pass_sender = NULL;
 461         flag.pass_target = NULL;
 462 }
 463
 464 void ctf_Handle_Throw(entity player, entity receiver, int droptype)
 465 {
 466         entity flag = player.flagcarried;
 467         vector targ_origin, flag_velocity;
 468
 469         if(!flag) { return; }
 470         if((droptype == DROP_PASS) && !receiver) { return; }
 471
 472         if(flag.speedrunning) { ctf_RespawnFlag(flag); return; }
 473
 474         // reset the flag
 475         setattachment(flag, NULL, "");
 476         setorigin(flag, player.origin + FLAG_DROP_OFFSET);
 477         flag.owner.flagcarried = NULL;
 478         flag.owner = NULL;
 479         flag.solid = SOLID_TRIGGER;
 480         flag.ctf_dropper = player;
 481         flag.ctf_droptime = time;
 482         navigation_dynamicgoal_set(flag);
 483
 484         flag.flags = FL_ITEM | FL_NOTARGET; // clear FL_ONGROUND for MOVETYPE_TOSS
 485
 486         switch(droptype)
 487         {
 488                 case DROP_PASS:
 489                 {
 490                         // warpzone support:
 491                         // for the examples, we assume player -> wz1 -> ... -> wzn -> receiver
 492                         // findradius has already put wzn ... wz1 into receiver's warpzone parameters!
 493                         WarpZone_RefSys_Copy(flag, receiver);
 494                         WarpZone_RefSys_AddInverse(flag, receiver); // wz1^-1 ... wzn^-1 receiver
 495                         targ_origin = WarpZone_RefSys_TransformOrigin(receiver, flag, (0.5 * (receiver.absmin + receiver.absmax))); // this is target origin as seen by the flag
 496
 497                         flag.pass_distance = vlen((('1 0 0' * targ_origin.x) + ('0 1 0' * targ_origin.y)) - (('1 0 0' *  player.origin.x) + ('0 1 0' *  player.origin.y))); // for the sake of this check, exclude Z axis
 498                         ctf_CalculatePassVelocity(flag, targ_origin, player.origin, false);
 499
 500                         // main
 501                         set_movetype(flag, MOVETYPE_FLY);
 502                         flag.takedamage = DAMAGE_NO;
 503                         flag.pass_sender = player;
 504                         flag.pass_target = receiver;
 505                         flag.ctf_status = FLAG_PASSING;
 506
 507                         // other
 508                         _sound(player, CH_TRIGGER, flag.snd_flag_touch, VOL_BASE, ATTEN_NORM);
 509                         WarpZone_TrailParticles(NULL, _particleeffectnum(flag.passeffect), player.origin, targ_origin);
 510                         ctf_EventLog("pass", flag.team, player);
 511                         break;
 512                 }
 513
 514                 case DROP_THROW:
 515                 {
 516                         makevectors((player.v_angle.y * '0 1 0') + (bound(autocvar_g_ctf_throw_angle_min, player.v_angle.x, autocvar_g_ctf_throw_angle_max) * '1 0 0'));
 517
 518                         flag_velocity = (('0 0 1' * autocvar_g_ctf_throw_velocity_up) + ((v_forward * autocvar_g_ctf_throw_velocity_forward) * ((player.items & ITEM_Strength.m_itemid) ? autocvar_g_ctf_throw_strengthmultiplier : 1)));
 519                         flag.velocity = W_CalculateProjectileVelocity(player, player.velocity, flag_velocity, false);
 520                         ctf_Handle_Drop(flag, player, droptype);
 521                         break;
 522                 }
 523
 524                 case DROP_RESET:
 525                 {
 526                         flag.velocity = '0 0 0'; // do nothing
 527                         break;
 528                 }
 529
 530                 default:
 531                 case DROP_NORMAL:
 532                 {
 533                         flag.velocity = W_CalculateProjectileVelocity(player, player.velocity, (('0 0 1' * autocvar_g_ctf_drop_velocity_up) + ((('0 1 0' * crandom()) + ('1 0 0' * crandom())) * autocvar_g_ctf_drop_velocity_side)), false);
 534                         ctf_Handle_Drop(flag, player, droptype);
 535                         break;
 536                 }
 537         }
 538
 539         // kill old waypointsprite
 540         WaypointSprite_Ping(player.wps_flagcarrier);
 541         WaypointSprite_Kill(player.wps_flagcarrier);
 542
 543         if(player.wps_enemyflagcarrier)
 544                 WaypointSprite_Kill(player.wps_enemyflagcarrier);
 545
 546         if(player.wps_flagreturn)
 547                 WaypointSprite_Kill(player.wps_flagreturn);
 548
 549         // captureshield
 550         ctf_CaptureShield_Update(player, 0); // shield player from picking up flag
 551 }
 552
 553 void shockwave_spawn(string m, vector org, float sz, float t1, float t2)
 554 {
 555         return modeleffect_spawn(m, 0, 0, org, '0 0 0', '0 0 0', '0 0 0', 0, sz, 1, t1, t2);
 556 }
 557
 558 // ==============
 559 // Event Handlers
 560 // ==============
 561
 562 void nades_GiveBonus(entity player, float score);
 563
 564 void ctf_Handle_Capture(entity flag, entity toucher, int capturetype)
 565 {
 566         entity enemy_flag = ((capturetype == CAPTURE_NORMAL) ? toucher.flagcarried : toucher);
 567         entity player = ((capturetype == CAPTURE_NORMAL) ? toucher : enemy_flag.ctf_dropper);
 568         entity player_team_flag = NULL, tmp_entity;
 569         float old_time, new_time;
 570
 571         if(!player) { return; } // without someone to give the reward to, we can't possibly cap
 572         if(CTF_DIFFTEAM(player, flag)) { return; }
 573         if((flag.cnt || enemy_flag.cnt) && flag.cnt != enemy_flag.cnt) { return; } // this should catch some edge cases (capturing grouped flag at ungrouped flag disallowed etc)
 574
 575         if(ctf_oneflag)
 576         for(tmp_entity = ctf_worldflaglist; tmp_entity; tmp_entity = tmp_entity.ctf_worldflagnext)
 577         if(SAME_TEAM(tmp_entity, player))
 578         {
 579                 player_team_flag = tmp_entity;
 580                 break;
 581         }
 582
 583         nades_GiveBonus(player, autocvar_g_nades_bonus_score_high );
 584
 585         player.throw_prevtime = time;
 586         player.throw_count = 0;
 587
 588         // messages and sounds
 589         Send_Notification(NOTIF_ONE, player, MSG_CENTER, APP_NUM(enemy_flag.team, CENTER_CTF_CAPTURE));
 590         ctf_CaptureRecord(enemy_flag, player);
 591         _sound(player, CH_TRIGGER, ((ctf_oneflag) ? player_team_flag.snd_flag_capture : ((DIFF_TEAM(player, flag)) ? enemy_flag.snd_flag_capture : flag.snd_flag_capture)), VOL_BASE, ATTEN_NONE);
 592
 593         switch(capturetype)
 594         {
 595                 case CAPTURE_NORMAL: ctf_EventLog("capture", enemy_flag.team, player); break;
 596                 case CAPTURE_DROPPED: ctf_EventLog("droppedcapture", enemy_flag.team, player); break;
 597                 default: break;
 598         }
 599
 600         // scoring
 601         float pscore = 0;
 602         if(enemy_flag.score_capture || flag.score_capture)
 603                 pscore = floor((max(1, enemy_flag.score_capture) + max(1, flag.score_capture)) * 0.5);
 604         PlayerTeamScore_AddScore(player, ((pscore) ? pscore : autocvar_g_ctf_score_capture));
 605         float capscore = 0;
 606         if(enemy_flag.score_team_capture || flag.score_team_capture)
 607                 capscore = floor((max(1, enemy_flag.score_team_capture) + max(1, flag.score_team_capture)) * 0.5);
 608         PlayerTeamScore_Add(player, SP_CTF_CAPS, ST_CTF_CAPS, ((capscore) ? capscore : 1));
 609
 610         old_time = PlayerScore_Add(player, SP_CTF_CAPTIME, 0);
 611         new_time = TIME_ENCODE(time - enemy_flag.ctf_pickuptime);
 612         if(!old_time || new_time < old_time)
 613                 PlayerScore_Add(player, SP_CTF_CAPTIME, new_time - old_time);
 614
 615         // effects
 616         Send_Effect_(flag.capeffect, flag.origin, '0 0 0', 1);
 617         //shockwave_spawn("models/ctf/shockwavetransring.md3", flag.origin - '0 0 15', -0.8, 0, 1);
 618
 619         // other
 620         if(capturetype == CAPTURE_NORMAL)
 621         {
 622                 WaypointSprite_Kill(player.wps_flagcarrier);
 623                 if(flag.speedrunning) { ctf_FakeTimeLimit(player, -1); }
 624
 625                 if((enemy_flag.ctf_dropper) && (player != enemy_flag.ctf_dropper))
 626                         { PlayerTeamScore_AddScore(enemy_flag.ctf_dropper, ((enemy_flag.score_assist) ? enemy_flag.score_assist : autocvar_g_ctf_score_capture_assist)); }
 627         }
 628
 629         // reset the flag
 630         player.next_take_time = time + autocvar_g_ctf_flag_collect_delay;
 631         ctf_RespawnFlag(enemy_flag);
 632 }
 633
 634 void ctf_Handle_Return(entity flag, entity player)
 635 {
 636         // messages and sounds
 637         if(IS_MONSTER(player))
 638         {
 639                 Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_TEAM_NUM(flag.team, INFO_CTF_RETURN_MONSTER), player.monster_name);
 640         }
 641         else if(flag.team)
 642         {
 643                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, APP_TEAM_NUM(flag.team, CENTER_CTF_RETURN));
 644                 Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_TEAM_NUM(flag.team, INFO_CTF_RETURN), player.netname);
 645         }
 646         _sound(player, CH_TRIGGER, flag.snd_flag_returned, VOL_BASE, ATTEN_NONE);
 647         ctf_EventLog("return", flag.team, player);
 648
 649         // scoring
 650         if(IS_PLAYER(player))
 651         {
 652                 PlayerTeamScore_AddScore(player, ((flag.score_return) ? flag.score_return : autocvar_g_ctf_score_return)); // reward for return
 653                 PlayerScore_Add(player, SP_CTF_RETURNS, 1); // add to count of returns
 654
 655                 nades_GiveBonus(player,autocvar_g_nades_bonus_score_medium);
 656         }
 657
 658         TeamScore_AddToTeam(flag.team, ST_SCORE, -autocvar_g_ctf_score_penalty_returned); // punish the team who was last carrying it
 659
 660         if(flag.ctf_dropper)
 661         {
 662                 PlayerScore_Add(flag.ctf_dropper, SP_SCORE, -autocvar_g_ctf_score_penalty_returned); // punish the player who dropped the flag
 663                 ctf_CaptureShield_Update(flag.ctf_dropper, 0); // shield player from picking up flag
 664                 flag.ctf_dropper.next_take_time = time + autocvar_g_ctf_flag_collect_delay; // set next take time
 665         }
 666
 667         // other
 668         if(player.flagcarried == flag)
 669                 WaypointSprite_Kill(player.wps_flagcarrier);
 670
 671         // reset the flag
 672         ctf_RespawnFlag(flag);
 673 }
 674
 675 void ctf_Handle_Pickup(entity flag, entity player, int pickuptype)
 676 {
 677         // declarations
 678         float pickup_dropped_score; // used to calculate dropped pickup score
 679
 680         // attach the flag to the player
 681         flag.owner = player;
 682         player.flagcarried = flag;
 683         if(player.vehicle)
 684         {
 685                 setattachment(flag, player.vehicle, "");
 686                 setorigin(flag, VEHICLE_FLAG_OFFSET);
 687                 flag.scale = VEHICLE_FLAG_SCALE;
 688         }
 689         else
 690         {
 691                 setattachment(flag, player, "");
 692                 setorigin(flag, FLAG_CARRY_OFFSET);
 693         }
 694
 695         // flag setup
 696         set_movetype(flag, MOVETYPE_NONE);
 697         flag.takedamage = DAMAGE_NO;
 698         flag.solid = SOLID_NOT;
 699         flag.angles = '0 0 0';
 700         flag.ctf_status = FLAG_CARRY;
 701
 702         switch(pickuptype)
 703         {
 704                 case PICKUP_BASE: flag.ctf_pickuptime = time; break; // used for timing runs
 705                 case PICKUP_DROPPED: flag.health = flag.max_flag_health; break; // reset health/return timelimit
 706                 default: break;
 707         }
 708
 709         // messages and sounds
 710         Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(flag.team, INFO_CTF_PICKUP), player.netname);
 711         if(ctf_stalemate)
 712                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, CENTER_CTF_STALEMATE_CARRIER);
 713         if(!flag.team)
 714                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, CENTER_CTF_PICKUP_NEUTRAL);
 715         else if(CTF_DIFFTEAM(player, flag))
 716                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, APP_TEAM_NUM(flag.team, CENTER_CTF_PICKUP));
 717         else
 718                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, ((SAME_TEAM(player, flag)) ? CENTER_CTF_PICKUP_RETURN : CENTER_CTF_PICKUP_RETURN_ENEMY), Team_ColorCode(flag.team));
 719
 720         Send_Notification(NOTIF_TEAM_EXCEPT, player, MSG_CHOICE, APP_NUM(flag.team, CHOICE_CTF_PICKUP_TEAM), Team_ColorCode(player.team), player.netname);
 721
 722         if(!flag.team)
 723                 FOREACH_CLIENT(IS_PLAYER(it) && it != player && DIFF_TEAM(it, player), LAMBDA(Send_Notification(NOTIF_ONE, it, MSG_CHOICE, CHOICE_CTF_PICKUP_ENEMY_NEUTRAL, Team_ColorCode(player.team), player.netname)));
 724
 725         if(flag.team)
 726                 FOREACH_CLIENT(IS_PLAYER(it) && it != player, LAMBDA(
 727                         if(CTF_SAMETEAM(flag, it))
 728                         if(SAME_TEAM(player, it))
 729                                 Send_Notification(NOTIF_ONE, it, MSG_CHOICE, APP_TEAM_NUM(flag.team, CHOICE_CTF_PICKUP_TEAM), Team_ColorCode(player.team), player.netname);
 730                         else
 731                                 Send_Notification(NOTIF_ONE, it, MSG_CHOICE, ((SAME_TEAM(flag, player)) ? CHOICE_CTF_PICKUP_ENEMY_TEAM : CHOICE_CTF_PICKUP_ENEMY), Team_ColorCode(player.team), player.netname);
 732                 ));
 733
 734         _sound(player, CH_TRIGGER, flag.snd_flag_taken, VOL_BASE, ATTEN_NONE);
 735
 736         // scoring
 737         PlayerScore_Add(player, SP_CTF_PICKUPS, 1);
 738         nades_GiveBonus(player, autocvar_g_nades_bonus_score_minor);
 739         switch(pickuptype)
 740         {
 741                 case PICKUP_BASE:
 742                 {
 743                         PlayerTeamScore_AddScore(player, ((flag.score_pickup) ? flag.score_pickup : autocvar_g_ctf_score_pickup_base));
 744                         ctf_EventLog("steal", flag.team, player);
 745                         break;
 746                 }
 747
 748                 case PICKUP_DROPPED:
 749                 {
 750                         pickup_dropped_score = (autocvar_g_ctf_flag_return_time ? bound(0, ((flag.ctf_droptime + autocvar_g_ctf_flag_return_time) - time) / autocvar_g_ctf_flag_return_time, 1) : 1);
 751                         pickup_dropped_score = floor((autocvar_g_ctf_score_pickup_dropped_late * (1 - pickup_dropped_score) + autocvar_g_ctf_score_pickup_dropped_early * pickup_dropped_score) + 0.5);
 752                         LOG_TRACE("pickup_dropped_score is ", ftos(pickup_dropped_score));
 753                         PlayerTeamScore_AddScore(player, pickup_dropped_score);
 754                         ctf_EventLog("pickup", flag.team, player);
 755                         break;
 756                 }
 757
 758                 default: break;
 759         }
 760
 761         // speedrunning
 762         if(pickuptype == PICKUP_BASE)
 763         {
 764                 flag.speedrunning = player.speedrunning; // if speedrunning, flag will flag-return and teleport the owner back after the record
 765                 if((player.speedrunning) && (ctf_captimerecord))
 766                         ctf_FakeTimeLimit(player, time + ctf_captimerecord);
 767         }
 768
 769         // effects
 770         Send_Effect_(flag.toucheffect, player.origin, '0 0 0', 1);
 771
 772         // waypoints
 773         if(pickuptype == PICKUP_DROPPED) { WaypointSprite_Kill(flag.wps_flagdropped); }
 774         ctf_FlagcarrierWaypoints(player);
 775         WaypointSprite_Ping(player.wps_flagcarrier);
 776 }
 777
 778
 779 // ===================
 780 // Main Flag Functions
 781 // ===================
 782
 783 void ctf_CheckFlagReturn(entity flag, int returntype)
 784 {
 785         if((flag.ctf_status == FLAG_DROPPED) || (flag.ctf_status == FLAG_PASSING))
 786         {
 787                 if(flag.wps_flagdropped) { WaypointSprite_UpdateHealth(flag.wps_flagdropped, flag.health); }
 788
 789                 if((flag.health <= 0) || (time >= flag.ctf_droptime + autocvar_g_ctf_flag_return_time))
 790                 {
 791                         switch(returntype)
 792                         {
 793                                 case RETURN_DROPPED:
 794                                         Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(flag.team, INFO_CTF_FLAGRETURN_DROPPED)); break;
 795                                 case RETURN_DAMAGE:
 796                                         Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(flag.team, INFO_CTF_FLAGRETURN_DAMAGED)); break;
 797                                 case RETURN_SPEEDRUN:
 798                                         Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(flag.team, INFO_CTF_FLAGRETURN_SPEEDRUN), ctf_captimerecord); break;
 799                                 case RETURN_NEEDKILL:
 800                                         Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(flag.team, INFO_CTF_FLAGRETURN_NEEDKILL)); break;
 801                                 default:
 802                                 case RETURN_TIMEOUT:
 803                                         Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(flag.team, INFO_CTF_FLAGRETURN_TIMEOUT)); break;
 804                         }
 805                         _sound(flag, CH_TRIGGER, flag.snd_flag_respawn, VOL_BASE, ATTEN_NONE);
 806                         ctf_EventLog("returned", flag.team, NULL);
 807                         ctf_RespawnFlag(flag);
 808                 }
 809         }
 810 }
 811
 812 bool ctf_Stalemate_Customize(entity this, entity client)
 813 {
 814         // make spectators see what the player would see
 815         entity e = WaypointSprite_getviewentity(client);
 816         entity wp_owner = this.owner;
 817
 818         // team waypoints
 819         //if(CTF_SAMETEAM(wp_owner.flagcarried, wp_owner)) { return false; }
 820         if(SAME_TEAM(wp_owner, e)) { return false; }
 821         if(!IS_PLAYER(e)) { return false; }
 822
 823         return true;
 824 }
 825
 826 void ctf_CheckStalemate()
 827 {
 828         // declarations
 829         int stale_flags = 0, stale_red_flags = 0, stale_blue_flags = 0, stale_yellow_flags = 0, stale_pink_flags = 0, stale_neutral_flags = 0;
 830         entity tmp_entity;
 831
 832         entity ctf_staleflaglist = NULL; // reset the list, we need to build the list each time this function runs
 833
 834         // build list of stale flags
 835         for(tmp_entity = ctf_worldflaglist; tmp_entity; tmp_entity = tmp_entity.ctf_worldflagnext)
 836         {
 837                 if(autocvar_g_ctf_stalemate)
 838                 if(tmp_entity.ctf_status != FLAG_BASE)
 839                 if(time >= tmp_entity.ctf_pickuptime + autocvar_g_ctf_stalemate_time || !tmp_entity.team) // instant stalemate in oneflag
 840                 {
 841                         tmp_entity.ctf_staleflagnext = ctf_staleflaglist; // link flag into staleflaglist
 842                         ctf_staleflaglist = tmp_entity;
 843
 844                         switch(tmp_entity.team)
 845                         {
 846                                 case NUM_TEAM_1: ++stale_red_flags; break;
 847                                 case NUM_TEAM_2: ++stale_blue_flags; break;
 848                                 case NUM_TEAM_3: ++stale_yellow_flags; break;
 849                                 case NUM_TEAM_4: ++stale_pink_flags; break;
 850                                 default: ++stale_neutral_flags; break;
 851                         }
 852                 }
 853         }
 854
 855         if(ctf_oneflag)
 856                 stale_flags = (stale_neutral_flags >= 1);
 857         else
 858                 stale_flags = (stale_red_flags >= 1) + (stale_blue_flags >= 1) + (stale_yellow_flags >= 1) + (stale_pink_flags >= 1);
 859
 860         if(ctf_oneflag && stale_flags == 1)
 861                 ctf_stalemate = true;
 862         else if(stale_flags >= 2)
 863                 ctf_stalemate = true;
 864         else if(stale_flags == 0 && autocvar_g_ctf_stalemate_endcondition == 2)
 865                 { ctf_stalemate = false; wpforenemy_announced = false; }
 866         else if(stale_flags < 2 && autocvar_g_ctf_stalemate_endcondition == 1)
 867                 { ctf_stalemate = false; wpforenemy_announced = false; }
 868
 869         // if sufficient stalemate, then set up the waypointsprite and announce the stalemate if necessary
 870         if(ctf_stalemate)
 871         {
 872                 for(tmp_entity = ctf_staleflaglist; tmp_entity; tmp_entity = tmp_entity.ctf_staleflagnext)
 873                 {
 874                         if((tmp_entity.owner) && (!tmp_entity.owner.wps_enemyflagcarrier))
 875                         {
 876                                 entity wp = WaypointSprite_Spawn(((ctf_oneflag) ? WP_FlagCarrier : WP_FlagCarrierEnemy), 0, 0, tmp_entity.owner, FLAG_WAYPOINT_OFFSET, NULL, 0, tmp_entity.owner, wps_enemyflagcarrier, true, RADARICON_FLAG);
 877                                 wp.colormod = WPCOLOR_ENEMYFC(tmp_entity.owner.team);
 878                                 setcefc(tmp_entity.owner.wps_enemyflagcarrier, ctf_Stalemate_Customize);
 879                         }
 880                 }
 881
 882                 if (!wpforenemy_announced)
 883                 {
 884                         FOREACH_CLIENT(IS_PLAYER(it) && IS_REAL_CLIENT(it), LAMBDA(Send_Notification(NOTIF_ONE, it, MSG_CENTER, ((it.flagcarried) ? CENTER_CTF_STALEMATE_CARRIER : CENTER_CTF_STALEMATE_OTHER))));
 885
 886                         wpforenemy_announced = true;
 887                 }
 888         }
 889 }
 890
 891 void ctf_FlagDamage(entity this, entity inflictor, entity attacker, float damage, int deathtype, vector hitloc, vector force)
 892 {
 893         if(ITEM_DAMAGE_NEEDKILL(deathtype))
 894         {
 895                 if(autocvar_g_ctf_flag_return_damage_delay)
 896                         this.ctf_flagdamaged_byworld = true;
 897                 else
 898                 {
 899                         this.health = 0;
 900                         ctf_CheckFlagReturn(this, RETURN_NEEDKILL);
 901                 }
 902                 return;
 903         }
 904         if(autocvar_g_ctf_flag_return_damage)
 905         {
 906                 // reduce health and check if it should be returned
 907                 this.health = this.health - damage;
 908                 ctf_CheckFlagReturn(this, RETURN_DAMAGE);
 909                 return;
 910         }
 911 }
 912
 913 void ctf_FlagThink(entity this)
 914 {
 915         // declarations
 916         entity tmp_entity;
 917
 918         this.nextthink = time + FLAG_THINKRATE; // only 5 fps, more is unnecessary.
 919
 920         // captureshield
 921         if(this == ctf_worldflaglist) // only for the first flag
 922                 FOREACH_CLIENT(true, LAMBDA(ctf_CaptureShield_Update(it, 1))); // release shield only
 923
 924         // sanity checks
 925         if(this.mins != this.m_mins || this.maxs != this.m_maxs) { // reset the flag boundaries in case it got squished
 926                 LOG_TRACE("wtf the flag got squashed?");
 927                 tracebox(this.origin, this.m_mins, this.m_maxs, this.origin, MOVE_NOMONSTERS, this);
 928                 if(!trace_startsolid || this.noalign) // can we resize it without getting stuck?
 929                         setsize(this, this.m_mins, this.m_maxs);
 930         }
 931
 932         // main think method
 933         switch(this.ctf_status)
 934         {
 935                 case FLAG_BASE:
 936                 {
 937                         if(autocvar_g_ctf_dropped_capture_radius)
 938                         {
 939                                 for(tmp_entity = ctf_worldflaglist; tmp_entity; tmp_entity = tmp_entity.ctf_worldflagnext)
 940                                         if(tmp_entity.ctf_status == FLAG_DROPPED)
 941                                         if(vdist(this.origin - tmp_entity.origin, <, autocvar_g_ctf_dropped_capture_radius))
 942                                         if(time > tmp_entity.ctf_droptime + autocvar_g_ctf_dropped_capture_delay)
 943                                                 ctf_Handle_Capture(this, tmp_entity, CAPTURE_DROPPED);
 944                         }
 945                         return;
 946                 }
 947
 948                 case FLAG_DROPPED:
 949                 {
 950                         this.angles = '0 0 0'; // reset flag angles in case warpzones adjust it
 951
 952                         if(autocvar_g_ctf_flag_dropped_floatinwater)
 953                         {
 954                                 vector midpoint = ((this.absmin + this.absmax) * 0.5);
 955                                 if(pointcontents(midpoint) == CONTENT_WATER)
 956                                 {
 957                                         this.velocity = this.velocity * 0.5;
 958
 959                                         if(pointcontents(midpoint + FLAG_FLOAT_OFFSET) == CONTENT_WATER)
 960                                                 { this.velocity_z = autocvar_g_ctf_flag_dropped_floatinwater; }
 961                                         else
 962                                                 { set_movetype(this, MOVETYPE_FLY); }
 963                                 }
 964                                 else if(this.move_movetype == MOVETYPE_FLY) { set_movetype(this, MOVETYPE_TOSS); }
 965                         }
 966                         if(autocvar_g_ctf_flag_return_dropped)
 967                         {
 968                                 if((vdist(this.origin - this.ctf_spawnorigin, <=, autocvar_g_ctf_flag_return_dropped)) || (autocvar_g_ctf_flag_return_dropped == -1))
 969                                 {
 970                                         this.health = 0;
 971                                         ctf_CheckFlagReturn(this, RETURN_DROPPED);
 972                                         return;
 973                                 }
 974                         }
 975                         if(this.ctf_flagdamaged_byworld)
 976                         {
 977                                 this.health -= ((this.max_flag_health / autocvar_g_ctf_flag_return_damage_delay) * FLAG_THINKRATE);
 978                                 ctf_CheckFlagReturn(this, RETURN_NEEDKILL);
 979                                 return;
 980                         }
 981                         else if(autocvar_g_ctf_flag_return_time)
 982                         {
 983                                 this.health -= ((this.max_flag_health / autocvar_g_ctf_flag_return_time) * FLAG_THINKRATE);
 984                                 ctf_CheckFlagReturn(this, RETURN_TIMEOUT);
 985                                 return;
 986                         }
 987                         return;
 988                 }
 989
 990                 case FLAG_CARRY:
 991                 {
 992                         if(this.speedrunning && ctf_captimerecord && (time >= this.ctf_pickuptime + ctf_captimerecord))
 993                         {
 994                                 this.health = 0;
 995                                 ctf_CheckFlagReturn(this, RETURN_SPEEDRUN);
 996
 997                                 this.owner.impulse = CHIMPULSE_SPEEDRUN.impulse; // move the player back to the waypoint they set
 998                                 ImpulseCommands(this.owner);
 999                         }
1000                         if(autocvar_g_ctf_stalemate)
1001                         {
1002                                 if(time >= wpforenemy_nextthink)
1003                                 {
1004                                         ctf_CheckStalemate();
1005                                         wpforenemy_nextthink = time + WPFE_THINKRATE; // waypoint for enemy think rate (to reduce unnecessary spam of this check)
1006                                 }
1007                         }
1008                         if(CTF_SAMETEAM(this, this.owner) && this.team)
1009                         {
1010                                 if(autocvar_g_ctf_flag_return) // drop the flag if reverse status has changed
1011                                         ctf_Handle_Throw(this.owner, NULL, DROP_THROW);
1012                                 else if(vdist(this.owner.origin - this.ctf_spawnorigin, <=, autocvar_g_ctf_flag_return_carried_radius))
1013                                         ctf_Handle_Return(this, this.owner);
1014                         }
1015                         return;
1016                 }
1017
1018                 case FLAG_PASSING:
1019                 {
1020                         vector targ_origin = ((this.pass_target.absmin + this.pass_target.absmax) * 0.5);
1021                         targ_origin = WarpZone_RefSys_TransformOrigin(this.pass_target, this, targ_origin); // origin of target as seen by the flag (us)
1022                         WarpZone_TraceLine(this.origin, targ_origin, MOVE_NOMONSTERS, this);
1023
1024                         if((this.pass_target == NULL)
1025                                 || (IS_DEAD(this.pass_target))
1026                                 || (this.pass_target.flagcarried)
1027                                 || (vdist(this.origin - targ_origin, >, autocvar_g_ctf_pass_radius))
1028                                 || ((trace_fraction < 1) && (trace_ent != this.pass_target))
1029                                 || (time > this.ctf_droptime + autocvar_g_ctf_pass_timelimit))
1030                         {
1031                                 // give up, pass failed
1032                                 ctf_Handle_Drop(this, NULL, DROP_PASS);
1033                         }
1034                         else
1035                         {
1036                                 // still a viable target, go for it
1037                                 ctf_CalculatePassVelocity(this, targ_origin, this.origin, true);
1038                         }
1039                         return;
1040                 }
1041
1042                 default: // this should never happen
1043                 {
1044                         LOG_TRACE("ctf_FlagThink(): Flag exists with no status?");
1045                         return;
1046                 }
1047         }
1048 }
1049
1050 METHOD(Flag, giveTo, bool(Flag this, entity flag, entity toucher))
1051 {
1052         return = false;
1053         if(game_stopped) return;
1054         if(trace_dphitcontents & (DPCONTENTS_PLAYERCLIP | DPCONTENTS_MONSTERCLIP)) { return; }
1055
1056         bool is_not_monster = (!IS_MONSTER(toucher));
1057
1058         // automatically kill the flag and return it if it touched lava/slime/nodrop surfaces
1059         if(ITEM_TOUCH_NEEDKILL())
1060         {
1061                 if(!autocvar_g_ctf_flag_return_damage_delay)
1062                 {
1063                         flag.health = 0;
1064                         ctf_CheckFlagReturn(flag, RETURN_NEEDKILL);
1065                 }
1066                 if(!flag.ctf_flagdamaged_byworld) { return; }
1067         }
1068
1069         // special touch behaviors
1070         if(STAT(FROZEN, toucher)) { return; }
1071         else if(IS_VEHICLE(toucher))
1072         {
1073                 if(autocvar_g_ctf_allow_vehicle_touch && toucher.owner)
1074                         toucher = toucher.owner; // the player is actually the vehicle owner, not other
1075                 else
1076                         return; // do nothing
1077         }
1078         else if(IS_MONSTER(toucher))
1079         {
1080                 if(!autocvar_g_ctf_allow_monster_touch)
1081                         return; // do nothing
1082         }
1083         else if (!IS_PLAYER(toucher)) // The flag just touched an object, most likely the world
1084         {
1085                 if(time > flag.wait) // if we haven't in a while, play a sound/effect
1086                 {
1087                         Send_Effect_(flag.toucheffect, flag.origin, '0 0 0', 1);
1088                         _sound(flag, CH_TRIGGER, flag.snd_flag_touch, VOL_BASE, ATTEN_NORM);
1089                         flag.wait = time + FLAG_TOUCHRATE;
1090                 }
1091                 return;
1092         }
1093         else if(IS_DEAD(toucher)) { return; }
1094
1095         switch(flag.ctf_status)
1096         {
1097                 case FLAG_BASE:
1098                 {
1099                         if(ctf_oneflag)
1100                         {
1101                                 if(CTF_SAMETEAM(toucher, flag) && (toucher.flagcarried) && !toucher.flagcarried.team && is_not_monster)
1102                                         ctf_Handle_Capture(flag, toucher, CAPTURE_NORMAL); // toucher just captured the neutral flag to enemy base
1103                                 else if(!flag.team && (!toucher.flagcarried) && (!toucher.ctf_captureshielded) && (time > toucher.next_take_time) && is_not_monster)
1104                                         ctf_Handle_Pickup(flag, toucher, PICKUP_BASE); // toucher just stole the neutral flag
1105                         }
1106                         else if(CTF_SAMETEAM(toucher, flag) && (toucher.flagcarried) && DIFF_TEAM(toucher.flagcarried, flag) && is_not_monster)
1107                                 ctf_Handle_Capture(flag, toucher, CAPTURE_NORMAL); // toucher just captured the enemies flag to his base
1108                         else if(CTF_DIFFTEAM(toucher, flag) && (toucher.flagcarried) && CTF_SAMETEAM(toucher.flagcarried, toucher) && (!toucher.ctf_captureshielded) && autocvar_g_ctf_flag_return_carrying && (time > toucher.next_take_time) && is_not_monster)
1109                         {
1110                                 ctf_Handle_Return(toucher.flagcarried, toucher); // return their current flag
1111                                 ctf_Handle_Pickup(flag, toucher, PICKUP_BASE); // now pickup the flag
1112                         }
1113                         else if(CTF_DIFFTEAM(toucher, flag) && (!toucher.flagcarried) && (!toucher.ctf_captureshielded) && (time > toucher.next_take_time) && is_not_monster)
1114                                 ctf_Handle_Pickup(flag, toucher, PICKUP_BASE); // toucher just stole the enemies flag
1115                         break;
1116                 }
1117
1118                 case FLAG_DROPPED:
1119                 {
1120                         if(CTF_SAMETEAM(toucher, flag) && ctf_Immediate_Return_Allowed(flag, toucher))
1121                                 ctf_Handle_Return(flag, toucher); // toucher just returned his own flag
1122                         else if(is_not_monster && (!toucher.flagcarried) && ((toucher != flag.ctf_dropper) || (time > flag.ctf_droptime + autocvar_g_ctf_flag_collect_delay)))
1123                                 ctf_Handle_Pickup(flag, toucher, PICKUP_DROPPED); // toucher just picked up a dropped enemy flag
1124                         break;
1125                 }
1126
1127                 case FLAG_CARRY:
1128                 {
1129                         LOG_TRACE("Someone touched a flag even though it was being carried?");
1130                         break;
1131                 }
1132
1133                 case FLAG_PASSING:
1134                 {
1135                         if((IS_PLAYER(toucher)) && !IS_DEAD(toucher) && (toucher != flag.pass_sender))
1136                         {
1137                                 if(DIFF_TEAM(toucher, flag.pass_sender))
1138                                 {
1139                                         if(ctf_Immediate_Return_Allowed(flag, toucher))
1140                                                 ctf_Handle_Return(flag, toucher);
1141                                         else if(is_not_monster && (!toucher.flagcarried))
1142                                                 ctf_Handle_Pickup(flag, toucher, PICKUP_DROPPED);
1143                                 }
1144                                 else if(!toucher.flagcarried)
1145                                         ctf_Handle_Retrieve(flag, toucher);
1146                         }
1147                         break;
1148                 }
1149         }
1150 }
1151
1152 .float last_respawn;
1153 void ctf_RespawnFlag(entity flag)
1154 {
1155         // check for flag respawn being called twice in a row
1156         if(flag.last_respawn > time - 0.5)
1157                 { backtrace("flag respawn called twice quickly! please notify Samual about this..."); }
1158
1159         flag.last_respawn = time;
1160
1161         // reset the player (if there is one)
1162         if((flag.owner) && (flag.owner.flagcarried == flag))
1163         {
1164                 WaypointSprite_Kill(flag.owner.wps_enemyflagcarrier);
1165                 WaypointSprite_Kill(flag.owner.wps_flagreturn);
1166                 WaypointSprite_Kill(flag.wps_flagcarrier);
1167
1168                 flag.owner.flagcarried = NULL;
1169
1170                 if(flag.speedrunning)
1171                         ctf_FakeTimeLimit(flag.owner, -1);
1172         }
1173
1174         if((flag.owner) && (flag.owner.vehicle))
1175                 flag.scale = FLAG_SCALE;
1176
1177         if(flag.ctf_status == FLAG_DROPPED)
1178                 { WaypointSprite_Kill(flag.wps_flagdropped); }
1179
1180         // reset the flag
1181         setattachment(flag, NULL, "");
1182         setorigin(flag, flag.ctf_spawnorigin);
1183
1184         set_movetype(flag, ((flag.noalign) ? MOVETYPE_NONE : MOVETYPE_TOSS));
1185         flag.takedamage = DAMAGE_NO;
1186         flag.health = flag.max_flag_health;
1187         flag.solid = SOLID_TRIGGER;
1188         flag.velocity = '0 0 0';
1189         flag.angles = flag.mangle;
1190         flag.flags = FL_ITEM | FL_NOTARGET;
1191
1192         flag.ctf_status = FLAG_BASE;
1193         flag.owner = NULL;
1194         flag.pass_distance = 0;
1195         flag.pass_sender = NULL;
1196         flag.pass_target = NULL;
1197         flag.ctf_dropper = NULL;
1198         flag.ctf_pickuptime = 0;
1199         flag.ctf_droptime = 0;
1200         flag.ctf_flagdamaged_byworld = false;
1201         navigation_dynamicgoal_unset(flag);
1202
1203         ctf_CheckStalemate();
1204 }
1205
1206 void ctf_Reset(entity this)
1207 {
1208         if(this.owner && IS_PLAYER(this.owner))
1209         ctf_Handle_Throw(this.owner, NULL, DROP_RESET);
1210
1211         ctf_RespawnFlag(this);
1212 }
1213
1214 bool ctf_FlagBase_Customize(entity this, entity client)
1215 {
1216         entity e = WaypointSprite_getviewentity(client);
1217         entity wp_owner = this.owner;
1218         entity flag = e.flagcarried;
1219         if(flag && CTF_SAMETEAM(e, flag))
1220                 return false;
1221         if(flag && (flag.cnt || wp_owner.cnt) && wp_owner.cnt != flag.cnt)
1222                 return false;
1223         return true;
1224 }
1225
1226 void ctf_DelayedFlagSetup(entity this) // called after a flag is placed on a map by ctf_FlagSetup()
1227 {
1228         // bot waypoints
1229         waypoint_spawnforitem_force(this, this.origin);
1230         navigation_dynamicgoal_init(this, true);
1231
1232         // waypointsprites
1233         entity basename;
1234         switch (this.team)
1235         {
1236                 case NUM_TEAM_1: basename = WP_FlagBaseRed; break;
1237                 case NUM_TEAM_2: basename = WP_FlagBaseBlue; break;
1238                 case NUM_TEAM_3: basename = WP_FlagBaseYellow; break;
1239                 case NUM_TEAM_4: basename = WP_FlagBasePink; break;
1240                 default: basename = WP_FlagBaseNeutral; break;
1241         }
1242
1243         entity wp = WaypointSprite_SpawnFixed(basename, this.origin + FLAG_WAYPOINT_OFFSET, this, wps_flagbase, RADARICON_FLAG);
1244         wp.colormod = ((this.team) ? Team_ColorRGB(this.team) : '1 1 1');
1245         WaypointSprite_UpdateTeamRadar(this.wps_flagbase, RADARICON_FLAG, ((this.team) ? colormapPaletteColor(this.team - 1, false) : '1 1 1'));
1246         setcefc(wp, ctf_FlagBase_Customize);
1247
1248         // captureshield setup
1249         ctf_CaptureShield_Spawn(this);
1250 }
1251
1252 .bool pushable;
1253
1254 void ctf_FlagSetup(int teamnumber, entity flag) // called when spawning a flag entity on the map as a spawnfunc
1255 {
1256         // main setup
1257         flag.ctf_worldflagnext = ctf_worldflaglist; // link flag into ctf_worldflaglist
1258         ctf_worldflaglist = flag;
1259
1260         setattachment(flag, NULL, "");
1261
1262         flag.netname = strzone(sprintf("%s%s^7 flag", Team_ColorCode(teamnumber), Team_ColorName_Upper(teamnumber)));
1263         flag.team = teamnumber;
1264         flag.classname = "item_flag_team";
1265         flag.target = "###item###"; // wut?
1266         flag.flags = FL_ITEM | FL_NOTARGET;
1267         IL_PUSH(g_items, flag);
1268         flag.solid = SOLID_TRIGGER;
1269         flag.takedamage = DAMAGE_NO;
1270         flag.damageforcescale = autocvar_g_ctf_flag_damageforcescale;
1271         flag.max_flag_health = ((autocvar_g_ctf_flag_return_damage && autocvar_g_ctf_flag_health) ? autocvar_g_ctf_flag_health : 100);
1272         flag.health = flag.max_flag_health;
1273         flag.event_damage = ctf_FlagDamage;
1274         flag.pushable = true;
1275         flag.teleportable = TELEPORT_NORMAL;
1276         flag.dphitcontentsmask = DPCONTENTS_SOLID | DPCONTENTS_PLAYERCLIP;
1277         flag.damagedbytriggers = autocvar_g_ctf_flag_return_when_unreachable;
1278         flag.damagedbycontents = autocvar_g_ctf_flag_return_when_unreachable;
1279         if(flag.damagedbycontents)
1280                 IL_PUSH(g_damagedbycontents, flag);
1281         flag.velocity = '0 0 0';
1282         flag.mangle = flag.angles;
1283         flag.reset = ctf_Reset;
1284         settouch(flag, ctf_FlagTouch);
1285         setthink(flag, ctf_FlagThink);
1286         flag.nextthink = time + FLAG_THINKRATE;
1287         flag.ctf_status = FLAG_BASE;
1288
1289         // crudely force them all to 0
1290         if(autocvar_g_ctf_score_ignore_fields)
1291                 flag.cnt = flag.score_assist = flag.score_team_capture = flag.score_capture = flag.score_drop = flag.score_pickup = flag.score_return = 0;
1292
1293         string teamname = Static_Team_ColorName_Lower(teamnumber);
1294         // appearence
1295         if(!flag.scale)                         { flag.scale = FLAG_SCALE; }
1296         if(flag.skin == 0)                      { flag.skin = cvar(sprintf("g_ctf_flag_%s_skin", teamname)); }
1297         if(flag.model == "")            { flag.model = cvar_string(sprintf("g_ctf_flag_%s_model", teamname)); }
1298         if (flag.toucheffect == "") { flag.toucheffect = EFFECT_FLAG_TOUCH(teamnumber).eent_eff_name; }
1299         if (flag.passeffect == "")      { flag.passeffect = EFFECT_PASS(teamnumber).eent_eff_name; }
1300         if (flag.capeffect == "")       { flag.capeffect = EFFECT_CAP(teamnumber).eent_eff_name; }
1301
1302         // sounds
1303 #define X(s,b) \
1304                 if(flag.s == "") flag.s = b; \
1305                 precache_sound(flag.s);
1306
1307         X(snd_flag_taken,               strzone(SND(CTF_TAKEN(teamnumber))))
1308         X(snd_flag_returned,    strzone(SND(CTF_RETURNED(teamnumber))))
1309         X(snd_flag_capture,     strzone(SND(CTF_CAPTURE(teamnumber))))
1310         X(snd_flag_dropped,     strzone(SND(CTF_DROPPED(teamnumber))))
1311         X(snd_flag_respawn,     strzone(SND(CTF_RESPAWN)))
1312         X(snd_flag_touch,               strzone(SND(CTF_TOUCH)))
1313         X(snd_flag_pass,                strzone(SND(CTF_PASS)))
1314 #undef X
1315
1316         // precache
1317         precache_model(flag.model);
1318
1319         // appearence
1320         _setmodel(flag, flag.model); // precision set below
1321         setsize(flag, CTF_FLAG.m_mins * flag.scale, CTF_FLAG.m_maxs * flag.scale);
1322         flag.m_mins = flag.mins; // store these for squash checks
1323         flag.m_maxs = flag.maxs;
1324         setorigin(flag, (flag.origin + FLAG_SPAWN_OFFSET));
1325
1326         if(autocvar_g_ctf_flag_glowtrails)
1327         {
1328                 switch(teamnumber)
1329                 {
1330                         case NUM_TEAM_1: flag.glow_color = 251; break;
1331                         case NUM_TEAM_2: flag.glow_color = 210; break;
1332                         case NUM_TEAM_3: flag.glow_color = 110; break;
1333                         case NUM_TEAM_4: flag.glow_color = 145; break;
1334                         default:                 flag.glow_color = 254; break;
1335                 }
1336                 flag.glow_size = 25;
1337                 flag.glow_trail = 1;
1338         }
1339
1340         flag.effects |= EF_LOWPRECISION;
1341         if(autocvar_g_ctf_fullbrightflags) { flag.effects |= EF_FULLBRIGHT; }
1342         if(autocvar_g_ctf_dynamiclights)
1343         {
1344                 switch(teamnumber)
1345                 {
1346                         case NUM_TEAM_1: flag.effects |= EF_RED; break;
1347                         case NUM_TEAM_2: flag.effects |= EF_BLUE; break;
1348                         case NUM_TEAM_3: flag.effects |= EF_DIMLIGHT; break;
1349                         case NUM_TEAM_4: flag.effects |= EF_RED; break;
1350                         default:                 flag.effects |= EF_DIMLIGHT; break;
1351                 }
1352         }
1353
1354         // flag placement
1355         if((flag.spawnflags & 1) || flag.noalign) // don't drop to floor, just stay at fixed location
1356         {
1357                 flag.dropped_origin = flag.origin;
1358                 flag.noalign = true;
1359                 set_movetype(flag, MOVETYPE_NONE);
1360         }
1361         else // drop to floor, automatically find a platform and set that as spawn origin
1362         {
1363                 flag.noalign = false;
1364                 droptofloor(flag);
1365                 set_movetype(flag, MOVETYPE_NONE);
1366         }
1367
1368         InitializeEntity(flag, ctf_DelayedFlagSetup, INITPRIO_SETLOCATION);
1369 }
1370
1371
1372 // ================
1373 // Bot player logic
1374 // ================
1375
1376 // NOTE: LEGACY CODE, needs to be re-written!
1377
1378 void havocbot_calculate_middlepoint()
1379 {
1380         entity f;
1381         vector s = '0 0 0';
1382         vector fo = '0 0 0';
1383         int n = 0;
1384
1385         f = ctf_worldflaglist;
1386         while (f)
1387         {
1388                 fo = f.origin;
1389                 s = s + fo;
1390                 f = f.ctf_worldflagnext;
1391                 n++;
1392         }
1393         if(!n)
1394                 return;
1395         havocbot_ctf_middlepoint = s / n;
1396         havocbot_ctf_middlepoint_radius = vlen(fo - havocbot_ctf_middlepoint);
1397 }
1398
1399
1400 entity havocbot_ctf_find_flag(entity bot)
1401 {
1402         entity f;
1403         f = ctf_worldflaglist;
1404         while (f)
1405         {
1406                 if (CTF_SAMETEAM(bot, f))
1407                         return f;
1408                 f = f.ctf_worldflagnext;
1409         }
1410         return NULL;
1411 }
1412
1413 entity havocbot_ctf_find_enemy_flag(entity bot)
1414 {
1415         entity f;
1416         f = ctf_worldflaglist;
1417         while (f)
1418         {
1419                 if(ctf_oneflag)
1420                 {
1421                         if(CTF_DIFFTEAM(bot, f))
1422                         {
1423                                 if(f.team)
1424                                 {
1425                                         if(bot.flagcarried)
1426                                                 return f;
1427                                 }
1428                                 else if(!bot.flagcarried)
1429                                         return f;
1430                         }
1431                 }
1432                 else if (CTF_DIFFTEAM(bot, f))
1433                         return f;
1434                 f = f.ctf_worldflagnext;
1435         }
1436         return NULL;
1437 }
1438
1439 int havocbot_ctf_teamcount(entity bot, vector org, float tc_radius)
1440 {
1441         if (!teamplay)
1442                 return 0;
1443
1444         int c = 0;
1445
1446         FOREACH_CLIENT(IS_PLAYER(it), LAMBDA(
1447                 if(DIFF_TEAM(it, bot) || IS_DEAD(it) || it == bot)
1448                         continue;
1449
1450                 if(vdist(it.origin - org, <, tc_radius))
1451                         ++c;
1452         ));
1453
1454         return c;
1455 }
1456
1457 // unused
1458 #if 0
1459 void havocbot_goalrating_ctf_ourflag(entity this, float ratingscale)
1460 {
1461         entity head;
1462         head = ctf_worldflaglist;
1463         while (head)
1464         {
1465                 if (CTF_SAMETEAM(this, head))
1466                         break;
1467                 head = head.ctf_worldflagnext;
1468         }
1469         if (head)
1470                 navigation_routerating(this, head, ratingscale, 10000);
1471 }
1472 #endif
1473
1474 void havocbot_goalrating_ctf_ourbase(entity this, float ratingscale)
1475 {
1476         entity head;
1477         head = ctf_worldflaglist;
1478         while (head)
1479         {
1480                 if (CTF_SAMETEAM(this, head))
1481                 {
1482                         if (this.flagcarried)
1483                         if ((this.flagcarried.cnt || head.cnt) && this.flagcarried.cnt != head.cnt)
1484                         {
1485                                 head = head.ctf_worldflagnext; // skip base if it has a different group
1486                                 continue;
1487                         }
1488                         break;
1489                 }
1490                 head = head.ctf_worldflagnext;
1491         }
1492         if (!head)
1493                 return;
1494
1495         navigation_routerating(this, head.bot_basewaypoint, ratingscale, 10000);
1496 }
1497
1498 void havocbot_goalrating_ctf_enemyflag(entity this, float ratingscale)
1499 {
1500         entity head;
1501         head = ctf_worldflaglist;
1502         while (head)
1503         {
1504                 if(ctf_oneflag)
1505                 {
1506                         if(CTF_DIFFTEAM(this, head))
1507                         {
1508                                 if(head.team)
1509                                 {
1510                                         if(this.flagcarried)
1511                                                 break;
1512                                 }
1513                                 else if(!this.flagcarried)
1514                                         break;
1515                         }
1516                 }
1517                 else if(CTF_DIFFTEAM(this, head))
1518                         break;
1519                 head = head.ctf_worldflagnext;
1520         }
1521         if (head)
1522                 navigation_routerating(this, head, ratingscale, 10000);
1523 }
1524
1525 void havocbot_goalrating_ctf_enemybase(entity this, float ratingscale)
1526 {
1527         if (!bot_waypoints_for_items)
1528         {
1529                 havocbot_goalrating_ctf_enemyflag(this, ratingscale);
1530                 return;
1531         }
1532
1533         entity head;
1534
1535         head = havocbot_ctf_find_enemy_flag(this);
1536
1537         if (!head)
1538                 return;
1539
1540         navigation_routerating(this, head.bot_basewaypoint, ratingscale, 10000);
1541 }
1542
1543 void havocbot_goalrating_ctf_ourstolenflag(entity this, float ratingscale)
1544 {
1545         entity mf;
1546
1547         mf = havocbot_ctf_find_flag(this);
1548
1549         if(mf.ctf_status == FLAG_BASE)
1550                 return;
1551
1552         if(mf.tag_entity)
1553                 navigation_routerating(this, mf.tag_entity, ratingscale, 10000);
1554 }
1555
1556 void havocbot_goalrating_ctf_droppedflags(entity this, float ratingscale, vector org, float df_radius)
1557 {
1558         entity head;
1559         head = ctf_worldflaglist;
1560         while (head)
1561         {
1562                 // flag is out in the field
1563                 if(head.ctf_status != FLAG_BASE)
1564                 if(head.tag_entity==NULL)       // dropped
1565                 {
1566                         if(df_radius)
1567                         {
1568                                 if(vdist(org - head.origin, <, df_radius))
1569                                         navigation_routerating(this, head, ratingscale, 10000);
1570                         }
1571                         else
1572                                 navigation_routerating(this, head, ratingscale, 10000);
1573                 }
1574
1575                 head = head.ctf_worldflagnext;
1576         }
1577 }
1578
1579 void havocbot_goalrating_ctf_carrieritems(entity this, float ratingscale, vector org, float sradius)
1580 {
1581         IL_EACH(g_items, it.bot_pickup,
1582         {
1583                 // gather health and armor only
1584                 if (it.solid)
1585                 if (it.health || it.armorvalue)
1586                 if (vdist(it.origin - org, <, sradius))
1587                 {
1588                         // get the value of the item
1589                         float t = it.bot_pickupevalfunc(this, it) * 0.0001;
1590                         if (t > 0)
1591                                 navigation_routerating(this, it, t * ratingscale, 500);
1592                 }
1593         });
1594 }
1595
1596 void havocbot_ctf_reset_role(entity this)
1597 {
1598         float cdefense, cmiddle, coffense;
1599         entity mf, ef;
1600         float c;
1601
1602         if(IS_DEAD(this))
1603                 return;
1604
1605         if(havocbot_ctf_middlepoint == '0 0 0')
1606                 havocbot_calculate_middlepoint();
1607
1608         // Check ctf flags
1609         if (this.flagcarried)
1610         {
1611                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_CARRIER);
1612                 return;
1613         }
1614
1615         mf = havocbot_ctf_find_flag(this);
1616         ef = havocbot_ctf_find_enemy_flag(this);
1617
1618         // Retrieve stolen flag
1619         if(mf.ctf_status!=FLAG_BASE)
1620         {
1621                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_RETRIEVER);
1622                 return;
1623         }
1624
1625         // If enemy flag is taken go to the middle to intercept pursuers
1626         if(ef.ctf_status!=FLAG_BASE)
1627         {
1628                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_MIDDLE);
1629                 return;
1630         }
1631
1632         // if there is only me on the team switch to offense
1633         c = 0;
1634         FOREACH_CLIENT(IS_PLAYER(it) && SAME_TEAM(it, this), LAMBDA(++c));
1635
1636         if(c==1)
1637         {
1638                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_OFFENSE);
1639                 return;
1640         }
1641
1642         // Evaluate best position to take
1643         // Count mates on middle position
1644         cmiddle = havocbot_ctf_teamcount(this, havocbot_ctf_middlepoint, havocbot_ctf_middlepoint_radius * 0.5);
1645
1646         // Count mates on defense position
1647         cdefense = havocbot_ctf_teamcount(this, mf.dropped_origin, havocbot_ctf_middlepoint_radius * 0.5);
1648
1649         // Count mates on offense position
1650         coffense = havocbot_ctf_teamcount(this, ef.dropped_origin, havocbot_ctf_middlepoint_radius);
1651
1652         if(cdefense<=coffense)
1653                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_DEFENSE);
1654         else if(coffense<=cmiddle)
1655                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_OFFENSE);
1656         else
1657                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_MIDDLE);
1658 }
1659
1660 void havocbot_role_ctf_carrier(entity this)
1661 {
1662         if(IS_DEAD(this))
1663         {
1664                 havocbot_ctf_reset_role(this);
1665                 return;
1666         }
1667
1668         if (this.flagcarried == NULL)
1669         {
1670                 havocbot_ctf_reset_role(this);
1671                 return;
1672         }
1673
1674         if (this.bot_strategytime < time)
1675         {
1676                 this.bot_strategytime = time + autocvar_bot_ai_strategyinterval;
1677
1678                 navigation_goalrating_start(this);
1679                 if(ctf_oneflag)
1680                         havocbot_goalrating_ctf_enemybase(this, 50000);
1681                 else
1682                         havocbot_goalrating_ctf_ourbase(this, 50000);
1683
1684                 if(this.health<100)
1685                         havocbot_goalrating_ctf_carrieritems(this, 1000, this.origin, 1000);
1686
1687                 navigation_goalrating_end(this);
1688
1689                 if (this.goalentity)
1690                         this.havocbot_cantfindflag = time + 10;
1691                 else if (time > this.havocbot_cantfindflag)
1692                 {
1693                         // Can't navigate to my own base, suicide!
1694                         // TODO: drop it and wander around
1695                         Damage(this, this, this, 100000, DEATH_KILL.m_id, this.origin, '0 0 0');
1696                         return;
1697                 }
1698         }
1699 }
1700
1701 void havocbot_role_ctf_escort(entity this)
1702 {
1703         entity mf, ef;
1704
1705         if(IS_DEAD(this))
1706         {
1707                 havocbot_ctf_reset_role(this);
1708                 return;
1709         }
1710
1711         if (this.flagcarried)
1712         {
1713                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_CARRIER);
1714                 return;
1715         }
1716
1717         // If enemy flag is back on the base switch to previous role
1718         ef = havocbot_ctf_find_enemy_flag(this);
1719         if(ef.ctf_status==FLAG_BASE)
1720         {
1721                 this.havocbot_role = this.havocbot_previous_role;
1722                 this.havocbot_role_timeout = 0;
1723                 return;
1724         }
1725
1726         // If the flag carrier reached the base switch to defense
1727         mf = havocbot_ctf_find_flag(this);
1728         if(mf.ctf_status!=FLAG_BASE)
1729         if(vdist(ef.origin - mf.dropped_origin, <, 300))
1730         {
1731                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_DEFENSE);
1732                 return;
1733         }
1734
1735         // Set the role timeout if necessary
1736         if (!this.havocbot_role_timeout)
1737         {
1738                 this.havocbot_role_timeout = time + random() * 30 + 60;
1739         }
1740
1741         // If nothing happened just switch to previous role
1742         if (time > this.havocbot_role_timeout)
1743         {
1744                 this.havocbot_role = this.havocbot_previous_role;
1745                 this.havocbot_role_timeout = 0;
1746                 return;
1747         }
1748
1749         // Chase the flag carrier
1750         if (this.bot_strategytime < time)
1751         {
1752                 this.bot_strategytime = time + autocvar_bot_ai_strategyinterval;
1753                 navigation_goalrating_start(this);
1754                 havocbot_goalrating_ctf_enemyflag(this, 30000);
1755                 havocbot_goalrating_ctf_ourstolenflag(this, 40000);
1756                 havocbot_goalrating_items(this, 10000, this.origin, 10000);
1757                 navigation_goalrating_end(this);
1758         }
1759 }
1760
1761 void havocbot_role_ctf_offense(entity this)
1762 {
1763         entity mf, ef;
1764         vector pos;
1765
1766         if(IS_DEAD(this))
1767         {
1768                 havocbot_ctf_reset_role(this);
1769                 return;
1770         }
1771
1772         if (this.flagcarried)
1773         {
1774                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_CARRIER);
1775                 return;
1776         }
1777
1778         // Check flags
1779         mf = havocbot_ctf_find_flag(this);
1780         ef = havocbot_ctf_find_enemy_flag(this);
1781
1782         // Own flag stolen
1783         if(mf.ctf_status!=FLAG_BASE)
1784         {
1785                 if(mf.tag_entity)
1786                         pos = mf.tag_entity.origin;
1787                 else
1788                         pos = mf.origin;
1789
1790                 // Try to get it if closer than the enemy base
1791                 if(vlen2(this.origin-ef.dropped_origin)>vlen2(this.origin-pos))
1792                 {
1793                         havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_RETRIEVER);
1794                         return;
1795                 }
1796         }
1797
1798         // Escort flag carrier
1799         if(ef.ctf_status!=FLAG_BASE)
1800         {
1801                 if(ef.tag_entity)
1802                         pos = ef.tag_entity.origin;
1803                 else
1804                         pos = ef.origin;
1805
1806                 if(vdist(pos - mf.dropped_origin, >, 700))
1807                 {
1808                         havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_ESCORT);
1809                         return;
1810                 }
1811         }
1812
1813         // About to fail, switch to middlefield
1814         if(this.health<50)
1815         {
1816                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_MIDDLE);
1817                 return;
1818         }
1819
1820         // Set the role timeout if necessary
1821         if (!this.havocbot_role_timeout)
1822                 this.havocbot_role_timeout = time + 120;
1823
1824         if (time > this.havocbot_role_timeout)
1825         {
1826                 havocbot_ctf_reset_role(this);
1827                 return;
1828         }
1829
1830         if (this.bot_strategytime < time)
1831         {
1832                 this.bot_strategytime = time + autocvar_bot_ai_strategyinterval;
1833                 navigation_goalrating_start(this);
1834                 havocbot_goalrating_ctf_ourstolenflag(this, 50000);
1835                 havocbot_goalrating_ctf_enemybase(this, 20000);
1836                 havocbot_goalrating_items(this, 5000, this.origin, 1000);
1837                 havocbot_goalrating_items(this, 1000, this.origin, 10000);
1838                 navigation_goalrating_end(this);
1839         }
1840 }
1841
1842 // Retriever (temporary role):
1843 void havocbot_role_ctf_retriever(entity this)
1844 {
1845         entity mf;
1846
1847         if(IS_DEAD(this))
1848         {
1849                 havocbot_ctf_reset_role(this);
1850                 return;
1851         }
1852
1853         if (this.flagcarried)
1854         {
1855                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_CARRIER);
1856                 return;
1857         }
1858
1859         // If flag is back on the base switch to previous role
1860         mf = havocbot_ctf_find_flag(this);
1861         if(mf.ctf_status==FLAG_BASE)
1862         {
1863                 if(this.goalcurrent == mf)
1864                 {
1865                         navigation_clearroute(this);
1866                         this.bot_strategytime = 0;
1867                 }
1868                 havocbot_ctf_reset_role(this);
1869                 return;
1870         }
1871
1872         if (!this.havocbot_role_timeout)
1873                 this.havocbot_role_timeout = time + 20;
1874
1875         if (time > this.havocbot_role_timeout)
1876         {
1877                 havocbot_ctf_reset_role(this);
1878                 return;
1879         }
1880
1881         if (this.bot_strategytime < time)
1882         {
1883                 float rt_radius;
1884                 rt_radius = 10000;
1885
1886                 this.bot_strategytime = time + autocvar_bot_ai_strategyinterval;
1887                 navigation_goalrating_start(this);
1888                 havocbot_goalrating_ctf_ourstolenflag(this, 50000);
1889                 havocbot_goalrating_ctf_droppedflags(this, 40000, this.origin, rt_radius);
1890                 havocbot_goalrating_ctf_enemybase(this, 30000);
1891                 havocbot_goalrating_items(this, 500, this.origin, rt_radius);
1892                 navigation_goalrating_end(this);
1893         }
1894 }
1895
1896 void havocbot_role_ctf_middle(entity this)
1897 {
1898         entity mf;
1899
1900         if(IS_DEAD(this))
1901         {
1902                 havocbot_ctf_reset_role(this);
1903                 return;
1904         }
1905
1906         if (this.flagcarried)
1907         {
1908                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_CARRIER);
1909                 return;
1910         }
1911
1912         mf = havocbot_ctf_find_flag(this);
1913         if(mf.ctf_status!=FLAG_BASE)
1914         {
1915                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_RETRIEVER);
1916                 return;
1917         }
1918
1919         if (!this.havocbot_role_timeout)
1920                 this.havocbot_role_timeout = time + 10;
1921
1922         if (time > this.havocbot_role_timeout)
1923         {
1924                 havocbot_ctf_reset_role(this);
1925                 return;
1926         }
1927
1928         if (this.bot_strategytime < time)
1929         {
1930                 vector org;
1931
1932                 org = havocbot_ctf_middlepoint;
1933                 org.z = this.origin.z;
1934
1935                 this.bot_strategytime = time + autocvar_bot_ai_strategyinterval;
1936                 navigation_goalrating_start(this);
1937                 havocbot_goalrating_ctf_ourstolenflag(this, 50000);
1938                 havocbot_goalrating_ctf_droppedflags(this, 30000, this.origin, 10000);
1939                 havocbot_goalrating_enemyplayers(this, 10000, org, havocbot_ctf_middlepoint_radius * 0.5);
1940                 havocbot_goalrating_items(this, 5000, org, havocbot_ctf_middlepoint_radius * 0.5);
1941                 havocbot_goalrating_items(this, 2500, this.origin, 10000);
1942                 havocbot_goalrating_ctf_enemybase(this, 2500);
1943                 navigation_goalrating_end(this);
1944         }
1945 }
1946
1947 void havocbot_role_ctf_defense(entity this)
1948 {
1949         entity mf;
1950
1951         if(IS_DEAD(this))
1952         {
1953                 havocbot_ctf_reset_role(this);
1954                 return;
1955         }
1956
1957         if (this.flagcarried)
1958         {
1959                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_CARRIER);
1960                 return;
1961         }
1962
1963         // If own flag was captured
1964         mf = havocbot_ctf_find_flag(this);
1965         if(mf.ctf_status!=FLAG_BASE)
1966         {
1967                 havocbot_role_ctf_setrole(this, HAVOCBOT_CTF_ROLE_RETRIEVER);
1968                 return;
1969         }
1970
1971         if (!this.havocbot_role_timeout)
1972                 this.havocbot_role_timeout = time + 30;
1973
1974         if (time > this.havocbot_role_timeout)
1975         {
1976                 havocbot_ctf_reset_role(this);
1977                 return;
1978         }
1979         if (this.bot_strategytime < time)
1980         {
1981                 float mp_radius;
1982                 vector org;
1983
1984                 org = mf.dropped_origin;
1985                 mp_radius = havocbot_ctf_middlepoint_radius;
1986
1987                 this.bot_strategytime = time + autocvar_bot_ai_strategyinterval;
1988                 navigation_goalrating_start(this);
1989
1990                 // if enemies are closer to our base, go there
1991                 entity closestplayer = NULL;
1992                 float distance, bestdistance = 10000;
1993                 FOREACH_CLIENT(IS_PLAYER(it) && !IS_DEAD(it), LAMBDA(
1994                         distance = vlen(org - it.origin);
1995                         if(distance<bestdistance)
1996                         {
1997                                 closestplayer = it;
1998                                 bestdistance = distance;
1999                         }
2000                 ));
2001
2002                 if(closestplayer)
2003                 if(DIFF_TEAM(closestplayer, this))
2004                 if(vdist(org - this.origin, >, 1000))
2005                 if(checkpvs(this.origin,closestplayer)||random()<0.5)
2006                         havocbot_goalrating_ctf_ourbase(this, 30000);
2007
2008                 havocbot_goalrating_ctf_ourstolenflag(this, 20000);
2009                 havocbot_goalrating_ctf_droppedflags(this, 20000, org, mp_radius);
2010                 havocbot_goalrating_enemyplayers(this, 15000, org, mp_radius);
2011                 havocbot_goalrating_items(this, 10000, org, mp_radius);
2012                 havocbot_goalrating_items(this, 5000, this.origin, 10000);
2013                 navigation_goalrating_end(this);
2014         }
2015 }
2016
2017 void havocbot_role_ctf_setrole(entity bot, int role)
2018 {
2019         string s = "(null)";
2020         switch(role)
2021         {
2022                 case HAVOCBOT_CTF_ROLE_CARRIER:
2023                         s = "carrier";
2024                         bot.havocbot_role = havocbot_role_ctf_carrier;
2025                         bot.havocbot_role_timeout = 0;
2026                         bot.havocbot_cantfindflag = time + 10;
2027                         bot.bot_strategytime = 0;
2028                         break;
2029                 case HAVOCBOT_CTF_ROLE_DEFENSE:
2030                         s = "defense";
2031                         bot.havocbot_role = havocbot_role_ctf_defense;
2032                         bot.havocbot_role_timeout = 0;
2033                         break;
2034                 case HAVOCBOT_CTF_ROLE_MIDDLE:
2035                         s = "middle";
2036                         bot.havocbot_role = havocbot_role_ctf_middle;
2037                         bot.havocbot_role_timeout = 0;
2038                         break;
2039                 case HAVOCBOT_CTF_ROLE_OFFENSE:
2040                         s = "offense";
2041                         bot.havocbot_role = havocbot_role_ctf_offense;
2042                         bot.havocbot_role_timeout = 0;
2043                         break;
2044                 case HAVOCBOT_CTF_ROLE_RETRIEVER:
2045                         s = "retriever";
2046                         bot.havocbot_previous_role = bot.havocbot_role;
2047                         bot.havocbot_role = havocbot_role_ctf_retriever;
2048                         bot.havocbot_role_timeout = time + 10;
2049                         bot.bot_strategytime = 0;
2050                         break;
2051                 case HAVOCBOT_CTF_ROLE_ESCORT:
2052                         s = "escort";
2053                         bot.havocbot_previous_role = bot.havocbot_role;
2054                         bot.havocbot_role = havocbot_role_ctf_escort;
2055                         bot.havocbot_role_timeout = time + 30;
2056                         bot.bot_strategytime = 0;
2057                         break;
2058         }
2059         LOG_TRACE(bot.netname, " switched to ", s);
2060 }
2061
2062
2063 // ==============
2064 // Hook Functions
2065 // ==============
2066
2067 MUTATOR_HOOKFUNCTION(ctf, PlayerPreThink)
2068 {
2069         entity player = M_ARGV(0, entity);
2070
2071         int t = 0, t2 = 0, t3 = 0;
2072         bool b1 = false, b2 = false, b3 = false, b4 = false, b5 = false; // TODO: kill this, we WANT to show the other flags, somehow! (note: also means you don't see if you're FC)
2073
2074         // initially clear items so they can be set as necessary later.
2075         player.ctf_flagstatus &= ~(CTF_RED_FLAG_CARRYING                | CTF_RED_FLAG_TAKEN            | CTF_RED_FLAG_LOST
2076                                                    | CTF_BLUE_FLAG_CARRYING             | CTF_BLUE_FLAG_TAKEN           | CTF_BLUE_FLAG_LOST
2077                                                    | CTF_YELLOW_FLAG_CARRYING   | CTF_YELLOW_FLAG_TAKEN         | CTF_YELLOW_FLAG_LOST
2078                                                    | CTF_PINK_FLAG_CARRYING     | CTF_PINK_FLAG_TAKEN           | CTF_PINK_FLAG_LOST
2079                                                    | CTF_NEUTRAL_FLAG_CARRYING  | CTF_NEUTRAL_FLAG_TAKEN        | CTF_NEUTRAL_FLAG_LOST
2080                                                    | CTF_FLAG_NEUTRAL | CTF_SHIELDED | CTF_STALEMATE);
2081
2082         // scan through all the flags and notify the client about them
2083         for(entity flag = ctf_worldflaglist; flag; flag = flag.ctf_worldflagnext)
2084         {
2085                 if(flag.team == NUM_TEAM_1 && !b1) { b1 = true; t = CTF_RED_FLAG_CARRYING;              t2 = CTF_RED_FLAG_TAKEN;                t3 = CTF_RED_FLAG_LOST; }
2086                 if(flag.team == NUM_TEAM_2 && !b2) { b2 = true; t = CTF_BLUE_FLAG_CARRYING;             t2 = CTF_BLUE_FLAG_TAKEN;               t3 = CTF_BLUE_FLAG_LOST; }
2087                 if(flag.team == NUM_TEAM_3 && !b3) { b3 = true; t = CTF_YELLOW_FLAG_CARRYING;   t2 = CTF_YELLOW_FLAG_TAKEN;             t3 = CTF_YELLOW_FLAG_LOST; }
2088                 if(flag.team == NUM_TEAM_4 && !b4) { b4 = true; t = CTF_PINK_FLAG_CARRYING;             t2 = CTF_PINK_FLAG_TAKEN;               t3 = CTF_PINK_FLAG_LOST; }
2089                 if(flag.team == 0 && !b5)                  { b5 = true; t = CTF_NEUTRAL_FLAG_CARRYING;  t2 = CTF_NEUTRAL_FLAG_TAKEN;    t3 = CTF_NEUTRAL_FLAG_LOST; player.ctf_flagstatus |= CTF_FLAG_NEUTRAL; }
2090
2091                 switch(flag.ctf_status)
2092                 {
2093                         case FLAG_PASSING:
2094                         case FLAG_CARRY:
2095                         {
2096                                 if((flag.owner == player) || (flag.pass_sender == player))
2097                                         player.ctf_flagstatus |= t; // carrying: player is currently carrying the flag
2098                                 else
2099                                         player.ctf_flagstatus |= t2; // taken: someone else is carrying the flag
2100                                 break;
2101                         }
2102                         case FLAG_DROPPED:
2103                         {
2104                                 player.ctf_flagstatus |= t3; // lost: the flag is dropped somewhere on the map
2105                                 break;
2106                         }
2107                 }
2108         }
2109
2110         // item for stopping players from capturing the flag too often
2111         if(player.ctf_captureshielded)
2112                 player.ctf_flagstatus |= CTF_SHIELDED;
2113
2114         if(ctf_stalemate)
2115                 player.ctf_flagstatus |= CTF_STALEMATE;
2116
2117         // update the health of the flag carrier waypointsprite
2118         if(player.wps_flagcarrier)
2119                 WaypointSprite_UpdateHealth(player.wps_flagcarrier, '1 0 0' * healtharmor_maxdamage(player.health, player.armorvalue, autocvar_g_balance_armor_blockpercent, DEATH_WEAPON.m_id));
2120 }
2121
2122 MUTATOR_HOOKFUNCTION(ctf, Damage_Calculate) // for changing damage and force values that are applied to players in g_damage.qc
2123 {
2124         entity frag_attacker = M_ARGV(1, entity);
2125         entity frag_target = M_ARGV(2, entity);
2126         float frag_damage = M_ARGV(4, float);
2127         vector frag_force = M_ARGV(6, vector);
2128
2129         if(frag_attacker.flagcarried) // if the attacker is a flagcarrier
2130         {
2131                 if(frag_target == frag_attacker) // damage done to yourself
2132                 {
2133                         frag_damage *= autocvar_g_ctf_flagcarrier_selfdamagefactor;
2134                         frag_force *= autocvar_g_ctf_flagcarrier_selfforcefactor;
2135                 }
2136                 else // damage done to everyone else
2137                 {
2138                         frag_damage *= autocvar_g_ctf_flagcarrier_damagefactor;
2139                         frag_force *= autocvar_g_ctf_flagcarrier_forcefactor;
2140                 }
2141
2142                 M_ARGV(4, float) = frag_damage;
2143                 M_ARGV(6, vector) = frag_force;
2144         }
2145         else if(frag_target.flagcarried && !IS_DEAD(frag_target) && CTF_DIFFTEAM(frag_target, frag_attacker)) // if the target is a flagcarrier
2146         {
2147                 if(autocvar_g_ctf_flagcarrier_auto_helpme_damage > ('1 0 0' * healtharmor_maxdamage(frag_target.health, frag_target.armorvalue, autocvar_g_balance_armor_blockpercent, DEATH_WEAPON.m_id)))
2148                 if(time > frag_target.wps_helpme_time + autocvar_g_ctf_flagcarrier_auto_helpme_time)
2149                 {
2150                         frag_target.wps_helpme_time = time;
2151                         WaypointSprite_HelpMePing(frag_target.wps_flagcarrier);
2152                 }
2153                 // todo: add notification for when flag carrier needs help?
2154         }
2155 }
2156
2157 MUTATOR_HOOKFUNCTION(ctf, PlayerDies)
2158 {
2159         entity frag_attacker = M_ARGV(1, entity);
2160         entity frag_target = M_ARGV(2, entity);
2161
2162         if((frag_attacker != frag_target) && (IS_PLAYER(frag_attacker)) && (frag_target.flagcarried))
2163         {
2164                 PlayerTeamScore_AddScore(frag_attacker, ((SAME_TEAM(frag_attacker, frag_target)) ? -autocvar_g_ctf_score_kill : autocvar_g_ctf_score_kill));
2165                 PlayerScore_Add(frag_attacker, SP_CTF_FCKILLS, 1);
2166         }
2167
2168         if(frag_target.flagcarried)
2169         {
2170                 entity tmp_entity = frag_target.flagcarried;
2171                 ctf_Handle_Throw(frag_target, NULL, DROP_NORMAL);
2172                 tmp_entity.ctf_dropper = NULL;
2173         }
2174 }
2175
2176 MUTATOR_HOOKFUNCTION(ctf, GiveFragsForKill)
2177 {
2178         M_ARGV(2, float) = 0; // frag score
2179         return (autocvar_g_ctf_ignore_frags); // no frags counted in ctf if this is true
2180 }
2181
2182 void ctf_RemovePlayer(entity player)
2183 {
2184         if(player.flagcarried)
2185                 { ctf_Handle_Throw(player, NULL, DROP_NORMAL); }
2186
2187         for(entity flag = ctf_worldflaglist; flag; flag = flag.ctf_worldflagnext)
2188         {
2189                 if(flag.pass_sender == player) { flag.pass_sender = NULL; }
2190                 if(flag.pass_target == player) { flag.pass_target = NULL; }
2191                 if(flag.ctf_dropper == player) { flag.ctf_dropper = NULL; }
2192         }
2193 }
2194
2195 MUTATOR_HOOKFUNCTION(ctf, MakePlayerObserver)
2196 {
2197         entity player = M_ARGV(0, entity);
2198
2199         ctf_RemovePlayer(player);
2200 }
2201
2202 MUTATOR_HOOKFUNCTION(ctf, ClientDisconnect)
2203 {
2204         entity player = M_ARGV(0, entity);
2205
2206         ctf_RemovePlayer(player);
2207 }
2208
2209 MUTATOR_HOOKFUNCTION(ctf, ClientConnect)
2210 {
2211         if(!autocvar_g_ctf_leaderboard)
2212                 return;
2213
2214         entity player = M_ARGV(0, entity);
2215
2216         if(IS_REAL_CLIENT(player))
2217         {
2218                 for(int i = 1; i <= RANKINGS_CNT; ++i)
2219                 {
2220                         race_SendRankings(i, 0, 0, MSG_ONE);
2221                 }
2222         }
2223 }
2224
2225 MUTATOR_HOOKFUNCTION(ctf, GetPressedKeys)
2226 {
2227         if(!autocvar_g_ctf_leaderboard)
2228                 return;
2229
2230         entity player = M_ARGV(0, entity);
2231
2232         if(player.cvar_cl_allow_uidtracking == 1 && player.cvar_cl_allow_uid2name == 1)
2233         {
2234                 if (!player.stored_netname)
2235                         player.stored_netname = strzone(uid2name(player.crypto_idfp));
2236                 if(player.stored_netname != player.netname)
2237                 {
2238                         db_put(ServerProgsDB, strcat("/uid2name/", player.crypto_idfp), player.netname);
2239                         strunzone(player.stored_netname);
2240                         player.stored_netname = strzone(player.netname);
2241                 }
2242         }
2243 }
2244
2245 MUTATOR_HOOKFUNCTION(ctf, PortalTeleport)
2246 {
2247         entity player = M_ARGV(0, entity);
2248
2249         if(player.flagcarried)
2250         if(!autocvar_g_ctf_portalteleport)
2251                 { ctf_Handle_Throw(player, NULL, DROP_NORMAL); }
2252 }
2253
2254 MUTATOR_HOOKFUNCTION(ctf, PlayerUseKey)
2255 {
2256         if(MUTATOR_RETURNVALUE || game_stopped) return;
2257
2258         entity player = M_ARGV(0, entity);
2259
2260         if((time > player.throw_antispam) && !IS_DEAD(player) && !player.speedrunning && (!player.vehicle || autocvar_g_ctf_allow_vehicle_touch))
2261         {
2262                 // pass the flag to a team mate
2263                 if(autocvar_g_ctf_pass)
2264                 {
2265                         entity head, closest_target = NULL;
2266                         head = WarpZone_FindRadius(player.origin, autocvar_g_ctf_pass_radius, true);
2267
2268                         while(head) // find the closest acceptable target to pass to
2269                         {
2270                                 if(IS_PLAYER(head) && !IS_DEAD(head))
2271                                 if(head != player && SAME_TEAM(head, player))
2272                                 if(!head.speedrunning && !head.vehicle)
2273                                 {
2274                                         // if it's a player, use the view origin as reference (stolen from RadiusDamage functions in g_damage.qc)
2275                                         vector head_center = WarpZone_UnTransformOrigin(head, CENTER_OR_VIEWOFS(head));
2276                                         vector passer_center = CENTER_OR_VIEWOFS(player);
2277
2278                                         if(ctf_CheckPassDirection(head_center, passer_center, player.v_angle, head.WarpZone_findradius_nearest))
2279                                         {
2280                                                 if(autocvar_g_ctf_pass_request && !player.flagcarried && head.flagcarried)
2281                                                 {
2282                                                         if(IS_BOT_CLIENT(head))
2283                                                         {
2284                                                                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, CENTER_CTF_PASS_REQUESTING, head.netname);
2285                                                                 ctf_Handle_Throw(head, player, DROP_PASS);
2286                                                         }
2287                                                         else
2288                                                         {
2289                                                                 Send_Notification(NOTIF_ONE, head, MSG_CENTER, CENTER_CTF_PASS_REQUESTED, player.netname);
2290                                                                 Send_Notification(NOTIF_ONE, player, MSG_CENTER, CENTER_CTF_PASS_REQUESTING, head.netname);
2291                                                         }
2292                                                         player.throw_antispam = time + autocvar_g_ctf_pass_wait;
2293                                                         return true;
2294                                                 }
2295                                                 else if(player.flagcarried && !head.flagcarried)
2296                                                 {
2297                                                         if(closest_target)
2298                                                         {
2299                                                                 vector closest_target_center = WarpZone_UnTransformOrigin(closest_target, CENTER_OR_VIEWOFS(closest_target));
2300                                                                 if(vlen2(passer_center - head_center) < vlen2(passer_center - closest_target_center))
2301                                                                         { closest_target = head; }
2302                                                         }
2303                                                         else { closest_target = head; }
2304                                                 }
2305                                         }
2306                                 }
2307                                 head = head.chain;
2308                         }
2309
2310                         if(closest_target) { ctf_Handle_Throw(player, closest_target, DROP_PASS); return true; }
2311                 }
2312
2313                 // throw the flag in front of you
2314                 if(autocvar_g_ctf_throw && player.flagcarried)
2315                 {
2316                         if(player.throw_count == -1)
2317                         {
2318                                 if(time > player.throw_prevtime + autocvar_g_ctf_throw_punish_delay)
2319                                 {
2320                                         player.throw_prevtime = time;
2321                                         player.throw_count = 1;
2322                                         ctf_Handle_Throw(player, NULL, DROP_THROW);
2323                                         return true;
2324                                 }
2325                                 else
2326                                 {
2327                                         Send_Notification(NOTIF_ONE, player, MSG_CENTER, CENTER_CTF_FLAG_THROW_PUNISH, rint((player.throw_prevtime + autocvar_g_ctf_throw_punish_delay) - time));
2328                                         return false;
2329                                 }
2330                         }
2331                         else
2332                         {
2333                                 if(time > player.throw_prevtime + autocvar_g_ctf_throw_punish_time) { player.throw_count = 1; }
2334                                 else { player.throw_count += 1; }
2335                                 if(player.throw_count >= autocvar_g_ctf_throw_punish_count) { player.throw_count = -1; }
2336
2337                                 player.throw_prevtime = time;
2338                                 ctf_Handle_Throw(player, NULL, DROP_THROW);
2339                                 return true;
2340                         }
2341                 }
2342         }
2343 }
2344
2345 MUTATOR_HOOKFUNCTION(ctf, HelpMePing)
2346 {
2347         entity player = M_ARGV(0, entity);
2348
2349         if(player.wps_flagcarrier) // update the flagcarrier waypointsprite with "NEEDING HELP" notification
2350         {
2351                 player.wps_helpme_time = time;
2352                 WaypointSprite_HelpMePing(player.wps_flagcarrier);
2353         }
2354         else // create a normal help me waypointsprite
2355         {
2356                 WaypointSprite_Spawn(WP_Helpme, waypointsprite_deployed_lifetime, waypointsprite_limitedrange, player, FLAG_WAYPOINT_OFFSET, NULL, player.team, player, wps_helpme, false, RADARICON_HELPME);
2357                 WaypointSprite_Ping(player.wps_helpme);
2358         }
2359
2360         return true;
2361 }
2362
2363 MUTATOR_HOOKFUNCTION(ctf, VehicleEnter)
2364 {
2365         entity player = M_ARGV(0, entity);
2366         entity veh = M_ARGV(1, entity);
2367
2368         if(player.flagcarried)
2369         {
2370                 if(!autocvar_g_ctf_allow_vehicle_carry && !autocvar_g_ctf_allow_vehicle_touch)
2371                 {
2372                         ctf_Handle_Throw(player, NULL, DROP_NORMAL);
2373                 }
2374                 else
2375                 {
2376                         player.flagcarried.nodrawtoclient = player; // hide the flag from the driver
2377                         setattachment(player.flagcarried, veh, "");
2378                         setorigin(player.flagcarried, VEHICLE_FLAG_OFFSET);
2379                         player.flagcarried.scale = VEHICLE_FLAG_SCALE;
2380                         //player.flagcarried.angles = '0 0 0';
2381                 }
2382                 return true;
2383         }
2384 }
2385
2386 MUTATOR_HOOKFUNCTION(ctf, VehicleExit)
2387 {
2388         entity player = M_ARGV(0, entity);
2389
2390         if(player.flagcarried)
2391         {
2392                 setattachment(player.flagcarried, player, "");
2393                 setorigin(player.flagcarried, FLAG_CARRY_OFFSET);
2394                 player.flagcarried.scale = FLAG_SCALE;
2395                 player.flagcarried.angles = '0 0 0';
2396                 player.flagcarried.nodrawtoclient = NULL;
2397                 return true;
2398         }
2399 }
2400
2401 MUTATOR_HOOKFUNCTION(ctf, AbortSpeedrun)
2402 {
2403         entity player = M_ARGV(0, entity);
2404
2405         if(player.flagcarried)
2406         {
2407                 Send_Notification(NOTIF_ALL, NULL, MSG_INFO, APP_NUM(player.flagcarried.team, INFO_CTF_FLAGRETURN_ABORTRUN));
2408                 ctf_RespawnFlag(player.flagcarried);
2409                 return true;
2410         }
2411 }
2412
2413 MUTATOR_HOOKFUNCTION(ctf, MatchEnd)
2414 {
2415         entity flag; // temporary entity for the search method
2416
2417         for(flag = ctf_worldflaglist; flag; flag = flag.ctf_worldflagnext)
2418         {
2419                 switch(flag.ctf_status)
2420                 {
2421                         case FLAG_DROPPED:
2422                         case FLAG_PASSING:
2423                         {
2424                                 // lock the flag, game is over
2425                                 set_movetype(flag, MOVETYPE_NONE);
2426                                 flag.takedamage = DAMAGE_NO;
2427                                 flag.solid = SOLID_NOT;
2428                                 flag.nextthink = false; // stop thinking
2429
2430                                 //dprint("stopping the ", flag.netname, " from moving.\n");
2431                                 break;
2432                         }
2433
2434                         default:
2435                         case FLAG_BASE:
2436                         case FLAG_CARRY:
2437                         {
2438                                 // do nothing for these flags
2439                                 break;
2440                         }
2441                 }
2442         }
2443 }
2444
2445 MUTATOR_HOOKFUNCTION(ctf, HavocBot_ChooseRole)
2446 {
2447         entity bot = M_ARGV(0, entity);
2448
2449         havocbot_ctf_reset_role(bot);
2450         return true;
2451 }
2452
2453 MUTATOR_HOOKFUNCTION(ctf, CheckAllowedTeams)
2454 {
2455         //M_ARGV(0, float) = ctf_teams;
2456         M_ARGV(1, string) = "ctf_team";
2457         return true;
2458 }
2459
2460 MUTATOR_HOOKFUNCTION(ctf, SpectateCopy)
2461 {
2462         entity spectatee = M_ARGV(0, entity);
2463         entity client = M_ARGV(1, entity);
2464
2465         client.ctf_flagstatus = spectatee.ctf_flagstatus;
2466 }
2467
2468 MUTATOR_HOOKFUNCTION(ctf, GetRecords)
2469 {
2470         int record_page = M_ARGV(0, int);
2471         string ret_string = M_ARGV(1, string);
2472
2473         for(int i = record_page * 200; i < MapInfo_count && i < record_page * 200 + 200; ++i)
2474         {
2475                 if (MapInfo_Get_ByID(i))
2476                 {
2477                         float r = stof(db_get(ServerProgsDB, strcat(MapInfo_Map_bspname, "/captimerecord/time")));
2478
2479                         if(!r)
2480                                 continue;
2481
2482                         // TODO: uid2name
2483                         string h = db_get(ServerProgsDB, strcat(MapInfo_Map_bspname, "/captimerecord/netname"));
2484                         ret_string = strcat(ret_string, strpad(32, MapInfo_Map_bspname), " ", strpad(-6, ftos_decimals(r, 2)), " ", h, "\n");
2485                 }
2486         }
2487
2488         M_ARGV(1, string) = ret_string;
2489 }
2490
2491 bool superspec_Spectate(entity this, entity targ); // TODO
2492 void superspec_msg(string _center_title, string _con_title, entity _to, string _msg, float _spamlevel); // TODO
2493 MUTATOR_HOOKFUNCTION(ctf, SV_ParseClientCommand)
2494 {
2495         entity player = M_ARGV(0, entity);
2496         string cmd_name = M_ARGV(1, string);
2497         int cmd_argc = M_ARGV(2, int);
2498
2499         if(IS_PLAYER(player) || MUTATOR_RETURNVALUE || !cvar("g_superspectate")) { return false; }
2500
2501         if(cmd_name == "followfc")
2502         {
2503                 if(!g_ctf)
2504                         return true;
2505
2506                 int _team = 0;
2507                 bool found = false;
2508
2509                 if(cmd_argc == 2)
2510                 {
2511                         switch(argv(1))
2512                         {
2513                                 case "red":    if(ctf_teams & BIT(0)) _team = NUM_TEAM_1; break;
2514                                 case "blue":   if(ctf_teams & BIT(1)) _team = NUM_TEAM_2; break;
2515                                 case "yellow": if(ctf_teams & BIT(2)) _team = NUM_TEAM_3; break;
2516                                 case "pink":   if(ctf_teams & BIT(3)) _team = NUM_TEAM_4; break;
2517                         }
2518                 }
2519
2520                 FOREACH_CLIENT(IS_PLAYER(it), LAMBDA(
2521                         if(it.flagcarried && (it.team == _team || _team == 0))
2522                         {
2523                                 found = true;
2524                                 if(_team == 0 && IS_SPEC(player) && player.enemy == it)
2525                                         continue; // already spectating this fc, try another
2526                                 return superspec_Spectate(player, it);
2527                         }
2528                 ));
2529
2530                 if(!found)
2531                         superspec_msg("", "", player, "No active flag carrier\n", 1);
2532                 return true;
2533         }
2534 }
2535
2536 MUTATOR_HOOKFUNCTION(ctf, DropSpecialItems)
2537 {
2538         entity frag_target = M_ARGV(0, entity);
2539
2540         if(frag_target.flagcarried)
2541                 ctf_Handle_Throw(frag_target, NULL, DROP_THROW);
2542 }
2543
2544
2545 // ==========
2546 // Spawnfuncs
2547 // ==========
2548
2549 /*QUAKED spawnfunc_item_flag_team1 (0 0.5 0.8) (-48 -48 -37) (48 48 37)
2550 CTF flag for team one (Red).
2551 Keys:
2552 "angle" Angle the flag will point (minus 90 degrees)...
2553 "model" model to use, note this needs red and blue as skins 0 and 1...
2554 "noise" sound played when flag is picked up...
2555 "noise1" sound played when flag is returned by a teammate...
2556 "noise2" sound played when flag is captured...
2557 "noise3" sound played when flag is lost in the field and respawns itself...
2558 "noise4" sound played when flag is dropped by a player...
2559 "noise5" sound played when flag touches the ground... */
2560 spawnfunc(item_flag_team1)
2561 {
2562         if(!g_ctf) { delete(this); return; }
2563
2564         ctf_FlagSetup(NUM_TEAM_1, this);
2565 }
2566
2567 /*QUAKED spawnfunc_item_flag_team2 (0 0.5 0.8) (-48 -48 -37) (48 48 37)
2568 CTF flag for team two (Blue).
2569 Keys:
2570 "angle" Angle the flag will point (minus 90 degrees)...
2571 "model" model to use, note this needs red and blue as skins 0 and 1...
2572 "noise" sound played when flag is picked up...
2573 "noise1" sound played when flag is returned by a teammate...
2574 "noise2" sound played when flag is captured...
2575 "noise3" sound played when flag is lost in the field and respawns itself...
2576 "noise4" sound played when flag is dropped by a player...
2577 "noise5" sound played when flag touches the ground... */
2578 spawnfunc(item_flag_team2)
2579 {
2580         if(!g_ctf) { delete(this); return; }
2581
2582         ctf_FlagSetup(NUM_TEAM_2, this);
2583 }
2584
2585 /*QUAKED spawnfunc_item_flag_team3 (0 0.5 0.8) (-48 -48 -37) (48 48 37)
2586 CTF flag for team three (Yellow).
2587 Keys:
2588 "angle" Angle the flag will point (minus 90 degrees)...
2589 "model" model to use, note this needs red, blue yellow and pink as skins 0, 1, 2 and 3...
2590 "noise" sound played when flag is picked up...
2591 "noise1" sound played when flag is returned by a teammate...
2592 "noise2" sound played when flag is captured...
2593 "noise3" sound played when flag is lost in the field and respawns itself...
2594 "noise4" sound played when flag is dropped by a player...
2595 "noise5" sound played when flag touches the ground... */
2596 spawnfunc(item_flag_team3)
2597 {
2598         if(!g_ctf) { delete(this); return; }
2599
2600         ctf_FlagSetup(NUM_TEAM_3, this);
2601 }
2602
2603 /*QUAKED spawnfunc_item_flag_team4 (0 0.5 0.8) (-48 -48 -37) (48 48 37)
2604 CTF flag for team four (Pink).
2605 Keys:
2606 "angle" Angle the flag will point (minus 90 degrees)...
2607 "model" model to use, note this needs red, blue yellow and pink as skins 0, 1, 2 and 3...
2608 "noise" sound played when flag is picked up...
2609 "noise1" sound played when flag is returned by a teammate...
2610 "noise2" sound played when flag is captured...
2611 "noise3" sound played when flag is lost in the field and respawns itself...
2612 "noise4" sound played when flag is dropped by a player...
2613 "noise5" sound played when flag touches the ground... */
2614 spawnfunc(item_flag_team4)
2615 {
2616         if(!g_ctf) { delete(this); return; }
2617
2618         ctf_FlagSetup(NUM_TEAM_4, this);
2619 }
2620
2621 /*QUAKED spawnfunc_item_flag_neutral (0 0.5 0.8) (-48 -48 -37) (48 48 37)
2622 CTF flag (Neutral).
2623 Keys:
2624 "angle" Angle the flag will point (minus 90 degrees)...
2625 "model" model to use, note this needs red, blue yellow and pink as skins 0, 1, 2 and 3...
2626 "noise" sound played when flag is picked up...
2627 "noise1" sound played when flag is returned by a teammate...
2628 "noise2" sound played when flag is captured...
2629 "noise3" sound played when flag is lost in the field and respawns itself...
2630 "noise4" sound played when flag is dropped by a player...
2631 "noise5" sound played when flag touches the ground... */
2632 spawnfunc(item_flag_neutral)
2633 {
2634         if(!g_ctf) { delete(this); return; }
2635         if(!cvar("g_ctf_oneflag")) { delete(this); return; }
2636
2637         ctf_FlagSetup(0, this);
2638 }
2639
2640 /*QUAKED spawnfunc_ctf_team (0 .5 .8) (-16 -16 -24) (16 16 32)
2641 Team declaration for CTF gameplay, this allows you to decide what team names and control point models are used in your map.
2642 Note: If you use spawnfunc_ctf_team entities you must define at least 2!  However, unlike domination, you don't need to make a blank one too.
2643 Keys:
2644 "netname" Name of the team (for example Red, Blue, Green, Yellow, Life, Death, Offense, Defense, etc)...
2645 "cnt" Scoreboard color of the team (for example 4 is red and 13 is blue)... */
2646 spawnfunc(ctf_team)
2647 {
2648         if(!g_ctf) { delete(this); return; }
2649
2650         this.classname = "ctf_team";
2651         this.team = this.cnt + 1;
2652 }
2653
2654 // compatibility for quake maps
2655 spawnfunc(team_CTF_redflag)    { spawnfunc_item_flag_team1(this);    }
2656 spawnfunc(team_CTF_blueflag)   { spawnfunc_item_flag_team2(this);    }
2657 spawnfunc(info_player_team1);
2658 spawnfunc(team_CTF_redplayer)  { spawnfunc_info_player_team1(this);  }
2659 spawnfunc(team_CTF_redspawn)   { spawnfunc_info_player_team1(this);  }
2660 spawnfunc(info_player_team2);
2661 spawnfunc(team_CTF_blueplayer) { spawnfunc_info_player_team2(this);  }
2662 spawnfunc(team_CTF_bluespawn)  { spawnfunc_info_player_team2(this);  }
2663
2664 spawnfunc(team_CTF_neutralflag) { spawnfunc_item_flag_neutral(this);  }
2665 spawnfunc(team_neutralobelisk)  { spawnfunc_item_flag_neutral(this);  }
2666
2667 // compatibility for wop maps
2668 spawnfunc(team_redplayer)      { spawnfunc_info_player_team1(this);  }
2669 spawnfunc(team_blueplayer)     { spawnfunc_info_player_team2(this);  }
2670 spawnfunc(team_ctl_redlolly)   { spawnfunc_item_flag_team1(this);    }
2671 spawnfunc(team_CTL_redlolly)   { spawnfunc_item_flag_team1(this);    }
2672 spawnfunc(team_ctl_bluelolly)  { spawnfunc_item_flag_team2(this);    }
2673 spawnfunc(team_CTL_bluelolly)  { spawnfunc_item_flag_team2(this);    }
2674
2675
2676 // ==============
2677 // Initialization
2678 // ==============
2679
2680 // scoreboard setup
2681 void ctf_ScoreRules(int teams)
2682 {
2683         CheckAllowedTeams(NULL);
2684         ScoreRules_basics(teams, SFL_SORT_PRIO_PRIMARY, 0, true);
2685         ScoreInfo_SetLabel_TeamScore  (ST_CTF_CAPS,     "caps",      SFL_SORT_PRIO_PRIMARY);
2686         ScoreInfo_SetLabel_PlayerScore(SP_CTF_CAPS,    "caps",      SFL_SORT_PRIO_SECONDARY);
2687         ScoreInfo_SetLabel_PlayerScore(SP_CTF_CAPTIME, "captime",   SFL_LOWER_IS_BETTER | SFL_TIME);
2688         ScoreInfo_SetLabel_PlayerScore(SP_CTF_PICKUPS, "pickups",   0);
2689         ScoreInfo_SetLabel_PlayerScore(SP_CTF_FCKILLS, "fckills",   0);
2690         ScoreInfo_SetLabel_PlayerScore(SP_CTF_RETURNS, "returns",   0);
2691         ScoreInfo_SetLabel_PlayerScore(SP_CTF_DROPS,   "drops",     SFL_LOWER_IS_BETTER);
2692         ScoreRules_basics_end();
2693 }
2694
2695 // code from here on is just to support maps that don't have flag and team entities
2696 void ctf_SpawnTeam (string teamname, int teamcolor)
2697 {
2698         entity this = new_pure(ctf_team);
2699         this.netname = teamname;
2700         this.cnt = teamcolor - 1;
2701         this.spawnfunc_checked = true;
2702         this.team = teamcolor;
2703 }
2704
2705 void ctf_DelayedInit(entity this) // Do this check with a delay so we can wait for teams to be set up.
2706 {
2707         ctf_teams = 0;
2708
2709         entity tmp_entity;
2710         for(tmp_entity = ctf_worldflaglist; tmp_entity; tmp_entity = tmp_entity.ctf_worldflagnext)
2711         {
2712                 //if(tmp_entity.team == NUM_TEAM_3) { ctf_teams = max(3, ctf_teams); }
2713                 //if(tmp_entity.team == NUM_TEAM_4) { ctf_teams = max(4, ctf_teams); }
2714
2715                 switch(tmp_entity.team)
2716                 {
2717                         case NUM_TEAM_1: BITSET_ASSIGN(ctf_teams, BIT(0)); break;
2718                         case NUM_TEAM_2: BITSET_ASSIGN(ctf_teams, BIT(1)); break;
2719                         case NUM_TEAM_3: BITSET_ASSIGN(ctf_teams, BIT(2)); break;
2720                         case NUM_TEAM_4: BITSET_ASSIGN(ctf_teams, BIT(3)); break;
2721                 }
2722                 if(tmp_entity.team == 0) { ctf_oneflag = true; }
2723         }
2724
2725         if(NumTeams(ctf_teams) < 2) // somehow, there's not enough flags!
2726         {
2727                 ctf_teams = 0; // so set the default red and blue teams
2728                 BITSET_ASSIGN(ctf_teams, BIT(0));
2729                 BITSET_ASSIGN(ctf_teams, BIT(1));
2730         }
2731
2732         //ctf_teams = bound(2, ctf_teams, 4);
2733
2734         // if no teams are found, spawn defaults
2735         if(find(NULL, classname, "ctf_team") == NULL)
2736         {
2737                 LOG_TRACE("No \"ctf_team\" entities found on this map, creating them anyway.");
2738                 if(ctf_teams & BIT(0))
2739                         ctf_SpawnTeam("Red", NUM_TEAM_1);
2740                 if(ctf_teams & BIT(1))
2741                         ctf_SpawnTeam("Blue", NUM_TEAM_2);
2742                 if(ctf_teams & BIT(2))
2743                         ctf_SpawnTeam("Yellow", NUM_TEAM_3);
2744                 if(ctf_teams & BIT(3))
2745                         ctf_SpawnTeam("Pink", NUM_TEAM_4);
2746         }
2747
2748         ctf_ScoreRules(ctf_teams);
2749 }
2750
2751 void ctf_Initialize()
2752 {
2753         ctf_captimerecord = stof(db_get(ServerProgsDB, strcat(GetMapname(), "/captimerecord/time")));
2754
2755         ctf_captureshield_min_negscore = autocvar_g_ctf_shield_min_negscore;
2756         ctf_captureshield_max_ratio = autocvar_g_ctf_shield_max_ratio;
2757         ctf_captureshield_force = autocvar_g_ctf_shield_force;
2758
2759         InitializeEntity(NULL, ctf_DelayedInit, INITPRIO_GAMETYPE);
2760 }