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