| abstract
| - Below is the full text to hack.lev.c from the source code of Hack 1.0. To link to a particular line, write [[Hack 1.0/hack.lev.c#line123]], for example. Warning! This is the source code from an old release. For the latest release, see Source code 1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */ 2. 3. #include "hack.h" 4. #include 5. #include 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
", rlen, len); 113. panic("Cannot read %d bytes from file #%d
", len, fd); 114. } 115. } 116. 117. #ifdef BSD 118. #include 119. #else 120. #include 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!
"); 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...
"); 154. exit(1); 155. } 156. if(status.w_termsig) { 157. settty("Mklev killed by a signal. Exiting...
"); 158. exit(1); 159. } 160. if(status.w_retcode) { 161. if(status.w_retcode == 2) { 162. settty("Cannot execl mklev.
"); 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. }
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)