Clean up:
[dragonfly.git] / games / phantasia / gamesupport.c
CommitLineData
984263bc
MD
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 $
1de703da 5 * $DragonFly: src/games/phantasia/gamesupport.c,v 1.2 2003/06/17 04:25:24 dillon Exp $
984263bc
MD
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
57changestats(ingameflag)
58bool ingameflag;
59{
60static char flag[2] = /* for printing values of bools */
61 {'F', 'T'};
62struct player *playerp;/* pointer to structure to alter */
63char *prompt; /* pointer to prompt string */
64int c; /* input */
65int today; /* day of year of today */
66int temp; /* temporary variable */
67long loc; /* location in player file */
68time_t now; /* time now */
69double dtemp; /* temporary variable */
70bool *bptr; /* pointer to bool item to change */
71double *dptr; /* pointer to double item to change */
72short *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 }
469DALTER:
470 mvprintw(23, 0, "%s = %f; %s = ", prompt, *dptr, prompt);
471 dtemp = infloat();
472 if (dtemp != 0.0)
473 *dptr = dtemp;
474 continue;
475
476SALTER:
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
483BALTER:
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
517monstlist()
518{
519int 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
553scorelist()
554{
555struct scoreboard sbuf; /* for reading entries */
556FILE *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
590activelist()
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
627purgeoldplayers()
628{
629int today; /* day of year for today */
630int daysold; /* how many days since the character has been used */
631time_t ltime; /* time in seconds */
632long 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
683enterscore()
684{
685struct scoreboard sbuf; /* buffer to read in scoreboard entries */
686FILE *fp; /* to open scoreboard file */
687long loc = 0L; /* location in scoreboard file */
688bool 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}