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 /* */ 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 /* */ 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 /* */ 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 /* */ 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(<ime); 635 today = localtime(<ime)->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 /* */ 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 } 727