xref: /dragonfly/games/hack/hack.end.c (revision 5de36205) 
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.end.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.end.c,v 1.4 1999/11/16 10:26:36 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.end.c,v 1.4 2005/05/22 03:37:05 y0netan1 Exp $ */
5 
6 #include "hack.h"
7 #include <stdio.h>
8 #include <signal.h>
9 #define	Sprintf	(void) sprintf
10 extern char plname[], pl_character[];
11 extern char *itoa(), *eos();
12 static	const char *ordin(int);
13 
14 xchar maxdlevel = 1;
15 
16 void
17 done1()
18 {
19 	(void) signal(SIGINT,SIG_IGN);
20 	pline("Really quit?");
21 	if(readchar() != 'y') {
22 		(void) signal(SIGINT,done1);
23 		clrlin();
24 		(void) fflush(stdout);
25 		if(multi > 0) nomul(0);
26 		return;
27 	}
28 	done("quit");
29 	/* NOTREACHED */
30 }
31 
32 int done_stopprint;
33 int done_hup;
34 
35 void
36 done_intr(){
37 	done_stopprint++;
38 	(void) signal(SIGINT, SIG_IGN);
39 	(void) signal(SIGQUIT, SIG_IGN);
40 }
41 
42 void
43 done_hangup(){
44 	done_hup++;
45 	(void) signal(SIGHUP, SIG_IGN);
46 	done_intr();
47 }
48 
49 done_in_by(mtmp) struct monst *mtmp; {
50 static char buf[BUFSZ];
51 	pline("You die ...");
52 	if(mtmp->data->mlet == ' '){
53 		Sprintf(buf, "the ghost of %s", (char *) mtmp->mextra);
54 		killer = buf;
55 	} else if(mtmp->mnamelth) {
56 		Sprintf(buf, "%s called %s",
57 			mtmp->data->mname, NAME(mtmp));
58 		killer = buf;
59 	} else if(mtmp->minvis) {
60 		Sprintf(buf, "invisible %s", mtmp->data->mname);
61 		killer = buf;
62 	} else killer = mtmp->data->mname;
63 	done("died");
64 }
65 
66 /* called with arg "died", "drowned", "escaped", "quit", "choked", "panicked",
67    "burned", "starved" or "tricked" */
68 /* Be careful not to call panic from here! */
69 void
70 done(const char *st1)
71 {
72 
73 #ifdef WIZARD
74 	if(wizard && *st1 == 'd'){
75 		u.uswldtim = 0;
76 		if(u.uhpmax < 0) u.uhpmax = 100;	/* arbitrary */
77 		u.uhp = u.uhpmax;
78 		pline("For some reason you are still alive.");
79 		flags.move = 0;
80 		if(multi > 0) multi = 0; else multi = -1;
81 		flags.botl = 1;
82 		return;
83 	}
84 #endif /* WIZARD */
85 	(void) signal(SIGINT, done_intr);
86 	(void) signal(SIGQUIT, done_intr);
87 	(void) signal(SIGHUP, done_hangup);
88 	if(*st1 == 'q' && u.uhp < 1){
89 		st1 = "died";
90 		killer = "quit while already on Charon's boat";
91 	}
92 	if(*st1 == 's') killer = "starvation"; else
93 	if(*st1 == 'd' && st1[1] == 'r') killer = "drowning"; else
94 	if(*st1 == 'p') killer = "panic"; else
95 	if(*st1 == 't') killer = "trickery"; else
96 	if(!index("bcd", *st1)) killer = st1;
97 	paybill();
98 	clearlocks();
99 	if(flags.toplin == 1) more();
100 	if(index("bcds", *st1)){
101 #ifdef WIZARD
102 	    if(!wizard)
103 #endif /* WIZARD */
104 		savebones();
105 		if(!flags.notombstone)
106 			outrip();
107 	}
108 	if(*st1 == 'c') killer = st1;		/* after outrip() */
109 	settty((char *) 0);	/* does a clear_screen() */
110 	if(!done_stopprint)
111 		printf("Goodbye %s %s...\n\n", pl_character, plname);
112 	{ long int tmp;
113 	  tmp = u.ugold - u.ugold0;
114 	  if(tmp < 0)
115 		tmp = 0;
116 	  if(*st1 == 'd' || *st1 == 'b')
117 		tmp -= tmp/10;
118 	  u.urexp += tmp;
119 	  u.urexp += 50 * maxdlevel;
120 	  if(maxdlevel > 20)
121 		u.urexp += 1000*((maxdlevel > 30) ? 10 : maxdlevel - 20);
122 	}
123 	if(*st1 == 'e') {
124 		extern struct monst *mydogs;
125 		struct monst *mtmp;
126 		struct obj *otmp;
127 		int i;
128 		unsigned worthlessct = 0;
129 		boolean has_amulet = FALSE;
130 
131 		killer = st1;
132 		keepdogs();
133 		mtmp = mydogs;
134 		if(mtmp) {
135 			if(!done_stopprint) printf("You");
136 			while(mtmp) {
137 				if(!done_stopprint)
138 					printf(" and %s", monnam(mtmp));
139 				if(mtmp->mtame)
140 					u.urexp += mtmp->mhp;
141 				mtmp = mtmp->nmon;
142 			}
143 			if(!done_stopprint)
144 		    printf("\nescaped from the dungeon with %ld points,\n",
145 			u.urexp);
146 		} else
147 		if(!done_stopprint)
148 		  printf("You escaped from the dungeon with %ld points,\n",
149 		    u.urexp);
150 		for(otmp = invent; otmp; otmp = otmp->nobj) {
151 			if(otmp->olet == GEM_SYM){
152 				objects[otmp->otyp].oc_name_known = 1;
153 				i = otmp->quan*objects[otmp->otyp].g_val;
154 				if(i == 0) {
155 					worthlessct += otmp->quan;
156 					continue;
157 				}
158 				u.urexp += i;
159 				if(!done_stopprint)
160 				  printf("\t%s (worth %d Zorkmids),\n",
161 				    doname(otmp), i);
162 			} else if(otmp->olet == AMULET_SYM) {
163 				otmp->known = 1;
164 				i = (otmp->spe < 0) ? 2 : 5000;
165 				u.urexp += i;
166 				if(!done_stopprint)
167 				  printf("\t%s (worth %d Zorkmids),\n",
168 				    doname(otmp), i);
169 				if(otmp->spe >= 0) {
170 					has_amulet = TRUE;
171 					killer = "escaped (with amulet)";
172 				}
173 			}
174 		}
175 		if(worthlessct) if(!done_stopprint)
176 		  printf("\t%u worthless piece%s of coloured glass,\n",
177 		  worthlessct, plur(worthlessct));
178 		if(has_amulet) u.urexp *= 2;
179 	} else
180 		if(!done_stopprint)
181 		  printf("You %s on dungeon level %d with %ld points,\n",
182 		    st1, dlevel, u.urexp);
183 	if(!done_stopprint)
184 	  printf("and %ld piece%s of gold, after %ld move%s.\n",
185 	    u.ugold, plur(u.ugold), moves, plur(moves));
186 	if(!done_stopprint)
187   printf("You were level %u with a maximum of %d hit points when you %s.\n",
188 	    u.ulevel, u.uhpmax, st1);
189 	if(*st1 == 'e' && !done_stopprint){
190 		getret();	/* all those pieces of coloured glass ... */
191 		cls();
192 	}
193 #ifdef WIZARD
194 	if(!wizard)
195 #endif /* WIZARD */
196 		topten();
197 	if(done_stopprint) printf("\n\n");
198 	exit(0);
199 }
200 
201 #define newttentry() (struct toptenentry *) alloc(sizeof(struct toptenentry))
202 #define	NAMSZ	8
203 #define	DTHSZ	40
204 #define	PERSMAX	1
205 #define	POINTSMIN	1	/* must be > 0 */
206 #define	ENTRYMAX	100	/* must be >= 10 */
207 #define	PERS_IS_UID		/* delete for PERSMAX per name; now per uid */
208 struct toptenentry {
209 	struct toptenentry *tt_next;
210 	long int points;
211 	int level,maxlvl,hp,maxhp;
212 	int uid;
213 	char plchar;
214 	char sex;
215 	char name[NAMSZ+1];
216 	char death[DTHSZ+1];
217 	char date[7];		/* yymmdd */
218 } *tt_head;
219 
220 topten(){
221 	int uid = getuid();
222 	int rank, rank0 = -1, rank1 = 0;
223 	int occ_cnt = PERSMAX;
224 	struct toptenentry *t0, *t1, *tprev;
225 	const char *recfile = RECORD;
226 	const char *reclock = "record_lock";
227 	int sleepct = 300;
228 	FILE *rfile;
229 	int flg = 0;
230 	extern char *getdate();
231 #define	HUP	if(!done_hup)
232 	while(link(recfile, reclock) == -1) {
233 		HUP perror(reclock);
234 		if(!sleepct--) {
235 			HUP puts("I give up. Sorry.");
236 			HUP puts("Perhaps there is an old record_lock around?");
237 			return;
238 		}
239 		HUP printf("Waiting for access to record file. (%d)\n",
240 			sleepct);
241 		HUP (void) fflush(stdout);
242 		sleep(1);
243 	}
244 	if(!(rfile = fopen(recfile,"r"))){
245 		HUP puts("Cannot open record file!");
246 		goto unlock;
247 	}
248 	HUP (void) putchar('\n');
249 
250 	/* create a new 'topten' entry */
251 	t0 = newttentry();
252 	t0->level = dlevel;
253 	t0->maxlvl = maxdlevel;
254 	t0->hp = u.uhp;
255 	t0->maxhp = u.uhpmax;
256 	t0->points = u.urexp;
257 	t0->plchar = pl_character[0];
258 	t0->sex = (flags.female ? 'F' : 'M');
259 	t0->uid = uid;
260 	(void) strncpy(t0->name, plname, NAMSZ);
261 	(t0->name)[NAMSZ] = 0;
262 	(void) strncpy(t0->death, killer, DTHSZ);
263 	(t0->death)[DTHSZ] = 0;
264 	(void) strcpy(t0->date, getdate());
265 
266 	/* assure minimum number of points */
267 	if(t0->points < POINTSMIN)
268 		t0->points = 0;
269 
270 	t1 = tt_head = newttentry();
271 	tprev = 0;
272 	/* rank0: -1 undefined, 0 not_on_list, n n_th on list */
273 	for(rank = 1; ; ) {
274 	  if(fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
275 		t1->date, &t1->uid,
276 		&t1->level, &t1->maxlvl,
277 		&t1->hp, &t1->maxhp, &t1->points,
278 		&t1->plchar, &t1->sex, t1->name, t1->death) != 11
279 	  || t1->points < POINTSMIN)
280 			t1->points = 0;
281 	  if(rank0 < 0 && t1->points < t0->points) {
282 		rank0 = rank++;
283 		if(tprev == 0)
284 			tt_head = t0;
285 		else
286 			tprev->tt_next = t0;
287 		t0->tt_next = t1;
288 		occ_cnt--;
289 		flg++;		/* ask for a rewrite */
290 	  } else
291 		tprev = t1;
292 	  if(t1->points == 0) break;
293 	  if(
294 #ifdef PERS_IS_UID
295 	     t1->uid == t0->uid &&
296 #else
297 	     strncmp(t1->name, t0->name, NAMSZ) == 0 &&
298 #endif /* PERS_IS_UID */
299 	     t1->plchar == t0->plchar && --occ_cnt <= 0){
300 		if(rank0 < 0){
301 			rank0 = 0;
302 			rank1 = rank;
303 	HUP printf("You didn't beat your previous score of %ld points.\n\n",
304 				t1->points);
305 		}
306 		if(occ_cnt < 0){
307 			flg++;
308 			continue;
309 		}
310 	  }
311 	  if(rank <= ENTRYMAX){
312 	  	t1 = t1->tt_next = newttentry();
313 	  	rank++;
314 	  }
315 	  if(rank > ENTRYMAX){
316 		t1->points = 0;
317 		break;
318 	  }
319 	}
320 	if(flg) {	/* rewrite record file */
321 		(void) fclose(rfile);
322 		if(!(rfile = fopen(recfile,"w"))){
323 			HUP puts("Cannot write record file\n");
324 			goto unlock;
325 		}
326 
327 		if(!done_stopprint) if(rank0 > 0){
328 		    if(rank0 <= 10)
329 			puts("You made the top ten list!\n");
330 		    else
331 		printf("You reached the %d%s place on the top %d list.\n\n",
332 			rank0, ordin(rank0), ENTRYMAX);
333 		}
334 	}
335 	if(rank0 == 0) rank0 = rank1;
336 	if(rank0 <= 0) rank0 = rank;
337 	if(!done_stopprint) outheader();
338 	t1 = tt_head;
339 	for(rank = 1; t1->points != 0; rank++, t1 = t1->tt_next) {
340 	  if(flg) fprintf(rfile,"%6s %d %d %d %d %d %ld %c%c %s,%s\n",
341 	    t1->date, t1->uid,
342 	    t1->level, t1->maxlvl,
343 	    t1->hp, t1->maxhp, t1->points,
344 	    t1->plchar, t1->sex, t1->name, t1->death);
345 	  if(done_stopprint) continue;
346 	  if(rank > flags.end_top &&
347 	    (rank < rank0-flags.end_around || rank > rank0+flags.end_around)
348 	    && (!flags.end_own ||
349 #ifdef PERS_IS_UID
350 				  t1->uid != t0->uid ))
351 #else
352 				  strncmp(t1->name, t0->name, NAMSZ)))
353 #endif /* PERS_IS_UID */
354 	  	continue;
355 	  if(rank == rank0-flags.end_around &&
356 	     rank0 > flags.end_top+flags.end_around+1 &&
357 	     !flags.end_own)
358 		(void) putchar('\n');
359 	  if(rank != rank0)
360 		(void) outentry(rank, t1, 0);
361 	  else if(!rank1)
362 		(void) outentry(rank, t1, 1);
363 	  else {
364 		int t0lth = outentry(0, t0, -1);
365 		int t1lth = outentry(rank, t1, t0lth);
366 		if(t1lth > t0lth) t0lth = t1lth;
367 		(void) outentry(0, t0, t0lth);
368 	  }
369 	}
370 	if(rank0 >= rank) if(!done_stopprint)
371 		(void) outentry(0, t0, 1);
372 	(void) fclose(rfile);
373 unlock:
374 	(void) unlink(reclock);
375 }
376 
377 outheader() {
378 char linebuf[BUFSZ];
379 char *bp;
380 	(void) strcpy(linebuf, "Number Points  Name");
381 	bp = eos(linebuf);
382 	while(bp < linebuf + COLNO - 9) *bp++ = ' ';
383 	(void) strcpy(bp, "Hp [max]");
384 	puts(linebuf);
385 }
386 
387 /* so>0: standout line; so=0: ordinary line; so<0: no output, return lth */
388 int
389 outentry(rank,t1,so) struct toptenentry *t1; {
390 boolean quit = FALSE, killed = FALSE, starv = FALSE;
391 char linebuf[BUFSZ];
392 	linebuf[0] = 0;
393 	if(rank) Sprintf(eos(linebuf), "%3d", rank);
394 		else Sprintf(eos(linebuf), "   ");
395 	Sprintf(eos(linebuf), " %6ld %8s", t1->points, t1->name);
396 	if(t1->plchar == 'X') Sprintf(eos(linebuf), " ");
397 	else Sprintf(eos(linebuf), "-%c ", t1->plchar);
398 	if(!strncmp("escaped", t1->death, 7)) {
399 	  if(!strcmp(" (with amulet)", t1->death+7))
400 	    Sprintf(eos(linebuf), "escaped the dungeon with amulet");
401 	  else
402 	    Sprintf(eos(linebuf), "escaped the dungeon [max level %d]",
403 	      t1->maxlvl);
404 	} else {
405 	  if(!strncmp(t1->death,"quit",4)) {
406 	    quit = TRUE;
407 	    if(t1->maxhp < 3*t1->hp && t1->maxlvl < 4)
408 	  	Sprintf(eos(linebuf), "cravenly gave up");
409 	    else
410 		Sprintf(eos(linebuf), "quit");
411 	  }
412 	  else if(!strcmp(t1->death,"choked"))
413 	    Sprintf(eos(linebuf), "choked on %s food",
414 		(t1->sex == 'F') ? "her" : "his");
415 	  else if(!strncmp(t1->death,"starv",5))
416 	    Sprintf(eos(linebuf), "starved to death"), starv = TRUE;
417 	  else Sprintf(eos(linebuf), "was killed"), killed = TRUE;
418 	  Sprintf(eos(linebuf), " on%s level %d",
419 	    (killed || starv) ? "" : " dungeon", t1->level);
420 	  if(t1->maxlvl != t1->level)
421 	    Sprintf(eos(linebuf), " [max %d]", t1->maxlvl);
422 	  if(quit && t1->death[4]) Sprintf(eos(linebuf), t1->death + 4);
423 	}
424 	if(killed) Sprintf(eos(linebuf), " by %s%s",
425 	  (!strncmp(t1->death, "trick", 5) || !strncmp(t1->death, "the ", 4))
426 		? "" :
427 	  index(vowels,*t1->death) ? "an " : "a ",
428 	  t1->death);
429 	Sprintf(eos(linebuf), ".");
430 	if(t1->maxhp) {
431 	  char *bp = eos(linebuf);
432 	  char hpbuf[10];
433 	  int hppos;
434 	  Sprintf(hpbuf, (t1->hp > 0) ? itoa(t1->hp) : "-");
435 	  hppos = COLNO - 7 - strlen(hpbuf);
436 	  if(bp <= linebuf + hppos) {
437 	    while(bp < linebuf + hppos) *bp++ = ' ';
438 	    (void) strcpy(bp, hpbuf);
439 	    Sprintf(eos(bp), " [%d]", t1->maxhp);
440 	  }
441 	}
442 	if(so == 0) puts(linebuf);
443 	else if(so > 0) {
444 	  char *bp = eos(linebuf);
445 	  if(so >= COLNO) so = COLNO-1;
446 	  while(bp < linebuf + so) *bp++ = ' ';
447 	  *bp = 0;
448 	  standoutbeg();
449 	  fputs(linebuf,stdout);
450 	  standoutend();
451 	  (void) putchar('\n');
452 	}
453 	return(strlen(linebuf));
454 }
455 
456 char *
457 itoa(a) int a; {
458 static char buf[12];
459 	Sprintf(buf,"%d",a);
460 	return(buf);
461 }
462 
463 static const char *
464 ordin(int n)
465 {
466 	int d = n % 10;
467 	return((d==0 || d>3 || n/10==1) ? "th" : (d==1) ? "st" :
468 		(d==2) ? "nd" : "rd");
469 }
470 
471 clearlocks(){
472 int x;
473 	(void) signal(SIGHUP,SIG_IGN);
474 	for(x = maxdlevel; x >= 0; x--) {
475 		glo(x);
476 		(void) unlink(lock);	/* not all levels need be present */
477 	}
478 }
479 
480 #ifdef NOSAVEONHANGUP
481 hangup()
482 {
483 	(void) signal(SIGINT, SIG_IGN);
484 	clearlocks();
485 	exit(1);
486 }
487 #endif /* NOSAVEONHANGUP */
488 
489 char *
490 eos(s)
491 char *s;
492 {
493 	while(*s) s++;
494 	return(s);
495 }
496 
497 /* it is the callers responsibility to check that there is room for c */
498 charcat(s,c) char *s, c; {
499 	while(*s) s++;
500 	*s++ = c;
501 	*s = 0;
502 }
503 
504 /*
505  * Called with args from main if argc >= 0. In this case, list scores as
506  * requested. Otherwise, find scores for the current player (and list them
507  * if argc == -1).
508  */
509 prscore(argc,argv) int argc; char **argv; {
510 	extern char *hname;
511 	char **players;
512 	int playerct;
513 	int rank;
514 	struct toptenentry *t1, *t2;
515 	const char *recfile = RECORD;
516 	FILE *rfile;
517 	int flg = 0;
518 	int i;
519 #ifdef nonsense
520 	long total_score = 0L;
521 	char totchars[10];
522 	int totcharct = 0;
523 #endif /* nonsense */
524 	int outflg = (argc >= -1);
525 #ifdef PERS_IS_UID
526 	int uid = -1;
527 #else
528 	char *player0;
529 #endif /* PERS_IS_UID */
530 
531 	if(!(rfile = fopen(recfile,"r"))){
532 		puts("Cannot open record file!");
533 		return;
534 	}
535 
536 	if(argc > 1 && !strncmp(argv[1], "-s", 2)){
537 		if(!argv[1][2]){
538 			argc--;
539 			argv++;
540 		} else if(!argv[1][3] && index("CFKSTWX", argv[1][2])) {
541 			argv[1]++;
542 			argv[1][0] = '-';
543 		} else	argv[1] += 2;
544 	}
545 	if(argc <= 1){
546 #ifdef PERS_IS_UID
547 		uid = getuid();
548 		playerct = 0;
549 #else
550 		player0 = plname;
551 		if(!*player0)
552 			player0 = "hackplayer";
553 		playerct = 1;
554 		players = &player0;
555 #endif /* PERS_IS_UID */
556 	} else {
557 		playerct = --argc;
558 		players = ++argv;
559 	}
560 	if(outflg) putchar('\n');
561 
562 	t1 = tt_head = newttentry();
563 	for(rank = 1; ; rank++) {
564 	  if(fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
565 		t1->date, &t1->uid,
566 		&t1->level, &t1->maxlvl,
567 		&t1->hp, &t1->maxhp, &t1->points,
568 		&t1->plchar, &t1->sex, t1->name, t1->death) != 11)
569 			t1->points = 0;
570 	  if(t1->points == 0) break;
571 #ifdef PERS_IS_UID
572 	  if(!playerct && t1->uid == uid)
573 		flg++;
574 	  else
575 #endif /* PERS_IS_UID */
576 	  for(i = 0; i < playerct; i++){
577 		if(strcmp(players[i], "all") == 0 ||
578 		   strncmp(t1->name, players[i], NAMSZ) == 0 ||
579 		  (players[i][0] == '-' &&
580 		   players[i][1] == t1->plchar &&
581 		   players[i][2] == 0) ||
582 		  (digit(players[i][0]) && rank <= atoi(players[i])))
583 			flg++;
584 	  }
585 	  t1 = t1->tt_next = newttentry();
586 	}
587 	(void) fclose(rfile);
588 	if(!flg) {
589 	    if(outflg) {
590 		printf("Cannot find any entries for ");
591 		if(playerct < 1) printf("you.\n");
592 		else {
593 		  if(playerct > 1) printf("any of ");
594 		  for(i=0; i<playerct; i++)
595 			printf("%s%s", players[i], (i<playerct-1)?", ":".\n");
596 		  printf("Call is: %s -s [playernames]\n", hname);
597 		}
598 	    }
599 	    return;
600 	}
601 
602 	if(outflg) outheader();
603 	t1 = tt_head;
604 	for(rank = 1; t1->points != 0; rank++, t1 = t2) {
605 		t2 = t1->tt_next;
606 #ifdef PERS_IS_UID
607 		if(!playerct && t1->uid == uid)
608 			goto outwithit;
609 		else
610 #endif /* PERS_IS_UID */
611 		for(i = 0; i < playerct; i++){
612 			if(strcmp(players[i], "all") == 0 ||
613 			   strncmp(t1->name, players[i], NAMSZ) == 0 ||
614 			  (players[i][0] == '-' &&
615 			   players[i][1] == t1->plchar &&
616 			   players[i][2] == 0) ||
617 			  (digit(players[i][0]) && rank <= atoi(players[i]))){
618 			outwithit:
619 				if(outflg)
620 				    (void) outentry(rank, t1, 0);
621 #ifdef nonsense
622 				total_score += t1->points;
623 				if(totcharct < sizeof(totchars)-1)
624 				    totchars[totcharct++] = t1->plchar;
625 #endif /* nonsense */
626 				break;
627 			}
628 		}
629 		free((char *) t1);
630 	}
631 #ifdef nonsense
632 	totchars[totcharct] = 0;
633 
634 	/* We would like to determine whether he is experienced. However,
635 	   the information collected here only tells about the scores/roles
636 	   that got into the topten (top 100?). We should maintain a
637 	   .hacklog or something in his home directory. */
638 	flags.beginner = (total_score < 6000);
639 	for(i=0; i<6; i++)
640 	    if(!index(totchars, "CFKSTWX"[i])) {
641 		flags.beginner = 1;
642 		if(!pl_character[0]) pl_character[0] = "CFKSTWX"[i];
643 		break;
644 	}
645 #endif /* nonsense */
646 }
647