]> icculus.org git repositories - divverent/nexuiz.git/blob - data/qcsrc/client/Main.qc
handle an entity changing its type right (happend when both a remove and a spawn...
[divverent/nexuiz.git] / data / qcsrc / client / Main.qc
1 // --------------------------------------------------------------------------\r
2 // BEGIN REQUIRED CSQC FUNCTIONS\r
3 //include "main.qh"\r
4 \r
5 void() menu_show_error =\r
6 {\r
7         drawstring('0 200 0', "ERROR - MENU IS VISIBLE BUT NO MENU WAS DEFINED!", '8 8 0', '1 0 0', 1, 0);\r
8 };\r
9 \r
10 // CSQC_Init : Called every time the CSQC code is initialized (essentially at map load)\r
11 // Useful for precaching things\r
12 \r
13 void() menu_sub_null =\r
14 {\r
15 };\r
16 \r
17 // let's make this a general data buffer...\r
18 float using_gps;\r
19 \r
20 #ifdef USE_FTE\r
21 float __engine_check;\r
22 #endif\r
23 \r
24 string config_get(string key, string defaultvalue)\r
25 {\r
26         string s;\r
27         s = db_get(configdb, strcat("/s/", key));\r
28         if(s == "")\r
29                 return defaultvalue;\r
30         else\r
31                 return db_get(configdb, strcat("/v/", key));\r
32 }\r
33 \r
34 void CSQC_Init(void)\r
35 {\r
36 #ifdef USE_FTE\r
37 #pragma target ID\r
38         __engine_check = checkextension("DP_SV_WRITEPICTURE");\r
39         if(!__engine_check)\r
40         {\r
41                 print("^3Your engine build is outdated\n^3This Server uses a newer QC VM. Please update!\n");\r
42                 localcmd("\ndisconnect\n");\r
43                 return;\r
44         }\r
45 #pragma target FTE\r
46 #endif\r
47         \r
48         float i;\r
49         CSQC_CheckEngine();\r
50 \r
51         configdb = db_create();\r
52 \r
53         drawfont = 0;\r
54         menu_visible = FALSE;\r
55         menu_show = menu_show_error;\r
56         menu_action = menu_sub_null;\r
57         using_gps = false;\r
58         maxclients = 255; // we later get the real maxclients to speed up stuff\r
59         //ctf_temp_1 = "";\r
60         // localcmd("alias order \"cmd order $*\""); enable if ctf-command thingy is used\r
61         //registercmd("ctf_menu");\r
62         registercmd("ons_map");\r
63         //registercmd("menu_action");\r
64         registercmd("sbar_columns_set");\r
65         registercmd("sbar_columns_help");\r
66 \r
67         registercvar("sbar_usecsqc", "1");\r
68         registercvar("sbar_columns", "default", CVAR_SAVE);\r
69 \r
70         gametype = 0;\r
71 \r
72         gps_start = world;\r
73 \r
74         // sbar_fields uses strunzone on the titles!\r
75         for(i = 0; i < MAX_SBAR_FIELDS; ++i)\r
76                 sbar_title[i] = strzone("(null)");\r
77 \r
78         postinit = false;\r
79 \r
80         teams = Sort_Spawn();\r
81         players = Sort_Spawn();\r
82         \r
83         GetTeam(COLOR_SPECTATOR, true); // add specs first\r
84 }\r
85 \r
86 // CSQC_Shutdown : Called every time the CSQC code is shutdown (changing maps, quitting, etc)\r
87 void CSQC_Shutdown(void)\r
88 {\r
89 #ifdef USE_FTE\r
90 #pragma TARGET id\r
91         if(!__engine_check)\r
92                 return 0;\r
93 #pragma TARGET fte\r
94 #endif\r
95 \r
96         remove(teams);\r
97         remove(players);\r
98         db_close(configdb);\r
99 }\r
100 \r
101 .float has_team;\r
102 float SetTeam(entity o, float Team)\r
103 {\r
104         entity tm;\r
105         if(Team == -1) // leave\r
106         {\r
107                 if(o.has_team)\r
108                 {\r
109                         //print("(DISCONNECT) leave team ", ftos(o.team), "\n");\r
110                         tm = GetTeam(o.team, false);\r
111                         tm.team_size -= 1;\r
112                         o.has_team = 0;\r
113                         return TRUE;\r
114                 }\r
115         }\r
116         else\r
117         {\r
118                 if not(o.has_team)\r
119                 {\r
120                         //print("(CONNECT) enter team ", ftos(o.team), "\n");\r
121                         o.team = Team;\r
122                         tm = GetTeam(Team, true);\r
123                         tm.team_size += 1;\r
124                         o.has_team = 1;\r
125                         return TRUE;\r
126                 }\r
127                 else if(Team != o.team)\r
128                 {\r
129                         //print("(CHANGE) leave team ", ftos(o.team), "\n");\r
130                         tm = GetTeam(o.team, false);\r
131                         tm.team_size -= 1;\r
132                         o.team = Team;\r
133                         //print("(CHANGE) enter team ", ftos(o.team), "\n");\r
134                         tm = GetTeam(Team, true);\r
135                         tm.team_size += 1;\r
136                         return TRUE;\r
137                 }\r
138         }\r
139         return FALSE;\r
140 }\r
141 \r
142 void Playerchecker_Think()\r
143 {\r
144         entity pl;\r
145         float i;\r
146         for(i = 0; i < maxclients; ++i)\r
147         {\r
148                 if(getplayerkey(i, "name") == "")\r
149                 {\r
150                         if(playerslots[i].sort_prev)\r
151                         {\r
152                                 //print("playerchecker: KILL KILL KILL\n");\r
153                                 // player disconnected\r
154                                 SetTeam(playerslots[i], -1);\r
155                                 RemovePlayer(playerslots[i]);\r
156                                 playerslots[i].sort_prev = world;\r
157                                 playerslots[i].gotscores = 0;\r
158                         }\r
159                 }\r
160                 else\r
161                 {\r
162                         if not(playerslots[i].sort_prev)\r
163                         {\r
164                                 //print("playerchecker: SPAWN SPAWN SPAWN\n");\r
165                                 // player connected\r
166                                 if not(playerslots[i])\r
167                                         playerslots[i] = spawn();\r
168                                 playerslots[i].sv_entnum = i;\r
169                                 playerslots[i].gotscores = 0;\r
170                                 SetTeam(playerslots[i], COLOR_SPECTATOR);\r
171                                 RegisterPlayer(playerslots[i]);\r
172                                 Sbar_UpdatePlayerPos(playerslots[i]);\r
173                         }\r
174                 }\r
175         }\r
176         self.nextthink = time + 0.2;\r
177 }\r
178 \r
179 void PostInit(void)\r
180 {\r
181         float i;\r
182 \r
183         print(strcat("PostInit\n    maxclients = ", ftos(maxclients), "\n"));\r
184         localcmd(strcat("\nsbar_columns_set ", cvar_string("sbar_columns"), ";\n"));\r
185 \r
186         entity playerchecker;\r
187         playerchecker = spawn();\r
188         playerchecker.think = Playerchecker_Think;\r
189         playerchecker.nextthink = time + 0.2;\r
190 \r
191         postinit = true;\r
192 }\r
193 \r
194 // CSQC_ConsoleCommand : Used to parse commands in the console that have been registered with the "registercmd" function\r
195 // Return value should be 1 if CSQC handled the command, otherwise return 0 to have the engine handle it.\r
196 void Cmd_Sbar_SetFields(float);\r
197 void Cmd_Sbar_Help(float);\r
198 float CSQC_ConsoleCommand(string strMessage)\r
199 {\r
200         float argc;\r
201         // Tokenize String\r
202         //argc = tokenize(strMessage);\r
203         argc = tokenizebyseparator(strMessage, " ");\r
204         \r
205         // Acquire Command\r
206         local string strCmd;\r
207         strCmd = argv(0);\r
208 \r
209         /*if(strCmd == "ctf_menu") {\r
210                 ctf_menu_show();\r
211                 nReturn = true;\r
212                 } else*/\r
213         if(strCmd == "ons_map") {\r
214                 Cmd_ons_map();\r
215                 return true;\r
216         } else if(strCmd == "sbar_columns_set") {\r
217                 Cmd_Sbar_SetFields(argc);\r
218                 return true;\r
219         } else if(strCmd == "sbar_columns_help") {\r
220                 Cmd_Sbar_Help(argc);\r
221                 return true;\r
222         } else if(strCmd == "+showscores") {\r
223                 sb_showscores = true;\r
224                 return true;\r
225         } else if(strCmd == "-showscores") {\r
226                 sb_showscores = false;\r
227                 return true;\r
228         }\r
229         \r
230         return false;\r
231 }\r
232 \r
233 float GameCommand(string msg)\r
234 {\r
235         float argc;\r
236         argc = tokenize(msg);\r
237         string cmd;\r
238         cmd = argv(0);\r
239         if(cmd == "mv_download") {\r
240                 Cmd_MapVote_MapDownload(argc);\r
241                 return true;\r
242         }\r
243         \r
244         return false;\r
245 }\r
246 \r
247 // CSQC_InputEvent : Used to perform actions based on any key pressed, key released and mouse on the client.\r
248 // Return value should be 1 if CSQC handled the input, otherwise return 0 to have the input passed to the engine.\r
249 // All keys are in ascii.\r
250 // bInputType = 0 is key pressed, 1 is key released, 2 is mouse input.\r
251 // In the case of keyboard input, nPrimary is the ascii code, and nSecondary is 0.\r
252 // In the case of mouse input, nPrimary is xdelta, nSecondary is ydelta.\r
253 float CSQC_InputEvent(float bInputType, float nPrimary, float nSecondary)\r
254 {\r
255         local float bSkipKey;\r
256         bSkipKey = false;\r
257         \r
258         if(menu_visible)\r
259                 if(menu_action(bInputType, nPrimary, nSecondary))\r
260                         return TRUE;\r
261         return bSkipKey;\r
262 }\r
263 \r
264 // END REQUIRED CSQC FUNCTIONS\r
265 // --------------------------------------------------------------------------\r
266 \r
267 // --------------------------------------------------------------------------\r
268 // BEGIN OPTIONAL CSQC FUNCTIONS\r
269 void Ent_ReadONS()\r
270 {\r
271         entity gps;\r
272         using_gps = true;\r
273 \r
274         self.origin_x = ReadCoord();\r
275         self.origin_y = ReadCoord();\r
276         self.angles_y = ReadCoord();\r
277         self.origin_z = self.angles_x = self.angles_z = 0;\r
278 \r
279         for(gps = gps_start; gps; gps = gps.chain)\r
280         {\r
281                 if(gps == self)\r
282                         break;\r
283         }\r
284         if(!gps)\r
285         {\r
286                 self.chain = gps_start;\r
287                 gps_start = self;\r
288         }\r
289 }\r
290 \r
291 void Ent_RemoveONS()\r
292 {\r
293         if(gps_start == self)\r
294                 gps_start = self.chain;\r
295         else\r
296         {\r
297                 local entity ent;\r
298                 ent = gps_start;\r
299                         \r
300                 while(ent.chain != self && ent.chain != world)\r
301                         ent = ent.chain;\r
302                 if(ent.chain == self)\r
303                         ent.chain = self.chain;\r
304         }\r
305 }\r
306 \r
307 void Ent_ReadPlayerScore()\r
308 {\r
309         float i, Team;\r
310         float isNew;\r
311         entity tm, o;\r
312 \r
313         // damnit -.- don't want to go change every single .sv_entnum in sbar.qc AGAIN\r
314         // (no I've never heard of M-x replace-string, sed, or anything like that)\r
315         isNew = !self.owner; // workaround for DP bug\r
316         self.sv_entnum = ReadByte()-1;\r
317         Team = GetPlayerColor(self.sv_entnum);\r
318 \r
319         if not(playerslots[self.sv_entnum])\r
320                 playerslots[self.sv_entnum] = spawn();\r
321         o = self.owner = playerslots[self.sv_entnum];\r
322         o.sv_entnum = self.sv_entnum;\r
323         o.gotscores = 1;\r
324         if not(o.sort_prev)\r
325                 RegisterPlayer(o);\r
326 \r
327         SetTeam(o, Team);\r
328 \r
329         for(i = 0; i < MAX_SCORE; ++i)\r
330                 o.(scores[i]) = ReadShort();\r
331 \r
332         Sbar_UpdatePlayerPos(o);\r
333 }\r
334 \r
335 void Ent_ReadTeamScore()\r
336 {\r
337         float i;\r
338         entity o;\r
339         \r
340         self.team = ReadByte();\r
341         o = self.owner = GetTeam(self.team, true);\r
342 \r
343         for(i = 0; i < MAX_TEAMSCORE; ++i)\r
344                 o.(teamscores[i]) = ReadShort();\r
345 \r
346         Sbar_UpdateTeamPos(o);\r
347 }\r
348 \r
349 // CSQC_Ent_Update : Called every frame that the server has indicated an update to the SSQC / CSQC entity has occured.\r
350 // The only parameter reflects if the entity is "new" to the client, meaning it just came into the client's PVS.\r
351 void Ent_Remove();\r
352 void(float bIsNewEntity) CSQC_Ent_Update =\r
353 {\r
354         float msg, t;\r
355         t = ReadByte();\r
356         if(self.enttype)\r
357                 if(t != self.enttype)\r
358                         Ent_Remove();\r
359         self.enttype = t;\r
360         if(self.enttype == ENT_CLIENT_ENTCS)\r
361         {\r
362                 self.sv_entnum = ReadByte()-1;\r
363 \r
364                 for(msg = ReadByte(); msg != ENTCS_MSG_END; msg = ReadByte())\r
365                 {\r
366                         switch(msg)\r
367                         {\r
368                         case ENTCS_MSG_ONS_GPS: Ent_ReadONS(); break;\r
369                         case ENTCS_MSG_ONS_REMOVE: Ent_RemoveONS(); break;\r
370                         default:\r
371                                 error("unknown ENTCS_MSG type\n");\r
372                         }\r
373                 }\r
374         }\r
375         else if(self.enttype == ENT_CLIENT_SCORES)\r
376                 Ent_ReadPlayerScore();\r
377         else if(self.enttype == ENT_CLIENT_TEAMSCORES)\r
378                 Ent_ReadTeamScore();\r
379         else\r
380                 error("unknown entity type in CSQC_Ent_Update\n");\r
381         \r
382 };\r
383 // Destructor, but does NOT deallocate the entity by calling remove(). Also\r
384 // used when an entity changes its type. For an entity that someone interacts\r
385 // with others, make sure it can no longer do so.\r
386 void Ent_Remove()\r
387 {\r
388         if(self.enttype == ENT_CLIENT_ENTCS)\r
389         {\r
390                 if(using_gps) //gametype == GAME_ONSLAUGHT)\r
391                 {\r
392                         if(gps_start == self)\r
393                                 gps_start = self.chain;\r
394                         else\r
395                         {\r
396                                 local entity ent;\r
397                                 ent = gps_start;\r
398                         \r
399                                 while(ent.chain != self && ent.chain != world)\r
400                                         ent = ent.chain;\r
401                                 if(ent.chain == self)\r
402                                         ent.chain = self.chain;\r
403                         }\r
404                 }\r
405         } else if(self.enttype == ENT_CLIENT_SCORES)\r
406         {\r
407                 entity tm;\r
408                 if(self.owner)\r
409                 {\r
410                         SetTeam(self.owner, -1);\r
411                         RemovePlayer(self.owner);\r
412                         self.owner.sort_prev = NULL;\r
413                 }\r
414         } else if(self.enttype == ENT_CLIENT_TEAMSCORES)\r
415         {\r
416                 /*\r
417                 if(self.owner)\r
418                         RemoveTeam(self.owner);\r
419                 */\r
420                 // we don't NEED to remove them... they won't display anyway\r
421                 // plus, svqc never does this anyway\r
422         }\r
423 \r
424         self.enttype = 0;\r
425         self.classname = "";\r
426         // TODO possibly set more stuff to defaults\r
427 }\r
428 // CSQC_Ent_Remove : Called when the server requests a SSQC / CSQC entity to be removed.  Essentially call remove(self) as well.\r
429 void CSQC_Ent_Remove()\r
430 {\r
431         if(self.enttype)\r
432                 Ent_Remove();\r
433         remove(self);\r
434 }\r
435 \r
436 void Gamemode_Init()\r
437 {\r
438         local string mapinfo, infoline;\r
439         local float len;\r
440         local float file;\r
441         local vector mi_min, mi_max;\r
442 \r
443         if(!strcasecmp(substring(mapname, 0, 5), "maps/"))\r
444                 shortmapname = substring(mapname, 5, 999);\r
445         else\r
446                 shortmapname = mapname;\r
447         len = strlen(shortmapname);\r
448         if(!strcasecmp(substring(shortmapname, len-4, 4), ".bsp"))\r
449                 shortmapname = substring(shortmapname, 0, len-4);\r
450         shortmapname = strzone(shortmapname);\r
451 \r
452         if(gametype == GAME_ONSLAUGHT) {\r
453                 mapinfo = strcat("maps/", minimapname, ".info");\r
454                 minimapname = strzone(strcat("gfx/", shortmapname, "_mini.tga"));\r
455 \r
456                 mi_min = world.mins;\r
457                 mi_max = world.maxs;\r
458                 \r
459                 file = fopen(mapinfo, FILE_READ);\r
460                 if(file >= 0) {\r
461                         while((infoline = fgets(file))) {\r
462                                 if(!strncasecmp(infoline, "mins", 4)) {\r
463                                         mi_min = stov(substring(infoline, 5, 999));\r
464                                 } else if(!strncasecmp(infoline, "maxs", 4)) {\r
465                                         mi_max = stov(substring(infoline, 5, 999));\r
466                                 } else if(strncasecmp(infoline, "//", 2)) { // don't print comment-style lines\r
467                                         print(strcat("mapinfo: ", infoline, "\n"));\r
468                                 }\r
469                         }\r
470                 } else {\r
471                         print(strcat("Map has no .info file (", mapinfo, ").\n"));\r
472                 }\r
473                 fclose(file);\r
474 \r
475                 print(strcat("Mins: ", vtos(mi_min), "    Maxs: ", vtos(mi_max), "\n"));\r
476                 \r
477                 mi_center = (mi_min + mi_max) * 0.5;\r
478                 mi_scale = mi_max - mi_min;\r
479                 \r
480                 \r
481                 print(strcat("Using ", minimapname, " as minimap.\n"));\r
482                 precache_pic(minimapname);\r
483                 precache_pic("gfx/ons-cp-neutral.tga");\r
484                 precache_pic("gfx/ons-cp-red.tga");\r
485                 precache_pic("gfx/ons-cp-blue.tga");\r
486                 precache_pic("gfx/ons-frame.tga");\r
487                 precache_pic("gfx/ons-frame-team.tga");\r
488         } else if(gametype == GAME_KEYHUNT) {\r
489                 precache_pic("gfx/sb_key_carrying");\r
490                 precache_pic("gfx/sb_key_carrying_outline");\r
491         }\r
492 }\r
493 // 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
494 void CSQC_Parse_StuffCmd(string strMessage)\r
495 {\r
496         localcmd(strMessage);\r
497 }\r
498 // 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
499 void CSQC_Parse_Print(string strMessage)\r
500 {\r
501         print(strMessage);\r
502 }\r
503 // 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
504 void CSQC_Parse_CenterPrint(string strMessage)\r
505 {\r
506         cprint(strMessage);\r
507 }\r
508 \r
509 void CSQC_CheckRevision();\r
510 \r
511 void Gamemode_Init();\r
512 void Net_ReadScoresInfo()\r
513 {\r
514         float i;\r
515         gametype = ReadByte();\r
516         for(i = 0; i < MAX_SCORE; ++i)\r
517         {\r
518                 scores_label[i] = strzone(ReadString());\r
519                 scores_flags[i] = ReadByte();\r
520         }\r
521         for(i = 0; i < MAX_TEAMSCORE; ++i)\r
522         {\r
523                 teamscores_label[i] = strzone(ReadString());\r
524                 teamscores_flags[i] = ReadByte();\r
525         }\r
526         Sbar_InitScores();\r
527         Gamemode_Init();\r
528 }\r
529 \r
530 void Net_ReadInit()\r
531 {\r
532         csqc_revision = ReadShort();\r
533         maxclients = ReadByte();\r
534 \r
535         CSQC_CheckRevision();\r
536 }\r
537 \r
538 string Net_ReadPicture()\r
539 {\r
540         string img;\r
541         if(csqc_flags & CSQC_FLAG_READPICTURE)\r
542         {\r
543                 img = ReadPicture();\r
544                 print(strcat("Got Picture: ", img, "\n"));\r
545         } else {\r
546                 img = ReadString();\r
547                 print(strcat("^3Warning: ^7Couldn't download ", img, ". This is probably because your engine build is outdated.\n"));\r
548                 float psize, i;\r
549                 psize = ReadShort();\r
550                 // Can I be sure that ReadShort is 2 bytes and ReadLong is 4 bytes?\r
551                 // Because then this could be optimized to first get all 4-byte-groups,\r
552                 // then the remaining 2, then the remaining 1\r
553                 for(i = 0; i < psize; ++i)\r
554                         ReadByte();\r
555         }\r
556         return img;\r
557 }\r
558 \r
559 void Net_Config()\r
560 {\r
561         string key, value;\r
562         key = ReadString();\r
563         value = ReadString();\r
564         db_put(configdb, strcat("/v/", key), value);\r
565         db_put(configdb, strcat("/s/", key), "1");\r
566 }\r
567 \r
568 // CSQC_Parse_TempEntity : Handles all temporary entity network data in the CSQC layer.\r
569 // You must ALWAYS first acquire the temporary ID, which is sent as a byte.\r
570 // Return value should be 1 if CSQC handled the temporary entity, otherwise return 0 to have the engine process the event.\r
571 float CSQC_Parse_TempEntity()\r
572 {\r
573         local float bHandled;\r
574                 bHandled  = true;\r
575         // Acquire TE ID\r
576         local float nTEID;\r
577                 nTEID = ReadByte();\r
578 \r
579                 // NOTE: Could just do return instead of break...\r
580         switch(nTEID)\r
581         {\r
582                 case TE_CSQC_INIT:\r
583                         Net_ReadInit();\r
584                         bHandled = true;\r
585                         break;\r
586                 case TE_CSQC_MAPVOTE:\r
587                         Net_Mapvote();\r
588                         bHandled = true;\r
589                         break;\r
590                 case TE_CSQC_CONFIG:\r
591                         Net_Config();\r
592                         bHandled = true;\r
593                         break;\r
594                 case TE_CSQC_SCORESINFO:\r
595                         Net_ReadScoresInfo();\r
596                         bHandled = true;\r
597                         break;\r
598                 default:\r
599                         // No special logic for this temporary entity; return 0 so the engine can handle it\r
600                         bHandled = false;\r
601                         break;\r
602         }\r
603         \r
604         if(!postinit)\r
605                 PostInit();\r
606                 \r
607         return bHandled;\r
608 }\r
609 \r
610 // COMMIT-TODO: Update if necessare, before committing\r
611 float csqc_svn_map[CSQC_REVISION] =\r
612 {\r
613         3812, // 3795,\r
614         3820 // mapvote protocol changed from there\r
615 };\r
616 \r
617 // COMMIT-TODO: Update if necessare, before committing\r
618 void CSQC_CheckRevision()\r
619 {\r
620         if(csqc_revision == CSQC_REVISION)\r
621         {\r
622                 print("^2SVQC and CSQC revisions are compatible.\n");\r
623         } else if(csqc_revision < CSQC_REVISION) {\r
624                 print("^1Your csprogs.dat (CSQC) version is newer than the one on the server.\n");\r
625                 print("^1The last known svn revision for the server's CSQC is: ^7");\r
626                 print(ftos(csqc_svn_map[csqc_revision])); // don't use strcat, fteqcc loves screwing up arrays...\r
627                 print("\n");\r
628         } else if(csqc_revision > CSQC_REVISION) {\r
629                 print("^1Your csprogs.dat (CSQC) is too old for this server.\n");\r
630                 print("^1Please update to a newer version.\n");\r
631         }\r
632 }\r