1 #include "gamemode_race.qh"
3 #include <server/race.qh>
5 #define autocvar_g_race_laps_limit cvar("g_race_laps_limit")
6 float autocvar_g_race_qualifying_timelimit;
7 float autocvar_g_race_qualifying_timelimit_override;
8 int autocvar_g_race_teams;
11 .float race_checkpoint;
12 void havocbot_role_race(entity this)
17 if (this.bot_strategytime < time)
19 this.bot_strategytime = time + autocvar_bot_ai_strategyinterval;
20 navigation_goalrating_start(this);
22 IL_EACH(g_racecheckpoints, true,
24 if(it.cnt == this.race_checkpoint)
26 navigation_routerating(this, it, 1000000, 5000);
28 else if(this.race_checkpoint == -1)
30 navigation_routerating(this, it, 1000000, 5000);
34 navigation_goalrating_end(this);
38 void race_ScoreRules()
40 ScoreRules_basics(race_teams, 0, 0, false);
43 ScoreInfo_SetLabel_TeamScore( ST_RACE_LAPS, "laps", SFL_SORT_PRIO_PRIMARY);
44 ScoreInfo_SetLabel_PlayerScore(SP_RACE_LAPS, "laps", SFL_SORT_PRIO_PRIMARY);
45 ScoreInfo_SetLabel_PlayerScore(SP_RACE_TIME, "time", SFL_SORT_PRIO_SECONDARY | SFL_LOWER_IS_BETTER | SFL_TIME);
46 ScoreInfo_SetLabel_PlayerScore(SP_RACE_FASTEST, "fastest", SFL_LOWER_IS_BETTER | SFL_TIME);
48 else if(g_race_qualifying)
50 ScoreInfo_SetLabel_PlayerScore(SP_RACE_FASTEST, "fastest", SFL_SORT_PRIO_PRIMARY | SFL_LOWER_IS_BETTER | SFL_TIME);
54 ScoreInfo_SetLabel_PlayerScore(SP_RACE_LAPS, "laps", SFL_SORT_PRIO_PRIMARY);
55 ScoreInfo_SetLabel_PlayerScore(SP_RACE_TIME, "time", SFL_SORT_PRIO_SECONDARY | SFL_LOWER_IS_BETTER | SFL_TIME);
56 ScoreInfo_SetLabel_PlayerScore(SP_RACE_FASTEST, "fastest", SFL_LOWER_IS_BETTER | SFL_TIME);
58 ScoreRules_basics_end();
61 void race_EventLog(string mode, entity actor) // use an alias for easy changing and quick editing later
63 if(autocvar_sv_eventlog)
64 GameLogEcho(strcat(":race:", mode, ":", ((actor != NULL) ? (strcat(":", ftos(actor.playerid))) : "")));
67 float WinningCondition_Race(float fraglimit)
74 FOREACH_CLIENT(IS_PLAYER(it), LAMBDA(
81 wc = WinningCondition_Scores(fraglimit, 0);
83 // ALWAYS initiate overtime, unless EVERYONE has finished the race!
84 if(wc == WINNING_YES || wc == WINNING_STARTSUDDENDEATHOVERTIME)
85 // do NOT support equality when the laps are all raced!
86 return WINNING_STARTSUDDENDEATHOVERTIME;
91 float WinningCondition_QualifyingThenRace(float limit)
94 wc = WinningCondition_Scores(limit, 0);
96 // NEVER initiate overtime
97 if(wc == WINNING_YES || wc == WINNING_STARTSUDDENDEATHOVERTIME)
105 MUTATOR_HOOKFUNCTION(rc, AbortSpeedrun)
107 entity player = M_ARGV(0, entity);
109 if(autocvar_g_allow_checkpoints)
110 race_PreparePlayer(player); // nice try
113 MUTATOR_HOOKFUNCTION(rc, PlayerPhysics)
115 entity player = M_ARGV(0, entity);
116 float dt = M_ARGV(1, float);
118 player.race_movetime_frac += dt;
119 float f = floor(player.race_movetime_frac);
120 player.race_movetime_frac -= f;
121 player.race_movetime_count += f;
122 player.race_movetime = player.race_movetime_frac + player.race_movetime_count;
125 if(IS_PLAYER(player))
127 if (player.race_penalty)
128 if (time > player.race_penalty)
129 player.race_penalty = 0;
130 if(player.race_penalty)
132 player.velocity = '0 0 0';
133 set_movetype(player, MOVETYPE_NONE);
134 player.disableclientprediction = 2;
139 // force kbd movement for fairness
143 // if record times matter
144 // ensure nothing EVIL is being done (i.e. div0_evade)
145 // this hinders joystick users though
146 // but it still gives SOME analog control
147 wishvel.x = fabs(player.movement.x);
148 wishvel.y = fabs(player.movement.y);
149 if(wishvel.x != 0 && wishvel.y != 0 && wishvel.x != wishvel.y)
152 wishspeed = vlen(wishvel);
153 if(wishvel.x >= 2 * wishvel.y)
156 if(player.movement.x > 0)
157 player.movement_x = wishspeed;
159 player.movement_x = -wishspeed;
160 player.movement_y = 0;
162 else if(wishvel.y >= 2 * wishvel.x)
165 player.movement_x = 0;
166 if(player.movement.y > 0)
167 player.movement_y = wishspeed;
169 player.movement_y = -wishspeed;
174 if(player.movement.x > 0)
175 player.movement_x = M_SQRT1_2 * wishspeed;
177 player.movement_x = -M_SQRT1_2 * wishspeed;
178 if(player.movement.y > 0)
179 player.movement_y = M_SQRT1_2 * wishspeed;
181 player.movement_y = -M_SQRT1_2 * wishspeed;
186 MUTATOR_HOOKFUNCTION(rc, reset_map_global)
190 Score_NicePrint(NULL);
193 PlayerScore_Sort(race_place, 0, 1, 0);
195 FOREACH_CLIENT(true, LAMBDA(
198 s = PlayerScore_Add(it, SP_RACE_FASTEST, 0);
202 race_EventLog(ftos(it.race_place), it);
205 if(g_race_qualifying == 2)
207 g_race_qualifying = 0;
208 independent_players = 0;
209 cvar_set("fraglimit", ftos(race_fraglimit));
210 cvar_set("leadlimit", ftos(race_leadlimit));
211 cvar_set("timelimit", ftos(race_timelimit));
216 MUTATOR_HOOKFUNCTION(rc, ClientConnect)
218 entity player = M_ARGV(0, entity);
220 race_PreparePlayer(player);
221 player.race_checkpoint = -1;
223 string rr = RACE_RECORD;
225 if(IS_REAL_CLIENT(player))
228 race_send_recordtime(MSG_ONE);
229 race_send_speedaward(MSG_ONE);
231 speedaward_alltimebest = stof(db_get(ServerProgsDB, strcat(GetMapname(), rr, "speed/speed")));
232 speedaward_alltimebest_holder = uid2name(db_get(ServerProgsDB, strcat(GetMapname(), rr, "speed/crypto_idfp")));
233 race_send_speedaward_alltimebest(MSG_ONE);
236 for (i = 1; i <= RANKINGS_CNT; ++i)
238 race_SendRankings(i, 0, 0, MSG_ONE);
243 MUTATOR_HOOKFUNCTION(rc, MakePlayerObserver)
245 entity player = M_ARGV(0, entity);
247 if(g_race_qualifying)
248 if(PlayerScore_Add(player, SP_RACE_FASTEST, 0))
249 player.frags = FRAGS_LMS_LOSER;
251 player.frags = FRAGS_SPECTATOR;
253 race_PreparePlayer(player);
254 player.race_checkpoint = -1;
257 MUTATOR_HOOKFUNCTION(rc, PlayerSpawn)
259 entity player = M_ARGV(0, entity);
260 entity spawn_spot = M_ARGV(1, entity);
262 if(spawn_spot.target == "")
263 // Emergency: this wasn't a real spawnpoint. Can this ever happen?
264 race_PreparePlayer(player);
266 // if we need to respawn, do it right
267 player.race_respawn_checkpoint = player.race_checkpoint;
268 player.race_respawn_spotref = spawn_spot;
270 player.race_place = 0;
273 MUTATOR_HOOKFUNCTION(rc, PutClientInServer)
275 entity player = M_ARGV(0, entity);
277 if(IS_PLAYER(player))
280 if(player.killcount == FRAGS_SPECTATOR /* initial spawn */ || g_race_qualifying) // spawn
281 race_PreparePlayer(player);
283 race_RetractPlayer(player);
285 race_AbandonRaceCheck(player);
289 MUTATOR_HOOKFUNCTION(rc, PlayerDies)
291 entity frag_target = M_ARGV(2, entity);
293 frag_target.respawn_flags |= RESPAWN_FORCE;
294 race_AbandonRaceCheck(frag_target);
297 MUTATOR_HOOKFUNCTION(rc, HavocBot_ChooseRole)
299 entity bot = M_ARGV(0, entity);
301 bot.havocbot_role = havocbot_role_race;
305 MUTATOR_HOOKFUNCTION(rc, GetPressedKeys)
307 entity player = M_ARGV(0, entity);
309 if(player.cvar_cl_allow_uidtracking == 1 && player.cvar_cl_allow_uid2name == 1)
311 if (!player.stored_netname)
312 player.stored_netname = strzone(uid2name(player.crypto_idfp));
313 if(player.stored_netname != player.netname)
315 db_put(ServerProgsDB, strcat("/uid2name/", player.crypto_idfp), player.netname);
316 strunzone(player.stored_netname);
317 player.stored_netname = strzone(player.netname);
321 if (!IS_OBSERVER(player))
323 if(vdist(player.velocity - player.velocity_z * '0 0 1', >, speedaward_speed))
325 speedaward_speed = vlen(player.velocity - player.velocity_z * '0 0 1');
326 speedaward_holder = player.netname;
327 speedaward_uid = player.crypto_idfp;
328 speedaward_lastupdate = time;
330 if (speedaward_speed > speedaward_lastsent && time - speedaward_lastupdate > 1)
332 string rr = RACE_RECORD;
333 race_send_speedaward(MSG_ALL);
334 speedaward_lastsent = speedaward_speed;
335 if (speedaward_speed > speedaward_alltimebest && speedaward_uid != "")
337 speedaward_alltimebest = speedaward_speed;
338 speedaward_alltimebest_holder = speedaward_holder;
339 speedaward_alltimebest_uid = speedaward_uid;
340 db_put(ServerProgsDB, strcat(GetMapname(), rr, "speed/speed"), ftos(speedaward_alltimebest));
341 db_put(ServerProgsDB, strcat(GetMapname(), rr, "speed/crypto_idfp"), speedaward_alltimebest_uid);
342 race_send_speedaward_alltimebest(MSG_ALL);
348 MUTATOR_HOOKFUNCTION(rc, ForbidPlayerScore_Clear)
350 if(g_race_qualifying)
351 return true; // in qualifying, you don't lose score by observing
354 MUTATOR_HOOKFUNCTION(rc, CheckAllowedTeams, CBC_ORDER_EXCLUSIVE)
356 M_ARGV(0, float) = race_teams;
359 MUTATOR_HOOKFUNCTION(rc, Scores_CountFragsRemaining)
361 // announce remaining frags if not in qualifying mode
362 if(!g_race_qualifying)
366 MUTATOR_HOOKFUNCTION(rc, GetRecords)
368 int record_page = M_ARGV(0, int);
369 string ret_string = M_ARGV(1, string);
371 for(int i = record_page * 200; i < MapInfo_count && i < record_page * 200 + 200; ++i)
373 if(MapInfo_Get_ByID(i))
375 float r = race_readTime(MapInfo_Map_bspname, 1);
380 string h = race_readName(MapInfo_Map_bspname, 1);
381 ret_string = strcat(ret_string, strpad(32, MapInfo_Map_bspname), " ", strpad(-8, TIME_ENCODED_TOSTRING(r)), " ", h, "\n");
385 M_ARGV(1, string) = ret_string;
388 MUTATOR_HOOKFUNCTION(rc, HideTeamNagger)
390 return true; // doesn't work so well
393 MUTATOR_HOOKFUNCTION(rc, FixClientCvars)
395 entity player = M_ARGV(0, entity);
397 stuffcmd(player, "cl_cmd settemp cl_movecliptokeyboard 2\n");
400 MUTATOR_HOOKFUNCTION(rc, CheckRules_World)
402 float checkrules_timelimit = M_ARGV(1, float);
403 float checkrules_fraglimit = M_ARGV(2, float);
405 if(checkrules_timelimit >= 0)
407 if(!g_race_qualifying)
409 M_ARGV(0, float) = WinningCondition_Race(checkrules_fraglimit);
412 else if(g_race_qualifying == 2)
414 M_ARGV(0, float) = WinningCondition_QualifyingThenRace(checkrules_fraglimit);
420 MUTATOR_HOOKFUNCTION(rc, ReadLevelCvars)
422 if(g_race_qualifying == 2)
426 void race_Initialize()
429 if(g_race_qualifying == 2)
435 int fraglimit_override, leadlimit_override;
436 float timelimit_override, qualifying_override;
438 if(autocvar_g_race_teams)
441 race_teams = bound(2, autocvar_g_race_teams, 4);
443 if(race_teams >= 1) teams |= BIT(0);
444 if(race_teams >= 2) teams |= BIT(1);
445 if(race_teams >= 3) teams |= BIT(2);
446 if(race_teams >= 4) teams |= BIT(3);
448 race_teams = teams; // now set it?
450 have_team_spawns = -1; // request team spawns
455 qualifying_override = autocvar_g_race_qualifying_timelimit_override;
456 fraglimit_override = autocvar_g_race_laps_limit;
457 leadlimit_override = 0; // currently not supported by race
458 timelimit_override = autocvar_timelimit_override;
460 float want_qualifying = ((qualifying_override >= 0) ? qualifying_override : autocvar_g_race_qualifying_timelimit) > 0;
462 if(autocvar_g_campaign)
464 g_race_qualifying = 1;
465 independent_players = 1;
467 else if(want_qualifying)
469 g_race_qualifying = 2;
470 independent_players = 1;
471 race_fraglimit = (fraglimit_override >= 0) ? fraglimit_override : autocvar_fraglimit;
472 race_leadlimit = (leadlimit_override >= 0) ? leadlimit_override : autocvar_leadlimit;
473 race_timelimit = (timelimit_override >= 0) ? timelimit_override : autocvar_timelimit;
474 qualifying_override = (qualifying_override >= 0) ? qualifying_override : autocvar_g_race_qualifying_timelimit;
475 fraglimit_override = 0;
476 leadlimit_override = 0;
477 timelimit_override = qualifying_override;
480 g_race_qualifying = 0;
481 SetLimits(fraglimit_override, leadlimit_override, timelimit_override, qualifying_override);