ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/c_party.C
Revision: 1.12
Committed: Sun Dec 31 10:28:36 2006 UTC (17 years, 4 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.11: +3 -9 lines
Log Message:
different interface design for c++/perl map handling, some random map framework

File Contents

# Content
1 /*
2 CrossFire, A Multiplayer game for X-windows
3
4 Copyright (C) 2002 Mark Wedel & Crossfire Development Team
5 Copyright (C) 1992 Frank Tore Johansen
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20
21 The authors can be reached via e-mail at <crossfire@schmorp.de>
22 */
23
24 #include <global.h>
25 #include <sproto.h>
26 #include <spells.h>
27
28 #ifdef COZY_SERVER
29 // used for pet monster logic etc.
30 int
31 same_party (partylist *a, partylist *b)
32 {
33 return a == b && a;
34 }
35 #endif
36
37 static partylist *firstparty = NULL; /* Keeps track of first party in list */
38 static partylist *lastparty = NULL; /*Keeps track of last party in list */
39
40 partylist *
41 get_firstparty (void)
42 {
43 return firstparty;
44 }
45
46 void remove_party (partylist *target_party);
47
48 /* Forms the party struct for a party called 'params'. it is the responsibility
49 * of the caller to ensure that the name is unique, and that it is placed in the
50 * main party list correctly */
51 static partylist *
52 form_party (object *op, const char *params)
53 {
54 partylist *newparty;
55
56 newparty = (partylist *) malloc (sizeof (partylist));
57 newparty->partyname = strdup (params);
58 newparty->total_exp = 0;
59 newparty->kills = 0;
60 newparty->passwd[0] = '\0';
61 newparty->next = NULL;
62 newparty->partyleader = strdup (op->name);
63 new_draw_info_format (NDI_UNIQUE, 0, op, "You have formed party: %s", newparty->partyname);
64 op->contr->party = newparty;
65
66 return newparty;
67 }
68
69 void
70 remove_party (partylist *target_party)
71 {
72 partylist *tmpparty;
73 partylist *previousparty;
74 partylist *nextparty;
75 player *pl;
76
77 if (firstparty == NULL)
78 {
79 LOG (llevError, "remove_party(): I was asked to remove party %s, but no parties are defined", target_party->partyname);
80 return;
81 }
82
83 for_all_players (pl)
84 if (pl->party == target_party)
85 pl->party = NULL;
86
87 /* special case-ism for parties at the beginning and end of the list */
88 if (target_party == firstparty)
89 {
90 firstparty = firstparty->next;
91
92 if (target_party->partyleader)
93 free (target_party->partyleader);
94
95 if (target_party->partyname)
96 free (target_party->partyname);
97
98 free (target_party);
99 return;
100 }
101 else if (target_party == lastparty)
102 {
103 for (tmpparty = firstparty; tmpparty->next != NULL; tmpparty = tmpparty->next)
104 {
105 if (tmpparty->next == target_party)
106 {
107 lastparty = tmpparty;
108
109 if (target_party->partyleader)
110 free (target_party->partyleader);
111
112 if (target_party->partyname)
113 free (target_party->partyname);
114
115 free (target_party);
116 lastparty->next = NULL;
117 return;
118 }
119 }
120 }
121 for (tmpparty = firstparty; tmpparty->next != NULL; tmpparty = tmpparty->next)
122 if (tmpparty->next == target_party)
123 {
124 previousparty = tmpparty;
125 nextparty = tmpparty->next->next;
126 /* this should be safe, because we already dealt with the lastparty case */
127
128 previousparty->next = nextparty;
129 if (target_party->partyleader)
130 free (target_party->partyleader);
131 if (target_party->partyname)
132 free (target_party->partyname);
133 free (target_party);
134 return;
135 }
136 }
137
138 /* Remove unused parties, this could be made to scale a lot better. */
139 void
140 obsolete_parties (void)
141 {
142 int player_count;
143 player *pl;
144 partylist *party;
145 partylist *next = NULL;
146
147 if (!firstparty)
148 return; /* we can't obsolete parties if there aren't any */
149 for (party = firstparty; party != NULL; party = next)
150 {
151 next = party->next;
152 player_count = 0;
153 for_all_players (pl)
154 if (pl->party == party)
155 player_count++;
156 if (player_count == 0)
157 remove_party (party);
158 }
159 }
160
161 void
162 add_kill_to_party (partylist *party, char *killer, char *dead, long exp)
163 {
164 int i, pos;
165
166 if (party == NULL)
167 return;
168
169 if (party->kills >= PARTY_KILL_LOG)
170 {
171 pos = PARTY_KILL_LOG - 1;
172 for (i = 0; i < PARTY_KILL_LOG - 1; i++)
173 party->party_kills[i] = party->party_kills[i + 1];
174 }
175 else
176 pos = party->kills;
177
178 party->kills++;
179 party->total_exp += exp;
180 party->party_kills[pos].exp = exp;
181 assign (party->party_kills[pos].killer, killer);
182 assign (party->party_kills[pos].dead, dead);
183 party->party_kills[pos].killer[MAX_NAME] = 0;
184 party->party_kills[pos].dead[MAX_NAME] = 0;
185 }
186
187 int
188 confirm_party_password (object *op)
189 {
190 partylist *tmppartylist;
191
192 for (tmppartylist = firstparty; tmppartylist != NULL; tmppartylist = tmppartylist->next)
193 {
194 if (!strcmp (op->contr->party_to_join->partyname, tmppartylist->partyname))
195 {
196 if (strcmp (op->contr->write_buf + 1, tmppartylist->passwd) == 0)
197 return 0;
198 else
199 return 1;
200 }
201 }
202 return 1;
203 }
204
205 void
206 receive_party_password (object *op, char k)
207 {
208
209 if (confirm_party_password (op) == 0)
210 {
211 partylist *joined_party = op->contr->party_to_join;
212 char buf[MAX_BUF];
213
214 op->contr->party = op->contr->party_to_join;
215 op->contr->party_to_join = NULL;
216 new_draw_info_format (NDI_UNIQUE, 0, op, "You have joined party: %s\n", joined_party->partyname);
217 snprintf (buf, MAX_BUF, "%s joins party %s", &op->name, joined_party->partyname);
218 send_party_message (op, buf);
219 op->contr->ns->state = ST_PLAYING;
220 return;
221 }
222 else
223 {
224 new_draw_info (NDI_UNIQUE, 0, op, "You entered the wrong password");
225 op->contr->party_to_join = NULL;
226 op->contr->ns->state = ST_PLAYING;
227 return;
228 }
229 }
230
231 void
232 send_party_message (object *op, char *msg)
233 {
234 player *pl;
235
236 for_all_players (pl)
237 if (pl->ob->contr->party == op->contr->party && pl->ob != op)
238 new_draw_info (NDI_WHITE, 0, pl->ob, msg);
239 }
240
241 int
242 command_gsay (object *op, char *params)
243 {
244 char party_params[MAX_BUF];
245
246 if (!params)
247 return 0;
248
249 strcpy (party_params, "say ");
250 strcat (party_params, params);
251 command_party (op, party_params);
252 return 0;
253 }
254
255 int
256 command_party (object *op, char *params)
257 {
258 char buf[MAX_BUF];
259 partylist *tmpparty, *oldparty; /* For iterating over linked list */
260 char *currentparty; /* For iterating over linked list */
261
262 if (params == NULL)
263 {
264 if (op->contr->party == NULL)
265 {
266 new_draw_info (NDI_UNIQUE, 0, op, "You are not a member of any party.");
267 new_draw_info (NDI_UNIQUE, 0, op, "For help try: party help");
268 }
269 else
270 {
271 currentparty = op->contr->party->partyname;
272 new_draw_info_format (NDI_UNIQUE, 0, op, "You are a member of party %s.", currentparty);
273 }
274 return 1;
275 }
276
277 if (strcmp (params, "help") == 0)
278 {
279 new_draw_info (NDI_UNIQUE, 0, op, "To form a party type: party form <partyname>");
280 new_draw_info (NDI_UNIQUE, 0, op, "To join a party type: party join <partyname>");
281 new_draw_info (NDI_UNIQUE, 0, op, "If the party has a passwd, it will you prompt you for it.");
282 new_draw_info (NDI_UNIQUE, 0, op, "For a list of current parties type: party list");
283 new_draw_info (NDI_UNIQUE, 0, op, "To leave a party type: party leave");
284 new_draw_info (NDI_UNIQUE, 0, op, "To change a passwd for a party type: party passwd <password>");
285 new_draw_info (NDI_UNIQUE, 0, op, "There is an 8 character max");
286 new_draw_info (NDI_UNIQUE, 0, op, "To talk to party members type: party say <msg>");
287 new_draw_info (NDI_UNIQUE, 0, op, "To see who is in your party: party who");
288 new_draw_info (NDI_UNIQUE, 0, op, "To see what you've killed, type: party kills");
289 return 1;
290 }
291
292 if (!strncmp (params, "kills", 5))
293 {
294 int i, max;
295 char chr;
296 char buffer[80];
297 float exp;
298
299 if (op->contr->party == NULL)
300 {
301 new_draw_info (NDI_UNIQUE, 0, op, "You are not a member of any party.");
302 return 1;
303 }
304 tmpparty = op->contr->party;
305 if (!tmpparty->kills)
306 {
307 new_draw_info (NDI_UNIQUE, 0, op, "You haven't killed anything yet.");
308 return 1;
309 }
310 max = tmpparty->kills - 1;
311 if (max > PARTY_KILL_LOG - 1)
312 max = PARTY_KILL_LOG - 1;
313 new_draw_info (NDI_UNIQUE, 0, op, "Killed | Killer| Exp");
314 new_draw_info (NDI_UNIQUE, 0, op, "----------------+----------------+--------");
315 for (i = 0; i <= max; i++)
316 {
317 exp = tmpparty->party_kills[i].exp;
318 chr = ' ';
319 if (exp > 1000000)
320 {
321 exp /= 1000000;
322 chr = 'M';
323 }
324 else if (exp > 1000)
325 {
326 exp /= 1000;
327 chr = 'k';
328 }
329 sprintf (buffer, "%16s|%16s|%6.1f%c", tmpparty->party_kills[i].dead, tmpparty->party_kills[i].killer, exp, chr);
330 new_draw_info (NDI_UNIQUE, 0, op, buffer);
331 }
332 exp = tmpparty->total_exp;
333 chr = ' ';
334 if (exp > 1000000)
335 {
336 exp /= 1000000;
337 chr = 'M';
338 }
339 else if (exp > 1000)
340 {
341 exp /= 1000;
342 chr = 'k';
343 }
344 new_draw_info (NDI_UNIQUE, 0, op, "----------------+----------------+--------");
345 sprintf (buffer, "Totals: %d kills, %.1f%c exp", tmpparty->kills, exp, chr);
346 new_draw_info (NDI_UNIQUE, 0, op, buffer);
347 return 1;
348 }
349
350 if (strncmp (params, "say ", 4) == 0)
351 {
352 if (op->contr->party == NULL)
353 {
354 new_draw_info (NDI_UNIQUE, 0, op, "You are not a member of any party.");
355 return 1;
356 }
357 params += 4;
358 currentparty = op->contr->party->partyname;
359 snprintf (buf, MAX_BUF - 1, "[%s] %s says: %s", currentparty, &op->name, params);
360 send_party_message (op, buf);
361 new_draw_info_format (NDI_LT_GREEN | NDI_UNIQUE, 0, op, "[%s] You say: %s", currentparty, params);
362 return 1;
363 }
364
365 if (strncmp (params, "form ", 5) == 0)
366 {
367 int player_count;
368 player *pl;
369
370 params += 5;
371 if (op->contr->party)
372 oldparty = op->contr->party;
373 else
374 oldparty = NULL;
375
376 if (firstparty)
377 {
378 for (tmpparty = firstparty; tmpparty != NULL; tmpparty = tmpparty->next)
379 {
380 if (!strcmp (tmpparty->partyname, params))
381 {
382 new_draw_info_format (NDI_UNIQUE, 0, op, "The party %s already exists, pick another name", params);
383 return 1;
384 }
385 }
386 lastparty->next = form_party (op, params);
387 lastparty = lastparty->next;
388 }
389 else
390 {
391 firstparty = form_party (op, params);
392 lastparty = firstparty;
393 }
394 /*
395 * The player might have previously been a member of a party, if so, he will be leaving
396 * it, so check if there are any other members and if not, delete the party
397 */
398 player_count = 0;
399 if (oldparty)
400 {
401 for (pl = first_player; pl->next != NULL; pl = pl->next)
402 {
403 if (pl->party == oldparty)
404 player_count++;
405 }
406 if (player_count == 0)
407 remove_party (oldparty);
408 }
409 return 0;
410 } /* form */
411
412 if (strcmp (params, "leave") == 0)
413 {
414 if (op->contr->party == NULL)
415 {
416 new_draw_info (NDI_UNIQUE, 0, op, "You are not a member of any party.");
417 return 1;
418 }
419 currentparty = op->contr->party->partyname;
420 new_draw_info_format (NDI_UNIQUE, 0, op, "You leave party %s.", currentparty);
421 sprintf (buf, "%s leaves party %s.", &op->name, currentparty);
422 send_party_message (op, buf);
423 op->contr->party = NULL;
424 return 1;
425 }
426
427 if (strcmp (params, "who") == 0)
428 {
429 player *pl;
430
431 tmpparty = op->contr->party;
432 if (op->contr->party == NULL)
433 {
434 new_draw_info (NDI_UNIQUE, 0, op, "You are not a member of any party.");
435 return 1;
436 }
437 new_draw_info_format (NDI_UNIQUE, 0, op, "Members of party: %s.", op->contr->party->partyname);
438 for_all_players (pl)
439 if (pl->ob->contr->party == op->contr->party)
440 {
441 if (settings.set_title == TRUE)
442 {
443 if (pl->ob->contr->own_title[0] != '\0')
444 sprintf (buf, "%3d %s the %s", pl->ob->level, &pl->ob->name, pl->ob->contr->own_title);
445 else
446 sprintf (buf, "%3d %s the %s", pl->ob->level, &pl->ob->name, pl->ob->contr->title);
447 }
448 else
449 sprintf (buf, "%3d %s the %s", pl->ob->level, &pl->ob->name, pl->ob->contr->title);
450 new_draw_info (NDI_UNIQUE, 0, op, buf);
451 }
452 return 1;
453 } /* leave */
454
455 if (strncmp (params, "passwd ", 7) == 0)
456 {
457 partylist *tmplist;
458
459 params += 7;
460
461 if (op->contr->party == NULL)
462 {
463 new_draw_info (NDI_UNIQUE, 0, op, "You are not a member of a party");
464 return 1;
465 }
466
467 if (strlen (params) > 8)
468 {
469 new_draw_info (NDI_UNIQUE, 0, op, "The password must not exceed 8 characters");
470 return 1;
471 }
472
473 tmplist = firstparty;
474 while (tmplist != NULL)
475 {
476 if (tmplist == op->contr->party)
477 {
478 strcpy (tmplist->passwd, params);
479 new_draw_info_format (NDI_UNIQUE, 0, op, "The password for party %s is %s", tmplist->partyname, tmplist->passwd);
480 snprintf (buf, MAX_BUF, "Password for party %s is now %s, changed by %s", tmplist->partyname, tmplist->passwd, &op->name);
481 send_party_message (op, buf);
482 return 0;
483 }
484 tmplist = tmplist->next;
485 }
486 return 0;
487 } /* passwd */
488
489 if (strcmp (params, "list") == 0)
490 {
491 partylist *tmplist;
492
493 tmplist = firstparty;
494
495 if (firstparty == NULL)
496 {
497 new_draw_info (NDI_UNIQUE, 0, op, "There are no parties active right now");
498 return 1;
499 }
500
501 new_draw_info (NDI_UNIQUE, 0, op, "Party name Leader");
502 new_draw_info (NDI_UNIQUE, 0, op, "---------- ------");
503
504 while (tmplist != NULL)
505 {
506 new_draw_info_format (NDI_UNIQUE, 0, op, "%-32s %s", tmplist->partyname, tmplist->partyleader);
507 tmplist = tmplist->next;
508 }
509 return 0;
510 } /* list */
511
512 if (strncmp (params, "join ", 5) == 0)
513 {
514
515 params += 5;
516
517 /* Can't join a party cause non exist */
518 if (firstparty == NULL)
519 {
520 new_draw_info_format (NDI_UNIQUE, 0, op, "Party: %s does not exist. You must form it first", params);
521 return 1;
522 }
523
524 /* Special case if thier is only one party */
525 if (firstparty->next == NULL)
526 {
527 if (strcmp (firstparty->partyname, params) != 0)
528 {
529 new_draw_info_format (NDI_UNIQUE, 0, op, "Party: %s does not exist. You must form it first", params);
530 return 1;
531 }
532 else
533 {
534 if (op->contr->party == firstparty)
535 {
536 new_draw_info_format (NDI_UNIQUE, 0, op, "You are already in party: %s", firstparty->partyname);
537 return 1;
538 }
539 /* found party player wants to join */
540 if (firstparty->passwd[0] == '\0')
541 {
542 op->contr->party = firstparty;
543 new_draw_info_format (NDI_UNIQUE, 0, op, "You have joined party: %s", firstparty->partyname);
544 snprintf (buf, MAX_BUF, "%s joins party %s", &op->name, firstparty->partyname);
545 send_party_message (op, buf);
546 return 0;
547 }
548 else
549 {
550 get_party_password (op, firstparty);
551 return 0;
552 }
553 }
554 }
555
556 tmpparty = firstparty;
557 while (tmpparty != NULL)
558 {
559 if (strcmp (tmpparty->partyname, params) == 0)
560 {
561 if (op->contr->party == tmpparty)
562 {
563 new_draw_info_format (NDI_UNIQUE, 0, op, "You are already a member of party: %s", tmpparty->partyname);
564 return 1;
565 }
566 else
567 {
568 if (tmpparty->passwd[0] == '\0')
569 {
570 new_draw_info_format (NDI_UNIQUE, 0, op, "You have joined party: %s", tmpparty->partyname);
571 op->contr->party = tmpparty;
572 snprintf (buf, MAX_BUF, "%s joins party %s", &op->name, tmpparty->partyname);
573 send_party_message (op, buf);
574 return 0;
575 }
576 else
577 {
578 get_party_password (op, tmpparty);
579 return 0;
580 }
581 }
582 }
583 else
584 tmpparty = tmpparty->next;
585 }
586
587 new_draw_info_format (NDI_UNIQUE, 0, op, "Party %s does not exist. You must form it first.", params);
588 return 1;
589 } /* join */
590
591 new_draw_info (NDI_UNIQUE, 0, op, "To form a party type: party form <partyname>");
592 new_draw_info (NDI_UNIQUE, 0, op, "To join a party type: party join <partyname>");
593 new_draw_info (NDI_UNIQUE, 0, op, "If the party has a passwd, it will you prompt you for it.");
594 new_draw_info (NDI_UNIQUE, 0, op, "For a list of current parties type: party list");
595 new_draw_info (NDI_UNIQUE, 0, op, "To leave a party type: party leave");
596 new_draw_info (NDI_UNIQUE, 0, op, "To change a passwd for a party type: party passwd <password>");
597 new_draw_info (NDI_UNIQUE, 0, op, "There is an 8 character max");
598 new_draw_info (NDI_UNIQUE, 0, op, "To talk to party members type: party say <msg>");
599 new_draw_info (NDI_UNIQUE, 0, op, "To see who is in your party: party who");
600 new_draw_info (NDI_UNIQUE, 0, op, "To see what you've killed, type: party kills");
601 return 1;
602 }