Source:Hack 1.0/hack.bones.c - Revision history

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

2024-06-29T20:04:28Z

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

Kernigh bot: Hack 1.0/hack.bones.c moved to Source:Hack 1.0/hack.bones.c: Robot: moved page

2008-03-03T22:14:35Z

Hack 1.0/hack.bones.c moved to Source:Hack 1.0/hack.bones.c: Robot: moved page

Ray Chason: Put back the nowiki tags

2006-09-02T18:06:03Z

Put back the nowiki tags

Ray Chason: Fixed the misindents

2006-09-02T17:42:59Z

Fixed the misindents

Jaytbot: Automated source code upload

2006-08-29T20:21:09Z

Automated source code upload

New page

Below is the full text to '''hack.bones.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.bones.c#line123|<nowiki>[[Hack 1.0/hack.bones.c#line123]]</nowiki>]], for example.

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

{{CWI}}
1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
2. 
3. #include "hack.h"
4. extern char plname[PL_NSIZ];
5. extern struct monst *makemon();
6. 
7. struct permonst pm_ghost = { "ghost", ' ', 10, 3, -5, 1, 1, sizeof(plname) };
8. 
9. 
10. char bones[] = "bones_xx";
11. 
12. /* save bones and possessions of a deceased adventurer */
13. savebones(){
14. register fd;
15. register struct obj *otmp;
16. register struct gen *gtmp;
17. register struct monst *mtmp;
18. if(!rn2(1 + dlevel/2)) return; /* not so many ghosts on low levels */
19. bones[6] = '0' + (dlevel/10);
20. bones[7] = '0' + (dlevel%10);
21. if((fd = open(bones,0)) >= 0){
22. (void) close(fd);
23. return;
24. }
25. /* drop everything; the corpse's possessions are usually cursed */
26. otmp = invent;
27. while(otmp){
28. otmp->ox = u.ux;
29. otmp->oy = u.uy;
30. otmp->known = 0;
31. otmp->age = 0; /* very long ago */
32. otmp->owornmask = 0;
33. if(rn2(5)) otmp->cursed = 1;
34. if(!otmp->nobj){
35. otmp->nobj = fobj;
36. fobj = invent;
37. invent = 0; /* superfluous */
38. break;
39. }
40. otmp = otmp->nobj;
41. }
42. if(!(mtmp = makemon(&pm_ghost, u.ux, u.uy))) return;
43. mtmp->mx = u.ux;
44. mtmp->my = u.uy;
45. mtmp->msleep = 1;
46. (void) strcpy((char *) mtmp->mextra, plname);
47. mkgold(somegold() + d(dlevel,30), u.ux, u.uy);
48. u.ux = FAR; /* avoid animals standing next to us */
49. keepdogs(); /* all tame animals become wild again */
50. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon){
51. mtmp->mlstmv = 0;
52. if(mtmp->mdispl) unpmon(mtmp);
53. }
54. for(gtmp = ftrap; gtmp; gtmp = gtmp->ngen)
55. gtmp->gflag &= ~SEEN;
56. for(otmp = fobj; otmp; otmp = otmp->nobj)
57. otmp->onamelth = 0;
58. if((fd = creat(bones, FMASK)) < 0) return;
59. savelev(fd);
60. (void) close(fd);
61. }
62. 
63. getbones(){
64. register fd,x,y,ok;
65. if(rn2(3)) return(0); /* only once in three times do we find bones */
66. bones[6] = '0' + dlevel/10;
67. bones[7] = '0' + dlevel%10;
68. if((fd = open(bones, 0)) < 0) return(0);
69. if((ok = uptodate(fd)) != 0){
70. (void) getlev(fd);
71. (void) close(fd);
72. for(x = 0; x < COLNO; x++) for(y = 0; y < ROWNO; y++)
73. levl[x][y].seen = levl[x][y].new = 0;
74. }
75. if(unlink(bones) < 0){
76. pline("Cannot unlink %s", bones);
77. return(0);
78. }
79. return(ok);
80. }
[[Category:Hack 1.0 source code|hack.bones.c]]

← Older revision		Revision as of 18:06, 2 September 2006
Line 1:		Line 1:
−	Below is the full text to '''hack.bones.c''' from the [[Hack 1.0 source code\|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.bones.c#line123\|[[Hack 1.0/hack.bones.c#line123]]]], for example.	+	Below is the full text to '''hack.bones.c''' from the [[Hack 1.0 source code\|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.bones.c#line123\|<nowiki>[[Hack 1.0/hack.bones.c#line123]]</nowiki>]], for example.

	'''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 the latest release, see [[Source code]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''hack.bones.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.bones.c#line123|<nowiki>[[Hack 1.0/hack.bones.c#line123]]</nowiki>]], for example.
+Below is the full text to '''hack.bones.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.bones.c#line123|[[Hack 1.0/hack.bones.c#line123]]]], for example.
 '''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]
@@ Line 43: / Line 43: @@
   <span id="line38">38.   			break;</span>
   <span id="line39">39.   		}</span>
-  <span id="line40">40.    otmp = otmp->nobj;</span>
+  <span id="line40">40.   		otmp = otmp->nobj;</span>
   <span id="line41">41.   	}</span>
   <span id="line42">42.   	if(!(mtmp = makemon(&pm_ghost, u.ux, u.uy))) return;</span>
@@ Line 82: / Line 82: @@
   <span id="line77">77.   		return(0);</span>
   <span id="line78">78.   	}</span>
-  <span id="line79">79.    return(ok);</span>
+  <span id="line79">79.   	return(ok);</span>
   <span id="line80">80.   }</span>
 [[Category:Hack 1.0 source code|hack.bones.c]]

← Older revision	Revision as of 22:14, 3 March 2008
(No difference)