]> git.cameronkatri.com Git - bsdgames-darwin.git/blob - larn/scores.c
git.ckatri.com / bsdgames-darwin.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
initial import of 386bsd-0.1 sources
[bsdgames-darwin.git] / larn / scores.c
1 /* scores.c Larn is copyrighted 1986 by Noah Morgan.
2 *
3 * Functions in this file are:
4 *
5 * readboard() Function to read in the scoreboard into a static buffer
6 * writeboard() Function to write the scoreboard from readboard()'s buffer
7 * makeboard() Function to create a new scoreboard (wipe out old one)
8 * hashewon() Function to return 1 if player has won a game before, else 0
9 * long paytaxes(x) Function to pay taxes if any are due
10 * winshou() Subroutine to print out the winning scoreboard
11 * shou(x) Subroutine to print out the non-winners scoreboard
12 * showscores() Function to show the scoreboard on the terminal
13 * showallscores() Function to show scores and the iven lists that go with them
14 * sortboard() Function to sort the scoreboard
15 * newscore(score, whoo, whyded, winner) Function to add entry to scoreboard
16 * new1sub(score,i,whoo,taxes) Subroutine to put player into a
17 * new2sub(score,i,whoo,whyded) Subroutine to put player into a
18 * died(x) Subroutine to record who played larn, and what the score was
19 * diedsub(x) Subroutine to print out a line showing player when he is killed
20 * diedlog() Subroutine to read a log file and print it out in ascii format
21 * getplid(name) Function to get players id # from id file
22 *
23 */
24 #include <sys/types.h>
25 #include <sys/times.h>
26 #include <sys/stat.h>
27 #include "header.h"
28
29 struct scofmt /* This is the structure for the scoreboard */
30 {
31 long score; /* the score of the player */
32 long suid; /* the user id number of the player */
33 short what; /* the number of the monster that killed player */
34 short level; /* the level player was on when he died */
35 short hardlev; /* the level of difficulty player played at */
36 short order; /* the relative ordering place of this entry */
37 char who[40]; /* the name of the character */
38 char sciv[26][2]; /* this is the inventory list of the character */
39 };
40 struct wscofmt /* This is the structure for the winning scoreboard */
41 {
42 long score; /* the score of the player */
43 long timeused; /* the time used in mobuls to win the game */
44 long taxes; /* taxes he owes to LRS */
45 long suid; /* the user id number of the player */
46 short hardlev; /* the level of difficulty player played at */
47 short order; /* the relative ordering place of this entry */
48 char who[40]; /* the name of the character */
49 };
50
51 struct log_fmt /* 102 bytes struct for the log file */
52 {
53 long score; /* the players score */
54 long diedtime; /* time when game was over */
55 short cavelev; /* level in caves */
56 short diff; /* difficulty player played at */
57 #ifdef EXTRA
58 long elapsedtime; /* real time of game in seconds */
59 long bytout; /* bytes input and output */
60 long bytin;
61 long moves; /* number of moves made by player */
62 short ac; /* armor class of player */
63 short hp,hpmax; /* players hitpoints */
64 short cputime; /* cpu time needed in seconds */
65 short killed,spused;/* monsters killed and spells cast */
66 short usage; /* usage of the cpu in % */
67 short lev; /* player level */
68 #endif
69 char who[12]; /* player name */
70 char what[46]; /* what happened to player */
71 };
72
73 static struct scofmt sco[SCORESIZE]; /* the structure for the scoreboard */
74 static struct wscofmt winr[SCORESIZE]; /* struct for the winning scoreboard */
75 static struct log_fmt logg; /* structure for the log file */
76 static char *whydead[] = {
77 "quit", "suspended", "self - annihilated", "shot by an arrow",
78 "hit by a dart", "fell into a pit", "fell into a bottomless pit",
79 "a winner", "trapped in solid rock", "killed by a missing save file",
80 "killed by an old save file", "caught by the greedy cheater checker trap",
81 "killed by a protected save file","killed his family and committed suicide",
82 "erased by a wayward finger", "fell through a bottomless trap door",
83 "fell through a trap door", "drank some poisonous water",
84 "fried by an electric shock", "slipped on a volcano shaft",
85 "killed by a stupid act of frustration", "attacked by a revolting demon",
86 "hit by his own magic", "demolished by an unseen attacker",
87 "fell into the dreadful sleep", "killed by an exploding chest",
88 /*26*/ "killed by a missing maze data file", "annihilated in a sphere",
89 "died a post mortem death","wasted by a malloc() failure"
90 };
91
92 /*
93 * readboard() Function to read in the scoreboard into a static buffer
94 *
95 * returns -1 if unable to read in the scoreboard, returns 0 if all is OK
96 */
97 readboard()
98 {
99 if (lopen(scorefile)<0)
100 { lprcat("Can't read scoreboard\n"); lflush(); return(-1); }
101 lrfill((char*)sco,sizeof(sco)); lrfill((char*)winr,sizeof(winr));
102 lrclose(); lcreat((char*)0); return(0);
103 }
104
105 /*
106 * writeboard() Function to write the scoreboard from readboard()'s buffer
107 *
108 * returns -1 if unable to write the scoreboard, returns 0 if all is OK
109 */
110 writeboard()
111 {
112 set_score_output();
113 if (lcreat(scorefile)<0)
114 { lprcat("Can't write scoreboard\n"); lflush(); return(-1); }
115 lwrite((char*)sco,sizeof(sco)); lwrite((char*)winr,sizeof(winr));
116 lwclose(); lcreat((char*)0); return(0);
117 }
118
119 /*
120 * makeboard() Function to create a new scoreboard (wipe out old one)
121 *
122 * returns -1 if unable to write the scoreboard, returns 0 if all is OK
123 */
124 makeboard()
125 {
126 register int i;
127 for (i=0; i<SCORESIZE; i++)
128 {
129 winr[i].taxes = winr[i].score = sco[i].score = 0;
130 winr[i].order = sco[i].order = i;
131 }
132 if (writeboard()) return(-1);
133 chmod(scorefile,0660);
134 return(0);
135 }
136
137 /*
138 * hashewon() Function to return 1 if player has won a game before, else 0
139 *
140 * This function also sets c[HARDGAME] to appropriate value -- 0 if not a
141 * winner, otherwise the next level of difficulty listed in the winners
142 * scoreboard. This function also sets outstanding_taxes to the value in
143 * the winners scoreboard.
144 */
145 hashewon()
146 {
147 register int i;
148 c[HARDGAME] = 0;
149 if (readboard() < 0) return(0); /* can't find scoreboard */
150 for (i=0; i<SCORESIZE; i++) /* search through winners scoreboard */
151 if (winr[i].suid == userid)
152 if (winr[i].score > 0)
153 {
154 c[HARDGAME]=winr[i].hardlev+1; outstanding_taxes=winr[i].taxes;
155 return(1);
156 }
157 return(0);
158 }
159
160 /*
161 * long paytaxes(x) Function to pay taxes if any are due
162 *
163 * Enter with the amount (in gp) to pay on the taxes.
164 * Returns amount actually paid.
165 */
166 long paytaxes(x)
167 long x;
168 {
169 register int i;
170 register long amt;
171 if (x<0) return(0L);
172 if (readboard()<0) return(0L);
173 for (i=0; i<SCORESIZE; i++)
174 if (winr[i].suid == userid) /* look for players winning entry */
175 if (winr[i].score>0) /* search for a winning entry for the player */
176 {
177 amt = winr[i].taxes;
178 if (x < amt) amt=x; /* don't overpay taxes (Ughhhhh) */
179 winr[i].taxes -= amt;
180 outstanding_taxes -= amt;
181 if (writeboard()<0) return(0);
182 return(amt);
183 }
184 return(0L); /* couldn't find user on winning scoreboard */
185 }
186
187 /*
188 * winshou() Subroutine to print out the winning scoreboard
189 *
190 * Returns the number of players on scoreboard that were shown
191 */
192 winshou()
193 {
194 register struct wscofmt *p;
195 register int i,j,count;
196 for (count=j=i=0; i<SCORESIZE; i++) /* is there anyone on the scoreboard? */
197 if (winr[i].score != 0)
198 { j++; break; }
199 if (j)
200 {
201 lprcat("\n Score Difficulty Time Needed Larn Winners List\n");
202
203 for (i=0; i<SCORESIZE; i++) /* this loop is needed to print out the */
204 for (j=0; j<SCORESIZE; j++) /* winners in order */
205 {
206 p = &winr[j]; /* pointer to the scoreboard entry */
207 if (p->order == i)
208 {
209 if (p->score)
210 {
211 count++;
212 lprintf("%10d %2d %5d Mobuls %s \n",
213 (long)p->score,(long)p->hardlev,(long)p->timeused,p->who);
214 }
215 break;
216 }
217 }
218 }
219 return(count); /* return number of people on scoreboard */
220 }
221
222 /*
223 * shou(x) Subroutine to print out the non-winners scoreboard
224 * int x;
225 *
226 * Enter with 0 to list the scores, enter with 1 to list inventories too
227 * Returns the number of players on scoreboard that were shown
228 */
229 shou(x)
230 int x;
231 {
232 register int i,j,n,k;
233 int count;
234 for (count=j=i=0; i<SCORESIZE; i++) /* is the scoreboard empty? */
235 if (sco[i].score!= 0)
236 { j++; break; }
237 if (j)
238 {
239 lprcat("\n Score Difficulty Larn Visitor Log\n");
240 for (i=0; i<SCORESIZE; i++) /* be sure to print them out in order */
241 for (j=0; j<SCORESIZE; j++)
242 if (sco[j].order == i)
243 {
244 if (sco[j].score)
245 {
246 count++;
247 lprintf("%10d %2d %s ",
248 (long)sco[j].score,(long)sco[j].hardlev,sco[j].who);
249 if (sco[j].what < 256) lprintf("killed by a %s",monster[sco[j].what].name);
250 else lprintf("%s",whydead[sco[j].what - 256]);
251 if (x != 263) lprintf(" on %s",levelname[sco[j].level]);
252 if (x)
253 {
254 for (n=0; n<26; n++) { iven[n]=sco[j].sciv[n][0]; ivenarg[n]=sco[j].sciv[n][1]; }
255 for (k=1; k<99; k++)
256 for (n=0; n<26; n++)
257 if (k==iven[n]) { srcount=0; show3(n); }
258 lprcat("\n\n");
259 }
260 else lprc('\n');
261 }
262 j=SCORESIZE;
263 }
264 }
265 return(count); /* return the number of players just shown */
266 }
267
268 /*
269 * showscores() Function to show the scoreboard on the terminal
270 *
271 * Returns nothing of value
272 */
273 static char esb[] = "The scoreboard is empty.\n";
274 showscores()
275 {
276 register int i,j;
277 lflush(); lcreat((char*)0); if (readboard()<0) return;
278 i=winshou(); j=shou(0);
279 if (i+j == 0) lprcat(esb); else lprc('\n');
280 lflush();
281 }
282
283 /*
284 * showallscores() Function to show scores and the iven lists that go with them
285 *
286 * Returns nothing of value
287 */
288 showallscores()
289 {
290 register int i,j;
291 lflush(); lcreat((char*)0); if (readboard()<0) return;
292 c[WEAR] = c[WIELD] = c[SHIELD] = -1; /* not wielding or wearing anything */
293 for (i=0; i<MAXPOTION; i++) potionname[i][0]=' ';
294 for (i=0; i<MAXSCROLL; i++) scrollname[i][0]=' ';
295 i=winshou(); j=shou(1);
296 if (i+j==0) lprcat(esb); else lprc('\n');
297 lflush();
298 }
299
300 /*
301 * sortboard() Function to sort the scoreboard
302 *
303 * Returns 0 if no sorting done, else returns 1
304 */
305 sortboard()
306 {
307 register int i,j,pos;
308 long jdat;
309 for (i=0; i<SCORESIZE; i++) sco[i].order = winr[i].order = -1;
310 pos=0; while (pos < SCORESIZE)
311 {
312 jdat=0;
313 for (i=0; i<SCORESIZE; i++)
314 if ((sco[i].order < 0) && (sco[i].score >= jdat))
315 { j=i; jdat=sco[i].score; }
316 sco[j].order = pos++;
317 }
318 pos=0; while (pos < SCORESIZE)
319 {
320 jdat=0;
321 for (i=0; i<SCORESIZE; i++)
322 if ((winr[i].order < 0) && (winr[i].score >= jdat))
323 { j=i; jdat=winr[i].score; }
324 winr[j].order = pos++;
325 }
326 return(1);
327 }
328
329 /*
330 * newscore(score, whoo, whyded, winner) Function to add entry to scoreboard
331 * int score, winner, whyded;
332 * char *whoo;
333 *
334 * Enter with the total score in gp in score, players name in whoo,
335 * died() reason # in whyded, and TRUE/FALSE in winner if a winner
336 * ex. newscore(1000, "player 1", 32, 0);
337 */
338 newscore(score, whoo, whyded, winner)
339 long score;
340 int winner, whyded;
341 char *whoo;
342 {
343 register int i;
344 long taxes;
345 if (readboard() < 0) return; /* do the scoreboard */
346 /* if a winner then delete all non-winning scores */
347 if (cheat) winner=0; /* if he cheated, don't let him win */
348 if (winner)
349 {
350 for (i=0; i<SCORESIZE; i++) if (sco[i].suid == userid) sco[i].score=0;
351 taxes = score*TAXRATE;
352 score += 100000*c[HARDGAME]; /* bonus for winning */
353 /* if he has a slot on the winning scoreboard update it if greater score */
354 for (i=0; i<SCORESIZE; i++) if (winr[i].suid == userid)
355 { new1sub(score,i,whoo,taxes); return; }
356 /* he had no entry. look for last entry and see if he has a greater score */
357 for (i=0; i<SCORESIZE; i++) if (winr[i].order == SCORESIZE-1)
358 { new1sub(score,i,whoo,taxes); return; }
359 }
360 else if (!cheat) /* for not winning scoreboard */
361 {
362 /* if he has a slot on the scoreboard update it if greater score */
363 for (i=0; i<SCORESIZE; i++) if (sco[i].suid == userid)
364 { new2sub(score,i,whoo,whyded); return; }
365 /* he had no entry. look for last entry and see if he has a greater score */
366 for (i=0; i<SCORESIZE; i++) if (sco[i].order == SCORESIZE-1)
367 { new2sub(score,i,whoo,whyded); return; }
368 }
369 }
370
371 /*
372 * new1sub(score,i,whoo,taxes) Subroutine to put player into a
373 * int score,i,whyded,taxes; winning scoreboard entry if his score
374 * char *whoo; is high enough
375 *
376 * Enter with the total score in gp in score, players name in whoo,
377 * died() reason # in whyded, and TRUE/FALSE in winner if a winner
378 * slot in scoreboard in i, and the tax bill in taxes.
379 * Returns nothing of value
380 */
381 new1sub(score,i,whoo,taxes)
382 long score,taxes;
383 int i;
384 char *whoo;
385 {
386 register struct wscofmt *p;
387 p = &winr[i];
388 p->taxes += taxes;
389 if ((score >= p->score) || (c[HARDGAME] > p->hardlev))
390 {
391 strcpy(p->who,whoo); p->score=score;
392 p->hardlev=c[HARDGAME]; p->suid=userid;
393 p->timeused=gtime/100;
394 }
395 }
396
397 /*
398 * new2sub(score,i,whoo,whyded) Subroutine to put player into a
399 * int score,i,whyded,taxes; non-winning scoreboard entry if his
400 * char *whoo; score is high enough
401 *
402 * Enter with the total score in gp in score, players name in whoo,
403 * died() reason # in whyded, and slot in scoreboard in i.
404 * Returns nothing of value
405 */
406 new2sub(score,i,whoo,whyded)
407 long score;
408 int i,whyded;
409 char *whoo;
410 {
411 register int j;
412 register struct scofmt *p;
413 p = &sco[i];
414 if ((score >= p->score) || (c[HARDGAME] > p->hardlev))
415 {
416 strcpy(p->who,whoo); p->score=score;
417 p->what=whyded; p->hardlev=c[HARDGAME];
418 p->suid=userid; p->level=level;
419 for (j=0; j<26; j++)
420 { p->sciv[j][0]=iven[j]; p->sciv[j][1]=ivenarg[j]; }
421 }
422 }
423
424 /*
425 * died(x) Subroutine to record who played larn, and what the score was
426 * int x;
427 *
428 * if x < 0 then don't show scores
429 * died() never returns! (unless c[LIFEPROT] and a reincarnatable death!)
430 *
431 * < 256 killed by the monster number
432 * 256 quit
433 * 257 suspended
434 * 258 self - annihilated
435 * 259 shot by an arrow
436 * 260 hit by a dart
437 * 261 fell into a pit
438 * 262 fell into a bottomless pit
439 * 263 a winner
440 * 264 trapped in solid rock
441 * 265 killed by a missing save file
442 * 266 killed by an old save file
443 * 267 caught by the greedy cheater checker trap
444 * 268 killed by a protected save file
445 * 269 killed his family and killed himself
446 * 270 erased by a wayward finger
447 * 271 fell through a bottomless trap door
448 * 272 fell through a trap door
449 * 273 drank some poisonous water
450 * 274 fried by an electric shock
451 * 275 slipped on a volcano shaft
452 * 276 killed by a stupid act of frustration
453 * 277 attacked by a revolting demon
454 * 278 hit by his own magic
455 * 279 demolished by an unseen attacker
456 * 280 fell into the dreadful sleep
457 * 281 killed by an exploding chest
458 * 282 killed by a missing maze data file
459 * 283 killed by a sphere of annihilation
460 * 284 died a post mortem death
461 * 285 malloc() failure
462 * 300 quick quit -- don't put on scoreboard
463 */
464
465 static int scorerror;
466 died(x)
467 int x;
468 {
469 register int f,win;
470 char ch,*mod;
471 long zzz,i;
472 struct tms cputime;
473 if (c[LIFEPROT]>0) /* if life protection */
474 {
475 switch((x>0) ? x : -x)
476 {
477 case 256: case 257: case 262: case 263: case 265: case 266:
478 case 267: case 268: case 269: case 271: case 282: case 284:
479 case 285: case 300: goto invalid; /* can't be saved */
480 };
481 --c[LIFEPROT]; c[HP]=1; --c[CONSTITUTION];
482 cursors(); lprcat("\nYou feel wiiieeeeerrrrrd all over! "); beep();
483 lflush(); sleep(4);
484 return; /* only case where died() returns */
485 }
486 invalid:
487 clearvt100(); lflush(); f=0;
488 if (ckpflag) unlink(ckpfile); /* remove checkpoint file if used */
489 if (x<0) { f++; x = -x; } /* if we are not to display the scores */
490 if ((x == 300) || (x == 257)) exit(); /* for quick exit or saved game */
491 if (x == 263) win = 1; else win = 0;
492 c[GOLD] += c[BANKACCOUNT]; c[BANKACCOUNT] = 0;
493 /* now enter the player at the end of the scoreboard */
494 newscore(c[GOLD], logname, x, win);
495 diedsub(x); /* print out the score line */ lflush();
496
497 set_score_output();
498 if ((wizard == 0) && (c[GOLD] > 0)) /* wizards can't score */
499 {
500 #ifndef NOLOG
501 if (lappend(logfile)<0) /* append to file */
502 {
503 if (lcreat(logfile)<0) /* and can't create new log file */
504 {
505 lcreat((char*)0);
506 lprcat("\nCan't open record file: I can't post your score.\n");
507 sncbr(); resetscroll(); lflush(); exit();
508 }
509 chmod(logfile,0660);
510 }
511 strcpy(logg.who,loginname);
512 logg.score = c[GOLD]; logg.diff = c[HARDGAME];
513 if (x < 256)
514 {
515 ch = *monster[x].name;
516 if (ch=='a' || ch=='e' || ch=='i' || ch=='o' || ch=='u')
517 mod="an"; else mod="a";
518 sprintf(logg.what,"killed by %s %s",mod,monster[x].name);
519 }
520 else sprintf(logg.what,"%s",whydead[x - 256]);
521 logg.cavelev=level;
522 time(&zzz); /* get cpu time -- write out score info */
523 logg.diedtime=zzz;
524 #ifdef EXTRA
525 times(&cputime); /* get cpu time -- write out score info */
526 logg.cputime = i = (cputime.tms_utime + cputime.tms_stime)/60 + c[CPUTIME];
527 logg.lev=c[LEVEL]; logg.ac=c[AC];
528 logg.hpmax=c[HPMAX]; logg.hp=c[HP];
529 logg.elapsedtime=(zzz-initialtime+59)/60;
530 logg.usage=(10000*i)/(zzz-initialtime);
531 logg.bytin=c[BYTESIN]; logg.bytout=c[BYTESOUT];
532 logg.moves=c[MOVESMADE]; logg.spused=c[SPELLSCAST];
533 logg.killed=c[MONSTKILLED];
534 #endif
535 lwrite((char*)&logg,sizeof(struct log_fmt)); lwclose();
536 #endif NOLOG
537
538 /* now for the scoreboard maintenance -- not for a suspended game */
539 if (x != 257)
540 {
541 if (sortboard()) scorerror = writeboard();
542 }
543 }
544 if ((x==256) || (x==257) || (f != 0)) exit();
545 if (scorerror == 0) showscores(); /* if we updated the scoreboard */
546 if (x == 263) mailbill(); exit();
547 }
548
549 /*
550 * diedsub(x) Subroutine to print out the line showing the player when he is killed
551 * int x;
552 */
553 diedsub(x)
554 int x;
555 {
556 register char ch,*mod;
557 lprintf("Score: %d, Diff: %d, %s ",(long)c[GOLD],(long)c[HARDGAME],logname);
558 if (x < 256)
559 {
560 ch = *monster[x].name;
561 if (ch=='a' || ch=='e' || ch=='i' || ch=='o' || ch=='u')
562 mod="an"; else mod="a";
563 lprintf("killed by %s %s",mod,monster[x].name);
564 }
565 else lprintf("%s",whydead[x - 256]);
566 if (x != 263) lprintf(" on %s\n",levelname[level]); else lprc('\n');
567 }
568
569 /*
570 * diedlog() Subroutine to read a log file and print it out in ascii format
571 */
572 diedlog()
573 {
574 register int n;
575 register char *p;
576 struct stat stbuf;
577 lcreat((char*)0);
578 if (lopen(logfile)<0)
579 {
580 lprintf("Can't locate log file <%s>\n",logfile);
581 return;
582 }
583 if (fstat(fd,&stbuf) < 0)
584 {
585 lprintf("Can't stat log file <%s>\n",logfile);
586 return;
587 }
588 for (n=stbuf.st_size/sizeof(struct log_fmt); n>0; --n)
589 {
590 lrfill((char*)&logg,sizeof(struct log_fmt));
591 p = ctime(&logg.diedtime); p[16]='\n'; p[17]=0;
592 lprintf("Score: %d, Diff: %d, %s %s on %d at %s",(long)(logg.score),(long)(logg.diff),logg.who,logg.what,(long)(logg.cavelev),p+4);
593 #ifdef EXTRA
594 if (logg.moves<=0) logg.moves=1;
595 lprintf(" Experience Level: %d, AC: %d, HP: %d/%d, Elapsed Time: %d minutes\n",(long)(logg.lev),(long)(logg.ac),(long)(logg.hp),(long)(logg.hpmax),(long)(logg.elapsedtime));
596 lprintf(" CPU time used: %d seconds, Machine usage: %d.%02d%%\n",(long)(logg.cputime),(long)(logg.usage/100),(long)(logg.usage%100));
597 lprintf(" BYTES in: %d, out: %d, moves: %d, deaths: %d, spells cast: %d\n",(long)(logg.bytin),(long)(logg.bytout),(long)(logg.moves),(long)(logg.killed),(long)(logg.spused));
598 lprintf(" out bytes per move: %d, time per move: %d ms\n",(long)(logg.bytout/logg.moves),(long)((logg.cputime*1000)/logg.moves));
599 #endif
600 }
601 lflush(); lrclose(); return;
602 }
603
604 #ifndef UIDSCORE
605 /*
606 * getplid(name) Function to get players id # from id file
607 *
608 * Enter with the name of the players character in name.
609 * Returns the id # of the players character, or -1 if failure.
610 * This routine will try to find the name in the id file, if its not there,
611 * it will try to make a new entry in the file. Only returns -1 if can't
612 * find him in the file, and can't make a new entry in the file.
613 * Format of playerids file:
614 * Id # in ascii \n character name \n
615 */
616 static int havepid= -1; /* playerid # if previously done */
617 getplid(nam)
618 char *nam;
619 {
620 int fd7,high=999,no;
621 register char *p,*p2;
622 char name[80];
623 if (havepid != -1) return(havepid); /* already did it */
624 lflush(); /* flush any pending I/O */
625 sprintf(name,"%s\n",nam); /* append a \n to name */
626 if (lopen(playerids) < 0) /* no file, make it */
627 {
628 if ((fd7=creat(playerids,0666)) < 0) return(-1); /* can't make it */
629 close(fd7); goto addone; /* now append new playerid record to file */
630 }
631 for (;;) /* now search for the name in the player id file */
632 {
633 p = lgetl(); if (p==NULL) break; /* EOF? */
634 no = atoi(p); /* the id # */
635 p2= lgetl(); if (p2==NULL) break; /* EOF? */
636 if (no>high) high=no; /* accumulate highest id # */
637 if (strcmp(p2,name)==0) /* we found him */
638 {
639 return(no); /* his id number */
640 }
641 }
642 lrclose();
643 /* if we get here, we didn't find him in the file -- put him there */
644 addone:
645 if (lappend(playerids) < 0) return(-1); /* can't open file for append */
646 lprintf("%d\n%s",(long)++high,name); /* new id # and name */
647 lwclose();
648 lcreat((char*)0); /* re-open terminal channel */
649 return(high);
650 }
651 #endif UIDSCORE
652
Port of NetBSD games to Darwin