1 // --------------------------------------------------------------------------
\r
2 // BEGIN REQUIRED CSQC FUNCTIONS
\r
5 #define DP_CSQC_ENTITY_REMOVE_IS_B0RKED
\r
7 void cvar_clientsettemp(string cv, string val)
\r
10 for(e = world; (e = find(e, classname, "saved_cvar_value")); )
\r
14 e.classname = "saved_cvar_value";
\r
15 e.netname = strzone(cv);
\r
16 e.message = strzone(cvar_string(cv));
\r
21 void cvar_clientsettemp_restore()
\r
24 for(e = world; (e = find(e, classname, "saved_cvar_value")); )
\r
25 cvar_set(e.netname, e.message);
\r
28 void() menu_show_error =
\r
30 drawstring('0 200 0', "ERROR - MENU IS VISIBLE BUT NO MENU WAS DEFINED!", '8 8 0', '1 0 0', 1, 0);
\r
33 // CSQC_Init : Called every time the CSQC code is initialized (essentially at map load)
\r
34 // Useful for precaching things
\r
36 void() menu_sub_null =
\r
41 float __engine_check;
\r
44 string config_get(string key, string defaultvalue)
\r
47 s = db_get(configdb, strcat("/s/", key));
\r
49 return defaultvalue;
\r
51 return db_get(configdb, strcat("/v/", key));
\r
55 void WaypointSprite_Load();
\r
56 void CSQC_Init(void)
\r
60 __engine_check = checkextension("DP_SV_WRITEPICTURE");
\r
63 print("^3Your engine build is outdated\n^3This Server uses a newer QC VM. Please update!\n");
\r
64 localcmd("\ndisconnect\n");
\r
74 configdb = db_create();
\r
75 binddb = db_create();
\r
76 compressShortVector_init();
\r
79 menu_visible = FALSE;
\r
80 menu_show = menu_show_error;
\r
81 menu_action = menu_sub_null;
\r
82 maxclients = 255; // we later get the real maxclients to speed up stuff
\r
84 // localcmd("alias order \"cmd order $*\""); enable if ctf-command thingy is used
\r
85 //registercmd("ctf_menu");
\r
86 registercmd("ons_map");
\r
87 //registercmd("menu_action");
\r
88 registercmd("sbar_columns_set");
\r
89 registercmd("sbar_columns_help");
\r
91 registercmd("+button3");
\r
92 registercmd("-button3");
\r
93 registercmd("+button4");
\r
94 registercmd("-button4");
\r
96 registercvar("sbar_usecsqc", "1");
\r
97 registercvar("sbar_columns", "default", CVAR_SAVE);
\r
101 // sbar_fields uses strunzone on the titles!
\r
102 for(i = 0; i < MAX_SBAR_FIELDS; ++i)
\r
103 sbar_title[i] = strzone("(null)");
\r
107 teams = Sort_Spawn();
\r
108 players = Sort_Spawn();
\r
110 GetTeam(COLOR_SPECTATOR, true); // add specs first
\r
112 cvar_clientsettemp("_supports_weaponpriority", "1");
\r
117 cs_project_is_b0rked = TRUE;
\r
118 R_SetView(VF_VIEWPORT, '0 0 0', '640 480 0');
\r
119 R_SetView(VF_FOV, '90 90 0');
\r
120 R_SetView(VF_ORIGIN, '0 0 0');
\r
121 R_SetView(VF_ANGLES, '0 0 0');
\r
122 R_SetView(VF_PERSPECTIVE, 1);
\r
123 makevectors('0 0 0');
\r
125 v = cs_project(v_forward);
\r
130 cs_project_is_b0rked = FALSE;
\r
132 WaypointSprite_Load();
\r
135 // CSQC_Shutdown : Called every time the CSQC code is shutdown (changing maps, quitting, etc)
\r
136 void CSQC_Shutdown(void)
\r
140 if(!__engine_check)
\r
147 db_close(configdb);
\r
150 cvar_clientsettemp_restore();
\r
154 float SetTeam(entity o, float Team)
\r
157 if(Team == -1) // leave
\r
161 //print("(DISCONNECT) leave team ", ftos(o.team), "\n");
\r
162 tm = GetTeam(o.team, false);
\r
172 //print("(CONNECT) enter team ", ftos(o.team), "\n");
\r
174 tm = GetTeam(Team, true);
\r
179 else if(Team != o.team)
\r
181 //print("(CHANGE) leave team ", ftos(o.team), "\n");
\r
182 tm = GetTeam(o.team, false);
\r
185 //print("(CHANGE) enter team ", ftos(o.team), "\n");
\r
186 tm = GetTeam(Team, true);
\r
194 void Playerchecker_Think()
\r
197 for(i = 0; i < maxclients; ++i)
\r
199 if(getplayerkey(i, "name") == "")
\r
201 if(playerslots[i].sort_prev)
\r
203 //print("playerchecker: KILL KILL KILL\n");
\r
204 // player disconnected
\r
205 SetTeam(playerslots[i], -1);
\r
206 RemovePlayer(playerslots[i]);
\r
207 playerslots[i].sort_prev = world;
\r
208 playerslots[i].gotscores = 0;
\r
213 if not(playerslots[i].sort_prev)
\r
215 //print("playerchecker: SPAWN SPAWN SPAWN\n");
\r
216 // player connected
\r
217 if not(playerslots[i])
\r
218 playerslots[i] = spawn();
\r
219 playerslots[i].sv_entnum = i;
\r
220 playerslots[i].gotscores = 0;
\r
221 SetTeam(playerslots[i], COLOR_SPECTATOR);
\r
222 RegisterPlayer(playerslots[i]);
\r
223 Sbar_UpdatePlayerPos(playerslots[i]);
\r
227 self.nextthink = time + 0.2;
\r
231 void PostInit(void)
\r
233 print(strcat("PostInit\n maxclients = ", ftos(maxclients), "\n"));
\r
234 localcmd(strcat("\nsbar_columns_set ", cvar_string("sbar_columns"), ";\n"));
\r
236 entity playerchecker;
\r
237 playerchecker = spawn();
\r
238 playerchecker.think = Playerchecker_Think;
\r
239 playerchecker.nextthink = time + 0.2;
\r
246 // CSQC_ConsoleCommand : Used to parse commands in the console that have been registered with the "registercmd" function
\r
247 // Return value should be 1 if CSQC handled the command, otherwise return 0 to have the engine handle it.
\r
249 void Cmd_Sbar_SetFields(float);
\r
250 void Cmd_Sbar_Help(float);
\r
251 float CSQC_ConsoleCommand(string strMessage)
\r
255 //argc = tokenize(strMessage);
\r
256 argc = tokenize_sane(strMessage);
\r
259 local string strCmd;
\r
262 if(strCmd == "+button4") { // zoom
\r
263 // return false, because the message shall be sent to the server anyway (for demos/speccing)
\r
264 if(ignore_plus_zoom)
\r
266 --ignore_plus_zoom;
\r
271 } else if(strCmd == "-button4") { // zoom
\r
272 if(ignore_minus_zoom)
\r
274 --ignore_minus_zoom;
\r
279 } else if(strCmd == "+button3") { // secondary
\r
280 button_attack2 = 1;
\r
282 } else if(strCmd == "-button3") { // secondary
\r
283 button_attack2 = 0;
\r
285 } else if(strCmd == "ons_map") {
\r
288 } else if(strCmd == "sbar_columns_set") {
\r
289 Cmd_Sbar_SetFields(argc);
\r
291 } else if(strCmd == "sbar_columns_help") {
\r
292 Cmd_Sbar_Help(argc);
\r
294 } else if(strCmd == "+showscores") {
\r
295 sb_showscores = true;
\r
297 } else if(strCmd == "-showscores") {
\r
298 sb_showscores = false;
\r
305 float GameCommand(string msg)
\r
308 argc = tokenize_sane(msg);
\r
311 if(cmd == "mv_download") {
\r
312 Cmd_MapVote_MapDownload(argc);
\r
315 else if(cmd == "settemp") {
\r
316 cvar_clientsettemp(argv(1), argv(2));
\r
322 // CSQC_InputEvent : Used to perform actions based on any key pressed, key released and mouse on the client.
\r
323 // Return value should be 1 if CSQC handled the input, otherwise return 0 to have the input passed to the engine.
\r
324 // All keys are in ascii.
\r
325 // bInputType = 0 is key pressed, 1 is key released, 2 is mouse input.
\r
326 // In the case of keyboard input, nPrimary is the ascii code, and nSecondary is 0.
\r
327 // In the case of mouse input, nPrimary is xdelta, nSecondary is ydelta.
\r
328 float CSQC_InputEvent(float bInputType, float nPrimary, float nSecondary)
\r
330 local float bSkipKey;
\r
334 if(menu_action(bInputType, nPrimary, nSecondary))
\r
339 // END REQUIRED CSQC FUNCTIONS
\r
340 // --------------------------------------------------------------------------
\r
342 // --------------------------------------------------------------------------
\r
343 // BEGIN OPTIONAL CSQC FUNCTIONS
\r
344 void Ent_ReadEntCS()
\r
346 InterpolateOrigin_Undo();
\r
348 self.classname = "entcs_receiver";
\r
349 self.sv_entnum = ReadByte() - 1;
\r
350 self.origin_x = ReadShort();
\r
351 self.origin_y = ReadShort();
\r
352 self.origin_z = ReadShort();
\r
353 self.angles_y = ReadByte() * 360.0 / 256;
\r
354 self.origin_z = self.angles_x = self.angles_z = 0;
\r
356 InterpolateOrigin_Note();
\r
359 void Ent_RemoveEntCS()
\r
364 void Ent_ReadPlayerScore()
\r
370 // damnit -.- don't want to go change every single .sv_entnum in sbar.qc AGAIN
\r
371 // (no I've never heard of M-x replace-string, sed, or anything like that)
\r
372 isNew = !self.owner; // workaround for DP bug
\r
375 #ifdef DP_CSQC_ENTITY_REMOVE_IS_B0RKED
\r
376 if(!isNew && n != self.sv_entnum)
\r
378 print("A CSQC entity changed its owner!\n");
\r
381 self.enttype = ENT_CLIENT_SCORES;
\r
385 self.sv_entnum = n;
\r
386 Team = GetPlayerColor(self.sv_entnum);
\r
388 if not(playerslots[self.sv_entnum])
\r
389 playerslots[self.sv_entnum] = spawn();
\r
390 o = self.owner = playerslots[self.sv_entnum];
\r
391 o.sv_entnum = self.sv_entnum;
\r
393 if not(o.sort_prev)
\r
399 for(i = 0; i < MAX_SCORE; ++i)
\r
400 o.(scores[i]) = ReadShort();
\r
409 for(i = 0, p = 1; i < MAX_SCORE; ++i, p *= 2)
\r
411 o.(scores[i]) = ReadShort();
\r
414 Sbar_UpdatePlayerPos(o);
\r
417 void Ent_ReadTeamScore()
\r
422 self.team = ReadByte();
\r
423 o = self.owner = GetTeam(self.team, true);
\r
425 #if MAX_TEAMSCORE <= 3
\r
426 for(i = 0; i < MAX_TEAMSCORE; ++i)
\r
427 o.(teamscores[i]) = ReadShort();
\r
430 #if MAX_TEAMSCORE <= 8
\r
436 for(i = 0, p = 1; i < MAX_TEAMSCORE; ++i, p *= 2)
\r
438 o.(teamscores[i]) = ReadShort();
\r
441 Sbar_UpdateTeamPos(o);
\r
452 if(vote_called_vote)
\r
453 strunzone(vote_called_vote);
\r
454 vote_called_vote = strzone(ReadString());
\r
457 ready_waiting = (nags & 1);
\r
458 ready_waiting_for_me = (nags & 2);
\r
459 vote_waiting = (nags & 4);
\r
460 vote_waiting_for_me = (nags & 8);
\r
463 // CSQC_Ent_Update : Called every frame that the server has indicated an update to the SSQC / CSQC entity has occured.
\r
464 // The only parameter reflects if the entity is "new" to the client, meaning it just came into the client's PVS.
\r
465 void(float bIsNewEntity) CSQC_Ent_Update =
\r
469 #ifdef DP_CSQC_ENTITY_REMOVE_IS_B0RKED
\r
471 if(t != self.enttype)
\r
473 print("A CSQC entity changed its type!\n");
\r
478 if(self.enttype == ENT_CLIENT_ENTCS)
\r
480 else if(self.enttype == ENT_CLIENT_SCORES)
\r
481 Ent_ReadPlayerScore();
\r
482 else if(self.enttype == ENT_CLIENT_TEAMSCORES)
\r
483 Ent_ReadTeamScore();
\r
484 else if(self.enttype == ENT_CLIENT_POINTPARTICLES)
\r
485 Ent_PointParticles();
\r
486 else if(self.enttype == ENT_CLIENT_RAINSNOW)
\r
488 else if(self.enttype == ENT_CLIENT_LASER)
\r
490 else if(self.enttype == ENT_CLIENT_NAGGER)
\r
492 else if(self.enttype == ENT_CLIENT_WAYPOINT)
\r
493 Ent_WaypointSprite();
\r
495 error(strcat("unknown entity type in CSQC_Ent_Update: ", ftos(self.enttype), "\n"));
\r
498 // Destructor, but does NOT deallocate the entity by calling remove(). Also
\r
499 // used when an entity changes its type. For an entity that someone interacts
\r
500 // with others, make sure it can no longer do so.
\r
503 if(self.enttype == ENT_CLIENT_ENTCS)
\r
506 } else if(self.enttype == ENT_CLIENT_SCORES)
\r
510 SetTeam(self.owner, -1);
\r
511 if(self.owner.sort_prev)
\r
512 RemovePlayer(self.owner);
\r
513 self.owner.sort_prev = NULL;
\r
515 } else if(self.enttype == ENT_CLIENT_TEAMSCORES)
\r
519 RemoveTeam(self.owner);
\r
521 // we don't NEED to remove them... they won't display anyway
\r
522 // plus, svqc never does this anyway
\r
523 } else if(self.enttype == ENT_CLIENT_POINTPARTICLES)
\r
525 Ent_PointParticles_Remove();
\r
527 else if(self.enttype == ENT_CLIENT_WAYPOINT)
\r
528 Ent_RemoveWaypointSprite();
\r
531 self.classname = "";
\r
532 self.draw = menu_sub_null;
\r
533 // TODO possibly set more stuff to defaults
\r
535 // CSQC_Ent_Remove : Called when the server requests a SSQC / CSQC entity to be removed. Essentially call remove(self) as well.
\r
536 void CSQC_Ent_Remove()
\r
543 void Gamemode_Init()
\r
545 get_mi_min_max_texcoords(1); // try the CLEVER way first
\r
546 minimapname = strcat("gfx/", mi_shortname, "_radar.tga");
\r
547 shortmapname = mi_shortname;
\r
549 if(precache_pic(minimapname) == "")
\r
551 // but maybe we have a non-clever minimap
\r
552 minimapname = strcat("gfx/", mi_shortname, "_mini.tga");
\r
553 if(precache_pic(minimapname) == "")
\r
554 minimapname = ""; // FAIL
\r
556 get_mi_min_max_texcoords(0); // load new texcoords
\r
559 mi_center = (mi_min + mi_max) * 0.5;
\r
560 mi_scale = mi_max - mi_min;
\r
561 minimapname = strzone(minimapname);
\r
563 if(gametype == GAME_ONSLAUGHT) {
\r
564 print(strcat("Using ", minimapname, " as minimap.\n"));
\r
565 precache_pic("gfx/ons-cp-neutral.tga");
\r
566 precache_pic("gfx/ons-cp-red.tga");
\r
567 precache_pic("gfx/ons-cp-blue.tga");
\r
568 precache_pic("gfx/ons-frame.tga");
\r
569 precache_pic("gfx/ons-frame-team.tga");
\r
570 } else if(gametype == GAME_KEYHUNT) {
\r
571 precache_pic("gfx/sb_key_carrying");
\r
572 precache_pic("gfx/sb_key_carrying_outline");
\r
575 // CSQC_Parse_StuffCmd : Provides the stuffcmd string in the first parameter that the server provided. To execute standard behavior, simply execute localcmd with the string.
\r
576 void CSQC_Parse_StuffCmd(string strMessage)
\r
578 localcmd(strMessage);
\r
580 // CSQC_Parse_Print : Provides the print string in the first parameter that the server provided. To execute standard behavior, simply execute print with the string.
\r
581 void CSQC_Parse_Print(string strMessage)
\r
585 // CSQC_Parse_CenterPrint : Provides the centerprint string in the first parameter that the server provided. To execute standard behavior, simply execute cprint with the string.
\r
586 void CSQC_Parse_CenterPrint(string strMessage)
\r
588 cprint(strMessage);
\r
591 void CSQC_CheckRevision();
\r
595 // TODO somehow thwart prvm_globalset client ...
\r
598 localcmd(strcat("\nfog ", forcefog, "\nr_fog_exp2 0\nr_drawfog 1\n"));
\r
604 strunzone(forcefog);
\r
605 ReadCoord(); // ignore fog interval
\r
606 forcefog = strzone(ReadString());
\r
609 void Gamemode_Init();
\r
610 void Net_ReadScoresInfo()
\r
613 gametype = ReadByte();
\r
614 for(i = 0; i < MAX_SCORE; ++i)
\r
616 scores_label[i] = strzone(ReadString());
\r
617 scores_flags[i] = ReadByte();
\r
619 for(i = 0; i < MAX_TEAMSCORE; ++i)
\r
621 teamscores_label[i] = strzone(ReadString());
\r
622 teamscores_flags[i] = ReadByte();
\r
628 void Net_ReadInit()
\r
631 csqc_revision = ReadShort();
\r
632 maxclients = ReadByte();
\r
633 for(i = 0; i < 24; ++i)
\r
634 weaponimpulse[i] = ReadByte() - 1;
\r
635 CSQC_CheckRevision();
\r
638 string Net_ReadPicture()
\r
641 if(csqc_flags & CSQC_FLAG_READPICTURE)
\r
643 img = ReadPicture();
\r
644 print(strcat("Got Picture: ", img, "\n"));
\r
646 img = ReadString();
\r
647 print(strcat("^3Warning: ^7Couldn't download ", img, ". This is probably because your engine build is outdated.\n"));
\r
649 psize = ReadShort();
\r
650 // Can I be sure that ReadShort is 2 bytes and ReadLong is 4 bytes?
\r
651 // Because then this could be optimized to first get all 4-byte-groups,
\r
652 // then the remaining 2, then the remaining 1
\r
653 for(i = 0; i < psize; ++i)
\r
662 key = ReadString();
\r
663 value = ReadString();
\r
664 db_put(configdb, strcat("/v/", key), value);
\r
665 db_put(configdb, strcat("/s/", key), "1");
\r
668 void Net_ReadRace()
\r
676 case RACE_NET_CHECKPOINT_HIT_QUALIFYING:
\r
677 race_checkpoint = ReadByte();
\r
678 race_time = ReadShort();
\r
679 race_previousbesttime = ReadShort();
\r
680 if(race_previousbestname)
\r
681 strunzone(race_previousbestname);
\r
682 race_previousbestname = strzone(ReadString());
\r
684 race_checkpointtime = time;
\r
686 if(race_checkpoint == 0)
\r
687 race_laptime = time; // valid
\r
691 case RACE_NET_CHECKPOINT_CLEAR:
\r
693 race_checkpointtime = 0;
\r
696 case RACE_NET_CHECKPOINT_NEXT_SPEC_QUALIFYING:
\r
697 race_laptime = ReadCoord();
\r
698 race_checkpointtime = -99999;
\r
700 case RACE_NET_CHECKPOINT_NEXT_QUALIFYING:
\r
701 race_nextcheckpoint = ReadByte();
\r
703 race_nextbesttime = ReadShort();
\r
704 if(race_nextbestname)
\r
705 strunzone(race_nextbestname);
\r
706 race_nextbestname = strzone(ReadString());
\r
709 case RACE_NET_CHECKPOINT_HIT_RACE:
\r
710 race_mycheckpoint = ReadByte();
\r
711 race_mycheckpointtime = time;
\r
712 race_mycheckpointdelta = ReadShort();
\r
713 race_mycheckpointlapsdelta = ReadByte();
\r
714 if(race_mycheckpointlapsdelta >= 128)
\r
715 race_mycheckpointlapsdelta -= 256;
\r
716 if(race_mycheckpointenemy)
\r
717 strunzone(race_mycheckpointenemy);
\r
718 race_mycheckpointenemy = strzone(ReadString());
\r
721 case RACE_NET_CHECKPOINT_HIT_RACE_BY_OPPONENT:
\r
722 race_othercheckpoint = ReadByte();
\r
723 race_othercheckpointtime = time;
\r
724 race_othercheckpointdelta = ReadShort();
\r
725 race_othercheckpointlapsdelta = ReadByte();
\r
726 if(race_othercheckpointlapsdelta >= 128)
\r
727 race_othercheckpointlapsdelta -= 256;
\r
728 if(race_othercheckpointenemy)
\r
729 strunzone(race_othercheckpointenemy);
\r
730 race_othercheckpointenemy = strzone(ReadString());
\r
735 void Net_ReadForceScoreboard()
\r
737 sb_showscores_force = ReadByte();
\r
744 race_checkpointtime = 0;
\r
745 for(i = 0; i < 24; ++i)
\r
746 angles_held_status[i] = 0;
\r
749 void Net_ReadSpectating()
\r
751 float newspectatee_status;
\r
752 newspectatee_status = ReadByte();
\r
753 if(newspectatee_status == player_localentnum)
\r
754 newspectatee_status = -1; // observing
\r
755 if(newspectatee_status != spectatee_status)
\r
757 spectatee_status = newspectatee_status;
\r
760 void Net_ReadZoomNotify()
\r
762 spectatorbutton_zoom = ReadByte();
\r
765 void Net_ReadSpawn()
\r
768 current_viewzoom = 0.6;
\r
771 void Net_ReadWarmupStage()
\r
773 warmup_stage = ReadByte();
\r
776 // CSQC_Parse_TempEntity : Handles all temporary entity network data in the CSQC layer.
\r
777 // You must ALWAYS first acquire the temporary ID, which is sent as a byte.
\r
778 // Return value should be 1 if CSQC handled the temporary entity, otherwise return 0 to have the engine process the event.
\r
779 void Net_ReadHoldAngles();
\r
780 float CSQC_Parse_TempEntity()
\r
782 local float bHandled;
\r
786 nTEID = ReadByte();
\r
788 // NOTE: Could just do return instead of break...
\r
795 case TE_CSQC_MAPVOTE:
\r
799 case TE_CSQC_CONFIG:
\r
803 case TE_CSQC_SCORESINFO:
\r
804 Net_ReadScoresInfo();
\r
811 case TE_CSQC_FORCESCOREBOARD:
\r
812 Net_ReadForceScoreboard();
\r
815 case TE_CSQC_SPECTATING:
\r
816 Net_ReadSpectating();
\r
819 case 13: // TE_BEAM
\r
820 Net_GrapplingHook();
\r
823 case TE_CSQC_SPAWN:
\r
827 case TE_CSQC_ZOOMNOTIFY:
\r
828 Net_ReadZoomNotify();
\r
831 case TE_CSQC_HOLDANGLES:
\r
832 Net_ReadHoldAngles();
\r
835 case TE_CSQC_WARMUP:
\r
836 Net_ReadWarmupStage();
\r
844 // No special logic for this temporary entity; return 0 so the engine can handle it
\r
855 // COMMIT-TODO: Update if necessare, before committing
\r
856 void CSQC_CheckRevision()
\r
858 if(csqc_revision == CSQC_REVISION)
\r
860 print("^2SVQC and CSQC revisions are compatible.\n");
\r
861 } else if(csqc_revision < CSQC_REVISION) {
\r
862 print("^1Your csprogs.dat (CSQC) version is newer than the one on the server.\n");
\r
863 } else if(csqc_revision > CSQC_REVISION) {
\r
864 print("^1Your csprogs.dat (CSQC) is too old for this server.\n");
\r
865 print("^1Please update to a newer version.\n");
\r
869 string getcommandkey(string text, string command)
\r
874 if (!sbar_showbinds)
\r
877 keys = db_get(binddb, command);
\r
878 if(csqc_flags & CSQC_FLAG_READPICTURE)
\r
882 n = tokenize_insane(findkeysforcommand(command)); // uses '...' strings
\r
883 for(j = 0; j < n; ++j)
\r
889 keys = keynumtostring(k);
\r
891 keys = strcat(keys, ", ", keynumtostring(k));
\r
894 if (sbar_showbinds_limit > 0 && sbar_showbinds_limit >= l) break;
\r
898 db_put(binddb, command, keys);
\r
903 if (sbar_showbinds > 1)
\r
904 return strcat(text, " (not bound)");
\r
908 else if (sbar_showbinds > 1)
\r
909 return strcat(text, " (", keys, ")");
\r