1 // --------------------------------------------------------------------------
\r
2 // BEGIN REQUIRED CSQC FUNCTIONS
\r
5 #define DP_CSQC_ENTITY_REMOVE_IS_B0RKED
\r
7 void() menu_show_error =
\r
9 drawstring('0 200 0', "ERROR - MENU IS VISIBLE BUT NO MENU WAS DEFINED!", '8 8 0', '1 0 0', 1, 0);
\r
12 // CSQC_Init : Called every time the CSQC code is initialized (essentially at map load)
\r
13 // Useful for precaching things
\r
15 void() menu_sub_null =
\r
19 // let's make this a general data buffer...
\r
23 float __engine_check;
\r
26 string config_get(string key, string defaultvalue)
\r
29 s = db_get(configdb, strcat("/s/", key));
\r
31 return defaultvalue;
\r
33 return db_get(configdb, strcat("/v/", key));
\r
36 void CSQC_Init(void)
\r
40 __engine_check = checkextension("DP_SV_WRITEPICTURE");
\r
43 print("^3Your engine build is outdated\n^3This Server uses a newer QC VM. Please update!\n");
\r
44 localcmd("\ndisconnect\n");
\r
53 configdb = db_create();
\r
54 compressShortVector_init();
\r
57 menu_visible = FALSE;
\r
58 menu_show = menu_show_error;
\r
59 menu_action = menu_sub_null;
\r
61 maxclients = 255; // we later get the real maxclients to speed up stuff
\r
63 // localcmd("alias order \"cmd order $*\""); enable if ctf-command thingy is used
\r
64 //registercmd("ctf_menu");
\r
65 registercmd("ons_map");
\r
66 //registercmd("menu_action");
\r
67 registercmd("sbar_columns_set");
\r
68 registercmd("sbar_columns_help");
\r
70 registercvar("sbar_usecsqc", "1");
\r
71 registercvar("sbar_columns", "default", CVAR_SAVE);
\r
77 // sbar_fields uses strunzone on the titles!
\r
78 for(i = 0; i < MAX_SBAR_FIELDS; ++i)
\r
79 sbar_title[i] = strzone("(null)");
\r
83 teams = Sort_Spawn();
\r
84 players = Sort_Spawn();
\r
86 GetTeam(COLOR_SPECTATOR, true); // add specs first
\r
89 // CSQC_Shutdown : Called every time the CSQC code is shutdown (changing maps, quitting, etc)
\r
90 void CSQC_Shutdown(void)
\r
101 db_close(configdb);
\r
104 for(e = world; (e = find(e, classname, "saved_cvar_value")); )
\r
105 cvar_set(e.netname, e.message);
\r
109 float SetTeam(entity o, float Team)
\r
112 if(Team == -1) // leave
\r
116 //print("(DISCONNECT) leave team ", ftos(o.team), "\n");
\r
117 tm = GetTeam(o.team, false);
\r
127 //print("(CONNECT) enter team ", ftos(o.team), "\n");
\r
129 tm = GetTeam(Team, true);
\r
134 else if(Team != o.team)
\r
136 //print("(CHANGE) leave team ", ftos(o.team), "\n");
\r
137 tm = GetTeam(o.team, false);
\r
140 //print("(CHANGE) enter team ", ftos(o.team), "\n");
\r
141 tm = GetTeam(Team, true);
\r
149 void Playerchecker_Think()
\r
152 for(i = 0; i < maxclients; ++i)
\r
154 if(getplayerkey(i, "name") == "")
\r
156 if(playerslots[i].sort_prev)
\r
158 //print("playerchecker: KILL KILL KILL\n");
\r
159 // player disconnected
\r
160 SetTeam(playerslots[i], -1);
\r
161 RemovePlayer(playerslots[i]);
\r
162 playerslots[i].sort_prev = world;
\r
163 playerslots[i].gotscores = 0;
\r
168 if not(playerslots[i].sort_prev)
\r
170 //print("playerchecker: SPAWN SPAWN SPAWN\n");
\r
171 // player connected
\r
172 if not(playerslots[i])
\r
173 playerslots[i] = spawn();
\r
174 playerslots[i].sv_entnum = i;
\r
175 playerslots[i].gotscores = 0;
\r
176 SetTeam(playerslots[i], COLOR_SPECTATOR);
\r
177 RegisterPlayer(playerslots[i]);
\r
178 Sbar_UpdatePlayerPos(playerslots[i]);
\r
182 self.nextthink = time + 0.2;
\r
185 void PostInit(void)
\r
187 print(strcat("PostInit\n maxclients = ", ftos(maxclients), "\n"));
\r
188 localcmd(strcat("\nsbar_columns_set ", cvar_string("sbar_columns"), ";\n"));
\r
190 entity playerchecker;
\r
191 playerchecker = spawn();
\r
192 playerchecker.think = Playerchecker_Think;
\r
193 playerchecker.nextthink = time + 0.2;
\r
198 // CSQC_ConsoleCommand : Used to parse commands in the console that have been registered with the "registercmd" function
\r
199 // Return value should be 1 if CSQC handled the command, otherwise return 0 to have the engine handle it.
\r
200 void Cmd_Sbar_SetFields(float);
\r
201 void Cmd_Sbar_Help(float);
\r
202 float CSQC_ConsoleCommand(string strMessage)
\r
206 //argc = tokenize(strMessage);
\r
207 argc = tokenizebyseparator(strMessage, " ");
\r
210 local string strCmd;
\r
213 /*if(strCmd == "ctf_menu") {
\r
217 if(strCmd == "ons_map") {
\r
220 } else if(strCmd == "sbar_columns_set") {
\r
221 Cmd_Sbar_SetFields(argc);
\r
223 } else if(strCmd == "sbar_columns_help") {
\r
224 Cmd_Sbar_Help(argc);
\r
226 } else if(strCmd == "+showscores") {
\r
227 sb_showscores = true;
\r
229 } else if(strCmd == "-showscores") {
\r
230 sb_showscores = false;
\r
237 float GameCommand(string msg)
\r
240 argc = tokenize(msg);
\r
243 if(cmd == "mv_download") {
\r
244 Cmd_MapVote_MapDownload(argc);
\r
247 else if(cmd == "settemp") {
\r
249 for(e = world; (e = find(e, classname, "saved_cvar_value")); )
\r
250 if(e.netname == argv(1))
\r
253 e.classname = "saved_cvar_value";
\r
254 e.netname = strzone(argv(1));
\r
255 e.message = strzone(cvar_string(argv(1)));
\r
257 cvar_set(argv(1), argv(2));
\r
263 // CSQC_InputEvent : Used to perform actions based on any key pressed, key released and mouse on the client.
\r
264 // Return value should be 1 if CSQC handled the input, otherwise return 0 to have the input passed to the engine.
\r
265 // All keys are in ascii.
\r
266 // bInputType = 0 is key pressed, 1 is key released, 2 is mouse input.
\r
267 // In the case of keyboard input, nPrimary is the ascii code, and nSecondary is 0.
\r
268 // In the case of mouse input, nPrimary is xdelta, nSecondary is ydelta.
\r
269 float CSQC_InputEvent(float bInputType, float nPrimary, float nSecondary)
\r
271 local float bSkipKey;
\r
275 if(menu_action(bInputType, nPrimary, nSecondary))
\r
280 // END REQUIRED CSQC FUNCTIONS
\r
281 // --------------------------------------------------------------------------
\r
283 // --------------------------------------------------------------------------
\r
284 // BEGIN OPTIONAL CSQC FUNCTIONS
\r
290 self.origin_x = ReadCoord();
\r
291 self.origin_y = ReadCoord();
\r
292 self.angles_y = ReadCoord();
\r
293 self.origin_z = self.angles_x = self.angles_z = 0;
\r
295 for(gps = gps_start; gps; gps = gps.chain)
\r
302 self.chain = gps_start;
\r
307 void Ent_RemoveONS()
\r
309 if(gps_start == self)
\r
310 gps_start = self.chain;
\r
316 while(ent.chain != self && ent.chain != world)
\r
318 if(ent.chain == self)
\r
319 ent.chain = self.chain;
\r
324 void Ent_ReadPlayerScore()
\r
330 // damnit -.- don't want to go change every single .sv_entnum in sbar.qc AGAIN
\r
331 // (no I've never heard of M-x replace-string, sed, or anything like that)
\r
332 isNew = !self.owner; // workaround for DP bug
\r
335 #ifdef DP_CSQC_ENTITY_REMOVE_IS_B0RKED
\r
336 if(!isNew && n != self.sv_entnum)
\r
338 print("A CSQC entity changed its owner!\n");
\r
341 self.enttype = ENT_CLIENT_SCORES;
\r
345 self.sv_entnum = n;
\r
346 Team = GetPlayerColor(self.sv_entnum);
\r
348 if not(playerslots[self.sv_entnum])
\r
349 playerslots[self.sv_entnum] = spawn();
\r
350 o = self.owner = playerslots[self.sv_entnum];
\r
351 o.sv_entnum = self.sv_entnum;
\r
353 if not(o.sort_prev)
\r
359 for(i = 0; i < MAX_SCORE; ++i)
\r
360 o.(scores[i]) = ReadShort();
\r
369 for(i = 0, p = 1; i < MAX_SCORE; ++i, p *= 2)
\r
371 o.(scores[i]) = ReadShort();
\r
374 Sbar_UpdatePlayerPos(o);
\r
377 void Ent_ReadTeamScore()
\r
382 self.team = ReadByte();
\r
383 o = self.owner = GetTeam(self.team, true);
\r
385 #if MAX_TEAMSCORE <= 3
\r
386 for(i = 0; i < MAX_TEAMSCORE; ++i)
\r
387 o.(teamscores[i]) = ReadShort();
\r
390 #if MAX_TEAMSCORE <= 8
\r
396 for(i = 0, p = 1; i < MAX_TEAMSCORE; ++i, p *= 2)
\r
398 o.(teamscores[i]) = ReadShort();
\r
401 Sbar_UpdateTeamPos(o);
\r
404 // CSQC_Ent_Update : Called every frame that the server has indicated an update to the SSQC / CSQC entity has occured.
\r
405 // The only parameter reflects if the entity is "new" to the client, meaning it just came into the client's PVS.
\r
406 void(float bIsNewEntity) CSQC_Ent_Update =
\r
410 #ifdef DP_CSQC_ENTITY_REMOVE_IS_B0RKED
\r
412 if(t != self.enttype)
\r
414 print("A CSQC entity changed its type!\n");
\r
419 if(self.enttype == ENT_CLIENT_ENTCS)
\r
421 self.sv_entnum = ReadByte()-1;
\r
423 for(msg = ReadByte(); msg != ENTCS_MSG_END; msg = ReadByte())
\r
427 case ENTCS_MSG_ONS_GPS: Ent_ReadONS(); break;
\r
428 case ENTCS_MSG_ONS_REMOVE: Ent_RemoveONS(); break;
\r
430 error("unknown ENTCS_MSG type\n");
\r
434 else if(self.enttype == ENT_CLIENT_SCORES)
\r
435 Ent_ReadPlayerScore();
\r
436 else if(self.enttype == ENT_CLIENT_TEAMSCORES)
\r
437 Ent_ReadTeamScore();
\r
438 else if(self.enttype == ENT_CLIENT_POINTPARTICLES)
\r
439 Ent_PointParticles();
\r
440 else if(self.enttype == ENT_CLIENT_RAINSNOW)
\r
443 error("unknown entity type in CSQC_Ent_Update\n");
\r
446 // Destructor, but does NOT deallocate the entity by calling remove(). Also
\r
447 // used when an entity changes its type. For an entity that someone interacts
\r
448 // with others, make sure it can no longer do so.
\r
451 if(self.enttype == ENT_CLIENT_ENTCS)
\r
453 if(using_gps) //gametype == GAME_ONSLAUGHT)
\r
455 if(gps_start == self)
\r
456 gps_start = self.chain;
\r
462 while(ent.chain != self && ent.chain != world)
\r
464 if(ent.chain == self)
\r
465 ent.chain = self.chain;
\r
468 } else if(self.enttype == ENT_CLIENT_SCORES)
\r
472 SetTeam(self.owner, -1);
\r
473 if(self.owner.sort_prev)
\r
474 RemovePlayer(self.owner);
\r
475 self.owner.sort_prev = NULL;
\r
477 } else if(self.enttype == ENT_CLIENT_TEAMSCORES)
\r
481 RemoveTeam(self.owner);
\r
483 // we don't NEED to remove them... they won't display anyway
\r
484 // plus, svqc never does this anyway
\r
488 self.classname = "";
\r
489 self.draw = menu_sub_null;
\r
490 // TODO possibly set more stuff to defaults
\r
492 // CSQC_Ent_Remove : Called when the server requests a SSQC / CSQC entity to be removed. Essentially call remove(self) as well.
\r
493 void CSQC_Ent_Remove()
\r
500 void Gamemode_Init()
\r
502 local string mapinfo, infoline;
\r
505 local vector mi_min, mi_max;
\r
507 if(!strcasecmp(substring(mapname, 0, 5), "maps/"))
\r
508 shortmapname = substring(mapname, 5, 999);
\r
510 shortmapname = mapname;
\r
511 len = strlen(shortmapname);
\r
512 if(!strcasecmp(substring(shortmapname, len-4, 4), ".bsp"))
\r
513 shortmapname = substring(shortmapname, 0, len-4);
\r
514 shortmapname = strzone(shortmapname);
\r
516 if(gametype == GAME_ONSLAUGHT) {
\r
517 mapinfo = strcat("maps/", minimapname, ".info");
\r
518 minimapname = strzone(strcat("gfx/", shortmapname, "_mini.tga"));
\r
520 mi_min = world.mins;
\r
521 mi_max = world.maxs;
\r
523 file = fopen(mapinfo, FILE_READ);
\r
525 while((infoline = fgets(file))) {
\r
526 if(!strncasecmp(infoline, "mins", 4)) {
\r
527 mi_min = stov(substring(infoline, 5, 999));
\r
528 } else if(!strncasecmp(infoline, "maxs", 4)) {
\r
529 mi_max = stov(substring(infoline, 5, 999));
\r
530 } else if(strncasecmp(infoline, "//", 2)) { // don't print comment-style lines
\r
531 print(strcat("mapinfo: ", infoline, "\n"));
\r
535 print(strcat("Map has no .info file (", mapinfo, ").\n"));
\r
539 print(strcat("Mins: ", vtos(mi_min), " Maxs: ", vtos(mi_max), "\n"));
\r
541 mi_center = (mi_min + mi_max) * 0.5;
\r
542 mi_scale = mi_max - mi_min;
\r
545 print(strcat("Using ", minimapname, " as minimap.\n"));
\r
546 precache_pic(minimapname);
\r
547 precache_pic("gfx/ons-cp-neutral.tga");
\r
548 precache_pic("gfx/ons-cp-red.tga");
\r
549 precache_pic("gfx/ons-cp-blue.tga");
\r
550 precache_pic("gfx/ons-frame.tga");
\r
551 precache_pic("gfx/ons-frame-team.tga");
\r
552 } else if(gametype == GAME_KEYHUNT) {
\r
553 precache_pic("gfx/sb_key_carrying");
\r
554 precache_pic("gfx/sb_key_carrying_outline");
\r
557 // 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
558 void CSQC_Parse_StuffCmd(string strMessage)
\r
560 localcmd(strMessage);
\r
562 // 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
563 void CSQC_Parse_Print(string strMessage)
\r
567 // 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
568 void CSQC_Parse_CenterPrint(string strMessage)
\r
570 cprint(strMessage);
\r
573 void CSQC_CheckRevision();
\r
575 void Gamemode_Init();
\r
576 void Net_ReadScoresInfo()
\r
579 gametype = ReadByte();
\r
580 for(i = 0; i < MAX_SCORE; ++i)
\r
582 scores_label[i] = strzone(ReadString());
\r
583 scores_flags[i] = ReadByte();
\r
585 for(i = 0; i < MAX_TEAMSCORE; ++i)
\r
587 teamscores_label[i] = strzone(ReadString());
\r
588 teamscores_flags[i] = ReadByte();
\r
594 void Net_ReadInit()
\r
596 csqc_revision = ReadShort();
\r
597 maxclients = ReadByte();
\r
599 CSQC_CheckRevision();
\r
602 string Net_ReadPicture()
\r
605 if(csqc_flags & CSQC_FLAG_READPICTURE)
\r
607 img = ReadPicture();
\r
608 print(strcat("Got Picture: ", img, "\n"));
\r
610 img = ReadString();
\r
611 print(strcat("^3Warning: ^7Couldn't download ", img, ". This is probably because your engine build is outdated.\n"));
\r
613 psize = ReadShort();
\r
614 // Can I be sure that ReadShort is 2 bytes and ReadLong is 4 bytes?
\r
615 // Because then this could be optimized to first get all 4-byte-groups,
\r
616 // then the remaining 2, then the remaining 1
\r
617 for(i = 0; i < psize; ++i)
\r
626 key = ReadString();
\r
627 value = ReadString();
\r
628 db_put(configdb, strcat("/v/", key), value);
\r
629 db_put(configdb, strcat("/s/", key), "1");
\r
632 void Net_ReadRace()
\r
640 case RACE_NET_CHECKPOINT_HIT_QUALIFYING:
\r
641 race_checkpoint = ReadByte();
\r
642 race_time = ReadShort();
\r
643 race_previousbesttime = ReadShort();
\r
644 if(race_previousbestname)
\r
645 strunzone(race_previousbestname);
\r
646 race_previousbestname = strzone(ReadString());
\r
648 race_checkpointtime = time;
\r
650 if(race_checkpoint == 0)
\r
651 race_laptime = time; // valid
\r
655 case RACE_NET_CHECKPOINT_CLEAR:
\r
657 race_checkpointtime = 0;
\r
660 case RACE_NET_CHECKPOINT_NEXT_SPEC_QUALIFYING:
\r
661 race_laptime = ReadCoord();
\r
662 race_checkpointtime = -99999;
\r
664 case RACE_NET_CHECKPOINT_NEXT_QUALIFYING:
\r
665 race_nextcheckpoint = ReadByte();
\r
667 race_nextbesttime = ReadShort();
\r
668 if(race_nextbestname)
\r
669 strunzone(race_nextbestname);
\r
670 race_nextbestname = strzone(ReadString());
\r
673 case RACE_NET_CHECKPOINT_HIT_RACE:
\r
674 race_mycheckpoint = ReadByte();
\r
675 race_mycheckpointtime = time;
\r
676 race_mycheckpointdelta = ReadShort();
\r
677 race_mycheckpointlapsdelta = ReadByte();
\r
678 if(race_mycheckpointlapsdelta >= 128)
\r
679 race_mycheckpointlapsdelta -= 256;
\r
680 if(race_mycheckpointenemy)
\r
681 strunzone(race_mycheckpointenemy);
\r
682 race_mycheckpointenemy = strzone(ReadString());
\r
685 case RACE_NET_CHECKPOINT_HIT_RACE_BY_OPPONENT:
\r
686 race_othercheckpoint = ReadByte();
\r
687 race_othercheckpointtime = time;
\r
688 race_othercheckpointdelta = ReadShort();
\r
689 race_othercheckpointlapsdelta = ReadByte();
\r
690 if(race_othercheckpointlapsdelta >= 128)
\r
691 race_othercheckpointlapsdelta -= 256;
\r
692 if(race_othercheckpointenemy)
\r
693 strunzone(race_othercheckpointenemy);
\r
694 race_othercheckpointenemy = strzone(ReadString());
\r
699 void Net_ReadForceScoreboard()
\r
701 sb_showscores_force = ReadByte();
\r
707 race_checkpointtime = 0;
\r
710 void Net_ReadSpectating()
\r
712 float newspectatee_status;
\r
713 newspectatee_status = ReadByte();
\r
714 if(newspectatee_status == player_localentnum)
\r
715 newspectatee_status = -1; // observing
\r
716 if(newspectatee_status != spectatee_status)
\r
718 spectatee_status = newspectatee_status;
\r
721 // CSQC_Parse_TempEntity : Handles all temporary entity network data in the CSQC layer.
\r
722 // You must ALWAYS first acquire the temporary ID, which is sent as a byte.
\r
723 // Return value should be 1 if CSQC handled the temporary entity, otherwise return 0 to have the engine process the event.
\r
724 float CSQC_Parse_TempEntity()
\r
726 local float bHandled;
\r
730 nTEID = ReadByte();
\r
732 // NOTE: Could just do return instead of break...
\r
739 case TE_CSQC_MAPVOTE:
\r
743 case TE_CSQC_CONFIG:
\r
747 case TE_CSQC_SCORESINFO:
\r
748 Net_ReadScoresInfo();
\r
755 case TE_CSQC_FORCESCOREBOARD:
\r
756 Net_ReadForceScoreboard();
\r
759 case TE_CSQC_SPECTATING:
\r
760 Net_ReadSpectating();
\r
763 case 13: // TE_BEAM
\r
764 Net_GrapplingHook();
\r
768 // No special logic for this temporary entity; return 0 so the engine can handle it
\r
779 // COMMIT-TODO: Update if necessare, before committing
\r
780 void CSQC_CheckRevision()
\r
782 if(csqc_revision == CSQC_REVISION)
\r
784 print("^2SVQC and CSQC revisions are compatible.\n");
\r
785 } else if(csqc_revision < CSQC_REVISION) {
\r
786 print("^1Your csprogs.dat (CSQC) version is newer than the one on the server.\n");
\r
787 } else if(csqc_revision > CSQC_REVISION) {
\r
788 print("^1Your csprogs.dat (CSQC) is too old for this server.\n");
\r
789 print("^1Please update to a newer version.\n");
\r