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, PlayerPhysics)
107 entity player = M_ARGV(0, entity);
108 float dt = M_ARGV(1, float);
110 player.race_movetime_frac += dt;
111 float f = floor(player.race_movetime_frac);
112 player.race_movetime_frac -= f;
113 player.race_movetime_count += f;
114 player.race_movetime = player.race_movetime_frac + player.race_movetime_count;
117 if(IS_PLAYER(player))
119 if (player.race_penalty)
120 if (time > player.race_penalty)
121 player.race_penalty = 0;
122 if(player.race_penalty)
124 player.velocity = '0 0 0';
125 set_movetype(player, MOVETYPE_NONE);
126 player.disableclientprediction = 2;
131 // force kbd movement for fairness
135 // if record times matter
136 // ensure nothing EVIL is being done (i.e. div0_evade)
137 // this hinders joystick users though
138 // but it still gives SOME analog control
139 wishvel.x = fabs(player.movement.x);
140 wishvel.y = fabs(player.movement.y);
141 if(wishvel.x != 0 && wishvel.y != 0 && wishvel.x != wishvel.y)
144 wishspeed = vlen(wishvel);
145 if(wishvel.x >= 2 * wishvel.y)
148 if(player.movement.x > 0)
149 player.movement_x = wishspeed;
151 player.movement_x = -wishspeed;
152 player.movement_y = 0;
154 else if(wishvel.y >= 2 * wishvel.x)
157 player.movement_x = 0;
158 if(player.movement.y > 0)
159 player.movement_y = wishspeed;
161 player.movement_y = -wishspeed;
166 if(player.movement.x > 0)
167 player.movement_x = M_SQRT1_2 * wishspeed;
169 player.movement_x = -M_SQRT1_2 * wishspeed;
170 if(player.movement.y > 0)
171 player.movement_y = M_SQRT1_2 * wishspeed;
173 player.movement_y = -M_SQRT1_2 * wishspeed;
178 MUTATOR_HOOKFUNCTION(rc, reset_map_global)
182 Score_NicePrint(NULL);
185 PlayerScore_Sort(race_place, 0, 1, 0);
187 FOREACH_CLIENT(true, LAMBDA(
190 s = PlayerScore_Add(it, SP_RACE_FASTEST, 0);
194 race_EventLog(ftos(it.race_place), it);
197 if(g_race_qualifying == 2)
199 g_race_qualifying = 0;
200 independent_players = 0;
201 cvar_set("fraglimit", ftos(race_fraglimit));
202 cvar_set("leadlimit", ftos(race_leadlimit));
203 cvar_set("timelimit", ftos(race_timelimit));
208 MUTATOR_HOOKFUNCTION(rc, ClientConnect)
210 entity player = M_ARGV(0, entity);
212 race_PreparePlayer(player);
213 player.race_checkpoint = -1;
215 string rr = RACE_RECORD;
217 if(IS_REAL_CLIENT(player))
220 race_send_recordtime(MSG_ONE);
221 race_send_speedaward(MSG_ONE);
223 speedaward_alltimebest = stof(db_get(ServerProgsDB, strcat(GetMapname(), rr, "speed/speed")));
224 speedaward_alltimebest_holder = uid2name(db_get(ServerProgsDB, strcat(GetMapname(), rr, "speed/crypto_idfp")));
225 race_send_speedaward_alltimebest(MSG_ONE);
228 for (i = 1; i <= RANKINGS_CNT; ++i)
230 race_SendRankings(i, 0, 0, MSG_ONE);
235 MUTATOR_HOOKFUNCTION(rc, MakePlayerObserver)
237 entity player = M_ARGV(0, entity);
239 if(g_race_qualifying)
240 if(PlayerScore_Add(player, SP_RACE_FASTEST, 0))
241 player.frags = FRAGS_LMS_LOSER;
243 player.frags = FRAGS_SPECTATOR;
245 race_PreparePlayer(player);
246 player.race_checkpoint = -1;
249 MUTATOR_HOOKFUNCTION(rc, PlayerSpawn)
251 entity player = M_ARGV(0, entity);
252 entity spawn_spot = M_ARGV(1, entity);
254 if(spawn_spot.target == "")
255 // Emergency: this wasn't a real spawnpoint. Can this ever happen?
256 race_PreparePlayer(player);
258 // if we need to respawn, do it right
259 player.race_respawn_checkpoint = player.race_checkpoint;
260 player.race_respawn_spotref = spawn_spot;
262 player.race_place = 0;
265 MUTATOR_HOOKFUNCTION(rc, PutClientInServer)
267 entity player = M_ARGV(0, entity);
269 if(IS_PLAYER(player))
272 if(player.killcount == FRAGS_SPECTATOR /* initial spawn */ || g_race_qualifying) // spawn
273 race_PreparePlayer(player);
275 race_RetractPlayer(player);
277 race_AbandonRaceCheck(player);
281 MUTATOR_HOOKFUNCTION(rc, PlayerDies)
283 entity frag_target = M_ARGV(2, entity);
285 frag_target.respawn_flags |= RESPAWN_FORCE;
286 race_AbandonRaceCheck(frag_target);
289 MUTATOR_HOOKFUNCTION(rc, HavocBot_ChooseRole)
291 entity bot = M_ARGV(0, entity);
293 bot.havocbot_role = havocbot_role_race;
297 MUTATOR_HOOKFUNCTION(rc, GetPressedKeys)
299 entity player = M_ARGV(0, entity);
301 if(player.cvar_cl_allow_uidtracking == 1 && player.cvar_cl_allow_uid2name == 1)
303 if (!player.stored_netname)
304 player.stored_netname = strzone(uid2name(player.crypto_idfp));
305 if(player.stored_netname != player.netname)
307 db_put(ServerProgsDB, strcat("/uid2name/", player.crypto_idfp), player.netname);
308 strunzone(player.stored_netname);
309 player.stored_netname = strzone(player.netname);
313 if (!IS_OBSERVER(player))
315 if(vdist(player.velocity - player.velocity_z * '0 0 1', >, speedaward_speed))
317 speedaward_speed = vlen(player.velocity - player.velocity_z * '0 0 1');
318 speedaward_holder = player.netname;
319 speedaward_uid = player.crypto_idfp;
320 speedaward_lastupdate = time;
322 if (speedaward_speed > speedaward_lastsent && time - speedaward_lastupdate > 1)
324 string rr = RACE_RECORD;
325 race_send_speedaward(MSG_ALL);
326 speedaward_lastsent = speedaward_speed;
327 if (speedaward_speed > speedaward_alltimebest && speedaward_uid != "")
329 speedaward_alltimebest = speedaward_speed;
330 speedaward_alltimebest_holder = speedaward_holder;
331 speedaward_alltimebest_uid = speedaward_uid;
332 db_put(ServerProgsDB, strcat(GetMapname(), rr, "speed/speed"), ftos(speedaward_alltimebest));
333 db_put(ServerProgsDB, strcat(GetMapname(), rr, "speed/crypto_idfp"), speedaward_alltimebest_uid);
334 race_send_speedaward_alltimebest(MSG_ALL);
340 MUTATOR_HOOKFUNCTION(rc, ForbidPlayerScore_Clear)
342 if(g_race_qualifying)
343 return true; // in qualifying, you don't lose score by observing
346 MUTATOR_HOOKFUNCTION(rc, CheckAllowedTeams, CBC_ORDER_EXCLUSIVE)
348 M_ARGV(0, float) = race_teams;
351 MUTATOR_HOOKFUNCTION(rc, Scores_CountFragsRemaining)
353 // announce remaining frags if not in qualifying mode
354 if(!g_race_qualifying)
358 MUTATOR_HOOKFUNCTION(rc, GetRecords)
360 int record_page = M_ARGV(0, int);
361 string ret_string = M_ARGV(1, string);
363 for(int i = record_page * 200; i < MapInfo_count && i < record_page * 200 + 200; ++i)
365 if(MapInfo_Get_ByID(i))
367 float r = race_readTime(MapInfo_Map_bspname, 1);
372 string h = race_readName(MapInfo_Map_bspname, 1);
373 ret_string = strcat(ret_string, strpad(32, MapInfo_Map_bspname), " ", strpad(-8, TIME_ENCODED_TOSTRING(r)), " ", h, "\n");
377 M_ARGV(1, string) = ret_string;
380 MUTATOR_HOOKFUNCTION(rc, FixClientCvars)
382 entity player = M_ARGV(0, entity);
384 stuffcmd(player, "cl_cmd settemp cl_movecliptokeyboard 2\n");
387 MUTATOR_HOOKFUNCTION(rc, CheckRules_World)
389 float checkrules_timelimit = M_ARGV(1, float);
390 float checkrules_fraglimit = M_ARGV(2, float);
392 if(checkrules_timelimit >= 0)
394 if(!g_race_qualifying)
396 M_ARGV(0, float) = WinningCondition_Race(checkrules_fraglimit);
399 else if(g_race_qualifying == 2)
401 M_ARGV(0, float) = WinningCondition_QualifyingThenRace(checkrules_fraglimit);
407 MUTATOR_HOOKFUNCTION(rc, ReadLevelCvars)
409 if(g_race_qualifying == 2)
413 void race_Initialize()
416 if(g_race_qualifying == 2)
422 int fraglimit_override, leadlimit_override;
423 float timelimit_override, qualifying_override;
425 if(autocvar_g_race_teams)
428 race_teams = bound(2, autocvar_g_race_teams, 4);
430 if(race_teams >= 1) teams |= BIT(0);
431 if(race_teams >= 2) teams |= BIT(1);
432 if(race_teams >= 3) teams |= BIT(2);
433 if(race_teams >= 4) teams |= BIT(3);
435 race_teams = teams; // now set it?
437 have_team_spawns = -1; // request team spawns
442 qualifying_override = autocvar_g_race_qualifying_timelimit_override;
443 fraglimit_override = autocvar_g_race_laps_limit;
444 leadlimit_override = 0; // currently not supported by race
445 timelimit_override = autocvar_timelimit_override;
447 float want_qualifying = ((qualifying_override >= 0) ? qualifying_override : autocvar_g_race_qualifying_timelimit) > 0;
449 if(autocvar_g_campaign)
451 g_race_qualifying = 1;
452 independent_players = 1;
454 else if(want_qualifying)
456 g_race_qualifying = 2;
457 independent_players = 1;
458 race_fraglimit = (fraglimit_override >= 0) ? fraglimit_override : autocvar_fraglimit;
459 race_leadlimit = (leadlimit_override >= 0) ? leadlimit_override : autocvar_leadlimit;
460 race_timelimit = (timelimit_override >= 0) ? timelimit_override : autocvar_timelimit;
461 qualifying_override = (qualifying_override >= 0) ? qualifying_override : autocvar_g_race_qualifying_timelimit;
462 fraglimit_override = 0;
463 leadlimit_override = 0;
464 timelimit_override = qualifying_override;
467 g_race_qualifying = 0;
468 SetLimits(fraglimit_override, leadlimit_override, timelimit_override, qualifying_override);