score.c revision 1.1
1 /* 2 * Copyright (c) 1988 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Timothy C. Stoehr. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. All advertising materials mentioning features or use of this software 17 * must display the following acknowledgement: 18 * This product includes software developed by the University of 19 * California, Berkeley and its contributors. 20 * 4. Neither the name of the University nor the names of its contributors 21 * may be used to endorse or promote products derived from this software 22 * without specific prior written permission. 23 * 24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 34 * SUCH DAMAGE. 35 */ 36 37 #ifndef lint 38 static char sccsid[] = "@(#)score.c 5.5 (Berkeley) 6/1/90"; 39 #endif /* not lint */ 40 41 /* 42 * score.c 43 * 44 * This source herein may be modified and/or distributed by anybody who 45 * so desires, with the following restrictions: 46 * 1.) No portion of this notice shall be removed. 47 * 2.) Credit shall not be taken for the creation of this source. 48 * 3.) This code is not to be traded, sold, or used for personal 49 * gain or profit. 50 * 51 */ 52 53 #include <stdio.h> 54 #include "rogue.h" 55 #include "pathnames.h" 56 57 extern char login_name[]; 58 extern char *m_names[]; 59 extern short max_level; 60 extern boolean score_only, no_skull, msg_cleared; 61 extern char *byebye_string, *nick_name; 62 63 killed_by(monster, other) 64 object *monster; 65 short other; 66 { 67 char buf[128]; 68 69 md_ignore_signals(); 70 71 if (other != QUIT) { 72 rogue.gold = ((rogue.gold * 9) / 10); 73 } 74 75 if (other) { 76 switch(other) { 77 case HYPOTHERMIA: 78 (void) strcpy(buf, "died of hypothermia"); 79 break; 80 case STARVATION: 81 (void) strcpy(buf, "died of starvation"); 82 break; 83 case POISON_DART: 84 (void) strcpy(buf, "killed by a dart"); 85 break; 86 case QUIT: 87 (void) strcpy(buf, "quit"); 88 break; 89 case KFIRE: 90 (void) strcpy(buf, "killed by fire"); 91 break; 92 } 93 } else { 94 (void) strcpy(buf, "Killed by "); 95 if (is_vowel(m_names[monster->m_char - 'A'][0])) { 96 (void) strcat(buf, "an "); 97 } else { 98 (void) strcat(buf, "a "); 99 } 100 (void) strcat(buf, m_names[monster->m_char - 'A']); 101 } 102 (void) strcat(buf, " with "); 103 sprintf(buf+strlen(buf), "%ld gold", rogue.gold); 104 if ((!other) && (!no_skull)) { 105 clear(); 106 mvaddstr(4, 32, "__---------__"); 107 mvaddstr(5, 30, "_~ ~_"); 108 mvaddstr(6, 29, "/ \\"); 109 mvaddstr(7, 28, "~ ~"); 110 mvaddstr(8, 27, "/ \\"); 111 mvaddstr(9, 27, "| XXXX XXXX |"); 112 mvaddstr(10, 27, "| XXXX XXXX |"); 113 mvaddstr(11, 27, "| XXX XXX |"); 114 mvaddstr(12, 28, "\\ @ /"); 115 mvaddstr(13, 29, "--\\ @@@ /--"); 116 mvaddstr(14, 30, "| | @@@ | |"); 117 mvaddstr(15, 30, "| | | |"); 118 mvaddstr(16, 30, "| vvVvvvvvvvVvv |"); 119 mvaddstr(17, 30, "| ^^^^^^^^^^^ |"); 120 mvaddstr(18, 31, "\\_ _/"); 121 mvaddstr(19, 33, "~---------~"); 122 center(21, nick_name); 123 center(22, buf); 124 } else { 125 message(buf, 0); 126 } 127 message("", 0); 128 put_scores(monster, other); 129 } 130 131 win() 132 { 133 unwield(rogue.weapon); /* disarm and relax */ 134 unwear(rogue.armor); 135 un_put_on(rogue.left_ring); 136 un_put_on(rogue.right_ring); 137 138 clear(); 139 mvaddstr(10, 11, "@ @ @@@ @ @ @ @ @ @@@ @ @ @"); 140 mvaddstr(11, 11, " @ @ @ @ @ @ @ @ @ @ @ @@ @ @"); 141 mvaddstr(12, 11, " @ @ @ @ @ @ @ @ @ @ @ @ @ @"); 142 mvaddstr(13, 11, " @ @ @ @ @ @ @ @ @ @ @ @@"); 143 mvaddstr(14, 11, " @ @@@ @@@ @@ @@ @@@ @ @ @"); 144 mvaddstr(17, 11, "Congratulations, you have been admitted to the"); 145 mvaddstr(18, 11, "Fighters' Guild. You return home, sell all your"); 146 mvaddstr(19, 11, "treasures at great profit and retire into comfort."); 147 message("", 0); 148 message("", 0); 149 id_all(); 150 sell_pack(); 151 put_scores((object *) 0, WIN); 152 } 153 154 quit(from_intrpt) 155 boolean from_intrpt; 156 { 157 char buf[128]; 158 short i, orow, ocol; 159 boolean mc; 160 161 md_ignore_signals(); 162 163 if (from_intrpt) { 164 orow = rogue.row; 165 ocol = rogue.col; 166 167 mc = msg_cleared; 168 169 for (i = 0; i < DCOLS; i++) { 170 buf[i] = mvinch(0, i); 171 } 172 } 173 check_message(); 174 message("really quit?", 1); 175 if (rgetchar() != 'y') { 176 md_heed_signals(); 177 check_message(); 178 if (from_intrpt) { 179 for (i = 0; i < DCOLS; i++) { 180 mvaddch(0, i, buf[i]); 181 } 182 msg_cleared = mc; 183 move(orow, ocol); 184 refresh(); 185 } 186 return; 187 } 188 if (from_intrpt) { 189 clean_up(byebye_string); 190 } 191 check_message(); 192 killed_by((object *) 0, QUIT); 193 } 194 195 put_scores(monster, other) 196 object *monster; 197 short other; 198 { 199 short i, n, rank = 10, x, ne = 0, found_player = -1; 200 char scores[10][82]; 201 char n_names[10][30]; 202 char buf[128]; 203 FILE *fp; 204 long s; 205 boolean pause = score_only; 206 207 md_lock(1); 208 209 if ((fp = fopen(_PATH_SCOREFILE, "a+")) == NULL) { 210 message("cannot read/write/create score file", 0); 211 sf_error(); 212 } 213 rewind(fp); 214 (void) xxx(1); 215 216 for (i = 0; i < 10; i++) { 217 if (((n = fread(scores[i], sizeof(char), 80, fp)) < 80) && (n != 0)) { 218 sf_error(); 219 } else if (n != 0) { 220 xxxx(scores[i], 80); 221 if ((n = fread(n_names[i], sizeof(char), 30, fp)) < 30) { 222 sf_error(); 223 } 224 xxxx(n_names[i], 30); 225 } else { 226 break; 227 } 228 ne++; 229 if ((!score_only) && (found_player == -1)) { 230 if (!name_cmp(scores[i]+15, login_name)) { 231 x = 5; 232 while (scores[i][x] == ' ') { 233 x++; 234 } 235 s = lget_number(scores[i] + x); 236 if (rogue.gold < s) { 237 score_only = 1; 238 } else { 239 found_player = i; 240 } 241 } 242 } 243 } 244 if (found_player != -1) { 245 ne--; 246 for (i = found_player; i < ne; i++) { 247 (void) strcpy(scores[i], scores[i+1]); 248 (void) strcpy(n_names[i], n_names[i+1]); 249 } 250 } 251 if (!score_only) { 252 for (i = 0; i < ne; i++) { 253 x = 5; 254 while (scores[i][x] == ' ') { 255 x++; 256 } 257 s = lget_number(scores[i] + x); 258 259 if (rogue.gold >= s) { 260 rank = i; 261 break; 262 } 263 } 264 if (ne == 0) { 265 rank = 0; 266 } else if ((ne < 10) && (rank == 10)) { 267 rank = ne; 268 } 269 if (rank < 10) { 270 insert_score(scores, n_names, nick_name, rank, ne, monster, 271 other); 272 if (ne < 10) { 273 ne++; 274 } 275 } 276 rewind(fp); 277 } 278 279 clear(); 280 mvaddstr(3, 30, "Top Ten Rogueists"); 281 mvaddstr(8, 0, "Rank Score Name"); 282 283 md_ignore_signals(); 284 285 (void) xxx(1); 286 287 for (i = 0; i < ne; i++) { 288 if (i == rank) { 289 standout(); 290 } 291 if (i == 9) { 292 scores[i][0] = '1'; 293 scores[i][1] = '0'; 294 } else { 295 scores[i][0] = ' '; 296 scores[i][1] = i + '1'; 297 } 298 nickize(buf, scores[i], n_names[i]); 299 mvaddstr(i+10, 0, buf); 300 if (rank < 10) { 301 xxxx(scores[i], 80); 302 fwrite(scores[i], sizeof(char), 80, fp); 303 xxxx(n_names[i], 30); 304 fwrite(n_names[i], sizeof(char), 30, fp); 305 } 306 if (i == rank) { 307 standend(); 308 } 309 } 310 md_lock(0); 311 refresh(); 312 fclose(fp); 313 message("", 0); 314 if (pause) { 315 message("", 0); 316 } 317 clean_up(""); 318 } 319 320 insert_score(scores, n_names, n_name, rank, n, monster, other) 321 char scores[][82]; 322 char n_names[][30]; 323 char *n_name; 324 short rank, n; 325 object *monster; 326 { 327 short i; 328 char buf[128]; 329 330 if (n > 0) { 331 for (i = n; i > rank; i--) { 332 if ((i < 10) && (i > 0)) { 333 (void) strcpy(scores[i], scores[i-1]); 334 (void) strcpy(n_names[i], n_names[i-1]); 335 } 336 } 337 } 338 sprintf(buf, "%2d %6d %s: ", rank+1, rogue.gold, login_name); 339 340 if (other) { 341 switch(other) { 342 case HYPOTHERMIA: 343 (void) strcat(buf, "died of hypothermia"); 344 break; 345 case STARVATION: 346 (void) strcat(buf, "died of starvation"); 347 break; 348 case POISON_DART: 349 (void) strcat(buf, "killed by a dart"); 350 break; 351 case QUIT: 352 (void) strcat(buf, "quit"); 353 break; 354 case WIN: 355 (void) strcat(buf, "a total winner"); 356 break; 357 case KFIRE: 358 (void) strcpy(buf, "killed by fire"); 359 break; 360 } 361 } else { 362 (void) strcat(buf, "killed by "); 363 if (is_vowel(m_names[monster->m_char - 'A'][0])) { 364 (void) strcat(buf, "an "); 365 } else { 366 (void) strcat(buf, "a "); 367 } 368 (void) strcat(buf, m_names[monster->m_char - 'A']); 369 } 370 sprintf(buf+strlen(buf), " on level %d ", max_level); 371 if ((other != WIN) && has_amulet()) { 372 (void) strcat(buf, "with amulet"); 373 } 374 for (i = strlen(buf); i < 79; i++) { 375 buf[i] = ' '; 376 } 377 buf[79] = 0; 378 (void) strcpy(scores[rank], buf); 379 (void) strcpy(n_names[rank], n_name); 380 } 381 382 is_vowel(ch) 383 short ch; 384 { 385 return( (ch == 'a') || 386 (ch == 'e') || 387 (ch == 'i') || 388 (ch == 'o') || 389 (ch == 'u') ); 390 } 391 392 sell_pack() 393 { 394 object *obj; 395 short row = 2, val; 396 char buf[DCOLS]; 397 398 obj = rogue.pack.next_object; 399 400 clear(); 401 mvaddstr(1, 0, "Value Item"); 402 403 while (obj) { 404 if (obj->what_is != FOOD) { 405 obj->identified = 1; 406 val = get_value(obj); 407 rogue.gold += val; 408 409 if (row < DROWS) { 410 sprintf(buf, "%5d ", val); 411 get_desc(obj, buf+11); 412 mvaddstr(row++, 0, buf); 413 } 414 } 415 obj = obj->next_object; 416 } 417 refresh(); 418 if (rogue.gold > MAX_GOLD) { 419 rogue.gold = MAX_GOLD; 420 } 421 message("", 0); 422 } 423 424 get_value(obj) 425 object *obj; 426 { 427 short wc; 428 int val; 429 430 wc = obj->which_kind; 431 432 switch(obj->what_is) { 433 case WEAPON: 434 val = id_weapons[wc].value; 435 if ((wc == ARROW) || (wc == DAGGER) || (wc == SHURIKEN) || 436 (wc == DART)) { 437 val *= obj->quantity; 438 } 439 val += (obj->d_enchant * 85); 440 val += (obj->hit_enchant * 85); 441 break; 442 case ARMOR: 443 val = id_armors[wc].value; 444 val += (obj->d_enchant * 75); 445 if (obj->is_protected) { 446 val += 200; 447 } 448 break; 449 case WAND: 450 val = id_wands[wc].value * (obj->class + 1); 451 break; 452 case SCROL: 453 val = id_scrolls[wc].value * obj->quantity; 454 break; 455 case POTION: 456 val = id_potions[wc].value * obj->quantity; 457 break; 458 case AMULET: 459 val = 5000; 460 break; 461 case RING: 462 val = id_rings[wc].value * (obj->class + 1); 463 break; 464 } 465 if (val <= 0) { 466 val = 10; 467 } 468 return(val); 469 } 470 471 id_all() 472 { 473 short i; 474 475 for (i = 0; i < SCROLS; i++) { 476 id_scrolls[i].id_status = IDENTIFIED; 477 } 478 for (i = 0; i < WEAPONS; i++) { 479 id_weapons[i].id_status = IDENTIFIED; 480 } 481 for (i = 0; i < ARMORS; i++) { 482 id_armors[i].id_status = IDENTIFIED; 483 } 484 for (i = 0; i < WANDS; i++) { 485 id_wands[i].id_status = IDENTIFIED; 486 } 487 for (i = 0; i < POTIONS; i++) { 488 id_potions[i].id_status = IDENTIFIED; 489 } 490 } 491 492 name_cmp(s1, s2) 493 char *s1, *s2; 494 { 495 short i = 0; 496 int r; 497 498 while(s1[i] != ':') { 499 i++; 500 } 501 s1[i] = 0; 502 r = strcmp(s1, s2); 503 s1[i] = ':'; 504 return(r); 505 } 506 507 xxxx(buf, n) 508 char *buf; 509 short n; 510 { 511 short i; 512 unsigned char c; 513 514 for (i = 0; i < n; i++) { 515 516 /* It does not matter if accuracy is lost during this assignment */ 517 c = (unsigned char) xxx(0); 518 519 buf[i] ^= c; 520 } 521 } 522 523 long 524 xxx(st) 525 boolean st; 526 { 527 static long f, s; 528 long r; 529 530 if (st) { 531 f = 37; 532 s = 7; 533 return(0L); 534 } 535 r = ((f * s) + 9337) % 8887; 536 f = s; 537 s = r; 538 return(r); 539 } 540 541 nickize(buf, score, n_name) 542 char *buf, *score, *n_name; 543 { 544 short i = 15, j; 545 546 if (!n_name[0]) { 547 (void) strcpy(buf, score); 548 } else { 549 (void) strncpy(buf, score, 16); 550 551 while (score[i] != ':') { 552 i++; 553 } 554 555 (void) strcpy(buf+15, n_name); 556 j = strlen(buf); 557 558 while (score[i]) { 559 buf[j++] = score[i++]; 560 } 561 buf[j] = 0; 562 buf[79] = 0; 563 } 564 } 565 566 center(row, buf) 567 short row; 568 char *buf; 569 { 570 short margin; 571 572 margin = ((DCOLS - strlen(buf)) / 2); 573 mvaddstr(row, margin, buf); 574 } 575 576 sf_error() 577 { 578 md_lock(0); 579 message("", 1); 580 clean_up("sorry, score file is out of order"); 581 } 582
Indexes created Wed Oct 01 15:09:59 GMT 2025