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

2024-06-29T20:14:58Z

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

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

2008-03-03T22:24:32Z

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

Jaytbot: Automated source code upload

2006-08-29T20:26:14Z

Automated source code upload

New page

Below is the full text to '''hack.lev.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.lev.c#line123|<nowiki>[[Hack 1.0/hack.lev.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. #include <signal.h>
5. #include <stdio.h>
6. extern struct monst *restmonchn();
7. extern struct obj *restobjchn();
8. extern struct obj *billobjs;
9. extern char *itoa();
10. 
11. extern char nul[];
12. #ifndef NOWORM
13. #include "def.wseg.h"
14. 
15. extern struct wseg *wsegs[32], *wheads[32];
16. extern long wgrowtime[32];
17. #endif NOWORM
18. 
19. #include "savelev.h"
20. 
21. getlev(fd)
22. {
23. register struct gen *gtmp;
24. #ifndef NOWORM
25. register struct wseg *wtmp;
26. #endif NOWORM
27. register tmp;
28. long omoves;
29. 
30. if(fd<0 || read(fd, (char *) levl, sizeof(levl)) != sizeof(levl))
31. return(1);
32. fgold = 0;
33. ftrap = 0;
34. mread(fd, (char *)&omoves, sizeof(omoves)); /* 0 from MKLEV */
35. mread(fd, (char *)&xupstair, sizeof(xupstair));
36. mread(fd, (char *)&yupstair, sizeof(yupstair));
37. mread(fd, (char *)&xdnstair, sizeof(xdnstair));
38. mread(fd, (char *)&ydnstair, sizeof(ydnstair));
39. 
40. fmon = restmonchn(fd);
41. if(omoves) {
42. /* regenerate animals while on another level */
43. long tmoves = (moves > omoves) ? moves-omoves : 0;
44. register struct monst *mtmp, *mtmp2;
45. extern char genocided[];
46. 
47. for(mtmp = fmon; mtmp; mtmp = mtmp2) {
48. mtmp2 = mtmp->nmon;
49. if(index(genocided, mtmp->data->mlet)) {
50. mondead(mtmp);
51. continue;
52. }
53. if(index("ViT", mtmp->data->mlet))
54. mtmp->mhp += tmoves;
55. else
56. mtmp->mhp += tmoves/20;
57. if(mtmp->mhp > mtmp->orig_hp)
58. mtmp->mhp = mtmp->orig_hp;
59. }
60. }
61. 
62. setshk();
63. setgd();
64. gtmp = newgen();
65. mread(fd, (char *)gtmp, sizeof(struct gen));
66. while(gtmp->gx) {
67. gtmp->ngen = fgold;
68. fgold = gtmp;
69. gtmp = newgen();
70. mread(fd, (char *)gtmp, sizeof(struct gen));
71. }
72. mread(fd, (char *)gtmp, sizeof(struct gen));
73. while(gtmp->gx) {
74. gtmp->ngen = ftrap;
75. ftrap = gtmp;
76. gtmp = newgen();
77. mread(fd, (char *)gtmp, sizeof(struct gen));
78. }
79. free((char *) gtmp);
80. fobj = restobjchn(fd);
81. billobjs = restobjchn(fd);
82. rest_engravings(fd);
83. #ifndef QUEST
84. mread(fd, (char *)rooms, sizeof(rooms));
85. mread(fd, (char *)doors, sizeof(doors));
86. #endif QUEST
87. if(!omoves) return(0); /* from MKLEV */
88. #ifndef NOWORM
89. mread(fd, (char *)wsegs, sizeof(wsegs));
90. for(tmp = 1; tmp < 32; tmp++) if(wsegs[tmp]){
91. wheads[tmp] = wsegs[tmp] = wtmp = newseg();
92. while(1) {
93. mread(fd, (char *)wtmp, sizeof(struct wseg));
94. if(!wtmp->nseg) break;
95. wheads[tmp]->nseg = wtmp = newseg();
96. wheads[tmp] = wtmp;
97. }
98. }
99. mread(fd, (char *)wgrowtime, sizeof(wgrowtime));
100. #endif NOWORM
101. return(0);
102. }
103. 
104. mread(fd, buf, len)
105. register fd;
106. register char *buf;
107. register unsigned len;
108. {
109. register int rlen;
110. rlen = read(fd, buf, (int) len);
111. if(rlen != len){
112. pline("Read %d instead of %d bytes\n", rlen, len);
113. panic("Cannot read %d bytes from file #%d\n", len, fd);
114. }
115. }
116. 
117. #ifdef BSD
118. #include <sys/wait.h>
119. #else
120. #include <wait.h>
121. #endif BSD
122. 
123. mklev()
124. {
125. register int fd;
126. char type[2];
127. union wait status;
128. extern char fut_geno[];
129. 
130. if(getbones()) return;
131. if(dlevel < rn1(3, 26)) type[0] = 'a'; /* normal level */
132. else type[0] = 'b'; /* maze */
133. type[1] = 0;
134. switch(fork()){
135. case 0:
136. (void) signal(SIGINT, SIG_IGN);
137. (void) signal(SIGQUIT, SIG_IGN);
138. execl("./mklev", "mklev", lock, type, itoa(dlevel), fut_geno, 
139. #ifdef WIZARD
140. wizard ? "w" :
141. #endif WIZARD
142. "", (char *) 0);
143. exit(2);
144. case -1:
145. settty("Cannot fork!\n");
146. exit(1);
147. default:
148. (void) fflush(stdout); /* You fell into a trap ... */
149. (void) wait(&status);
150. }
151. if(status.w_status) {
152. if(status.w_coredump) {
153. settty("Mklev dumped core. Exiting...\n");
154. exit(1);
155. }
156. if(status.w_termsig) {
157. settty("Mklev killed by a signal. Exiting...\n");
158. exit(1);
159. }
160. if(status.w_retcode) {
161. if(status.w_retcode == 2) {
162. settty("Cannot execl mklev.\n");
163. exit(1);
164. }
165. pline("Mklev failed. Let's try again.");
166. mklev();
167. return;
168. }
169. }
170. if((fd = open(lock, 0)) < 0) {
171. pline("Can't open %s!", lock);
172. mklev();
173. return;
174. }
175. (void) getlev(fd);
176. (void) close(fd);
177. }
[[Category:Hack 1.0 source code|hack.lev.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''hack.lev.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.lev.c#line123|<nowiki>[[Hack 1.0/hack.lev.c#line123]]</nowiki>]], for example.
+Below is the full text to '''hack.lev.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]].
-'''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 22:24, 3 March 2008
(No difference)

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

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

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

Jaytbot: Automated source code upload