Jaytbot: Automated source code upload

2006-08-31T14:05:15Z

Automated source code upload

New page

Below is the full text to '''pcmain.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/pcmain.c#line123|<nowiki>[[NetHack 1.3d/pcmain.c#line123]]</nowiki>]], for example.

'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]

{{CWI}}
1. /* SCCS Id: @(#)pcmain.c 1.3 87/07/14
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* main.c - (PC) version 1.0.3 */
4. 
5. #include <stdio.h>
6. #include <signal.h>
7. #include "hack.h"
8. 
9. #ifdef QUEST
10. #define gamename "PC NetQuest"
11. #else
12. #define gamename "PC NetHack"
13. #endif
14. 
15. char orgdir[PATHLEN], *getcwd();
16. 
17. extern struct permonst mons[CMNUM+2];
18. extern char genocided[], fut_geno[];
19. extern char *getlogin(), *getenv();
20. extern char plname[PL_NSIZ], pl_character[PL_CSIZ];
21. 
22. int (*afternmv)(), done1(), (*occupation)();
23. 
24. char SAVEF[FILENAME];
25. char *hname = gamename;
26. char obuf[BUFSIZ]; /* BUFSIZ is defined in stdio.h */
27. int hackpid; /* not used anymore, but kept in for save files */
28. 
29. extern char *nomovemsg;
30. extern long wailmsg;
31. 
32. main(argc,argv)
33. int argc;
34. char *argv[];
35. {
36. register int fd;
37. register char *dir;
38. #ifdef MSDOS
39. static void moveloop(); /* a helper function for MSC optimizer */
40. 
41. /* Save current directory and make sure it gets restored when
42. * the game is exited.
43. */
44. int (*funcp)();
45. 
46. if (getcwd(orgdir, sizeof orgdir) == NULL) {
47. xputs("hack: current directory path too long\n");
48. _exit(1);
49. }
50. funcp = exit; /* Kludge to get around LINT_ARGS of signal.
51. * This will produce a compiler warning, but that's OK.
52. */
53. signal(SIGINT, funcp); /* restore original directory */
54. #endif
55. #ifdef DGK
56. initoptions();
57. if (!hackdir[0])
58. (void) strcpy(hackdir, orgdir);
59. dir = hackdir;
60. #else
61. dir = getenv("HACKDIR");
62. if(argc > 1 && !strncmp(argv[1], "-d", 2)) {
63. argc--;
64. argv++;
65. dir = argv[0]+2;
66. if(*dir == '=' || *dir == ':') dir++;
67. if(!*dir && argc > 1) {
68. argc--;
69. argv++;
70. dir = argv[0];
71. }
72. if(!*dir)
73. error("Flag -d must be followed by a directory name.");
74. }
75. #endif /* DGK */
76. 
77. /*
78. * Now we know the directory containing 'record' and
79. * may do a prscore().
80. */
81. if(argc > 1 && !strncmp(argv[1], "-s", 2)) {
82. chdirx(dir,0);
83. prscore(argc, argv);
84. exit(0);
85. }
86. 
87. /*
88. * It seems he really wants to play.
89. * Remember tty modes, to be restored on exit.
90. */
91. gettty();
92. setbuf(stdout,obuf);
93. setrandom();
94. startup();
95. init_corpses(); /* initialize optional corpse names */
96. cls();
97. u.uhp = 1; /* prevent RIP on early quits */
98. u.ux = FAR; /* prevent nscr() */
99. 
100. /*
101. * We cannot do chdir earlier, otherwise gethdate will fail.
102. */
103. chdirx(dir,1);
104. 
105. /*
106. * Process options.
107. */
108. while(argc > 1 && argv[1][0] == '-'){
109. argv++;
110. argc--;
111. switch(argv[0][1]){
112. #ifdef WIZARD
113. case 'D':
114. # ifdef MSDOS
115. wizard = TRUE;
116. # else
117. if(!strcmp(getlogin(), WIZARD))
118. wizard = TRUE;
119. else
120. printf("Sorry.\n");
121. # endif
122. break;
123. #endif
124. case 'u':
125. if(argv[0][2])
126. (void) strncpy(plname, argv[0]+2, sizeof(plname)-1);
127. else if(argc > 1) {
128. argc--;
129. argv++;
130. (void) strncpy(plname, argv[0], sizeof(plname)-1);
131. } else
132. printf("Player name expected after -u\n");
133. break;
134. #ifdef DGK
135. /* Person does not want to use a ram disk
136. */
137. case 'R':
138. ramdisk = FALSE;
139. break;
140. #endif
141. default:
142. /* allow -T for Tourist, etc. */
143. (void) strncpy(pl_character, argv[0]+1,
144. sizeof(pl_character)-1);
145. 
146. /* printf("Unknown option: %s\n", *argv); */
147. }
148. }
149. 
150. #ifdef DGK
151. set_lock_and_bones();
152. copybones(FROMPERM);
153. #endif
154. #ifdef WIZARD
155. if (wizard)
156. (void) strcpy(plname, "wizard");
157. else
158. #endif
159. if (!*plname)
160. askname();
161. plnamesuffix(); /* strip suffix from name; calls askname() */
162. /* again if suffix was whole name */
163. /* accepts any suffix */
164. #ifdef WIZARD
165. if(wizard) {
166. register char *sfoo;
167. # ifndef DGK
168. /* lock is set in read_config_file */
169. (void) strcpy(lock,plname);
170. # endif
171. if(sfoo = getenv("MAGIC"))
172. while(*sfoo) {
173. switch(*sfoo++) {
174. case 'n': (void) srand(*sfoo++);
175. break;
176. }
177. }
178. if(sfoo = getenv("GENOCIDED")){
179. if(*sfoo == '!'){
180. register struct permonst *pm = mons;
181. register char *gp = genocided;
182. 
183. while(pm < mons+CMNUM+2){
184. if(!index(sfoo, pm->mlet))
185. *gp++ = pm->mlet;
186. pm++;
187. }
188. *gp = 0;
189. } else
190. (void) strcpy(genocided, sfoo);
191. (void) strcpy(fut_geno, genocided);
192. }
193. }
194. #endif /* WIZARD */
195. start_screen();
196. #ifdef DGK
197. strncat(SAVEF, plname, 8);
198. strcat(SAVEF, ".sav");
199. cls();
200. if (saveDiskPrompt(1) && ((fd = open(SAVEF, 0)) >= 0)) {
201. #else 
202. (void) sprintf(SAVEF, "save/%d%s", getuid(), plname);
203. regularize(SAVEF+5); /* avoid . or / in name */
204. if((fd = open(SAVEF,0)) >= 0 &&
205. (uptodate(fd) || unlink(SAVEF) == 666)) {
206. #endif /* DGK */
207. (void) signal(SIGINT,done1);
208. pline("Restoring old save file...");
209. (void) fflush(stdout);
210. if(!dorecover(fd))
211. goto not_recovered;
212. pline("Hello %s, welcome to %s!", plname, hname);
213. flags.move = 0;
214. } else {
215. not_recovered:
216. #ifdef DGK
217. gameDiskPrompt();
218. #endif
219. fobj = fcobj = invent = 0;
220. fmon = fallen_down = 0;
221. ftrap = 0;
222. fgold = 0;
223. flags.ident = 1;
224. init_objects();
225. u_init();
226. 
227. (void) signal(SIGINT,done1);
228. mklev();
229. u.ux = xupstair;
230. u.uy = yupstair;
231. (void) inshop();
232. setsee();
233. flags.botlx = 1;
234. /* Fix bug with dog not being made because a monster
235. * was on the level 1 staircase
236. */
237. {
238. struct monst *mtmp;
239. 
240. if (mtmp = m_at(u.ux, u.uy))
241. mnexto(mtmp);
242. }
243. makedog();
244. { register struct monst *mtmp;
245. if(mtmp = m_at(u.ux, u.uy)) mnexto(mtmp); /* riv05!a3 */
246. }
247. seemons();
248. docrt();
249. 
250. /* give welcome message before pickup messages */
251. pline("Hello %s, welcome to %s!", plname, hname);
252. 
253. pickup(1);
254. if(!Blind) read_engr_at(u.ux,u.uy);
255. flags.move = 1;
256. }
257. flags.moonphase = phase_of_the_moon();
258. if(flags.moonphase == FULL_MOON) {
259. pline("You are lucky! Full moon tonight.");
260. if(!u.uluck) u.uluck++;
261. } else if(flags.moonphase == NEW_MOON) {
262. pline("Be careful! New moon tonight.");
263. }
264. 
265. initrack();
266. (void) signal(SIGINT, SIG_IGN);
267. #ifdef MSDOS
268. /* Help for Microsoft optimizer. Otherwise main is too large -dgk*/
269. moveloop();
270. }
271. 
272. static void
273. moveloop()
274. {
275. char ch;
276. int abort;
277. #endif /* MSDOS */
278. for(;;) {
279. if(flags.move) { /* actual time passed */
280. 
281. settrack();
282. 
283. if(moves%2 == 0 ||
284. (!(Fast & ~INTRINSIC) && (!Fast || rn2(3)))) {
285. extern struct monst *makemon();
286. movemon();
287. if(!rn2(70))
288. (void) makemon((struct permonst *)0, 0, 0);
289. }
290. if(Glib) glibr();
291. timeout();
292. ++moves;
293. #ifdef PRAYERS
294. if (u.ublesscnt) u.ublesscnt--;
295. #endif
296. #ifndef DGK
297. if(flags.time) flags.botl = 1;
298. #endif
299. #ifdef KAA
300. if(u.mtimedone)
301. if(u.mh < 1) rehumanize();
302. else
303. #endif
304. if(u.uhp < 1) {
305. pline("You die...");
306. done("died");
307. }
308. if(u.uhp*10 < u.uhpmax && moves-wailmsg > 50){
309. wailmsg = moves;
310. #ifdef KAA
311. if(index("WEV", pl_character[0])) {
312. if (u.uhp == 1)
313. pline("%s is about to die.", pl_character);
314. else
315. pline("%s, your life force is running out.",
316. pl_character);
317. } else {
318. #endif
319. if(u.uhp == 1)
320. pline("You hear the wailing of the Banshee...");
321. else
322. pline("You hear the howling of the CwnAnnwn...");
323. #ifdef KAA
324. }
325. #endif
326. }
327. #ifdef KAA
328. if (u.mtimedone) {
329. if (u.mh < u.mhmax) {
330. if (Regeneration || !(moves%20)) {
331. flags.botl = 1;
332. u.mh++;
333. }
334. }
335. }
336. #endif
337. if(u.uhp < u.uhpmax) {
338. if(u.ulevel > 9) {
339. if(HRegeneration || !(moves%3)) {
340. flags.botl = 1;
341. u.uhp += rnd((int) u.ulevel-9);
342. if(u.uhp > u.uhpmax)
343. u.uhp = u.uhpmax;
344. }
345. } else if(HRegeneration ||
346. (!(moves%(22-u.ulevel*2)))) {
347. flags.botl = 1;
348. u.uhp++;
349. }
350. }
351. #ifdef SPELLS
352. if ((u.uen<u.uenmax) && (!(moves%(21-u.ulevel/2)))) {
353. u.uen += rn2(u.ulevel/4 + 1) + 1;
354. if (u.uen > u.uenmax) u.uen = u.uenmax;
355. flags.botl = 1;
356. }
357. #endif
358. if(Teleportation && !rn2(85)) tele();
359. if(Searching && multi >= 0) (void) dosearch();
360. gethungry();
361. invault();
362. amulet();
363. #ifdef HARD
364. if (u.udemigod) {
365. 
366. u.udg_cnt--;
367. if(u.udg_cnt <= 0) {
368. 
369. intervene();
370. u.udg_cnt = rn1(200, 50);
371. }
372. }
373. #endif
374. }
375. if(multi < 0) {
376. if(!++multi){
377. pline(nomovemsg ? nomovemsg :
378. "You can move again.");
379. nomovemsg = 0;
380. if(afternmv) (*afternmv)();
381. afternmv = 0;
382. }
383. }
384. 
385. find_ac();
386. #ifndef QUEST
387. if(!flags.mv || Blind)
388. #endif
389. {
390. seeobjs();
391. seemons();
392. nscr();
393. }
394. #ifdef DGK
395. if(flags.time) flags.botl = 1;
396. #endif
397. if(flags.botl || flags.botlx) bot();
398. 
399. flags.move = 1;
400. 
401. if(multi >= 0 && occupation) {
402. #ifdef DGK
403. abort = 0;
404. if (kbhit()) {
405. if ((ch = getchar()) == ABORT)
406. abort++;
407. else
408. pushch(ch);
409. }
410. if (abort || monster_nearby())
411. stop_occupation();
412. else if ((*occupation)() == 0)
413. occupation = 0;
414. if (!(++occtime % 7))
415. (void) fflush(stdout);
416. #else
417. if (monster_nearby())
418. stop_occupation();
419. else if ((*occupation)() == 0)
420. occupation = 0;
421. #endif
422. continue;
423. }
424. 
425. if(multi > 0) {
426. #ifdef QUEST
427. if(flags.run >= 4) finddir();
428. #endif
429. lookaround();
430. if(!multi) { /* lookaround may clear multi */
431. flags.move = 0;
432. continue;
433. }
434. if(flags.mv) {
435. if(multi < COLNO && !--multi)
436. flags.mv = flags.run = 0;
437. domove();
438. } else {
439. --multi;
440. rhack(save_cm);
441. }
442. } else if(multi == 0) {
443. rhack((char *) 0);
444. }
445. if(multi && multi%7 == 0)
446. (void) fflush(stdout);
447. }
448. }
449. 
450. #ifndef DGK
451. /* This function is unnecessary and incompatible with the #define
452. * of glo(x) in config.h -dgk
453. */
454. glo(foo)
455. register foo;
456. {
457. /* construct the string xlock.n */
458. register char *tf;
459. 
460. tf = lock;
461. while(*tf && *tf != '.') tf++;
462. (void) sprintf(tf, ".%d", foo);
463. }
464. #endif
465. 
466. /*
467. * plname is filled either by an option (-u Player or -uPlayer) or
468. * explicitly (-w implies wizard) or by askname.
469. * It may still contain a suffix denoting pl_character.
470. */
471. askname(){
472. register int c,ct;
473. printf("\nWho are you? ");
474. (void) fflush(stdout);
475. ct = 0;
476. while((c = getchar()) != '\n'){
477. #ifdef MSDOS
478. msmsg("%c", c);
479. #endif
480. if(c == EOF) error("End of input\n");
481. /* some people get confused when their erase char is not ^H */
482. if(c == '\010') {
483. if(ct) ct--;
484. continue;
485. }
486. if(c != '-')
487. if(c < 'A' || (c > 'Z' && c < 'a') || c > 'z') c = '_';
488. if(ct < sizeof(plname)-1) plname[ct++] = c;
489. }
490. plname[ct] = 0;
491. if(ct == 0) askname();
492. }
493. 
494. /*VARARGS1*/
495. impossible(s,x1,x2)
496. register char *s;
497. {
498. pline(s,x1,x2);
499. pline("Program in disorder - perhaps you'd better Quit.");
500. }
501. 
502. #ifdef CHDIR
503. chdirx(dir, wr)
504. char *dir;
505. boolean wr;
506. {
507. 
508. if(dir && chdir(dir) < 0) {
509. error("Cannot chdir to %s.", dir);
510. }
511. 
512. #ifdef DGK
513. /* Change the default drive as well.
514. */
515. chdrive(dir);
516. #endif
517. 
518. /* warn the player if he cannot write the record file */
519. /* perhaps we should also test whether . is writable */
520. /* unfortunately the access systemcall is worthless */
521. if(wr) {
522. register fd;
523. 
524. if(dir == NULL)
525. dir = ".";
526. if((fd = open(RECORD, 2)) < 0) {
527. #ifdef DGK
528. char tmp[PATHLEN];
529. 
530. strcpy(tmp, dir);
531. append_slash(tmp);
532. msmsg("Warning: cannot write %s%s\n", tmp, RECORD);
533. getreturn("to continue");
534. #else
535. printf("Warning: cannot write %s/%s", dir, RECORD);
536. getret();
537. #endif
538. } else
539. (void) close(fd);
540. }
541. }
542. #endif /* CHDIR /**/
543. 
544. stop_occupation()
545. {
546. if(occupation) {
547. pline("You stop %s.", occtxt);
548. occupation = 0;
549. #ifdef DGK
550. multi = 0;
551. pushch(0); 
552. #endif
553. }
554. }
[[Category:NetHack 1.3d source code|pcmain.c]]

Source:NetHack 1.3d/pcmain.c - Revision history

Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 1.3d/pcmain.c moved to Source:NetHack 1.3d/pcmain.c: Robot: moved page

Jaytbot: Automated source code upload

@@ Line 1: / Line 1: @@
-Below is the full text to '''pcmain.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/pcmain.c#line123|<nowiki>[[NetHack 1.3d/pcmain.c#line123]]</nowiki>]], for example.
+Below is the full text to '''pcmain.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]].
-'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]
+'''Warning!''' This is the source code from an old release. For newer releases, see [[Source code]]
 {{CWI}}

← Older revision	Revision as of 00:13, 4 March 2008
(No difference)