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