1 /*
2 * gamesupport.c - auxiliary routines for support of Phantasia
3 */
4
5 #include "include.h"
6
7 /************************************************************************
8 /
9 / FUNCTION NAME: changestats()
10 /
11 / FUNCTION: examine/change statistics for a player
12 /
13 / AUTHOR: E. A. Estes, 12/4/85
14 /
15 / ARGUMENTS:
16 / bool ingameflag - set if called while playing game (Wizard only)
17 /
18 / RETURN VALUE: none
19 /
20 / MODULES CALLED: freerecord(), writerecord(), descrstatus(), truncstring(),
21 / time(), more(), wmove(), wclear(), strcmp(), printw(), strcpy(),
22 / infloat(), waddstr(), cleanup(), findname(), userlist(), mvprintw(),
23 / localtime(), getanswer(), descrtype(), getstring()
24 /
25 / GLOBAL INPUTS: LINES, *Login, Other, Wizard, Player, *stdscr, Databuf[],
26 / Fileloc
27 /
28 / GLOBAL OUTPUTS: Echo
29 /
30 / DESCRIPTION:
31 / Prompt for player name to examine/change.
32 / If the name is NULL, print a list of all players.
33 / If we are called from within the game, check for the
34 / desired name being the same as the current player's name.
35 / Only the 'Wizard' may alter players.
36 / Items are changed only if a non-zero value is specified.
37 / To change an item to 0, use 0.1; it will be truncated later.
38 /
39 / Players may alter their names and passwords, if the following
40 / are true:
41 / - current login matches the character's logins
42 / - the password is known
43 / - the player is not in the middle of the game (ingameflag == FALSE)
44 /
45 / The last condition is imposed for two reasons:
46 / - the game could possibly get a bit hectic if a player were
47 / continually changing his/her name
48 / - another player structure would be necessary to check for names
49 / already in use
50 /
51 /************************************************************************/
52
changestats(ingameflag)53 changestats(ingameflag)
54 bool ingameflag;
55 {
56 static char flag[2] = /* for printing values of bools */
57 {'F', 'T'};
58 register struct player *playerp;/* pointer to structure to alter */
59 register char *prompt; /* pointer to prompt string */
60 int c; /* input */
61 int today; /* day of year of today */
62 int temp; /* temporary variable */
63 long loc; /* location in player file */
64 long now; /* time now */
65 double dtemp; /* temporary variable */
66 bool *bptr; /* pointer to bool item to change */
67 double *dptr; /* pointer to double item to change */
68 short *sptr; /* pointer to short item to change */
69
70 clear();
71
72 for (;;)
73 /* get name of player to examine/alter */
74 {
75 mvaddstr(5, 0, "Which character do you want to look at ? ");
76 getstring(Databuf, SZ_DATABUF);
77 truncstring(Databuf);
78
79 if (Databuf[0] == '\0')
80 userlist(ingameflag);
81 else
82 break;
83 }
84
85 loc = -1L;
86
87 if (!ingameflag)
88 /* use 'Player' structure */
89 playerp = &Player;
90 else if (strcmp(Databuf, Player.p_name) == 0)
91 /* alter/examine current player */
92 {
93 playerp = &Player;
94 loc = Fileloc;
95 }
96 else
97 /* use 'Other' structure */
98 playerp = &Other;
99
100 /* find player on file */
101 if (loc < 0L && (loc = findname(Databuf, playerp)) < 0L)
102 /* didn't find player */
103 {
104 clear();
105 mvaddstr(11, 0, "Not found.");
106 return;
107 }
108
109 time(&now);
110 today = localtime(&now)->tm_yday;
111
112 clear();
113
114 for (;;)
115 /* print player structure, and prompt for action */
116 {
117 mvprintw(0, 0,"A:Name %s\n", playerp->p_name);
118
119 if (Wizard)
120 printw("B:Password %s\n", playerp->p_password);
121 else
122 addstr("B:Password XXXXXXXX\n");
123
124 printw(" :Login %s\n", playerp->p_login);
125
126 printw("C:Experience %.0f\n", playerp->p_experience);
127 printw("D:Level %.0f\n", playerp->p_level);
128 printw("E:Strength %.0f\n", playerp->p_strength);
129 printw("F:Sword %.0f\n", playerp->p_sword);
130 printw(" :Might %.0f\n", playerp->p_might);
131 printw("G:Energy %.0f\n", playerp->p_energy);
132 printw("H:Max-Energy %.0f\n", playerp->p_maxenergy);
133 printw("I:Shield %.0f\n", playerp->p_shield);
134 printw("J:Quickness %.0f\n", playerp->p_quickness);
135 printw("K:Quicksilver %.0f\n", playerp->p_quksilver);
136 printw(" :Speed %.0f\n", playerp->p_speed);
137 printw("L:Magic Level %.0f\n", playerp->p_magiclvl);
138 printw("M:Mana %.0f\n", playerp->p_mana);
139 printw("N:Brains %.0f\n", playerp->p_brains);
140
141 if (Wizard || playerp->p_specialtype != SC_VALAR)
142 mvaddstr(0, 40, descrstatus(playerp));
143
144 mvprintw(1, 40, "O:Poison %0.3f\n", playerp->p_poison);
145 mvprintw(2, 40, "P:Gold %.0f\n", playerp->p_gold);
146 mvprintw(3, 40, "Q:Gem %.0f\n", playerp->p_gems);
147 mvprintw(4, 40, "R:Sin %0.3f\n", playerp->p_sin);
148 if (Wizard)
149 {
150 mvprintw(5, 40, "S:X-coord %.0f\n", playerp->p_x);
151 mvprintw(6, 40, "T:Y-coord %.0f\n", playerp->p_y);
152 }
153 else
154 {
155 mvaddstr(5, 40, "S:X-coord ?\n");
156 mvaddstr(6, 40, "T:Y-coord ?\n");
157 }
158
159 mvprintw(7, 40, "U:Age %ld\n", playerp->p_age);
160 mvprintw(8, 40, "V:Degenerated %d\n", playerp->p_degenerated);
161
162 mvprintw(9, 40, "W:Type %d (%s)\n",
163 playerp->p_type, descrtype(playerp, FALSE) + 1);
164 mvprintw(10, 40, "X:Special Type %d\n", playerp->p_specialtype);
165 mvprintw(11, 40, "Y:Lives %d\n", playerp->p_lives);
166 mvprintw(12, 40, "Z:Crowns %d\n", playerp->p_crowns);
167 mvprintw(13, 40, "0:Charms %d\n", playerp->p_charms);
168 mvprintw(14, 40, "1:Amulets %d\n", playerp->p_amulets);
169 mvprintw(15, 40, "2:Holy Water %d\n", playerp->p_holywater);
170
171 temp = today - playerp->p_lastused;
172 if (temp < 0)
173 /* last year */
174 temp += 365;
175 mvprintw(16, 40, "3:Lastused %d (%d)\n", playerp->p_lastused, temp);
176
177 mvprintw(18, 8, "4:Palantir %c 5:Blessing %c 6:Virgin %c 7:Blind %c",
178 flag[playerp->p_palantir],
179 flag[playerp->p_blessing],
180 flag[playerp->p_virgin],
181 flag[playerp->p_blindness]);
182
183 if (!Wizard)
184 mvprintw(19, 8, "8:Ring %c",
185 flag[playerp->p_ring.ring_type != R_NONE]);
186 else
187 mvprintw(19, 8, "8:Ring %d 9:Duration %d",
188 playerp->p_ring.ring_type, playerp->p_ring.ring_duration);
189
190 if (!Wizard
191 /* not wizard */
192 && (ingameflag || strcmp(Login, playerp->p_login) != 0))
193 /* in game or not examining own character */
194 {
195 if (ingameflag)
196 {
197 more(LINES - 1);
198 clear();
199 return;
200 }
201 else
202 cleanup(TRUE);
203 /*NOTREACHED*/
204 }
205
206 mvaddstr(20, 0, "!:Quit ?:Delete");
207 mvaddstr(21, 0, "What would you like to change ? ");
208
209 if (Wizard)
210 c = getanswer(" ", TRUE);
211 else
212 /* examining own player; allow to change name and password */
213 c = getanswer("!BA", FALSE);
214
215 switch (c)
216 {
217 case 'A': /* change name */
218 case 'B': /* change password */
219 if (!Wizard)
220 /* prompt for password */
221 {
222 mvaddstr(23, 0, "Password ? ");
223 Echo = FALSE;
224 getstring(Databuf, 9);
225 Echo = TRUE;
226 if (strcmp(Databuf, playerp->p_password) != 0)
227 continue;
228 }
229
230 if (c == 'A')
231 /* get new name */
232 {
233 mvaddstr(23, 0, "New name: ");
234 getstring(Databuf, SZ_NAME);
235 truncstring(Databuf);
236 if (Databuf[0] != '\0')
237 if (Wizard || findname(Databuf, &Other) < 0L)
238 strcpy(playerp->p_name, Databuf);
239 }
240 else
241 /* get new password */
242 {
243 if (!Wizard)
244 Echo = FALSE;
245
246 do
247 /* get two copies of new password until they match */
248 {
249 /* get first copy */
250 mvaddstr(23, 0, "New password ? ");
251 getstring(Databuf, SZ_PASSWORD);
252 if (Databuf[0] == '\0')
253 break;
254
255 /* get second copy */
256 mvaddstr(23, 0, "One more time ? ");
257 getstring(playerp->p_password, SZ_PASSWORD);
258 }
259 while (strcmp(playerp->p_password, Databuf) != 0);
260
261 Echo = TRUE;
262 }
263
264 continue;
265
266 case 'C': /* change experience */
267 prompt = "experience";
268 dptr = &playerp->p_experience;
269 goto DALTER;
270
271 case 'D': /* change level */
272 prompt = "level";
273 dptr = &playerp->p_level;
274 goto DALTER;
275
276 case 'E': /* change strength */
277 prompt = "strength";
278 dptr = &playerp->p_strength;
279 goto DALTER;
280
281 case 'F': /* change swords */
282 prompt = "sword";
283 dptr = &playerp->p_sword;
284 goto DALTER;
285
286 case 'G': /* change energy */
287 prompt = "energy";
288 dptr = &playerp->p_energy;
289 goto DALTER;
290
291 case 'H': /* change maximum energy */
292 prompt = "max energy";
293 dptr = &playerp->p_maxenergy;
294 goto DALTER;
295
296 case 'I': /* change shields */
297 prompt = "shield";
298 dptr = &playerp->p_shield;
299 goto DALTER;
300
301 case 'J': /* change quickness */
302 prompt = "quickness";
303 dptr = &playerp->p_quickness;
304 goto DALTER;
305
306 case 'K': /* change quicksilver */
307 prompt = "quicksilver";
308 dptr = &playerp->p_quksilver;
309 goto DALTER;
310
311 case 'L': /* change magic */
312 prompt = "magic level";
313 dptr = &playerp->p_magiclvl;
314 goto DALTER;
315
316 case 'M': /* change mana */
317 prompt = "mana";
318 dptr = &playerp->p_mana;
319 goto DALTER;
320
321 case 'N': /* change brains */
322 prompt = "brains";
323 dptr = &playerp->p_brains;
324 goto DALTER;
325
326 case 'O': /* change poison */
327 prompt = "poison";
328 dptr = &playerp->p_poison;
329 goto DALTER;
330
331 case 'P': /* change gold */
332 prompt = "gold";
333 dptr = &playerp->p_gold;
334 goto DALTER;
335
336 case 'Q': /* change gems */
337 prompt = "gems";
338 dptr = &playerp->p_gems;
339 goto DALTER;
340
341 case 'R': /* change sin */
342 prompt = "sin";
343 dptr = &playerp->p_sin;
344 goto DALTER;
345
346 case 'S': /* change x coord */
347 prompt = "x";
348 dptr = &playerp->p_x;
349 goto DALTER;
350
351 case 'T': /* change y coord */
352 prompt = "y";
353 dptr = &playerp->p_y;
354 goto DALTER;
355
356 case 'U': /* change age */
357 mvprintw(23, 0, "age = %ld; age = ", playerp->p_age);
358 dtemp = infloat();
359 if (dtemp != 0.0)
360 playerp->p_age = (long) dtemp;
361 continue;
362
363 case 'V': /* change degen */
364 mvprintw(23, 0, "degen = %d; degen = ", playerp->p_degenerated);
365 dtemp = infloat();
366 if (dtemp != 0.0)
367 playerp->p_degenerated = (int) dtemp;
368 continue;
369
370 case 'W': /* change type */
371 prompt = "type";
372 sptr = &playerp->p_type;
373 goto SALTER;
374
375 case 'X': /* change special type */
376 prompt = "special type";
377 sptr = &playerp->p_specialtype;
378 goto SALTER;
379
380 case 'Y': /* change lives */
381 prompt = "lives";
382 sptr = &playerp->p_lives;
383 goto SALTER;
384
385 case 'Z': /* change crowns */
386 prompt = "crowns";
387 sptr = &playerp->p_crowns;
388 goto SALTER;
389
390 case '0': /* change charms */
391 prompt = "charm";
392 sptr = &playerp->p_charms;
393 goto SALTER;
394
395 case '1': /* change amulet */
396 prompt = "amulet";
397 sptr = &playerp->p_amulets;
398 goto SALTER;
399
400 case '2': /* change holy water */
401 prompt = "holy water";
402 sptr = &playerp->p_holywater;
403 goto SALTER;
404
405 case '3': /* change last-used */
406 prompt = "last-used";
407 sptr = &playerp->p_lastused;
408 goto SALTER;
409
410 case '4': /* change palantir */
411 prompt = "palantir";
412 bptr = &playerp->p_palantir;
413 goto BALTER;
414
415 case '5': /* change blessing */
416 prompt = "blessing";
417 bptr = &playerp->p_blessing;
418 goto BALTER;
419
420 case '6': /* change virgin */
421 prompt = "virgin";
422 bptr = &playerp->p_virgin;
423 goto BALTER;
424
425 case '7': /* change blindness */
426 prompt = "blindness";
427 bptr = &playerp->p_blindness;
428 goto BALTER;
429
430 case '8': /* change ring type */
431 prompt = "ring-type";
432 sptr = &playerp->p_ring.ring_type;
433 goto SALTER;
434
435 case '9': /* change ring duration */
436 prompt = "ring-duration";
437 sptr = &playerp->p_ring.ring_duration;
438 goto SALTER;
439
440 case '!': /* quit, update */
441 if (Wizard &&
442 (!ingameflag || playerp != &Player))
443 /* turn off status if not modifying self */
444 {
445 playerp->p_status = S_OFF;
446 playerp->p_tampered = T_OFF;
447 }
448
449 writerecord(playerp, loc);
450 clear();
451 return;
452
453 case '?': /* delete player */
454 if (ingameflag && playerp == &Player)
455 /* cannot delete self */
456 continue;
457
458 freerecord(playerp, loc);
459 clear();
460 return;
461
462 default:
463 continue;
464 }
465 DALTER:
466 mvprintw(23, 0, "%s = %f; %s = ", prompt, *dptr, prompt);
467 dtemp = infloat();
468 if (dtemp != 0.0)
469 *dptr = dtemp;
470 continue;
471
472 SALTER:
473 mvprintw(23, 0, "%s = %d; %s = ", prompt, *sptr, prompt);
474 dtemp = infloat();
475 if (dtemp != 0.0)
476 *sptr = (short) dtemp;
477 continue;
478
479 BALTER:
480 mvprintw(23, 0, "%s = %c; %s = ", prompt, flag[*bptr], prompt);
481 c = getanswer("\nTF", TRUE);
482 if (c == 'T')
483 *bptr = TRUE;
484 else if (c == 'F')
485 *bptr = FALSE;
486 continue;
487 }
488 }
489 /* */
490 /************************************************************************
491 /
492 / FUNCTION NAME: monstlist()
493 /
494 / FUNCTION: print a monster listing
495 /
496 / AUTHOR: E. A. Estes, 2/27/86
497 /
498 / ARGUMENTS: none
499 /
500 / RETURN VALUE: none
501 /
502 / MODULES CALLED: puts(), fread(), fseek(), printf()
503 /
504 / GLOBAL INPUTS: Curmonster, *Monstfp
505 /
506 / GLOBAL OUTPUTS: none
507 /
508 / DESCRIPTION:
509 / Read monster file, and print a monster listing on standard output.
510 /
511 /************************************************************************/
512
monstlist()513 monstlist()
514 {
515 register int count = 0; /* count in file */
516
517 puts(" #) Name Str Brain Quick Energy Exper Treas Type Flock%\n");
518 fseek(Monstfp, 0L, 0);
519 while (fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp) == 1)
520 printf("%2d) %-20.20s%4.0f %4.0f %2.0f %5.0f %5.0f %2d %2d %3.0f\n", count++,
521 Curmonster.m_name, Curmonster.m_strength, Curmonster.m_brains,
522 Curmonster.m_speed, Curmonster.m_energy, Curmonster.m_experience,
523 Curmonster.m_treasuretype, Curmonster.m_type, Curmonster.m_flock);
524 }
525 /* */
526 /************************************************************************
527 /
528 / FUNCTION NAME: scorelist()
529 /
530 / FUNCTION: print player score board
531 /
532 / AUTHOR: E. A. Estes, 12/4/85
533 /
534 / ARGUMENTS: none
535 /
536 / RETURN VALUE: none
537 /
538 / MODULES CALLED: fread(), fopen(), printf(), fclose()
539 /
540 / GLOBAL INPUTS:
541 /
542 / GLOBAL OUTPUTS: none
543 /
544 / DESCRIPTION:
545 / Read the scoreboard file and print the contents.
546 /
547 /************************************************************************/
548
scorelist()549 scorelist()
550 {
551 struct scoreboard sbuf; /* for reading entries */
552 register FILE *fp; /* to open the file */
553
554 if ((fp = fopen(_PATH_SCORE, "r")) != NULL)
555 {
556 while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
557 printf("%-20s (%-9s) Level: %6.0f Type: %s\n",
558 sbuf.sb_name, sbuf.sb_login, sbuf.sb_level, sbuf.sb_type);
559 fclose(fp);
560 }
561 }
562 /* */
563 /************************************************************************
564 /
565 / FUNCTION NAME: activelist()
566 /
567 / FUNCTION: print list of active players to standard output
568 /
569 / AUTHOR: E. A. Estes, 3/7/86
570 /
571 / ARGUMENTS: none
572 /
573 / RETURN VALUE: none
574 /
575 / MODULES CALLED: descrstatus(), fread(), fseek(), printf(), descrtype()
576 /
577 / GLOBAL INPUTS: Other, *Playersfp
578 /
579 / GLOBAL OUTPUTS: none
580 /
581 / DESCRIPTION:
582 / Read player file, and print list of active records to standard output.
583 /
584 /************************************************************************/
585
activelist()586 activelist()
587 {
588 fseek(Playersfp, 0L, 0);
589 printf("Current characters on file are:\n\n");
590
591 while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
592 if (Other.p_status != S_NOTUSED)
593 printf("%-20s (%-9s) Level: %6.0f %s (%s)\n",
594 Other.p_name, Other.p_login, Other.p_level,
595 descrtype(&Other, FALSE), descrstatus(&Other));
596
597 }
598 /* */
599 /************************************************************************
600 /
601 / FUNCTION NAME: purgeoldplayers()
602 /
603 / FUNCTION: purge inactive players from player file
604 /
605 / AUTHOR: E. A. Estes, 12/4/85
606 /
607 / ARGUMENTS: none
608 /
609 / RETURN VALUE: none
610 /
611 / MODULES CALLED: freerecord(), time(), fread(), fseek(), localtime()
612 /
613 / GLOBAL INPUTS: Other, *Playersfp
614 /
615 / GLOBAL OUTPUTS: none
616 /
617 / DESCRIPTION:
618 / Delete characters which have not been used with the last
619 / three weeks.
620 /
621 /************************************************************************/
622
purgeoldplayers()623 purgeoldplayers()
624 {
625 int today; /* day of year for today */
626 int daysold; /* how many days since the character has been used */
627 long ltime; /* time in seconds */
628 long loc = 0L; /* location in file */
629
630 time(<ime);
631 today = localtime(<ime)->tm_yday;
632
633 for (;;)
634 {
635 fseek(Playersfp, loc, 0);
636 if (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) != 1)
637 break;
638
639 daysold = today - Other.p_lastused;
640 if (daysold < 0)
641 daysold += 365;
642
643 if (daysold > N_DAYSOLD)
644 /* player hasn't been used in a while; delete */
645 freerecord(&Other, loc);
646
647 loc += SZ_PLAYERSTRUCT;
648 }
649 }
650 /* */
651 /************************************************************************
652 /
653 / FUNCTION NAME: enterscore()
654 /
655 / FUNCTION: enter player into scoreboard
656 /
657 / AUTHOR: E. A. Estes, 12/4/85
658 /
659 / ARGUMENTS: none
660 /
661 / RETURN VALUE: none
662 /
663 / MODULES CALLED: fread(), fseek(), fopen(), error(), strcmp(), fclose(),
664 / strcpy(), fwrite(), descrtype()
665 /
666 / GLOBAL INPUTS: Player
667 /
668 / GLOBAL OUTPUTS: none
669 /
670 / DESCRIPTION:
671 / The scoreboard keeps track of the highest character on a
672 / per-login basis.
673 / Search the scoreboard for an entry for the current login,
674 / if an entry is found, and it is lower than the current player,
675 / replace it, otherwise create an entry.
676 /
677 /************************************************************************/
678
enterscore()679 enterscore()
680 {
681 struct scoreboard sbuf; /* buffer to read in scoreboard entries */
682 FILE *fp; /* to open scoreboard file */
683 long loc = 0L; /* location in scoreboard file */
684 bool found = FALSE; /* set if we found an entry for this login */
685
686 if ((fp = fopen(_PATH_SCORE, "r+")) != NULL)
687 {
688 while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
689 if (strcmp(Player.p_login, sbuf.sb_login) == 0)
690 {
691 found = TRUE;
692 break;
693 }
694 else
695 loc += SZ_SCORESTRUCT;
696 }
697 else
698 {
699 error(_PATH_SCORE);
700 /*NOTREACHED*/
701 }
702
703 /*
704 * At this point, 'loc' will either indicate a point beyond
705 * the end of file, or the place where the previous entry
706 * was found.
707 */
708
709 if ((!found) || Player.p_level > sbuf.sb_level)
710 /* put new entry in for this login */
711 {
712 strcpy(sbuf.sb_login, Player.p_login);
713 strcpy(sbuf.sb_name, Player.p_name);
714 sbuf.sb_level = Player.p_level;
715 strcpy(sbuf.sb_type, descrtype(&Player, TRUE));
716 }
717
718 /* update entry */
719 fseek(fp, loc, 0);
720 fwrite((char *) &sbuf, SZ_SCORESTRUCT, 1, fp);
721 fclose(fp);
722 }
723