| abstract
| - Below is the full text to hack.mkobj.c from the source code of Hack 1.0. To link to a particular line, write [[Hack 1.0/hack.mkobj.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. #ifdef MKLEV 4. #include "mklev.h" 5. #else 6. #include "hack.h" 7. #endif MKLEV 8. 9. #include "hack.onames.h" 10. 11. char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**("; 12. struct obj *mkobj(), *mksobj(); 13. 14. mkobj_at(let,x,y) 15. register let,x,y; 16. { 17. register struct obj *otmp = mkobj(let); 18. otmp->ox = x; 19. otmp->oy = y; 20. otmp->nobj = fobj; 21. fobj = otmp; 22. } 23. 24. #ifndef MKLEV 25. mksobj_at(let,otyp,x,y) 26. register let,otyp,x,y; 27. { 28. register struct obj *otmp = mksobj(let, otyp); 29. otmp->ox = x; 30. otmp->oy = y; 31. otmp->nobj = fobj; 32. fobj = otmp; 33. } 34. #endif MKLEV 35. 36. struct obj * 37. mkobj(let) { 38. if(!let) let = mkobjstr[rn2(sizeof(mkobjstr) - 1)]; 39. return(mksobj(let, letter(let) ? CORPSE : probtype(let))); 40. } 41. 42. 43. struct obj zeroobj; 44. 45. struct obj * 46. mksobj(let, otyp) { 47. register struct obj *otmp; 48. 49. otmp = newobj(0); 50. *otmp = zeroobj; 51. #ifdef MKLEV 52. otmp->age = 0; 53. otmp->o_id = 0; 54. #else 55. otmp->age = moves; 56. otmp->o_id = flags.ident++; 57. #endif MKLEV 58. otmp->quan = 1; 59. if(letter(let)){ 60. otmp->olet = FOOD_SYM; 61. otmp->otyp = CORPSE + ((let > 'Z') ? (let-'a'+'Z'-'@'+1) : 62. (let-'@')); 63. otmp->spe = let; 64. otmp->known = 1; 65. otmp->owt = weight(otmp); 66. return(otmp); 67. } 68. otmp->olet = let; 69. otmp->otyp = otyp; 70. otmp->dknown = index("/=!?*", let) ? 0 : 1; 71. switch(let) { 72. case WEAPON_SYM: 73. otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1; 74. if(!rn2(11)) otmp->spe = rnd(3); 75. else if(!rn2(10)) { 76. otmp->cursed = 1; 77. otmp->spe = -rnd(3); 78. } 79. break; 80. case FOOD_SYM: 81. case GEM_SYM: 82. otmp->quan = rn2(6) ? 1 : 2; 83. case TOOL_SYM: 84. case CHAIN_SYM: 85. case BALL_SYM: 86. case ROCK_SYM: 87. case POTION_SYM: 88. case SCROLL_SYM: 89. case AMULET_SYM: 90. break; 91. case ARMOR_SYM: 92. if(!rn2(8)) otmp->cursed = 1; 93. if(!rn2(10)) otmp->spe = rnd(3); 94. else if(!rn2(9)) { 95. otmp->spe = -rnd(3); 96. otmp->cursed = 1; 97. } 98. otmp->spe += 10 - objects[otmp->otyp].a_ac; 99. break; 100. case WAND_SYM: 101. if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else 102. otmp->spe = rn1(5, 103. (objects[otmp->otyp].bits & NODIR) ? 11 : 4); 104. break; 105. case RING_SYM: 106. if(objects[otmp->otyp].bits & SPEC) { 107. if(!rn2(3)) { 108. otmp->cursed = 1; 109. otmp->spe = -rnd(2); 110. } else otmp->spe = rnd(2); 111. } else if(otmp->otyp == RIN_TELEPORTATION || 112. otmp->otyp == RIN_AGGRAVATE_MONSTER || 113. otmp->otyp == RIN_HUNGER || !rn2(9)) 114. otmp->cursed = 1; 115. break; 116. default: 117. panic("impossible mkobj"); 118. } 119. otmp->owt = weight(otmp); 120. return(otmp); 121. } 122. 123. letter(c) { 124. return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z')); 125. } 126. 127. weight(obj) 128. register struct obj *obj; 129. { 130. register int wt = objects[obj->otyp].oc_weight; 131. return(wt ? wt*obj->quan : (obj->quan + 1)/2); 132. } 133. 134. mkgold(num,x,y) 135. register num; 136. { 137. register struct gen *gtmp; 138. register int amount = num ? num : 1 + (rnd(dlevel+2) * rnd(30)); 139. 140. if(gtmp = g_at(x,y,fgold)) 141. gtmp->gflag += amount; 142. else { 143. gtmp = newgen(); 144. gtmp->ngen = fgold; 145. gtmp->gx = x; 146. gtmp->gy = y; 147. gtmp->gflag = amount; 148. fgold = gtmp; 149. #ifdef MKLEV 150. levl[x][y].scrsym = '$'; 151. #endif MKLEV 152. } 153. }
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)